added some extra traps
This commit is contained in:
parent
7e7b1928c1
commit
d1402a5a60
1 changed files with 15 additions and 5 deletions
|
|
@ -52,7 +52,10 @@ Remove content from the filesystem cache.
|
||||||
|
|
||||||
sub delete {
|
sub delete {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
rmtree($self->getFolder());
|
my $folder = $self->getFolder;
|
||||||
|
if (-e $folder) {
|
||||||
|
rmtree($folder);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
@ -69,8 +72,10 @@ A partial composite key to remove.
|
||||||
|
|
||||||
sub deleteChunk {
|
sub deleteChunk {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $key = $self->parseKey(shift);
|
my $folder = $self->getNamespaceRoot."/".$self->parseKey(shift);
|
||||||
rmtree($self->getNamespaceRoot()."/".$key);
|
if (-e $folder) {
|
||||||
|
rmtree($folder);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
@ -84,7 +89,10 @@ Remove all objects from the filecache system.
|
||||||
sub flush {
|
sub flush {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
$self->SUPER::flush();
|
$self->SUPER::flush();
|
||||||
rmtree($self->getNamespaceRoot);
|
my $folder = $self->getNamespaceRoot;
|
||||||
|
if (-e $folder) {
|
||||||
|
rmtree($folder);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
#-------------------------------------------------------------------
|
||||||
|
|
@ -170,7 +178,9 @@ sub getNamespaceSize {
|
||||||
my $expires = <FILE>;
|
my $expires = <FILE>;
|
||||||
close(FILE);
|
close(FILE);
|
||||||
if ($expires < time()+$expiresModifier) {
|
if ($expires < time()+$expiresModifier) {
|
||||||
rmtree($path);
|
if (-e $path) {
|
||||||
|
rmtree($path);
|
||||||
|
}
|
||||||
} else {
|
} else {
|
||||||
my (@attributes) = stat($path.'/'.$file);
|
my (@attributes) = stat($path.'/'.$file);
|
||||||
$filesRemaining += $attributes[7];
|
$filesRemaining += $attributes[7];
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue