git ref in status display

diff --git a/cgi-bin/show_history.pl b/cgi-bin/show_history.pl
index 50b1bf384cf85af6ea8d8c950385fb6871ce1949..822ec8e6e703bef0d01a0e5c0e5e8739b2cc9b53 100755 (executable)
--- a/cgi-bin/show_history.pl
+++ b/cgi-bin/show_history.pl
@@ -3,6 +3,7 @@
 =comment
 
 Copyright (c) 2003-2010, Andrew Dunstan
+Copyright (c) 2022, The Exim Maintainers
 
 See accompanying License file for license details
 
@@ -58,7 +59,7 @@ my $statement = qq{
          and branch = ?
    )
    SELECT (now() at time zone 'GMT')::timestamp(0) - x.snapshot as when_ago, 
-            x.sysname, x.snapshot, x.status, x.stage, s.log_text
+            x.sysname, x.snapshot, x.status, x.stage, s.log_text, x.git_head_ref
    FROM x 
    LEFT JOIN build_status_log s
    ON x.snapshot = s.snapshot AND s.log_stage = 'test-results.log'

diff --git a/templates/history.tt b/templates/history.tt
index b365856239148266345325ddfbcf84d342efe738..84451c97fa05fd1bf3ec3cce5163db4581fa5546 100644 (file)
--- a/templates/history.tt
+++ b/templates/history.tt
@@ -1,6 +1,7 @@
 [%#
 
 Copyright (c) 2003-2010, Andrew Dunstan
+Copyright (c) 2022, The Exim Maintainers
 
 See accompanying License file for license details
 
@@ -50,7 +51,8 @@ See accompanying License file for license details
 [% BLOCK stdet %]
     <tr [% PROCESS cl bgfor=row.stage %]>
       <td>[%- row.when_ago | replace('\s','&nbsp;') %]&nbsp;ago&nbsp;</td>
-      <td class="status">[% row.stage -%]</td>
+      <td class="status">[% row.stage -%] [[% row.git_head_ref.substr(0,7) %]]</td>
+
       <td class="status"><a href="show_log.pl?nm=
                [%- row.sysname %]&amp;dt=
                [%- row.snapshot | uri %]">