--- 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__;