projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
systemd: start apache after postgresql
[freeside.git]
/
htetc
/
handler.pl
diff --git
a/htetc/handler.pl
b/htetc/handler.pl
index
18108ab
..
2fe5d37
100644
(file)
--- a/
htetc/handler.pl
+++ b/
htetc/handler.pl
@@
-6,10
+6,17
@@
use strict;
use warnings;
use FS::Mason qw( mason_interps );
use FS::Trace;
use warnings;
use FS::Mason qw( mason_interps );
use FS::Trace;
+use FS::access_user_log;
use FS::Conf;
$FS::Conf::conf_cache_enabled = 1; # enable FS::Conf caching for performance
use FS::Conf;
$FS::Conf::conf_cache_enabled = 1; # enable FS::Conf caching for performance
+# Preload to share in mod_perl parent for performance
+use FS::UID qw(load_schema);
+load_schema();
+use FS::Record qw(fk_methods_init);
+fk_methods_init;
+
if ( %%%RT_ENABLED%%% ) {
require RT;
if ( %%%RT_ENABLED%%% ) {
require RT;
@@
-59,6
+66,8
@@
sub handler
#($r) = @_;
my $r = shift;
#($r) = @_;
my $r = shift;
+ my $start_time = time;
+
FS::Trace->log('protecting fds');
#from rt/bin/webmux.pl(.in)
FS::Trace->log('protecting fds');
#from rt/bin/webmux.pl(.in)
@@
-107,7
+116,6
@@
sub handler
return -1 if defined( $r->content_type )
&& $r->content_type !~ m!(^text/|\bxml\b)!io;
return -1 if defined( $r->content_type )
&& $r->content_type !~ m!(^text/|\bxml\b)!io;
-
local $SIG{__WARN__};
local $SIG{__DIE__};
local $SIG{__WARN__};
local $SIG{__DIE__};
@@
-159,6
+167,8
@@
sub handler
# );
# }
# );
# }
+ FS::access_user_log->insert_new_path( $r->filename, time-$start_time );
+
FS::Trace->log('done');
FS::Trace->dumpfile( "%%%FREESIDE_EXPORT%%%/profile/$$.".time,
FS::Trace->log('done');
FS::Trace->dumpfile( "%%%FREESIDE_EXPORT%%%/profile/$$.".time,