Documentation/mknews.perl | 8 ++++---- README | 1 + lib/PublicInbox/Unsubscribe.pm | 9 ++++++--- lib/PublicInbox/WwwStream.pm | 3 ++- diff --git a/Documentation/mknews.perl b/Documentation/mknews.perl index d87c260918c9c048544375ebf3c370fb8b6565f3..a11dd5f01fde6dd77041049db7a8d3bed76e3c06 100755 --- a/Documentation/mknews.perl +++ b/Documentation/mknews.perl @@ -119,10 +119,10 @@ print $out $www_stream->html_top, '
' or die;
 }
 
 sub html_end {
-	print $out <
-EOF
+	for (@$PublicInbox::WwwStream::CODE_URL) {
+		print $out "	git clone $_\n" or die;
+	}
+	print $out "
\n" or die; } sub atom_start { diff --git a/README b/README index ae428bcfe11796657c97913dabdf45b5a2bc9fd2..6396373f4c57f7621256545ead60dd5bf2352c5c 100644 --- a/README +++ b/README @@ -94,6 +94,7 @@ AGPL source code is available via git: git clone https://public-inbox.org/public-inbox.git git clone https://repo.or.cz/public-inbox.git + torsocks git clone http://ou63pmih66umazou.onion/public-inbox.git torsocks git clone http://hjrcffqmbrq6wope.onion/public-inbox See below for contact info. diff --git a/lib/PublicInbox/Unsubscribe.pm b/lib/PublicInbox/Unsubscribe.pm index b0d3220c3b51f6b80ee80dcffedc401ac282510c..ae0b06793f6f81d85e5a42ea7e9b7671151c5599 100644 --- a/lib/PublicInbox/Unsubscribe.pm +++ b/lib/PublicInbox/Unsubscribe.pm @@ -12,7 +12,8 @@ use warnings; use Crypt::CBC; use Plack::Util; use MIME::Base64 qw(decode_base64url); -my $CODE_URL = 'https://public-inbox.org/public-inbox.git'; +my @CODE_URL = qw(http://ou63pmih66umazou.onion/public-inbox.git + https://public-inbox.org/public-inbox.git); my @CT_HTML = ('Content-Type', 'text/html; charset=UTF-8'); sub new { @@ -38,13 +39,15 @@ my $e = $opt{owner_email} or die "`owner_email' not specified\n"; my $unsubscribe = $opt{unsubscribe} or die "`unsubscribe' callback not given\n"; + my $code_url = $opt{code_url} || \@CODE_URL; + $code_url = [ $code_url ] if ref($code_url) ne 'ARRAY'; bless { pi_cfg => $opt{pi_config}, # PublicInbox::Config owner_email => $opt{owner_email}, cipher => $cipher, unsubscribe => $unsubscribe, contact => qq($e), - code_url => $opt{code_url} || $CODE_URL, + code_url => $code_url, confirm => $opt{confirm}, }, $class; } @@ -138,7 +141,7 @@ [ $code, [ @CT_HTML ], [ "$title
".
 		join("\n", "$title\n", @body) . '
'. "
This page is available under AGPL-3.0+\n" .
-		"git clone $self->{code_url}\n" .
+		join('', map { "git clone $_\n" } @{$self->{code_url}}) .
 		qq(Email $self->{contact} if you have any questions).
 		'
' ] ]; diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 49940262eeb6469fbc0cf3a82970ece740440dcd..9ba8fa114de43a6c5621915f2e035d548fa348b9 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -12,7 +12,8 @@ our @EXPORT_OK = qw(html_oneshot); use bytes (); # length use PublicInbox::Hval qw(ascii_html prurl ts2str); our $TOR_URL = 'https://www.torproject.org/'; -our $CODE_URL = 'https://public-inbox.org/public-inbox.git'; +our $CODE_URL = [ qw(http://ou63pmih66umazou.onion/public-inbox.git + https://public-inbox.org/public-inbox.git) ]; sub base_url ($) { my $ctx = shift;