Return to cleanup_file_caches.pl CVS log | Up to [LON-CAPA] / loncom / misc |
version 1.1, 2002/11/06 19:10:09 | version 1.2, 2002/11/21 19:41:54 |
---|---|
Line 61 sub kill_if_old { | Line 61 sub kill_if_old { |
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 ($inode->atime < $killtime) { |
unlink($filename) || print "Unable to unlink $filename"; | unlink($filename); |
} | } |
} | } |