From: Ian Campbell <ian.campbell@citrix.com>
Date: Thu, 17 Sep 2015 15:18:35 +0000 (+0100)
Subject: ms-queuedaemon: Call ms-flights-summary upon completed plan/projection
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=2448b71a1d859e838551516645cf263d0d3a551c;p=people%2Fliuw%2Fosstest.git

ms-queuedaemon: Call ms-flights-summary upon completed plan/projection

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

diff --git a/ms-queuedaemon b/ms-queuedaemon
index 9c7645d..6ae9677 100755
--- a/ms-queuedaemon
+++ b/ms-queuedaemon
@@ -310,7 +310,20 @@ proc report-plan {w wo} {
 }
 
 proc report-projection {w} {
+    global c
+
     report-plan $w projection
+
+    # report-plan will have ensured data-projection.final.pl is up to
+    # date
+
+    catching-internally "producing summary" {
+	set proj "data-projection.final.pl"
+	set outputfile "$c(WebspaceFile)/summary.html"
+	exec ./ms-flights-summary $proj > $outputfile
+    } {
+	log "$w report-projection OK"
+    }
 }
 
 proc we-are-thinking {chan} {