Return to cleanup_file_caches.pl CVS log | Up to [LON-CAPA] / loncom / misc |
version 1.3, 2004/05/12 19:28:55 | version 1.4, 2004/12/22 19:11:08 |
---|---|
Line 62 sub kill_if_old { | Line 62 sub kill_if_old { |
my $filename = $File::Find::name; | my $filename = $File::Find::name; |
return if (! -f $filename); # We only want files | return if (! -f $filename); # We only want files |
my $inode =stat($filename); | my $inode =stat($filename); |
if ($inode->atime < $killtime) { | if ((time-$inode->atime) > $killtime) { |
unlink($filename); | unlink($filename); |
} | } |
} | } |