diff options
-rwxr-xr-x | public-inbox-cgi | 33 | ||||
-rw-r--r-- | t/cgi.t | 12 |
2 files changed, 45 insertions, 0 deletions
diff --git a/public-inbox-cgi b/public-inbox-cgi index e4e2e3a2..6a6f31e2 100755 --- a/public-inbox-cgi +++ b/public-inbox-cgi @@ -69,6 +69,13 @@ sub main { invalid_list_mid(\%ctx, $1, $2) || get_mid_html(\%ctx, $cgi); } elsif ($path_info =~ m!$LISTNAME_RE/m/(\S+)\z!o) { redirect_mid_html($cgi, $1, $2); + + # full-message page + } elsif ($path_info =~ m!$LISTNAME_RE/f/(\S+)\.html\z!o) { + invalid_list_mid(\%ctx, $1, $2) || get_full_html(\%ctx, $cgi); + } elsif ($path_info =~ m!$LISTNAME_RE/f/(\S+)\z!o) { + redirect_mid_html($cgi, $1, $2); + } else { r404(); } @@ -148,6 +155,32 @@ sub get_mid_txt { $x ? [ "200 OK", {'Content-Type' => 'text/plain'}, $$x ] : r404(); } +# /$LISTNAME/m/$MESSAGE_ID.html -> HTML content (short quotes) +sub get_mid_html { + my ($ctx, $cgi) = @_; + my $x = mid2blob($ctx); + return r404() unless $x; + + my $pfx = $cgi->self_url; + $pfx =~ s!/m/.+\z!/!; # FIXME: this is not robust + + require PublicInbox::View; + require Email::MIME; + [ "200 OK", {'Content-Type' => 'text/html'}, + PublicInbox::View->as_html(Email::MIME->new($$x), $pfx)]; +} + +# /$LISTNAME/f/$MESSAGE_ID.html -> HTML content (fullquotes) +sub get_full_html { + my ($ctx, $cgi) = @_; + my $x = mid2blob($ctx); + return r404() unless $x; + require PublicInbox::View; + require Email::MIME; + [ "200 OK", {'Content-Type' => 'text/html'}, + PublicInbox::View->as_html(Email::MIME->new($$x))]; +} + # only used for CGI and static file generation modes sub set_binmode { my ($headers) = @_; @@ -133,6 +133,18 @@ EOF "mid.txt hit"); $res = cgi_run("/test/m/blahblah\@example.con.txt"); like($res->{head}, qr/Status: 404 Not Found/, "mid.txt miss"); + + $res = cgi_run("/test/m/blahblah\@example.com.html"); + like($res->{body}, qr/\A<html>/, "mid.html hit"); + like($res->{head}, qr/Status: 200 OK/, "200 response"); + $res = cgi_run("/test/m/blahblah\@example.con.html"); + like($res->{head}, qr/Status: 404 Not Found/, "mid.html miss"); + + $res = cgi_run("/test/f/blahblah\@example.com.html"); + like($res->{body}, qr/\A<html>/, "mid.html hit"); + like($res->{head}, qr/Status: 200 OK/, "200 response"); + $res = cgi_run("/test/f/blahblah\@example.con.html"); + like($res->{head}, qr/Status: 404 Not Found/, "mid.html miss"); } done_testing(); |