version 1.7, 2001/10/26 17:09:04
|
version 1.8, 2001/10/26 17:29:28
|
Line 8
|
Line 8
|
package Apache::loncommon; |
package Apache::loncommon; |
|
|
use strict; |
use strict; |
|
use POSIX qw(strftime); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmsg(); |
use Apache::lonmsg(); |
|
|
Line 71 sub get_unprocessed_cgi {
|
Line 72 sub get_unprocessed_cgi {
|
} |
} |
|
|
sub cacheheader { |
sub cacheheader { |
my $date=localtime; |
my $date=strftime("%a, %d %b %Y %H:%M:%S GMT",gmtime); |
my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" /> |
my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" /> |
<meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" /> |
<meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" /> |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache" />'; |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache" />'; |