From f947a355417328a96b1bbe43223cbae79fc10345 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Fri, 29 Apr 2016 03:32:20 +0000 Subject: http: improve error handling for aborted responses We need to abort connections properly if a response is prematurely truncated. This includes problems with serving static files, since a clumsy admin or broken FS could return truncated responses and inadvertently leave a client waiting (since the client saw "Content-Length" in the header and expected a certain length). --- lib/PublicInbox/GitHTTPBackend.pm | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'lib/PublicInbox/GitHTTPBackend.pm') diff --git a/lib/PublicInbox/GitHTTPBackend.pm b/lib/PublicInbox/GitHTTPBackend.pm index 30efa839..4b396934 100644 --- a/lib/PublicInbox/GitHTTPBackend.pm +++ b/lib/PublicInbox/GitHTTPBackend.pm @@ -95,6 +95,7 @@ sub serve_dumb { $len -= $r; $fh->write($buf); } + die "$f truncated with $len bytes remaining\n" if $len; $fh->close; } } @@ -191,14 +192,21 @@ sub serve_smart { $fh = undef; } if ($rpipe) { - $rpipe->close; # _may_ be Danga::Socket::close + # _may_ be Danga::Socket::close via + # PublicInbox::HTTPD::Async::close: + $rpipe->close; $rpipe = undef; $nr_running--; } - if (defined $pid && $pid != waitpid($pid, 0)) { - $err->print("git http-backend ($git_dir): $?\n"); - } else { - $pid = undef; + if (defined $pid) { + my $e = $pid == waitpid($pid, 0) ? + $? : "PID:$pid still running?"; + if ($e) { + $err->print("http-backend ($git_dir): $e\n"); + if (my $io = $env->{'psgix.io'}) { + $io->close; + } + } } return unless $res; my $dumb = serve_dumb($cgi, $git, $path); @@ -245,6 +253,7 @@ sub serve_smart { } # else { keep reading ... } }; if (my $async = $env->{'pi-httpd.async'}) { + # $async is PublicInbox::HTTPD::Async->new($rpipe, $cb) $rpipe = $async->($rpipe, $cb); sub { ($res) = @_ } # let Danga::Socket handle the rest. } else { # synchronous loop for other PSGI servers -- cgit v1.2.3-24-ge0c7