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

Allows easily downloading the entire archive without
special tools.  In any case, it's not yet advertised to via
HTML until we can test it better.  It'll also support range
queries in the future to avoid wasting bandwidth.

1 files changed, 11 insertions, 0 deletions

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 85cb234b..51dc3daa 100644
--- 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};