[PATCH 55/95] lei_mirror: make basename more descriptive

[Eric Wong]

This makes it easier for humans to distinguish between
"Alice/project.git" and "Bob/project.git"
---
 lib/PublicInbox/LeiMirror.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm
index 28fef6f9..3220f48d 100644
--- a/lib/PublicInbox/LeiMirror.pm
+++ b/lib/PublicInbox/LeiMirror.pm
@@ -386,8 +386,11 @@ sub forkgroup_prep {
                }
        }
        my $key = $self->{-key} // die 'BUG: no -key';
-       my ($bn) = ($key =~ m{/([a-z0-9_,;=!\+\{\}\|][^/]*)(?:\.git)?\z}i);
-       my $rn = "$bn-".substr(sha256_hex($key), 0, 16);
+       my $rn = $key;
+       $rn =~ s!\A[\./]+!!s;
+       $rn =~ s/\.*?(?:\.git)?\.*?\z//s;
+       $rn =~ s![\@\{\}/:\?\[\]\^~\s\f[:cntrl:]\*]!_!isg;
+       $rn .= '-'.substr(sha256_hex($key), 0, 16);
        # --no-tags is required to avoid conflicts
        for ("url=$uri", "fetch=+refs/*:refs/remotes/$rn/*",
                        'tagopt=--no-tags') {