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

more traps

Browse source
This commit is contained in:
JT Smith 2005-11-26 03:21:50 +00:00
parent d1402a5a60
commit 58753a86e9
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Cache/FileCache.pm
View file

@ -106,12 +106,13 @@ Retrieve content from the filesystem cache.
sub get {
my $self = shift;
return undef if ($WebGUI::Session::session{config}{disableCache});
if (open(FILE,"<".$self->getFolder()."/expires")) {
my $folder = $self->getFolder;
if (-e $folder."/expires" && -e $folder."/cache" && open(FILE,"<".$folder."/expires")) {
my $expires = <FILE>;
close(FILE);
return undef if ($expires < time());
my $value;
eval {$value = retrieve($self->getFolder()."/cache")};
eval {$value = retrieve($folder."/cache")};
if (ref $value eq "SCALAR") {
return $$value;
} else {