run update-copyrights from gnulib for 2019

[public-inbox.git] / lib / PublicInbox / HTTP.pm

diff --git a/lib/PublicInbox/HTTP.pm b/lib/PublicInbox/HTTP.pm
index 680be72b15a28c9b208ba62db33dd11e1c9b0563..19b57d59518d87ec79e0b564bf63a81ed5935c71 100644 (file)
--- a/lib/PublicInbox/HTTP.pm
+++ b/lib/PublicInbox/HTTP.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2016-2018 all contributors <meta@public-inbox.org>
+# Copyright (C) 2016-2019 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # Generic PSGI server for convenience.  It aims to provide
@@ -11,7 +11,7 @@ package PublicInbox::HTTP;
 use strict;
 use warnings;
 use base qw(PublicInbox::DS);
-use fields qw(httpd env input_left remote_addr remote_port forward pull);
+use fields qw(httpd env input_left remote_addr remote_port forward);
 use bytes (); # only for bytes::length
 use Fcntl qw(:seek);
 use Plack::HTTPParser qw(parse_http_request); # XS or pure Perl
@@ -19,7 +19,7 @@ use HTTP::Status qw(status_message);
 use HTTP::Date qw(time2str);
 use IO::Handle;
 require PublicInbox::EvCleanup;
-PublicInbox::DS->import(qw(msg_more));
+use PublicInbox::DS qw(msg_more);
 use PublicInbox::Syscall qw(EPOLLIN EPOLLONESHOT);
 use constant {
        CHUNK_START => -1,   # [a-f0-9]+\r\n
@@ -260,48 +260,49 @@ sub response_done_cb ($$) {
        }
 }
 
-sub getline_cb ($$$) {
+sub getline_response ($$$) {
        my ($self, $write, $close) = @_;
-       local $/ = \8192;
-       my $forward = $self->{forward};
-       # limit our own running time for fairness with other
-       # clients and to avoid buffering too much:
-       if ($forward) {
-               my $buf = eval { $forward->getline };
+       my $pull; # DANGER: self-referential
+       $pull = sub {
+               my $forward = $self->{forward};
+               # limit our own running time for fairness with other
+               # clients and to avoid buffering too much:
+               my $buf = eval {
+                       local $/ = \8192;
+                       $forward->getline;
+               } if $forward;
+
                if (defined $buf) {
                        $write->($buf); # may close in PublicInbox::DS::write
+
                        if ($self->{sock}) {
-                               my $next = $self->{pull};
-                               if ($self->{wbuf}) {
-                                       $self->write($next);
-                               } else {
-                                       PublicInbox::DS::requeue($next);
-                               }
-                               return;
+                               my $wbuf = $self->{wbuf} ||= [];
+                               push @$wbuf, $pull;
+
+                               # wbuf may be populated by $write->($buf),
+                               # no need to rearm if so:
+                               $self->requeue if scalar(@$wbuf) == 1;
+                               return; # likely
                        }
                } elsif ($@) {
                        err($self, "response ->getline error: $@");
-                       $forward = undef;
                        $self->close;
                }
-       }
 
-       delete @$self{qw(forward pull)};
-       # avoid recursion
-       if ($forward) {
-               eval { $forward->close };
-               if ($@) {
-                       err($self, "response ->close error: $@");
-                       $self->close; # idempotent
+               $pull = undef; # all done!
+               # avoid recursion
+               if (delete $self->{forward}) {
+                       eval { $forward->close };
+                       if ($@) {
+                               err($self, "response ->close error: $@");
+                               $self->close; # idempotent
+                       }
                }
-       }
-       $close->();
-}
+               $forward = undef;
+               $close->(); # call response_done_cb
+       };
 
-sub getline_response ($$$) {
-       my ($self, $write, $close) = @_;
-       my $pull = $self->{pull} = sub { getline_cb($self, $write, $close) };
-       $pull->();
+       $pull->(); # kick-off!
 }
 
 sub response_write {
@@ -453,7 +454,6 @@ sub close {
        if (my $env = delete $self->{env}) {
                delete $env->{'psgix.io'}; # prevent circular references
        }
-       delete $self->{pull};
        if (my $forward = delete $self->{forward}) {
                eval { $forward->close };
                err($self, "forward ->close error: $@") if $@;
@@ -467,11 +467,4 @@ sub busy () {
        ($self->{rbuf} || $self->{env} || $self->{wbuf});
 }
 
-# fires after pending writes are complete:
-sub restart_pass ($) {
-       $_[0]->{forward}->restart_read; # see PublicInbox::HTTPD::Async
-}
-
-sub enqueue_restart_pass ($) { $_[0]->write(\&restart_pass) }
-
 1;