![[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.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); |
| } | } |
| } | } |