From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ian Jackson <ian.jackson@eu.citrix.com>
Subject: [OSSTEST PATCH 5/6] sg-report-flight: Add some flight
	information
Date: Mon, 7 Apr 2014 17:27:56 +0100
Message-ID: <1396888077-9619-6-git-send-email-ian.jackson@eu.citrix.com>
References: <1396888077-9619-1-git-send-email-ian.jackson@eu.citrix.com>
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Return-path: <xen-devel-bounces@lists.xen.org>
Received: from mail6.bemta4.messagelabs.com ([85.158.143.247])
	by lists.xen.org with esmtp (Exim 4.72)
	(envelope-from <Ian.Jackson@citrix.com>) id 1WXCP1-0007pq-Ef
	for xen-devel@lists.xenproject.org; Mon, 07 Apr 2014 16:28:07 +0000
In-Reply-To: <1396888077-9619-1-git-send-email-ian.jackson@eu.citrix.com>
List-Unsubscribe: <http://lists.xen.org/cgi-bin/mailman/options/xen-devel>,
	<mailto:xen-devel-request@lists.xen.org?subject=unsubscribe>
List-Post: <mailto:xen-devel@lists.xen.org>
List-Help: <mailto:xen-devel-request@lists.xen.org?subject=help>
List-Subscribe: <http://lists.xen.org/cgi-bin/mailman/listinfo/xen-devel>,
	<mailto:xen-devel-request@lists.xen.org?subject=subscribe>
Sender: xen-devel-bounces@lists.xen.org
Errors-To: xen-devel-bounces@lists.xen.org
To: xen-devel@lists.xenproject.org
Cc: Ian Jackson <ian.jackson@eu.citrix.com>, Ian Campbell <ian.campbell@citrix.com>
List-Id: xen-devel@lists.xenproject.org

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
 sg-report-flight |   27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/sg-report-flight b/sg-report-flight
index 0bf2b5d..b643816 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -994,7 +994,7 @@ END
     }
     my @vercols= sort keys %vercols;
     if (@vercols) {
-        print H "<h2>targeted versions</h2>\n";
+        print H "<h2>Targeted versions</h2>\n";
         print H "<table rules=all>";
         print H "<tr><td></td>";
         print H "<th>".encode_entities($_)."</th>" foreach @vercols;
@@ -1012,6 +1012,31 @@ END
         }
         print H "</table>";
     }
+    my $started_str = show_abs_time $fi->{FlightInfo}{started};
+
+    print H <<END;
+<h2>Flight information</h2>
+<table>
+<tr>
+<td>"Branch":</td><td>$fi->{FlightInfo}{branch}</td></tr>
+<td>Intended blessing:</td><td>$fi->{FlightInfo}{intended}</td></tr>
+<td>Blessing:</td><td>$fi->{FlightInfo}{blessing}</td></tr>
+<td>Started:</td><td>$started_str</td></tr>
+<td>Test harness revision(s):</td><td>
+END
+
+    our $htmlout_touchedq ||= $dbh_tests->prepare(<<END);
+        SELECT harness FROM flights_harness_touched WHERE flight=?
+END
+    $htmlout_touchedq->execute($fi->{Flight});
+    while (my ($touched) = $htmlout_touchedq->fetchrow_array()) {
+	print H $touched, "\n";
+    }
+
+    print H <<END;
+</td></tr>
+</table>
+END
     print H "</body></html>";
     H->error and die $!;
     close H or die $!;
-- 
1.7.10.4