Make "Trim logs" do what it says.

Bug #340448 r=timeless


git-svn-id: svn://10.0.0.236/trunk@199476 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
cls%seawood.org
2006-06-08 01:10:07 +00:00
parent 5d848415af
commit 08b69d300d

View File

@@ -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) ){