X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htetc%2Fglobal.asa;h=193f997df873aeecba28b67e331a764262e53213;hp=ee5cfcb3c1e7f7c9c8c8a61fdafa4e317f652581;hb=84d15a339737bd783b764c7f0d371084c2158ce7;hpb=5993bc956415cf285d630e0657d4a6e0642ebead diff --git a/htetc/global.asa b/htetc/global.asa index ee5cfcb3c..193f997df 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -4,25 +4,28 @@ BEGIN { eval "use Devel::AutoProfiler;"; } #only if installed... use strict; use vars qw( $cgi $p ); +use Apache::ASP 2.55; 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; @@ -57,6 +60,7 @@ use FS::svc_www; 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; @@ -193,6 +197,7 @@ sub sprintAutoProfile { } sub include { + $_[0] =~ s(^/)(); $Response->Include(@_); }