+ $env->{'qspawn.wcb'} = $ctx->{-wcb};
+ $qsp->psgi_return($env, undef, \&stream_blob_parse_hdr, $ctx);
+}
+
+sub show_other_result ($$) { # future-proofing
+ my ($bref, $ctx) = @_;
+ if (my $qsp_err = delete $ctx->{-qsp_err}) {
+ return html_page($ctx, 500, dbg_log($ctx) .
+ "git show error:$qsp_err");
+ }
+ my $l = PublicInbox::Linkify->new;
+ utf8::decode($$bref);
+ html_page($ctx, 200, '<pre>', $l->to_html($$bref), '</pre><hr>',
+ dbg_log($ctx));
+}
+
+sub cmt_title { # git->cat_async callback
+ my ($bref, $oid, $type, $size, $ctx) = @_;
+ utf8::decode($$bref);
+ my $title = $$bref =~ /\r?\n\r?\n([^\r\n]+)\r?\n?/ ? $1 : '';
+ push(@{$ctx->{-cmt_pt}} , ascii_html($title)) == @{$ctx->{-cmt_P}} and
+ cmt_finalize($ctx);
+}
+
+sub show_commit_start { # ->psgi_qx callback
+ my ($bref, $ctx) = @_;
+ if (my $qsp_err = delete $ctx->{-qsp_err}) {
+ return html_page($ctx, 500, dbg_log($ctx) .
+ "git show/patch-id error:$qsp_err");
+ }
+ my $patchid = (split(/ /, $$bref))[0]; # ignore commit
+ $ctx->{-q_value_html} = "patchid:$patchid" if defined $patchid;
+ open my $fh, '<:utf8', "$ctx->{-tmp}/h" or
+ die "open $ctx->{-tmp}/h: $!";
+ chop(my $buf = do { local $/ = "\0"; <$fh> });
+ chomp $buf;
+ my ($P, $p);
+ ($P, $p, @{$ctx->{cmt_info}}) = split(/\n/, $buf, 9);
+ return cmt_finalize($ctx) if !$P;
+ @{$ctx->{-cmt_P}} = split(/ /, $P);
+ @{$ctx->{-cmt_p}} = split(/ /, $p); # abbreviated
+ if ($ctx->{env}->{'pi-httpd.async'}) {
+ for (@{$ctx->{-cmt_P}}) {
+ ibx_async_cat($ctx, $_, \&cmt_title, $ctx);
+ }
+ } else { # synchronous
+ for (@{$ctx->{-cmt_P}}) {
+ $ctx->{git}->cat_async($_, \&cmt_title, $ctx);
+ }
+ $ctx->{git}->cat_async_wait;
+ }
+}
+
+sub ibx_url_for {
+ my ($ctx) = @_;
+ $ctx->{ibx} and return; # just fall back to $upfx
+ $ctx->{git} or return; # /$CODEREPO/$OID/s/ to (eidx|ibx)
+ if (my $ALL = $ctx->{www}->{pi_cfg}->ALL) {
+ $ALL->base_url // $ALL->base_url($ctx->{env});
+ } elsif (my $ibxs = $ctx->{git}->{-ibxs}) {
+ for my $ibx (@$ibxs) {
+ if ($ibx->isrch) {
+ return defined($ibx->{url}) ?
+ prurl($ctx->{env}, $ibx->{url}) :
+ "../../../$ibx->{name}/";
+ }
+ }
+ } else {
+ undef;
+ }
+}
+
+sub cmt_finalize {
+ my ($ctx) = @_;
+ $ctx->{-linkify} //= PublicInbox::Linkify->new;
+ my $upfx = $ctx->{-upfx} = '../../'; # from "/$INBOX/$OID/s/"
+ my ($H, $T, $s, $f, $au, $co, $bdy) = @{delete $ctx->{cmt_info}};
+ # try to keep author and committer dates lined up
+ my $x = length($au) - length($co);
+ if ($x > 0) {
+ $x = ' ' x $x;
+ $co =~ s/>/>$x/;
+ } elsif ($x < 0) {
+ $x = ' ' x (-$x);
+ $au =~ s/>/>$x/;
+ }
+ $_ = ascii_html($_) for ($au, $co);
+ $au =~ s!(> +)([0-9]{4,}-\S+ \S+)!
+ my ($gt, $t) = ($1, $2);
+ $t =~ tr/ :-//d;
+ qq($gt<a
+href="$upfx?t=$t"
+title="list contemporary emails">$2</a>)
+ !e;
+ $ctx->{-title_html} = $s = $ctx->{-linkify}->to_html($s);
+ my ($P, $p, $pt) = delete @$ctx{qw(-cmt_P -cmt_p -cmt_pt)};
+ $_ = qq(<a href="$upfx$_/s/">).shift(@$p).'</a> '.shift(@$pt) for @$P;
+ if (@$P == 1) {
+ $x = qq{ (<a
+href="$f.patch">patch</a>)\n <a href=#parent>parent</a> $P->[0]};
+ } elsif (@$P > 1) {
+ $x = qq(\n <a href=#parents>parents</a> $P->[0]\n);
+ shift @$P;
+ $x .= qq( $_\n) for @$P;
+ chop $x;
+ } else {
+ $x = ' (<a href=#root_commit>root commit</a>)';
+ }
+ PublicInbox::WwwStream::html_init($ctx);
+ my $zfh = $ctx->zfh;
+ print $zfh <<EOM;
+<pre> <a href=#commit>commit</a> $H$x
+ <a href=#tree>tree</a> <a href="$upfx$T/s/?b=">$T</a>
+ author $au
+committer $co
+
+<b>$s</b>
+EOM
+ print $zfh "\n", $ctx->{-linkify}->to_html($bdy) if length($bdy);
+ $bdy = '';
+ open my $fh, '<:utf8', "$ctx->{-tmp}/p" or
+ die "open $ctx->{-tmp}/p: $!";
+ if (-s $fh > $MAX_SIZE) {
+ print $zfh "---\n patch is too large to show\n";
+ } else { # prepare flush_diff:
+ read($fh, $x, -s _);
+ $ctx->{-apfx} = $ctx->{-spfx} = $upfx;
+ $x =~ s/\r?\n/\n/gs;
+ $ctx->{-anchors} = {} if $x =~ /^diff --git /sm;
+ flush_diff($ctx, \$x); # undefs $x
+ # TODO: should there be another textarea which attempts to
+ # search for the exact email which was applied to make this
+ # commit?
+ if (my $qry = delete $ctx->{-qry}) {
+ my $q = '';
+ for (@{$qry->{dfpost}}, @{$qry->{dfpre}}) {
+ # keep blobs as short as reasonable, emails
+ # are going to be older than what's in git
+ substr($_, 7, 64, '');
+ $q .= "dfblob:$_ ";