X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=f80c79e652f56ec6ac7659ba5df0f20e0be60aca;hb=ce32d23f68c3137da0e0c43e14bea90c5eec9635;hp=f01d3cd0b18cfe046c7c28610d55a42b2e0894e3;hpb=91387f8f489e561deaf1de052d80ef800a4970a3;p=freeside.git diff --git a/htetc/handler.pl b/htetc/handler.pl index f01d3cd0b..f80c79e65 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -59,14 +59,47 @@ sub handler #use CGI::Carp qw(fatalsToBrowser); use Date::Format; use Date::Parse; - use FS::UID qw(cgisuidsetup); - use FS::Record qw(qsearch qsearchs fields); - use FS::part_svc; - use FS::part_pkg; - use FS::pkg_svc; + use Tie::IxHash; + use HTML::Entities; + use IO::Handle; + use IO::File; + use String::Approx qw(amatch); + use FS::UID qw(cgisuidsetup dbh getotaker datasrc); + use FS::Record qw(qsearch qsearchs fields dbdef); + use FS::Conf; + use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot + small_custview); + + use FS::agent; + use FS::agent_type; + use FS::domain_record; + use FS::cust_bill; + use FS::cust_bill_pay; + use FS::cust_credit; + use FS::cust_credit_bill; + use FS::cust_main; + use FS::cust_main_county; + use FS::cust_pay; use FS::cust_pkg; + use FS::cust_refund; use FS::cust_svc; - use FS::CGI qw(header menubar popurl table itable ntable); + use FS::nas; + use FS::part_bill_event; + use FS::part_pkg; + use FS::part_referral; + use FS::part_svc; + use FS::pkg_svc; + use FS::port; + 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_domain; + use FS::svc_forward; + use FS::svc_www; + use FS::type_pkgs; $cgi = new CGI; &cgisuidsetup($cgi); @@ -76,7 +109,7 @@ sub handler $r->content_type('text/html'); #eorar - # @FS::CGI::@headers or some other way to set no-cache headers!!! + # @FS::CGI::headers or some other way to set no-cache headers!!! my $status = $ah->handle_request($r);