# Copyright (C) 2019 all contributors # License: AGPL-3.0+ # show any VCS object, similar to "git show" # FIXME: we only show blobs for now # # This can use a "solver" to reconstruct blobs based on git # patches (with abbreviated OIDs in the header). However, the # abbreviated OIDs must match exactly what's in the original # email (unless a normal code repo already has the blob). # # In other words, we can only reliably reconstruct blobs based # on links generated by ViewDiff (and only if the emailed # patches apply 100% cleanly to published blobs). package PublicInbox::ViewVCS; use strict; use warnings; use Encode qw(find_encoding); use PublicInbox::SolverGit; use PublicInbox::WwwStream; use PublicInbox::Linkify; use PublicInbox::Hval qw(ascii_html to_filename); my %QP_MAP = ( A => 'oid_a', B => 'oid_b', a => 'path_a', b => 'path_b' ); my $max_size = 1024 * 1024; # TODO: configurable my $enc_utf8 = find_encoding('UTF-8'); sub html_page ($$$) { my ($ctx, $code, $strref) = @_; $ctx->{-upfx} = '../../'; # from "/$INBOX/$OID/s/" PublicInbox::WwwStream->response($ctx, $code, sub { my ($nr, undef) = @_; $nr == 1 ? $$strref : undef; }); } sub show ($$;$) { my ($ctx, $oid_b, $fn) = @_; my $ibx = $ctx->{-inbox}; my $inboxes = [ $ibx ]; my $solver = PublicInbox::SolverGit->new($ibx->{-repo_objs}, $inboxes); my $qp = $ctx->{qp}; my $hints = {}; while (my ($from, $to) = each %QP_MAP) { defined(my $v = $qp->{$from}) or next; $hints->{$to} = $v; } open my $log, '+>', undef or die "open: $!"; my $res = $solver->solve($log, $oid_b, $hints); seek($log, 0, 0) or die "seek: $!"; $log = do { local $/; <$log> }; my $l = PublicInbox::Linkify->new; $l->linkify_1($log); $log = '
debug log:

' .
		$l->linkify_2(ascii_html($log)) . '
'; $res or return html_page($ctx, 404, \$log); my ($git, $oid, $type, $size, $di) = @$res; if ($size > $max_size) { # TODO: stream the raw file if it's gigantic, at least $log = '
Too big to show
' . $log; return html_page($ctx, 500, \$log); } my $blob = $git->cat_file($oid); if (!$blob) { # WTF? my $e = "Failed to retrieve generated blob ($oid)"; $ctx->{env}->{'psgi.errors'}->print("$e ($git->{git_dir})\n"); $log = "
$e
" . $log; return html_page($ctx, 500, \$log); } my $binary = index($$blob, "\0") >= 0; if ($fn) { my $h = [ 'Content-Length', $size, 'Content-Type' ]; push(@$h, ($binary ? 'application/octet-stream' : 'text/plain')); return [ 200, $h, [ $$blob ]]; } my $path = to_filename($di->{path_b} || $hints->{path_b} || 'blob'); my $raw_link = "(raw)"; if ($binary) { $log = "
$oid $type $size bytes (binary)" .
			" $raw_link
" . $log; return html_page($ctx, 200, \$log); } $$blob = $enc_utf8->decode($$blob); my $nl = ($$blob =~ tr/\n/\n/); my $pad = length($nl); # using some of the same CSS class names and ids as cgit $log = "
$oid $type $size bytes $raw_link
" . "
". "
" . join('', map {
			sprintf("% ${pad}u\n", $_)
		} (1..$nl)) . '
' . '
 
'. # pad for non-CSS users "" . ascii_html($$blob) . '' . $log; html_page($ctx, 200, \$log); } 1;