oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

whoops! this should unbugger the http headers

Browse source
This commit is contained in:
JT Smith 2006-04-18 23:19:18 +00:00
parent 57b79b6019
commit 1533a1c648
2 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Session/DateTime.pm
View file

@ -213,6 +213,7 @@ A string representing the output format for the date. Defaults to '%z %Z'. You c
%p = A lower-case am/pm.
%P = An upper-case AM/PM.
%s = A two digit second.
%t = Time zone name.
%w = Day of the week.
%W = Day of the week abbreviated.
%y = A four digit year.
@ -252,6 +253,7 @@ sub epochToHuman {
"m" => "m",
"M" => "_varmonth_",
"n" => "M",
"t" => "Z",
"O" => "z",
"p" => "P",
"P" => "p",

7
lib/WebGUI/Session/Http.pm
View file

@ -18,7 +18,6 @@ package WebGUI::Session::Http;
use strict;
use Apache2::Cookie;
use APR::Request::Apache2;
use HTTP::Date;
=head1 NAME
@ -169,7 +168,8 @@ sub sendHeader {
$self->session->request->status(301);
} else {
$self->session->request->content_type($self->{_http}{mimetype} || "text/html");
# $self->session->request->set_last_modified($self->{_http}{lastModified} || time());
my $date = $self->session->datetime->epochToHuman(($self->{_http}{lastModified} || time()), "%W, %d %C %y %j:%m:%s %t");
$self->session->request->headers_out->set('Last-Modified' => $date);
if ($self->session->setting->get("preventProxyCache")) {
$self->session->request->headers_out->set(Expires => "-1d");
}
@ -217,7 +217,8 @@ sub setCacheControl {
} elsif ($request->protocol =~ /(\d\.\d)/ && $1 >= 1.1){
$request->header_out('Cache-Control', "max-age=" . $timeout);
} else {
$request->header_out('Expires', HTTP::Date::time2str(time + $self->get("cacheTimeout")));
my $date = $self->session->datetime->epochToHuman(time() + $timeout, "%W, %d %C %y %j:%m:%s %t");
$request->header_out('Expires', $date);
}
}
}