diff options
author | Eric Wong <e@80x24.org> | 2015-08-22 05:06:55 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-08-22 05:07:18 +0000 |
commit | 761323389ca4eeda7803b5d623b37b675d034588 (patch) | |
tree | 0d37e996b9581f8e199f1cc6d23e049a71da51b0 /public-inbox.cgi | |
parent | 1704bdb4aabdbc155eb962edf51498f59b65c839 (diff) | |
download | public-inbox-761323389ca4eeda7803b5d623b37b675d034588.tar.gz |
We may not support this after all, CGI.pm is already legacy-enough and far more powerful.
Diffstat (limited to 'public-inbox.cgi')
-rwxr-xr-x | public-inbox.cgi | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/public-inbox.cgi b/public-inbox.cgi index 5c6dfe8a..63663f32 100755 --- a/public-inbox.cgi +++ b/public-inbox.cgi @@ -32,16 +32,13 @@ my $ret = PublicInbox::WWW::run($req, $req->request_method); my $out = select; $out->binmode; -if (@ARGV && $ARGV[0] eq 'static') { - $out->write($ret->[2]->[0]); # only show the body -} else { # CGI - if (ref($ret) eq 'CODE') { - $ret->(*dump_header); - } else { - my ($status, $headers, $body) = @$ret; - dump_header([$status, $headers])->write($body->[0]); - } +if (ref($ret) eq 'CODE') { + $ret->(*dump_header); +} else { + my ($status, $headers, $body) = @$ret; + + dump_header([$status, $headers])->write($body->[0]); } sub dump_header { |