[PATCH] lei_mirror: support --remote-manifest=URL

[PATCH] lei_mirror: support --remote-manifest=URL

[Eric Wong]

Since PublicInbox::WWW already generates manifest.js.gz, I'm
using an alternate path with PublicInbox::WwwStatic to host the
manifest.js.gz for coderepos at an alternate location.  The
following snippet lets me host
https://yhbt.net/lore/pub/manifest.js.gz for mirrored git
repositories, while https://yhbt.net/lore/manifest.js.gz
(no `pub') remains for inbox mirroring.

==> sample.psgi <==
use PublicInbox::WWW;
use PublicInbox::WwwStatic;
my $www = PublicInbox::WWW->new; # use default PI_CONFIG
my $st = PublicInbox::WwwStatic->new(docroot => '/path/to/code');
my $www_cb = sub {
	my ($env) = @_;
	if ($env->{PATH_INFO} eq '/pub/manifest.js.gz') {
		local $env->{PATH_INFO} = '/manifest.js.gz';
		my $res = $st->call($env);
		return $res if $res->[0] != 404;
	}
	$www->call($env);
};
builder {
	enable 'ReverseProxy';
	enable 'Head';
	mount '/lore' => $www_cb;
}
---
 lib/PublicInbox/LeiMirror.pm | 8 +++++++-
 script/public-inbox-clone    | 2 +-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/lib/PublicInbox/LeiMirror.pm b/lib/PublicInbox/LeiMirror.pm
index 4dedac9b..e4aa620e 100644
--- a/lib/PublicInbox/LeiMirror.pm
+++ b/lib/PublicInbox/LeiMirror.pm
@@ -1110,7 +1110,13 @@ sub try_manifest {
 	$self->{-torsocks} //= $curl->torsocks($lei, $uri) or return;
 	my $path = $uri->path;
 	chop($path) eq '/' or die "BUG: $uri not canonicalized";
-	$uri->path($path . '/manifest.js.gz');
+	my $rmf = $lei->{opt}->{'remote-manifest'} // '/manifest.js.gz';
+	if ($rmf =~ m!\A[^/:]+://!) {
+		$uri = URI->new($rmf);
+	} else {
+		$rmf = "/$rmf" if index($rmf, '/') != 0;
+		$uri->path($path.$rmf);
+	}
 	my $manifest = $self->{-manifest} // "$self->{dst}/manifest.js.gz";
 	my %opt = (UNLINK => 1, SUFFIX => '.tmp', TMPDIR => 1);
 	if (!$self->{dry_run} && $manifest =~ m!\A(.+?)/[^/]+\z! and -d $1) {
diff --git a/script/public-inbox-clone b/script/public-inbox-clone
index 598979bc..10ad3487 100755
--- a/script/public-inbox-clone
+++ b/script/public-inbox-clone
@@ -27,7 +27,7 @@ EOF
 # support both :/
 GetOptions($opt, qw(help|h quiet|q verbose|v+ C=s@ c=s@ include|I=s@ exclude=s@
 	inbox-config=s inbox-version=i objstore=s manifest=s
-	project-list|projectslist=s post-update-hook=s@
+	remote-manifest=s project-list|projectslist=s post-update-hook=s@
 	prune|p keep-going|k exit-code
 	dry-run|n jobs|j=i no-torsocks torsocks=s epoch=s)) or die $help;
 if ($opt->{help}) { print $help; exit };