lib/PublicInbox/WWW.pm | 9 ++++----- t/plack.t | 4 ++++ diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm index 289d0ce48e255a9bf4e315164ed380da284f2fe4..e4ad515a4d341d03ef5014f18d0a783c44c8fb31 100644 --- a/lib/PublicInbox/WWW.pm +++ b/lib/PublicInbox/WWW.pm @@ -322,12 +322,11 @@ } sub need { my ($ctx, $extra) = @_; - my $msg = <$extra not available for this -public-inbox
$extra is not available for this public-inbox
-Return to index
+ require PublicInbox::WwwStream; + PublicInbox::WwwStream::html_oneshot($ctx, 501, \<$extra is not available for this public-inbox +Return to index EOF - [ 501, [ 'Content-Type' => 'text/html; charset=UTF-8' ], [ $msg ] ]; } # /$INBOX/$MESSAGE_ID/t.mbox -> thread as mbox diff --git a/t/plack.t b/t/plack.t index 37a6b39486e06ea1e4fc575893c3de96e09bc7f1..4b830a21e35c72b3bf1712d0150ae73b8483a144 100644 --- a/t/plack.t +++ b/t/plack.t @@ -209,6 +209,10 @@ my ($cb) = @_; my $res = $cb->(GET($pfx . '/blah@example.com/raw')); is(200, $res->code, 'success response received for /*/raw'); like($res->content, qr!^From !sm, "mbox returned"); + + $res = $cb->(GET($pfx . '/blah@example.com/t.mbox.gz')); + is(501, $res->code, '501 when overview missing'); + like($res->content, qr!\bOverview\b!, 'overview omission noted'); }); # legacy redirects