diff options
Diffstat (limited to 'htetc/global.asa')
| -rw-r--r-- | htetc/global.asa | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/htetc/global.asa b/htetc/global.asa index 861a27c..c362f11 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -1,5 +1,6 @@ use strict; use vars qw( $cgi $p ); +use Apache::ASP 2.55; use CGI 2.47; #use CGI::Carp qw(fatalsToBrowser); use Date::Format; @@ -9,14 +10,21 @@ use Tie::IxHash; use HTML::Entities; use IO::Handle; use IO::File; +use Net::Whois::Raw qw(whois); +if ( $] < 5.006 ) { + eval "use Net::Whois::Raw 0.32 qw(whois)"; + die $@ if $@; +} +use Business::CreditCard; use String::Approx qw(amatch); -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::agent; use FS::agent_type; @@ -54,7 +62,6 @@ use FS::export_svc; use FS::msgcat; sub Script_OnStart { - $Response->AddHeader('Pragma' => 'no-cache'); $Response->AddHeader('Cache-control' => 'no-cache'); # $Response->AddHeader('Expires' => 0); $Response->{Expires} = -36288000; |