about summary refs log tree commit homepage
path: root/lib/PublicInbox/Qspawn.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2022-12-27 12:51:55 +0000
committerEric Wong <e@80x24.org>2022-12-27 22:52:33 +0000
commit323b120f3c82dd02e7e54ef75bd383cba4b125e3 (patch)
treecb6d6416fe34bd962deb49c8948ab8306d59fea5 /lib/PublicInbox/Qspawn.pm
parent48f19407e04593eca64fc31b69d7a27483f06fe3 (diff)
downloadpublic-inbox-323b120f3c82dd02e7e54ef75bd383cba4b125e3.tar.gz
Move the chaining logic into qspawn so we can gracefully
try other commands when cgit or git-http-backend refuses
to service a request for us.
Diffstat (limited to 'lib/PublicInbox/Qspawn.pm')
-rw-r--r--lib/PublicInbox/Qspawn.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/PublicInbox/Qspawn.pm b/lib/PublicInbox/Qspawn.pm
index 6e245389..9ca6b3db 100644
--- a/lib/PublicInbox/Qspawn.pm
+++ b/lib/PublicInbox/Qspawn.pm
@@ -237,7 +237,12 @@ sub psgi_return_init_cb {
                         $self->{rpipe}->close;
                         event_step($self);
                 }
-                $wcb->($r) if ref($r) eq 'ARRAY';
+                if (ref($r) eq 'ARRAY') { # error
+                        $wcb->($r)
+                } elsif (ref($r) eq 'CODE') { # chain another command
+                        $r->($wcb)
+                }
+                # else do nothing
         } elsif ($async) {
                 # done reading headers, handoff to read body
                 my $fh = $wcb->($r); # scalar @$r == 2