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
|
# 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::RepoGitRaw;
use strict;
use warnings;
use base qw(PublicInbox::RepoBase);
use PublicInbox::RepoGitBlob;
use PublicInbox::Hval qw(utf8_html);
use PublicInbox::Qspawn;
sub call_git_raw {
my ($self, $req) = @_;
my $repo = $req->{-repo};
my $git = $repo->{git};
my $tip = $req->{tip} || $repo->tip;
my $id = $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_raw($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_raw {
my ($req, $git, $hex) = @_;
my @ex = @{$req->{extra}};
my $rel = $req->{relcmd};
my $title = utf8_html(join('/', '', @ex, ''));
my $pfx = 'raw/';
my $t = "<h2>$title</h2><ul>";
if (@ex) {
$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;
|