X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/1c558dd75c7ab4f9f4b99ed80713c811d69ab24c..dbdb5de3a403d523bc70c10cb83969418c1b8b3f:/templates/history.tt

diff --git a/templates/history.tt b/templates/history.tt
index dd050ed..442a4c1 100644
--- a/templates/history.tt
+++ b/templates/history.tt
@@ -1,12 +1,19 @@
+[%#
+
+Copyright (c) 2003-2010, Andrew Dunstan
+
+See accompanying License file for license details
+
+-%]
 [%- BLOCK cl %] class="[% SWITCH bgfor -%]
   [%- CASE 'OK' %]pass[% CASE 'ContribCheck' %]warn[% CASE [ 'Check' 'InstallCheck' ] %]warnx[% CASE %]fail[% END %]"
 [%- END -%]
 [% WRAPPER 'page.tt' 
-	title = 'PostgreSQL BuildFarm History'
+	title = 'Exim BuildFarm History'
 	bodyclass = 'history'
 	pagebutton = 'none'
 %]
-<h1>PostgreSQL BuildFarm Status History</h1>
+<h1>Exim BuildFarm Status History</h1>
   <table cellspacing="0">
     <tr><th class="head" colspan="3">System Detail</th></tr>
     <tr class="member"><th>Farm member</th><td>[% member %]</td></tr>
@@ -30,6 +37,16 @@
    </table>
 [% END %]
   <h3>Branch: [% branch %][% IF statrows.size >= hm %] (last [% hm %] entries shown)[% END %]</h3>
+[%
+ res_imgs = {
+     P = '/img/t_good.gif',
+     F => '/img/t_fail.gif',
+     '.' => '/img/t_notdone.gif',
+     }
+-%]
+[%# The IF-backstop is ugly and I'm not understanding why the res_img lookup does not for for '.' -%]
+[%- BLOCK colour ; IF res_imgs.$c.defined ; res_imgs.$c ; ELSE %]/img/t_notdone.gif [% END; END %]
+[%- BLOCK colourbar %]<img src=[% PROCESS colour %] title="[% st %]-[% st + w %]" height=16 width=[% w %] class=inline align=bottom/>[%- END -%]
 [% BLOCK stdet %]
     <tr [% PROCESS cl bgfor=row.stage %]>
       <td>[%- row.when_ago | replace('\s','&nbsp;') %]&nbsp;ago&nbsp;</td>
@@ -38,19 +55,11 @@
                [%- row.sysname %]&amp;dt=
                [%- row.snapshot | uri %]">
                 [%- IF row.stage != 'OK' %]Details[% ELSE %]Config[% END -%]</a></td>
-
+      <td class="tests">[% FOREACH range IN row.log_text ;
+        r = range.split(' '); c = r.0; st = r.1; w = r.2; PROCESS colourbar; END %]</td>
     </tr>
 [% END %]
-<table border="0"> <tr>
-  [% FOREACH offset IN [0,1,2] %][% low = offset * statrows.size / 3 ; high = -1 + (offset + 1) * statrows.size / 3 %] 
-    [% TRY %][% PERL %] 
-      use POSIX qw(floor); 
-      $stash->set(low => floor($stash->get('low'))); 
-      $stash->set(high => floor($stash->get('high'))); 
-    [% END %][% CATCH %]<!-- [% error.info %] --> [% END %]
     <td><table cellspacing="0">
-        [% FOREACH xrow IN statrows.slice(low,high) %][% PROCESS stdet row=xrow %][% END %]
+        [% FOREACH xrow IN statrows %][% PROCESS stdet row=xrow %][% END %]
     </table></td>
-  [% END %]
-</table>
 [% END %]