html output: ms-flights-summary: Generate link to flight logs directory

Make the flight number be a link to the unpublished flight logs.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/ms-flights-summary b/ms-flights-summary
index 78f8675262e9e0930dd39d72ae7edbc409a0ba31..10ad6e50468cc1bd4ea8861767555839ccd6be5a 100755 (executable)
--- a/ms-flights-summary
+++ b/ms-flights-summary
@@ -435,6 +435,7 @@ printf("<table border='0' cellspacing='0' rules=all>\n");
 my $first = 1;
 foreach my $f (sort keys %flights) {
     my $fi = $flights{$f};
+    my $furl = "$c{ReportHtmlUnpubBaseUrl}/$f/";
 
     $alt = 0;
 
@@ -442,7 +443,8 @@ foreach my $f (sort keys %flights) {
     print ("    <tr><td>&nbsp;</td></tr>\n") if !$first;
     $first = 0;
     print("<a name=\"$f\"></a>\n");
-    flight_hdr("Flight: $f [$fi->{Branch} $fi->{Intended}]");
+    flight_hdr_raw("Flight: <a href=\"".encode_entities($furl)."\">$f</a>".
+                  encode_entities(" [$fi->{Branch} $fi->{Intended}]"));
     flight_hdr("Common info (active jobs only): $fi->{Info}") if $fi->{Info};
     flight_hdr("Started: ".fmttime($fi->{Started}));
     flight_hdr("Current phase ($fi->{UnqueuedJobs}/$fi->{NrJobs} jobs)".