![[BACK]](/icons/back.gif){kind=icon}
Return to cleanup_file_caches.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / misc|
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); |
| } | } |
| } | } |