ms-planner: abbreviate very long words at end of sharetype (probably commit ids)

diff --git a/ms-planner b/ms-planner
index 19f691d130d4db9d211384c94dbceaa142503733..692b4006a4ce39cf817fae039aa41be1a46996d4 100755 (executable)
--- a/ms-planner
+++ b/ms-planner
@@ -571,8 +571,10 @@ sub cmd_show_html () {
                  " $evt->{Allocated}{Task}")." ".$evt->{Info};
            my $share= $evt->{Share};
            if ($share) {
+                my $sharetypeshow = $share->{Type};
+                $sharetypeshow =~ s/(\s\w{8})\w{32,}$/$1$2..$3/;
                $show .= sprintf(" [%s %d/%d %d]",
-                                $share->{Type},
+                                $sharetypeshow,
                                 $share->{Shares} - $evt->{Avail},
                                 $share->{Shares},
                                 $share->{Wear});