From e34280fad8769f31bb7ad7b74690c2eb41d89f42 Mon Sep 17 00:00:00 2001
From: "slamm%netscape.com"
 <slamm%netscape.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 21 Aug 2000 17:52:13 +0000
Subject: [PATCH] Add warn<time>.<process>.html to remove list

git-svn-id: svn://10.0.0.236/trunk@76782 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/tinderbox/clean.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/mozilla/webtools/tinderbox/clean.pl b/mozilla/webtools/tinderbox/clean.pl
index aadb5909e45..df99380eb6e 100755
--- a/mozilla/webtools/tinderbox/clean.pl
+++ b/mozilla/webtools/tinderbox/clean.pl
@@ -33,10 +33,11 @@ $expire_time  = $now - 7 * 24 * 60 * 60;
 
 chdir $tinderboxdir or die "Couldn't chdir to $tinderboxdir"; 
 
-# Remove files older than 7 days
-#
 sub files_to_remove {
-  unlink if /(?:\.gz|\.brief\.html|tbx.[0-9]+)$/ and int(-M $_) > 7;
+  # Remove files older than 7 days
+  unlink if /^\d+\.\d+\.gz$|^tbx.[0-9]+$|^warn\d.*\.html$/ and int(-M $_) > 7;
+  # Remove files older than 1 day
+  unlink if /^\d+\.\d+\.brief\.html$/ and int(-M $_) > 1;
 }
 &find(\&files_to_remove, $tinderboxdir);