diff options
author | Eric Wong <e@80x24.org> | 2014-04-10 23:33:48 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-04-11 22:23:58 +0000 |
commit | 9e98246f95c2b660c99949242251245b7bf14c45 (patch) | |
tree | 69fe743c2f7ac12d9c83ffbef9874134fc57288b | |
parent | 98352cd1c066d8cc16594f000509997cfd590985 (diff) | |
download | public-inbox-9e98246f95c2b660c99949242251245b7bf14c45.tar.gz |
These need better tests and verification, but it's something for now.
-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(); |