Show stale results (8 hours old or more) in a paler color.

2 files changed, 18 insertions, 2 deletions

diff --git a/tools/tools/tinderbox/www/index.cgi b/tools/tools/tinderbox/www/index.cgi
index f4a6831..26393e9 100644
--- a/tools/tools/tinderbox/www/index.cgi
+++ b/tools/tools/tinderbox/www/index.cgi
@@ -33,6 +33,8 @@ use 5.006_001;
 use strict;
 use POSIX qw(strftime);
 
+my $STALE = 8 * 3600;
+
 my %BRANCHES;
 
 my %ARCHES;
@@ -100,6 +102,8 @@ MAIN:{
     }
     print "      </tr>\n";
 
+    my $now = time();
+
     foreach my $arch (sort(keys(%ARCHES))) {
 	foreach my $machine (sort(keys(%{$ARCHES{$arch}}))) {
 	    my $html =  "      <tr>
@@ -111,6 +115,8 @@ MAIN:{
 		if (-f "$DIR/$log.brief") {
 		    my @stat = stat("$DIR/$log.brief");
 		    my $class = success("$DIR/$log.brief") ? "ok" : "fail";
+		    $class .= "-stale"
+			if ($now - $stat[9] > $STALE);
 		    $links .= "<span class=\"$class\">" .
 			strftime("%Y-%m-%d %H:%M&nbsp;UTC", gmtime($stat[9])) .
 			"</span><br />";
diff --git a/tools/tools/tinderbox/www/tb.css b/tools/tools/tinderbox/www/tb.css
index 1a27420..97914ed 100644
--- a/tools/tools/tinderbox/www/tb.css
+++ b/tools/tools/tinderbox/www/tb.css
@@ -34,12 +34,22 @@ A:active {
 
 .ok {
     background-color: white;
-    color: green;
+    color: #070;
+}
+
+.ok-stale {
+    background-color: white;
+    color: #797;
 }
 
 .fail {
     background-color: white;
-    color: red;
+    color: #700;
+}
+
+.fail-stale {
+    background-color: white;
+    color: #977;
 }
 
 TD, TH {