X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htetc%2Fhandler.pl;h=8d4f1e71f56c8e3efd67dc419401ceb2264cf37c;hp=1660cb3fa354354daa49e04a1f82657e132c600b;hb=73f34cbe08a9be968a2557cd6906dde5bb9a97a3;hpb=c8f80bd5aaeb0f3844a7cece4bfe250d4f89f745 diff --git a/htetc/handler.pl b/htetc/handler.pl index 1660cb3fa..8d4f1e71f 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -38,7 +38,7 @@ use strict; my $ah = new HTML::Mason::ApacheHandler ( #interp => $interp, #auto_send_headers => 0, - comp_root=>'/var/www/freeside', + comp_root=>'%%%FREESIDE_DOCUMENT_ROOT%%%', data_dir=>'/usr/local/etc/freeside/masondata', #out_mode=>'stream', ); @@ -62,25 +62,27 @@ sub handler { package HTML::Mason::Commands; use strict; use vars qw( $cgi $p ); - use CGI; + use CGI 2.47; #use CGI::Carp qw(fatalsToBrowser); use Date::Format; use Date::Parse; use Time::Local; - use File::Basename; use Tie::IxHash; use HTML::Entities; use IO::Handle; use IO::File; + use Business::CreditCard; use String::Approx qw(amatch); use Chart::LinesPoints; - use HTML::Widgets::SelectLayers 0.02; + use HTML::Widgets::SelectLayers 0.03; use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name); 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 myexit http_header); use FS::Msgcat qw(gettext geterror); + use FS::Misc qw( send_email ); + use FS::Report::Table::Monthly; use FS::agent; use FS::agent_type; @@ -115,6 +117,7 @@ sub handler use FS::router; use FS::addr_block; use FS::svc_broadband; + use FS::svc_external; use FS::type_pkgs; use FS::part_export; use FS::part_export_option;