template stuffs

[freeside.git] / htetc / global.asa

diff --git a/htetc/global.asa b/htetc/global.asa
new file mode 100644 (file)
index 0000000..beb6d02
--- /dev/null
+++ b/htetc/global.asa
@@ -0,0 +1,20 @@
+use strict;
+use vars qw( $cgi $p );
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup);
+use FS::Record qw(qsearch qsearchs fields);
+use FS::part_svc;
+use FS::CGI qw(header menubar popurl table);
+
+sub Script_OnStart {
+  $cgi = new CGI;
+  &cgisuidsetup($cgi);
+  $p = popurl(2);
+  #print $cgi->header( '-expires' => 'now' );
+}
+
+sub Script_OnFlush {
+  my $ref = $Response->{BinaryRef};
+  $$ref = $cgi->header( '-expires' => 'now' ) .$$ref;
+}