ms-queuedaemon: Add report-projection

No semantic change. Eventually more work will be done which is wanted
in report-projection but not report-plan.

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 f3f85bd9e70ff41e210ccd23964d91ccaa18e73c..9c7645dcfd9e961d79a8a602dc95ea6f080ea8e8 100755 (executable)
--- a/ms-queuedaemon
+++ b/ms-queuedaemon
@@ -187,12 +187,12 @@ proc runneeded-perhaps-start {} {
 proc queuerun-finished/plan {} {
     runneeded-ensure-will 0
     report-plan plan plan
-    report-plan plan projection
+    report-projection plan
 }
 
 proc queuerun-finished/projection {} {
     runneeded-ensure-will 0
-    report-plan projection projection
+    report-projection projection
 }
 
 proc runneeded-ensure-polling {} {
@@ -309,6 +309,10 @@ proc report-plan {w wo} {
     }
 }
 
+proc report-projection {w} {
+    report-plan $w projection
+}
+
 proc we-are-thinking {chan} {
     set ws {}
     foreach-walker w {