diff options
author | ivan <ivan> | 2001-10-26 10:24:56 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-10-26 10:24:56 +0000 |
commit | 91387f8f489e561deaf1de052d80ef800a4970a3 (patch) | |
tree | ada548d8be00671f6a39d3b41229410bdf2f1e31 /FS/FS/CGI.pm | |
parent | 1904d44bb20adf403e21513db7470153f751d605 (diff) |
cache foo
*sigh*
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 85b91ea..f0fec43 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -1,7 +1,7 @@ package FS::CGI; use strict; -use vars qw(@EXPORT_OK @ISA); +use vars qw(@EXPORT_OK @ISA @header); use Exporter; use CGI; use URI::URL; @@ -11,6 +11,10 @@ use FS::UID; @ISA = qw(Exporter); @EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable); +@header = ( '-Expires' => '-1', + '-Pragma' => 'no-cache', + '-Cache-Control' => 'no-cache' ); + =head1 NAME FS::CGI - Subroutines for the web interface @@ -91,12 +95,12 @@ sub idiot { #warn "idiot depriciated"; my($error)=@_; my $cgi = &FS::UID::cgi(); - if ( $cgi->isa('CGI::Base') ) { - no strict 'subs'; - &CGI::Base::SendHeaders; - } else { - print $cgi->header( '-expires' => 'now' ); - } +# if ( $cgi->isa('CGI::Base') ) { +# no strict 'subs'; +# &CGI::Base::SendHeaders; +# } else { + print $cgi->header( @FS::CGI::header ); +# } print <<END; <HTML> <HEAD> |