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

diff --git a/sg-report-flight b/sg-report-flight
index d07ce15..d8d8492 100755
--- a/sg-report-flight
+++ b/sg-report-flight
@@ -954,6 +954,17 @@ END
         my $url;
         if ($vn =~ m/^(?:\w+_)?host$/ && $vv !~ m/[^-.0-9a-z]/) {
             $url = "$c{ResultsHtmlPubBaseUrl}/host/$vv.html";
+        } elsif ($vn =~ m/^(\w*job)$/ && $vv !~ m/[^-+._,=:0-9a-z]/i) {
+            my ($otherflight,$otherjob) =
+                eval { flight_otherjob($fi->{Flight}, $vv); };
+            if (defined $otherjob) {
+                if ($otherflight eq $fi->{Flight}) {
+                    $url = "..";
+                } else {
+                    $url = "$c{ReportHtmlPubBaseUrl}/$otherflight";
+                }
+                $url .= "/$otherjob/info.html";
+            }
         }
         print H "<a href=\"",encode_entities($url),"\">" if $url;
         print H encode_entities($vv);
-- 
1.7.10.4


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

Reply via email to