about summary refs log tree commit homepage
path: root/lib/PublicInbox/WwwStream.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-04-18 08:25:56 +0000
committerEric Wong <e@80x24.org>2019-04-19 23:57:21 +0000
commit7a3946ef122e8218c6ce3355d7f968562212d53b (patch)
tree76b5011e71edbb37494bf1dcaa4db04f7d9882da /lib/PublicInbox/WwwStream.pm
parentf3b60bf095846ce9290b94a7b1d700ed7bf0f316 (diff)
downloadpublic-inbox-7a3946ef122e8218c6ce3355d7f968562212d53b.tar.gz
We will still return a 404 by default to '/' for compatibility
with users of Plack::App::Cascade or similar.  Inboxes are
sorted by modification times to help users detect activity
(similar to the /$INBOX/ topic view).

New configuration options:

* publicinbox.wwwlisting - configure the listing type
* publicinbox.<name>.hide - hide a particular inbox from the listing

See changes to public-inbox-config.pod for full descriptions
of the new options.

Requested-by: Leah Neukirchen <leah@vuxu.org>
  https://public-inbox.org/meta/871sdfzy80.fsf@gmail.com/
Diffstat (limited to 'lib/PublicInbox/WwwStream.pm')
-rw-r--r--lib/PublicInbox/WwwStream.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/PublicInbox/WwwStream.pm b/lib/PublicInbox/WwwStream.pm
index 8b79923b..c708c21f 100644
--- a/lib/PublicInbox/WwwStream.pm
+++ b/lib/PublicInbox/WwwStream.pm
@@ -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>';
 }