--- loncom/interface/loncommon.pm 2001/10/26 17:09:04 1.7 +++ loncom/interface/loncommon.pm 2001/10/31 17:44:42 1.9 @@ -8,6 +8,7 @@ package Apache::loncommon; use strict; +use POSIX qw(strftime); use Apache::Constants qw(:common); use Apache::lonmsg(); @@ -71,12 +72,19 @@ sub get_unprocessed_cgi { } sub cacheheader { - my $date=localtime; + my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); my $output .=' '; return $output; } +sub no_cache { + my ($r) = @_; + my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); + $r->no_cache(1); + $r->header_out("Pragma" => "no-cache"); + $r->header_out("Expires" => $date); +} 1; __END__;