projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bandwidth charges from sqlradius
[freeside.git]
/
FS
/
FS
/
InitHandler.pm
diff --git
a/FS/FS/InitHandler.pm
b/FS/FS/InitHandler.pm
index
e8177f8
..
5038cf3
100644
(file)
--- a/
FS/FS/InitHandler.pm
+++ b/
FS/FS/InitHandler.pm
@@
-1,5
+1,9
@@
package FS::InitHandler;
package FS::InitHandler;
+# this leaks memory under graceful restarts and i wouldn't use it on any
+# modern server. useful for very slow machines with memory to spare, just
+# always do a full restart
+
use strict;
use vars qw($DEBUG);
use FS::UID qw(adminsuidsetup);
use strict;
use vars qw($DEBUG);
use FS::UID qw(adminsuidsetup);
@@
-9,8
+13,6
@@
$DEBUG = 1;
sub handler {
sub handler {
-#=pod
-
use Date::Format;
use Date::Parse;
use Tie::IxHash;
use Date::Format;
use Date::Parse;
use Tie::IxHash;
@@
-45,12
+47,11
@@
sub handler {
use FS::part_svc;
use FS::pkg_svc;
use FS::port;
use FS::part_svc;
use FS::pkg_svc;
use FS::port;
- use FS::queue
qw(joblisting)
;
+ use FS::queue;
use FS::raddb;
use FS::session;
use FS::svc_acct;
use FS::raddb;
use FS::session;
use FS::svc_acct;
- use FS::svc_acct_pop qw(popselector);
- use FS::svc_acct_sm;
+ use FS::svc_acct_pop;
use FS::svc_domain;
use FS::svc_forward;
use FS::svc_www;
use FS::svc_domain;
use FS::svc_forward;
use FS::svc_www;
@@
-60,8
+61,6
@@
sub handler {
use FS::export_svc;
use FS::msgcat;
use FS::export_svc;
use FS::msgcat;
-=cut
-
warn "[FS::InitHandler] handler called\n" if $DEBUG;
#this is sure to be broken on freebsd
warn "[FS::InitHandler] handler called\n" if $DEBUG;
#this is sure to be broken on freebsd