X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htetc%2Fhandler.pl;h=b44e3f2d4da8f44c2eb073db58fb88ffac3cd250;hb=765e7b54db07913fcb5274d886f3476862d365f2;hp=934b419678f07146bf410618066b5712504d03d6;hpb=3bc7d019313160a918a55cca6ab530f58db3673d;p=freeside.git diff --git a/htetc/handler.pl b/htetc/handler.pl index 934b41967..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; @@ -114,7 +118,7 @@ sub handler 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; @@ -160,6 +164,7 @@ sub handler use FS::rate; use FS::rate_region; use FS::rate_prefix; + use FS::XMLRPC; if ( %%%RT_ENABLED%%% ) { eval '