Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
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@lists.xen.org
http://lists.xen.org/xen-devel
