From: Ian Jackson <ian.jackson@eu.citrix.com>
Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---
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