htetc/global.asa

   1 use strict;
   2 use vars qw( $cgi $p );
   3 use CGI;
   4 use CGI::Carp qw(fatalsToBrowser);
   5 use FS::UID qw(cgisuidsetup);
   6 use FS::Record qw(qsearch qsearchs fields);
   7 use FS::part_svc;
   8 use FS::CGI qw(header menubar popurl table);
   9
  10 sub Script_OnStart {
  11   $cgi = new CGI;
  12   &cgisuidsetup($cgi);
  13   $p = popurl(2);
  14   #print $cgi->header( '-expires' => 'now' );
  15 }
  16
  17 sub Script_OnFlush {
  18   my $ref = $Response->{BinaryRef};
  19   $$ref = $cgi->header( '-expires' => 'now' ) .$$ref;
  20 }