From: Ian Jackson Date: Mon, 4 Jan 2016 16:17:15 +0000 (+0000) Subject: ms-* html generation: Provide right title for projection X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=e824a376d37c8fc78e152dc04f2d9f6a2a54ff6f;p=people%2Fliuw%2Fosstest.git ms-* html generation: Provide right title for projection When ms-queuedaemon generates a resource-projection.html, it sometimes does so from data-plan.pl (see proc report-plan). This means that ms-planner does not get a reliable indication of whether it is being run for the plan or the projection, and the resource-project.html sometimes claims to be the plan. Fix with a new ms-planner option -W which tells it what to put in the title, defaulting to the value passed to -w. DEPLOYMENT NOTE: The new ms-planner works with the old queuedaemon, so when upgrading, it is OK to simply update the daemons-testing.git and then restart the ms-queuedaemon. If it is necessary to downgrade, rewinding to the old commit with a running ms-queuedaemon will cause errors from the old ms-planner being passed -w -- but these errors are trapped and ignored. So in this case reports will be out of date until ms-queuedaemon is also restarted. In either case nothing will go badly wrong. Signed-off-by: Ian Jackson Acked-by: Ian Campbell --- diff --git a/ms-planner b/ms-planner index 7ce0405..6f4a511 100755 --- a/ms-planner +++ b/ms-planner @@ -34,6 +34,7 @@ use Osstest::Executive; open DEBUG, ">/dev/null" or die $!; our $walker = 'plan'; +our $walker_show; while (@ARGV and $ARGV[0] =~ m/^-/) { $_= shift @ARGV; @@ -43,12 +44,16 @@ while (@ARGV and $ARGV[0] =~ m/^-/) { open DEBUG, ">&STDERR" or die $!; } elsif (s/^-w(.+)/-/) { $walker = $1; + } elsif (s/^-W(.+)/-/) { + $walker_show = $1; } else { die "$_ ?"; } } } +$walker_show //= $walker; + csreadconfig(); our ($plan); @@ -688,7 +693,7 @@ sub cmd_show_html () { # Dumper(\@rows, \@newoutcols); printf "Resource %s - %s\n", - $walker, ($c{DnsDomain} // '?'); + $walker_show, ($c{DnsDomain} // '?'); printf "\n", show_rel_time($now); diff --git a/ms-queuedaemon b/ms-queuedaemon index 08f88cf..2b8d621 100755 --- a/ms-queuedaemon +++ b/ms-queuedaemon @@ -301,7 +301,7 @@ proc report-plan {w wo} { global c catching-internally "showing $w html" { set outputfile "$c(WebspaceFile)/resource-$wo.html" - exec ./ms-planner -w$w show-html > $outputfile + exec ./ms-planner -w$w -W$wo show-html > $outputfile } { set out data-$wo.final.pl file copy -force data-$w.pl $out.new
plan age %sreport at %s