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

Move ifModifiedSince into WebGUI::Session::Request

Browse source
This commit is contained in:
Colin Kuskie 2010-11-22 09:53:03 -08:00
parent 995b04e7de
commit e7fcf33a4d
5 changed files with 40 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/WebGUI/Session/Request.pm
View file

@ -76,6 +76,40 @@ sub callerIsSearchSite {
#-------------------------------------------------------------------
=head2 ifModifiedSince ( epoch [, maxCacheTimeout] )
Returns 1 if the epoch is greater than the modified date check.
=head3 epoch
The date that the requested content was last modified in epoch format.
=head3 maxCacheTimeout
A modifier to the epoch, that allows us to set a maximum timeout where content will appear to
have changed and a new page request will be allowed to be processed.
=cut
sub ifModifiedSince {
my $self = shift;
my $epoch = shift;
my $maxCacheTimeout = shift;
my $modified = $self->header('If-Modified-Since');
return 1 if ($modified eq "");
$modified = HTTP::Date::str2time($modified);
##Implement a step function that increments the epoch time in integer multiples of
##the maximum cache time. Used to handle the case where layouts containing macros
##(like assetproxied Navigations) can be periodically updated.
if ($maxCacheTimeout) {
my $delta = time() - $epoch;
$epoch += $delta - ($delta % $maxCacheTimeout);
}
return ($epoch > $modified);
}
#-------------------------------------------------------------------
=head2 new_response ()
Creates a new L<WebGUI::Session::Response> object.