Make "Trim logs" do what it says.

Bug #340448 r=timeless
This commit is contained in:
cls%seawood.org 2006-06-08 01:10:07 +00:00
Родитель b47f587a8d
Коммит 3c122e5195
1 изменённых файлов: 2 добавлений и 2 удалений

Просмотреть файл

@ -76,9 +76,9 @@ sub trim_logs {
# Nuke the old log files
#
$i = 0;
opendir( D, 'DogbertTip' );
opendir( D, "$tree" );
while( $fn = readdir( D ) ){
if( $fn =~ /\.gz$/ ){
if( $fn =~ /\.(?:gz|brief\.html)$/ ){
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,
$ctime,$blksize,$blocks) = stat("$tree/$fn");
if( $mtime && ($mtime < $min_date) ){