diff options
Diffstat (limited to 'tools/tools/tinderbox/www/index.cgi')
| -rw-r--r-- | tools/tools/tinderbox/www/index.cgi | 6 |
1 files changed, 6 insertions, 0 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 UTC", gmtime($stat[9])) . "</span><br />"; |
