]> xenbits.xensource.com Git - people/liuw/osstest.git/commitdiff
ms-* html generation: Provide <title>
authorIan Jackson <ian.jackson@eu.citrix.com>
Tue, 22 Dec 2015 13:08:47 +0000 (13:08 +0000)
committerIan Jackson <Ian.Jackson@eu.citrix.com>
Tue, 5 Jan 2016 17:42:28 +0000 (17:42 +0000)
This means that these browser windows will actually get titles!

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>
ms-flights-summary
ms-planner

index ec8fa183b325424b11791f77e97b4647ac6bbae2..ea72088e964b0684e2e3d77f62e777919b130abd 100755 (executable)
@@ -347,6 +347,8 @@ foreach my $f (keys %flights) {
 
 gather_events();
 
+printf("<html><head><title>Flights - %s</title></head><body>\n",
+       $c{DnsDomain} // '?');
 printf("<p>Report at ".fmttime(time)." based on plan at ".fmttime($plan->{Start})."</p>\n");
 
 printf("<p><h1>Overview</h1></p>\n");
index fc65a5ba4d41f95c0f3292b5323065cca95daa1b..7ce0405a843569ef82d8959cfeca12b5cf9d9703 100755 (executable)
@@ -687,6 +687,9 @@ sub cmd_show_html () {
     #print DEBUG "==============================\n",
     #    Dumper(\@rows, \@newoutcols);
 
+    printf "<html><head><title>Resource %s - %s</title></head><body>\n",
+        $walker, ($c{DnsDomain} // '?');
+
     printf "<table rules=all><tr><td>plan age %s</td><td>report at %s</td>\n",
         show_rel_time($now);
     foreach my $ch (@colheads) {
@@ -753,7 +756,7 @@ sub cmd_show_html () {
            printf "</ul>\n";
            printf "<p>\n";
     }
-    printf "Report generated %s.\n",
+    printf "Report generated %s.\n</body></html>",
         strftime("%Y-%b-%d %a %H:%M:%S", localtime $now);
     die $! if STDOUT->error;
     die $! unless STDOUT->flush;