Manual allocation: Report better info in plan for rogue tasks

(This will only take effect as such tasks appear in the plan for the
first time.  Ie, once a rogue task is found, the plan is populated by
whatever version of the planner is running at that time.  So the
effect will not be immediately visible.)

Signed-off-by: Ian Jackson <iwj@osstest.xs.citrite.net>
---
v2: New patch

diff --git a/ms-planner b/ms-planner
index 47e0ea710b8d25e92feac4a4e3c57c745f4f5b64..1f996a6281e7f85736f30e34655b3b35fb8ccf8f 100755 (executable)
--- a/ms-planner
+++ b/ms-planner
@@ -291,7 +291,10 @@ END
            $info= "(preparing)";
        } else {
            print DEBUG "rogue $reso $shareix: $arow->{owntaskid}\n";
-           $info= "rogue task $arow->{subtask}";
+           $info= "rogue task";
+           $info .= " $arow->{type} $arow->{refkey}";
+           $info .= " ($arow->{comment})" if defined $arow->{comment};
+           $info .= " $arow->{subtask}";
        }
        $plan->{Allocations}{$reskey}= {
             Task => $arow->{owntaskid},