From: Eric Wong <e@80x24.org>
Date: Mon, 28 Nov 2022 05:31:52 +0000 (+0000)
Subject: lei_mirror: make basename more descriptive
X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=8d22b26f24c55545709023bc6df9a7136713f9d4;hp=449f87dee7c811466aabdf2c5cb19db11c3e8e53

lei_mirror: make basename more descriptive

This makes it easier for humans to distinguish between
"Alice/project.git" and "Bob/project.git"
---

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') {