X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=lib%2FPublicInbox%2FWwwStream.pm;h=5be5ed0cad59988572a2499f5262a3d1c8c50dc7;hb=58e0608d40856ec81d330d57d8f474a184a91529;hp=472316c29c4ca12531b4b059ac8c9751772322cc;hpb=d7c052507561d121a46f952ec8f700beb3c3a33a;p=public-inbox.git diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm index 472316c2..5be5ed0c 100644 --- a/lib/PublicInbox/WwwStream.pm +++ b/lib/PublicInbox/WwwStream.pm @@ -89,7 +89,7 @@ sub coderepos ($) { my @ret; for my $cr_name (@$cr) { $ret[0] //= <code repositories for project(s) associated with this inbox: +Code repositories for project(s) associated with this inbox: EOF my $urls = $cfg->get_all("coderepo.$cr_name.cgiturl"); if ($urls) { @@ -109,10 +109,42 @@ EOF sub _html_end { my ($ctx) = @_; - my @cr = coderepos($ctx); - scalar(@cr) ? - '
'.join("\n\n", @cr).'
' : - ''; + my $upfx = $ctx->{-upfx} || ''; + my $m = "${upfx}_/text/mirror/"; + my $x; + if ($ctx->{ibx}->can('cloneurl')) { + $x = <mirroring instructions
+for how to clone and mirror all data and code used for this inbox +EOF + my $has_nntp = @{$ctx->{ibx}->nntp_url($ctx)}; + my $has_imap = @{$ctx->{ibx}->imap_url($ctx)}; + if ($has_nntp || $has_imap) { + substr($x, -1, 1) = ";\n"; # s/\n/;\n + if ($has_nntp && $has_imap) { + $x .= <mirroring instructions on how to clone and mirror +all data and code used by this external index. +EOF + } + chomp $x; + '
'.join("\n\n", coderepos($ctx), $x).'
' } # callback for HTTP.pm (and any other PSGI servers)