From e40c28015115c09bd7d860f35de18a12d6483e11 Mon Sep 17 00:00:00 2001
From: "slamm%netscape.com"
 <slamm%netscape.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Wed, 25 Aug 1999 04:55:58 +0000
Subject: [PATCH] Trim out old entries from build.dat and notes.txt. Also, use
 perl's find for removing old files.

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

diff --git a/mozilla/webtools/tinderbox/clean.pl b/mozilla/webtools/tinderbox/clean.pl
index 75954f81bf2..f9aa9c8d75a 100755
--- a/mozilla/webtools/tinderbox/clean.pl
+++ b/mozilla/webtools/tinderbox/clean.pl
@@ -19,24 +19,52 @@
 
 # Figure out which directory tinderbox is in by looking at argv[0]
 
+use File::Find;
+
 $tinderboxdir = $0;
 $tinderboxdir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
-if ($tinderboxdir eq "") {
-    $tinderboxdir = ".";
-}
-
+$tinderboxdir = '.' if $tinderboxdir eq '';
+$now          = time();
+$expire_time  = $now - 7 * 24 * 60 * 60;
 #print "tinderbox = $tinderboxdir\n"; 
 
-chdir $tinderboxdir || die "Couldn't chdir to $tinderboxdir"; 
+chdir $tinderboxdir or die "Couldn't chdir to $tinderboxdir"; 
 
-#print "cd ok\n";
-
-open FL, "find . -name \"*.gz\" -mtime +7 -print |";
-
-#print "find ok\n";
-
-while( <FL> ){
-    chop();
-    #print "unlink $_\n";
-    unlink $_;
+# Remove files older than 7 days
+#
+sub files_to_remove {
+  unlink if /(?:\.gz|\.brief\.html)$/ or int(-M $_) > 7;
 }
+&find(\&files_to_remove, $tinderboxdir);
+
+# Remove build.dat entries older than 7 days
+#
+sub log_files_to_trim {
+  return unless /^(?:notes.txt|build.dat)$/;
+  warn "Cleaning $File::Find::name\n";
+  my $file = $_;
+  my $range_start = 0;
+  my $line = 1;
+  my $ed_cmds = '';
+  open LOG, "$file";
+  while (<LOG>) {
+    $log_time = (split /\|/)[0];
+    if ($range_start == 0 and $log_time < $expire_time) {
+      $range_start = $line;
+    } elsif ($range_start != 0 and $log_time >= $expire_time) {
+      if ($range_start == $line - 1) {
+        $ed_cmds .= "${range_start}d\n";
+      } else {
+        $ed_cmds .= "$range_start,".($line - 1)."d\n";
+      }
+      $range_start = 0;
+    }
+    $line++;
+  }
+  close LOG;
+  open ED,"| ed $file" or die "died ed'ing: $!\n";
+  print ED "${ed_cmds}w\nq\n";
+  close ED;
+}
+&find(\&log_files_to_trim, $tinderboxdir);
+