From 461bd7d97d256a15906630957230108a9b1c8de9 Mon Sep 17 00:00:00 2001
From: "slamm%netscape.com" <slamm%netscape.com>
Date: Fri, 5 Mar 1999 01:25:23 +0000
Subject: [PATCH] Speed up data reading. Read it backwards and only as much as
 needed.

---
 webtools/tinderbox/globals.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/webtools/tinderbox/globals.pl b/webtools/tinderbox/globals.pl
index 73469ccb30ec..cd1dc839ac23 100755
--- a/webtools/tinderbox/globals.pl
+++ b/webtools/tinderbox/globals.pl
@@ -197,13 +197,15 @@ sub load_buildlog {
     }
 
     for $t (@treelist) {
-        open(BUILDLOG, "<$t->{name}/build.dat" );
-        while( <BUILDLOG> ){
+      use Backwards;
+    
+      my ($bw) = Backwards->new("$t->{name}/build.dat") or die;
+
+      while( $_ = $bw->readline ) {
             chomp;
             ($mailtime, $buildtime, $buildname, $errorparser, $buildstatus, $logfile, $binaryname) = 
                 split( /\|/ );
-
-
+	    last if $buildtime < $mindate;
             $buildrec = {    
                         mailtime => $mailtime,
                         buildtime => $buildtime,
@@ -215,13 +217,11 @@ sub load_buildlog {
                         td => $t
                    };
             if( $mailtime > 0 
-                    && $buildtime > $mindate 
                     && ($form{noignore} || !($t->{ignore_builds}->{$buildname} != 0)) 
                 ){
                 push @{$build_list}, $buildrec;
             }
         }
-        close( BUILDLOG );
     }
 }