From 91387f8f489e561deaf1de052d80ef800a4970a3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 26 Oct 2001 10:24:56 +0000
Subject: cache foo *sigh*

---
 htetc/global.asa | 2 +-
 htetc/handler.pl | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'htetc')

diff --git a/htetc/global.asa b/htetc/global.asa
index a5863c327..dc75822ff 100644
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -23,7 +23,7 @@ sub Script_OnStart {
 
 sub Script_OnFlush {
   my $ref = $Response->{BinaryRef};
-  $$ref = $cgi->header( '-expires' => 'now' ) . $$ref;
+  $$ref = $cgi->header( @FS::CGI::header ) . $$ref;
   if ( dbh->can('sprintProfile') ) {
 
     $$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i
diff --git a/htetc/handler.pl b/htetc/handler.pl
index e537d26fc..f01d3cd0b 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -75,6 +75,8 @@ sub handler
     }
     $r->content_type('text/html');
     #eorar
+
+    # @FS::CGI::@headers or some other way to set no-cache headers!!!
     
     my $status = $ah->handle_request($r);
     
-- 
cgit v1.2.1