X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htetc%2Fhandler.pl;h=b44e3f2d4da8f44c2eb073db58fb88ffac3cd250;hp=557ec02ed21185719e79c663c218e5b7c7d64542;hb=c2146ae32fdef80049abfa13098db2d45f3ebdd5;hpb=9f9cfe720ba74e559ab669c68b28d9db820189aa diff --git a/htetc/handler.pl b/htetc/handler.pl index 557ec02ed..b44e3f2d4 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -93,15 +93,19 @@ sub handler use Date::Format; use Date::Parse; use Time::Local; + use Time::Duration; use Tie::IxHash; use HTML::Entities; use IO::Handle; use IO::File; + use IO::Scalar; use Net::Whois::Raw qw(whois); if ( $] < 5.006 ) { eval "use Net::Whois::Raw 0.32 qw(whois)"; die $@ if $@; } + use Text::CSV_XS; + use Spreadsheet::WriteExcel; use Business::CreditCard; use String::Approx qw(amatch); use Chart::LinesPoints; @@ -112,8 +116,9 @@ sub handler use FS::Conf; use FS::CGI qw(header menubar popurl table itable ntable idiot eidiot small_custview myexit http_header); + use FS::UI::Web; use FS::Msgcat qw(gettext geterror); - use FS::Misc qw( send_email ); + use FS::Misc qw( send_email send_fax ); use FS::Report::Table::Monthly; use FS::TicketSystem; @@ -159,6 +164,7 @@ sub handler use FS::rate; use FS::rate_region; use FS::rate_prefix; + use FS::XMLRPC; if ( %%%RT_ENABLED%%% ) { eval '