mbox: support /$INBOX/all.mbox.gz endpoint

[public-inbox.git] / lib / PublicInbox / WWW.pm

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 85cb234b4d56351589bbbf8d633893e7498a17b6..51dc3daa22533bb0bdb39367779af2ffa648c129 100644 (file)
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -68,6 +68,8 @@ sub call {
                my $path = $2;
                invalid_inbox($self, $ctx, $1) ||
                        serve_git($cgi, $ctx->{git}, $path);
+       } elsif ($path_info =~ m!$INBOX_RE/([\w-]+).mbox\.gz\z!o) {
+               serve_mbox_range($self, $ctx, $1, $2);
        } elsif ($path_info =~ m!$INBOX_RE/$MID_RE/$END_RE\z!o) {
                msg_page($self, $ctx, $1, $2, $3);
 
@@ -430,6 +432,15 @@ sub serve_git {
        PublicInbox::GitHTTPBackend::serve($cgi, $git, $path);
 }
 
+sub serve_mbox_range {
+       my ($self, $ctx, $inbox, $range) = @_;
+       invalid_inbox($self, $ctx, $inbox) || eval {
+               require PublicInbox::Mbox;
+               searcher($ctx);
+               PublicInbox::Mbox::emit_range($ctx, $range);
+       }
+}
+
 sub news_www {
        my ($self) = @_;
        my $nw = $self->{news_www};