X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FInitHandler.pm;h=5038cf352ef7c31e4734e54a389723eac7defe7d;hp=e8177f8d71ba2d955bb96939ab7a1480a23536b3;hb=5d154e4e153a66c2349ee0c6ca942fa017bfb139;hpb=5a4e653a8a08c5ddbc6e5ab984ff5a1a6e897cc9 diff --git a/FS/FS/InitHandler.pm b/FS/FS/InitHandler.pm index e8177f8d7..5038cf352 100644 --- a/FS/FS/InitHandler.pm +++ b/FS/FS/InitHandler.pm @@ -1,5 +1,9 @@ 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); @@ -9,8 +13,6 @@ $DEBUG = 1; sub handler { -#=pod - 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::queue qw(joblisting); + use FS::queue; 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; @@ -60,8 +61,6 @@ sub handler { use FS::export_svc; use FS::msgcat; -=cut - warn "[FS::InitHandler] handler called\n" if $DEBUG; #this is sure to be broken on freebsd