diff options
Diffstat (limited to 'htetc/handler.pl')
| -rw-r--r-- | htetc/handler.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/htetc/handler.pl b/htetc/handler.pl index 895bf24..aeae380 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', ); @@ -71,14 +71,21 @@ sub handler 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; @@ -143,7 +150,7 @@ sub handler #eorar my $headers = $r->headers_out; - $headers->{'Pragma'} = $headers->{'Cache-control'} = 'no-cache'; + $headers->{'Cache-control'} = 'no-cache'; #$r->no_cache(1); $headers->{'Expires'} = '0'; |