]> Sergey Matveev's repositories - public-inbox.git/blobdiff - lib/PublicInbox/WwwStream.pm
www: support listing of inboxes
[public-inbox.git] / lib / PublicInbox / WwwStream.pm
index 8b79923b64efeab0946e18b1b3bf03094dd6a5fc..c708c21f21741b43f04b51caab59e6d63f6cd966 100644 (file)
@@ -71,6 +71,12 @@ sub _html_top ($) {
                "</head><body>". $top . $tip;
 }
 
+sub code_footer ($) {
+       my ($env) = @_;
+       my $u = PublicInbox::Hval::prurl($env, $CODE_URL);
+       qq(AGPL code for this site: git clone <a\nhref="$u">$u</a> $PROJECT)
+}
+
 sub _html_end {
        my ($self) = @_;
        my $urls = 'Archives are clonable:';
@@ -139,12 +145,10 @@ EOF
                        $urls .= qq[<a\nhref="$TOR2WEB_URL">$TOR2WEB_URL</a>];
                }
        }
-       my $url = PublicInbox::Hval::prurl($ctx->{env}, $CODE_URL);
        '<hr><pre>'.join("\n\n",
                $desc,
                $urls,
-               'AGPL code for this site: '.
-               qq(git clone <a\nhref="$url">$url</a> $PROJECT)
+               code_footer($ctx->{env})
        ).'</pre></body></html>';
 }