Return to loncron CVS log | Up to [LON-CAPA] / loncom |
version 1.31, 2002/07/25 18:24:27 | version 1.32, 2002/07/27 19:06:41 |
---|---|
Line 264 while ($fname=<$perlvar{'lonDaemons'}/tm | Line 264 while ($fname=<$perlvar{'lonDaemons'}/tm |
$cleaned++; | $cleaned++; |
unlink("$fname"); | unlink("$fname"); |
} else { | } else { |
if ($since>100*$perlvar{'lonExpire'}) { | if ($since>365*$perlvar{'lonExpire'}) { |
$cleaned++; | $cleaned++; |
unlink("$fname"); | unlink("$fname"); |
} else { $old++; } | } else { $old++; } |