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

*** empty log message ***

Browse source
This commit is contained in:
Matthew Wilson 2005-08-13 17:57:10 +00:00
parent f05c5925d1
commit ac7f170b98
7 changed files with 47 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -161,7 +161,7 @@ sub getNamespaceSize {
my $self = shift;
my $expiresModifier = shift || 0;
my $path = shift || $self->getNamespaceRoot;
my $filesRmaining;
my $filesRemaining = '0';
if (opendir(DIR,$path)) {
my @files = readdir(DIR);
foreach my $file (@files) {
@ -172,7 +172,7 @@ sub getNamespaceSize {
if ($expires < time()+$expiresModifier) {
rmtree($path);
} else {
my (@attributes) = stat($self->getPath($filename));
my (@attributes) = stat($path.'/'.$file);
$filesRemaining += $attributes[7];
}
} else {
@ -263,7 +263,7 @@ Returns statistic information about the caching system.
=cut
sub stats {
my $self = shift;
my $self = shift;
return $self->getNamespaceSize." bytes";
}