[OSSTEST PATCH 10/82] hsot reuse: ms-planner: Abbreviate reporting of test shares

[Ian Jackson <iwj@xxxxxxxxxxxxxx>]

From: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>

Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
---
 ms-planner | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ms-planner b/ms-planner
index 4e38e4e3..78d27b2f 100755
--- a/ms-planner
+++ b/ms-planner
@@ -414,11 +414,13 @@ END
        next if $plan->{Events}{$reskey};
        print DEBUG "document existing quiescent sharing $reskey".
            " share.Type $cshare->{Type}\n";
+       my $type = $cshare->{Type};
+       $type = "$&..." if $type =~ m{^test-\d+(?=\-)};
        my $evt = {
             Time => $plan->{Start},
             Type => Unshare,
            Avail => 1,
-            Info => "recently shared $cshare->{Type}",
+            Info => "recently $type",
             PreviousShare => { %$cshare },
        };
        delete $evt->{PreviousShare}{OnlyPreparing};
-- 
2.20.1