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 9c7645dcfd9e961d79a8a602dc95ea6f080ea8e8..6ae967770621acdaec2020b24ff1d4550b31c2d7 100755 (executable)
--- 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} {