projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
common element for cust_pkg search form fields
[freeside.git]
/
htetc
/
handler.pl
diff --git
a/htetc/handler.pl
b/htetc/handler.pl
index
45afafb
..
2fe5d37
100644
(file)
--- a/
htetc/handler.pl
+++ b/
htetc/handler.pl
@@
-6,11
+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::Conf;
use FS::access_user_log;
use FS::access_user_log;
+use FS::Conf;
$FS::Conf::conf_cache_enabled = 1; # enable FS::Conf caching for performance
$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;
@@
-60,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)
@@
-139,8
+147,6
@@
sub handler
}
}
- FS::access_user_log->insert_new_path( $r->uri );
-
FS::Trace->log('handling request');
my %session;
my $status;
FS::Trace->log('handling request');
my %session;
my $status;
@@
-161,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,