From 927ffc16742213d7ce2485c3455d5aa6f7add199 Mon Sep 17 00:00:00 2001
From: "slamm%netscape.com" <slamm%netscape.com>
Date: Tue, 15 Feb 2000 18:04:42 +0000
Subject: [PATCH] Add bloatdata and warnings to list to clean.

---
 webtools/tinderbox/clean.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/webtools/tinderbox/clean.pl b/webtools/tinderbox/clean.pl
index 5f154974249..25360e840d5 100755
--- a/webtools/tinderbox/clean.pl
+++ b/webtools/tinderbox/clean.pl
@@ -43,7 +43,7 @@ sub files_to_remove {
 # Remove build.dat entries older than 7 days
 #
 sub log_files_to_trim {
-  return unless /^(?:notes.txt|build.dat)$/;
+  return unless /^(?:notes.txt|build.dat|bloat.dat|warnings.dat)$/;
   warn "Cleaning $File::Find::name\n";
   my $file = $_;
   my $range_start = 0;
@@ -52,6 +52,10 @@ sub log_files_to_trim {
   open LOG, "$file";
   while (<LOG>) {
     $log_time = (split /\|/)[0];
+    if ($log_time =~ /(\d+)\.\d+\.gz/) {
+      # Log file name is first column in file. Pull time out of it.
+      $log_time = $1;
+    }
     if ($range_start == 0 and $log_time < $expire_time) {
       $range_start = $line;
     } elsif ($range_start != 0 and $log_time >= $expire_time) {