From 28b11dc13f36ebe4e6835e5593dfb3e448142d5e Mon Sep 17 00:00:00 2001
From: Jeremy Harris <jgh@wizmail.org>
Date: Tue, 1 Nov 2022 13:25:39 +0000
Subject: [PATCH] git ref in status display

---
 cgi-bin/show_history.pl | 3 ++-
 templates/history.tt    | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/cgi-bin/show_history.pl b/cgi-bin/show_history.pl
index 50b1bf3..822ec8e 100755
--- 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 b365856..84451c9 100644
--- 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 %]">
-- 
2.30.2