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

Cache & If-Modified-Since

Browse source
This commit is contained in:
JT Smith 2007-09-07 17:55:34 +00:00
parent 0248dde02f
commit 0993cba3e9
3 changed files with 84 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -203,6 +203,24 @@ sub getStreamedFile {
}
#-------------------------------------------------------------------
=head2 ifModifiedSince ( epoch )
Returns 1 if the epoch is greater than the modified date check.
=cut
sub ifModifiedSince {
my $self = shift;
my $epoch = shift;
require APR::Date;
my $modified = $self->session->request->headers_in->{'If-Modified-Since'};
return 1 if ($modified eq "");
$modified = APR::Date::parse_http($modified);
return ($epoch > $modified);
}
#-------------------------------------------------------------------
=head2 isRedirect ( )