about summary refs log tree commit homepage
path: root/lib/PublicInbox/RepoGitPlain.pm
blob: 6114a8584ffd0dfff6e48c6afbd8b8dec51e5fc4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
# Copyright (C) 2015-2016 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
package PublicInbox::RepoGitPlain;
use strict;
use warnings;
use base qw(PublicInbox::RepoBase);
use PublicInbox::RepoGitBlob;
use PublicInbox::Hval qw(utf8_html);
use PublicInbox::Qspawn;

sub call_git_plain {
	my ($self, $req) = @_;
	my $git = $req->{repo_info}->{git};
	my $id = $req->{-tip} . ':' . $req->{expath};
	my ($cat, $hex, $type, $size) = $git->cat_file_begin($id);
	return unless defined $cat;

	my ($r, $buf);
	my $left = $size;
	if ($type eq 'blob') {
		$type = git_blob_mime_type($self, $req, $cat, \$buf, \$left);
	} elsif ($type eq 'commit' || $type eq 'tag') {
		$type = 'text/plain';
	} elsif ($type eq 'tree') {
		$git->cat_file_finish($left);
		return git_tree_plain($req, $git, $hex);
	} else {
		$type = 'application/octet-stream';
	}
	git_blob_stream_response($git, $cat, $size, $type, $buf, $left);
}

sub git_tree_sed ($) {
	my ($req) = @_;
	my $buf = '';
	my $end;
	my $pfx = $req->{tpfx};
	sub { # $_[0] = buffer or undef
		my $dst = delete $req->{tstart} || '';
		my @files;
		if (defined $_[0]) {
			@files = split(/\0/, $buf .= $_[0]);
			$buf = pop @files if scalar @files;
		} else {
			@files = split(/\0/, $buf);
			$end = '</ul></body></html>';
		}
		foreach my $n (@files) {
			$n = PublicInbox::Hval->utf8($n);
			my $ref = $n->as_path;
			$dst .= qq(<li><a\nhref="$pfx$ref">);
			$dst .= $n->as_html;
			$dst .= '</a></li>';
		}
		$end ? $dst .= $end : $dst;
	}
}

# This should follow the cgit DOM structure in case anybody depends on it,
# not using <pre> here as we don't expect people to actually view it much
sub git_tree_plain {
	my ($req, $git, $hex) = @_;

	my @ex = @{$req->{extra}};
	my $rel = $req->{relcmd};
	my $title = utf8_html(join('/', '', @ex, ''));
	my $tslash = $req->{tslash};
	my $pfx = $tslash ? './' : 'plain/';
	my $t = "<h2>$title</h2><ul>";
	if (@ex) {
		if ($tslash) {
			$t .= qq(<li><a\nhref="../">../</a></li>);
		} else  {
			$t .= qq(<li><a\nhref="./">../</a></li>);
			my $last = PublicInbox::Hval->utf8($ex[-1])->as_href;
			$pfx = "$last/";
		}
	}

	$req->{tpfx} = $pfx;
	$req->{tstart} = "<html><head><title>$title</title></head><body>".$t;
	my $cmd = $git->cmd(qw(ls-tree --name-only -z), $git->abbrev, $hex);
	my $rdr = { 2 => $git->err_begin };
	my $qsp = PublicInbox::Qspawn->new($cmd, undef, $rdr);
	my $env = $req->{env};
	$qsp->psgi_return($env, undef, sub {
		my ($r) = @_;
		if (!defined $r) {
			[ 500, [ 'Content-Type', 'text/plain' ], [ $git->err ]];
		} else {
			$env->{'qspawn.filter'} = git_tree_sed($req);
			[ 200, [ 'Content-Type', 'text/html' ] ];
		}
	});
}

1;