# show any VCS object, similar to "git show"
@@ -33,14 +33,14 @@ my $BIN_DETECT = 8000; # same as git
sub html_i { # WwwStream::getline callback
my ($nr, $ctx) = @_;
- $nr == 1 ? ${delete $ctx->{rv}} : undef;
+ $nr == 1 ? ${delete $ctx->{obuf}} : undef;
}
sub html_page ($$$) {
my ($ctx, $code, $strref) = @_;
my $wcb = delete $ctx->{-wcb};
$ctx->{-upfx} = '../../'; # from "/$INBOX/$OID/s/"
- $ctx->{rv} = $strref;
+ $ctx->{obuf} = $strref;
my $res = PublicInbox::WwwStream->response($ctx, $code, \&html_i);
$wcb ? $wcb->($res) : $res;
}
@@ -90,8 +90,7 @@ sub show_other_result ($$) {
}
my $l = PublicInbox::Linkify->new;
utf8::decode($$bref);
- $l->linkify_1($$bref);
- $$bref = ''. $l->linkify_2(ascii_html($$bref));
+ $$bref = ''. $l->to_html($$bref);
$$bref .= '
' . $$logref;
html_page($ctx, 200, $bref);
}
@@ -125,9 +124,8 @@ sub solve_result {
my $ref = ref($res);
my $l = PublicInbox::Linkify->new;
- $l->linkify_1($log);
$log = 'debug log:
' .
- $l->linkify_2(ascii_html($log)) . '
';
+ $l->to_html($log) . '
';
$res or return html_page($ctx, 404, \$log);
$ref eq 'ARRAY' or return html_page($ctx, 500, \$log);