Added testfailed status; modified gz filenames to add buildates; reviewed

by ltabb.

webtools/tinderbox/processbuild.pl

@@ -136,8 +136,8 @@ sub check_required_vars {
     if( $tbx{'status'} eq ''){
         $err_string .= "Variable 'tinderbox:status' not set.\n";
     }
-    elsif( ! $tbx{'status'} =~ /success|busted|building/ ){
-        $err_string .= "Variable 'tinderbox:status' must be 'success', 'busted' or 'building'\n";
+    elsif( ! $tbx{'status'} =~ /success|busted|building|testfailed/ ){
+        $err_string .= "Variable 'tinderbox:status' must be 'success', 'busted', 'testfailed', or 'building'\n";
     }
 
     #
@@ -173,7 +173,7 @@ sub compress_log_file {
         $done = ($line eq '');
     }
 
-    $logfile = "$$.gz";
+    $logfile = "$builddate.$$.gz";
 
     open( ZIPLOG, "| $gzip -c > $tbx{'tree'}/$logfile" ) || die "can't open $! for writing";
     $inBinary = 0;

webtools/tinderbox/showbuilds.cgi

@@ -45,7 +45,8 @@ else {
 $colormap = {
                 success => '00ff00',
                 busted => 'red',
-                building => 'yellow'
+                building => 'yellow',
+		testfailed => 'orange'
             };
 
 #
@@ -130,8 +131,9 @@ $treename = $tree . ($tree2 ne "" ? " and $tree2" : "" );
     print "<TT>C</TT> = Show changes that occured since the last build<br>";
     print "<TT>B</TT> = Download binary generated by the build<br>";
     print "<table cellspacing=2 border>";
-    print "<tr bgcolor=yellow><td>Currently Building";
     print "<tr bgcolor=00ff00><td>Built successfully";
+    print "<tr bgcolor=yellow><td>Currently Building";
+    print "<tr bgcolor=orange><td>Build Successful, Build Tests Failed";
     print "<tr bgcolor=red><td>Build failed";
     print "</table>";
     print "</td></tr></table>";