[Xen-devel] [OSSTEST PATCH 5/6] sg-report-flight: Link from runvars to to host histories

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 sg-report-flight |    6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/sg-report-flight b/sg-report-flight
index bd7d968..d07ce15 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -951,7 +951,13 @@ END
         my ($vn,$vv,$synth) = (@$varrow);
         print H "<tr><th>".encode_entities($vn)."</th>";
         print H "<td>";
+        my $url;
+        if ($vn =~ m/^(?:\w+_)?host$/ && $vv !~ m/[^-.0-9a-z]/) {
+            $url = "$c{ResultsHtmlPubBaseUrl}/host/$vv.html";
+        }
+        print H "<a href=\"",encode_entities($url),"\">" if $url;
         print H encode_entities($vv);
+        print H "</a>" if $url;
         print H "</td>";
         print H "<td>".($synth ? 'execution' : 'definition')."</td>";
         print H "\n";
-- 
1.7.10.4


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel