recommend HTML::Mason

[freeside.git] / FS / FS / InitHandler.pm

diff --git a/FS/FS/InitHandler.pm b/FS/FS/InitHandler.pm
index 31aacc7..5038cf3 100644 (file)
--- 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,15 +13,13 @@ $DEBUG = 1;
 
 sub handler {
 
-=pod
-
   use Date::Format;
   use Date::Parse;
   use Tie::IxHash;
   use HTML::Entities;
   use IO::Handle;
   use IO::File;
-  use String::Approx:
+  use String::Approx;
   use HTML::Widgets::SelectLayers 0.02;
   #use FS::UID;
   #use FS::Record;
@@ -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