From 04cfa87afa399b81e737964810304fa942b0eca7 Mon Sep 17 00:00:00 2001
From: short <>
Date: Tue, 26 Oct 2004 07:55:02 +0000
Subject: [PATCH] Implemented &My::Web::no_cache with $W->{"no_cache"}.

---
 Web.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Web.pm b/Web.pm
index 5709a63..2dd7747 100644
--- a/Web.pm
+++ b/Web.pm
@@ -75,6 +75,7 @@ require HTTP::BrowserDetect;
 require HTTP::Negotiate;
 my $have_Geo_IP; BEGIN { $have_Geo_IP=eval { require Geo::IP; 1; }; }
 use ModPerl::Util qw(exit);
+use POSIX qw(strftime);
 
 
 #our $W;
@@ -607,6 +608,16 @@ my(@arr)=@_;
 	return @r;
 }
 
+sub no_cache($)
+{
+my($self)=@_;
+
+	header("Expires"=>"Mon, 26 Jul 1997 05:00:00 GMT");	# date in the past
+	header("Last-Modified"=>strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime()));	# always modified
+	header("Cache-Control"=>"no-cache, must-revalidate");	# HTTP/1.1
+	header("Pragma"=>"no-cache");	# HTTP/1.0
+}
+
 sub heading ()
 {
 my($class)=@_;
@@ -617,6 +628,7 @@ my($class)=@_;
 	my $client_charset=$W->{"force_charset"} || "us-ascii";
 	header("Content-Style-Type"=>"text/css");
 	header("Content-Script-Type"=>"text/javascript");
+	$class->no_cache() if $W->{"no_cache"};
 
 	while (my($key,$val)=each(%{$W->{"headers"}})) {
 		$W->{"r"}->header_out($key,$val);
-- 
1.8.3.1