about summary refs log tree commit homepage
path: root/lib/PublicInbox/WWW.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2015-08-22 11:41:23 +0000
committerEric Wong <e@80x24.org>2015-08-22 11:42:37 +0000
commit6b51c6e762de67636c90b678b4bb28f970379b3c (patch)
treee27ec8e877b095c32fbaad69381e8dbdec4250ac /lib/PublicInbox/WWW.pm
parent746323cbde3f5da5d66efe742b30894b0d806ffe (diff)
downloadpublic-inbox-6b51c6e762de67636c90b678b4bb28f970379b3c.tar.gz
Some folks may want to view the mbox inline as a string of raw text,
when guessing URLs.  Let them do this...
Diffstat (limited to 'lib/PublicInbox/WWW.pm')
-rw-r--r--lib/PublicInbox/WWW.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 30a7a436..33c71101 100644
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -53,9 +53,10 @@ sub run {
         } elsif ($path_info =~ m!$LISTNAME_RE/t/(\S+)\.html\z!o) {
                 invalid_list_mid(\%ctx, $1, $2) || get_thread(\%ctx, $cgi);
 
-        } elsif ($path_info =~ m!$LISTNAME_RE/t/(\S+)\.mbox\.gz!o) {
+        } elsif ($path_info =~ m!$LISTNAME_RE/t/(\S+)\.mbox(\.gz)?\z!o) {
                 my $sfx = $3;
-                invalid_list_mid(\%ctx, $1, $2) || get_thread_mbox(\%ctx, $cgi);
+                invalid_list_mid(\%ctx, $1, $2) ||
+                        get_thread_mbox(\%ctx, $cgi, $sfx);
 
         } elsif ($path_info =~ m!$LISTNAME_RE/f/\S+\.txt\z!o) {
                 invalid_list_mid(\%ctx, $1, $2) ||
@@ -331,15 +332,16 @@ sub msg_pfx {
         "../f/$href.html";
 }
 
-# /$LISTNAME/t/$MESSAGE_ID.mbox.gz        -> search results as gzipped mbox
+# /$LISTNAME/t/$MESSAGE_ID.mbox           -> thread as mbox
+# /$LISTNAME/t/$MESSAGE_ID.mbox.gz        -> thread as gzipped mbox
 # note: I'm not a big fan of other compression formats since they're
 # significantly more expensive on CPU than gzip and less-widely available,
 # especially on older systems.  Stick to zlib since that's what git uses.
 sub get_thread_mbox {
-        my ($ctx, $cgi) = @_;
+        my ($ctx, $cgi, $sfx) = @_;
         my $srch = searcher($ctx) or return need_search($ctx);
         require PublicInbox::Mbox;
-        PublicInbox::Mbox::thread_mbox($ctx, $srch);
+        PublicInbox::Mbox::thread_mbox($ctx, $srch, $sfx);
 }
 
 1;