added some extra traps

This commit is contained in:
JT Smith 2005-11-26 03:05:37 +00:00
parent 7e7b1928c1
commit d1402a5a60

View file

@ -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];