[PATCH] www: advertise clone-ability over http/https

[PATCH] www: advertise clone-ability over http/https

[Eric Wong]

All public-inbox instances shall be clone-able.
---
 lib/PublicInbox/WWW.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index b4b012f..95dfcbf 100644
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -244,10 +244,12 @@ sub footer {
 
 	my $urls = try_cat("$git_dir/cloneurl");
 	my @urls = split(/\r?\n/, $urls || '');
-	my $nurls = scalar @urls;
-	if ($nurls == 0) {
-		$urls = '($GIT_DIR/cloneurl missing)';
-	} elsif ($nurls == 1) {
+	my %seen = map { $_ => 1 } @urls;
+	my $cgi = $ctx->{cgi};
+	my $http = (ref($cgi) eq 'CGI') ? $cgi->url(-base) . "/$listname" :
+			$cgi->base->as_string . $listname;
+	$seen{$http} or unshift @urls, $http;
+	if (scalar(@urls) == 1) {
 		$urls = "git URL for <a\nhref=\"" . SSOMA_URL .
 			'">ssoma</a>: ' . $urls[0];
 	} else {
-- 
EW

[PATCH 2/1] www: document "git clone --mirror" usage

[Eric Wong]

Not everybody is willing to install or run ssoma; but at least
document "git clone --mirror" usage to promote data distribution.

It's wasteful to clone without "--mirror", so we'll suggest that
to avoid wasting disk space and inodes.
---
 lib/PublicInbox/WWW.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 95dfcbf..77910f6 100644
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -250,11 +250,13 @@ sub footer {
 			$cgi->base->as_string . $listname;
 	$seen{$http} or unshift @urls, $http;
 	if (scalar(@urls) == 1) {
-		$urls = "git URL for <a\nhref=\"" . SSOMA_URL .
-			'">ssoma</a>: ' . $urls[0];
+		$urls = "URL for <a\nhref=\"" . SSOMA_URL .
+			qq(">ssoma</a> or <b>git clone --mirror \$URL</b> :) .
+			$urls[0];
 	} else {
-		$urls = "git URLs for <a\nhref=\"" . SSOMA_URL .
-			"\">ssoma</a>:\n" . join("\n", map { "\t$_" } @urls);
+		$urls = "URLs for <a\nhref=\"" . SSOMA_URL .
+			qq(">ssoma</a> or <b>git clone --mirror \$URL</b>\n) .
+			join("\n", map { "\t$_" } @urls);
 	}
 
 	my $addr = $pi_config->get($listname, 'address');
-- 
EW