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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
| | # Copyright (C) all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
# wrapper for cgit(1) and git-http-backend(1) for browsing and
# serving git code repositories. Requires 'publicinbox.cgitrc'
# directive to be set in the public-inbox config file.
package PublicInbox::Cgit;
use v5.12;
use parent qw(PublicInbox::WwwCoderepo);
use PublicInbox::GitHTTPBackend;
use PublicInbox::Git;
# not bothering with Exporter for a one-off
*input_prepare = \&PublicInbox::GitHTTPBackend::input_prepare;
*serve = \&PublicInbox::GitHTTPBackend::serve;
use PublicInbox::Qspawn;
use PublicInbox::WwwStatic qw(r);
sub locate_cgit ($) {
my ($pi_cfg) = @_;
my $cgit_bin = $pi_cfg->{'publicinbox.cgitbin'};
my $cgit_data = $pi_cfg->{'publicinbox.cgitdata'};
# /var/www/htdocs/cgit is the default install path from cgit.git
# /usr/{lib,share}/cgit is where Debian puts cgit
# TODO: check other distros for common paths
unless (defined $cgit_bin) {
foreach (qw(/var/www/htdocs/cgit /usr/lib/cgit)) {
my $x = "$_/cgit.cgi";
next unless -x $x;
$cgit_bin = $x;
last;
}
}
unless (defined $cgit_data) {
my @dirs = qw(/var/www/htdocs/cgit /usr/share/cgit);
# local installs of cgit from source have
# CGIT_SCRIPT_PATH==CGIT_DATA_PATH by default,
# so we can usually infer the cgit_data path from cgit_bin
if (defined($cgit_bin) && $cgit_bin =~ m!\A(.+?)/[^/]+\z!) {
unshift @dirs, $1 if -d $1;
}
for (@dirs) {
next unless -f "$_/cgit.css";
$cgit_data = $_;
last;
}
}
($cgit_bin, $cgit_data);
}
sub new {
my ($class, $pi_cfg) = @_;
my ($cgit_bin, $cgit_data) = locate_cgit($pi_cfg);
$cgit_bin // return; # fall back in WWW->cgit
my $self = bless {
cmd => [ $cgit_bin ],
cgit_data => $cgit_data,
pi_cfg => $pi_cfg,
cgitrc => $pi_cfg->{'publicinbox.cgitrc'} // $ENV{CGIT_CONFIG},
}, $class;
# some cgit repos may not be mapped to inboxes, so ensure those exist:
PublicInbox::WwwCoderepo::prepare_coderepos($self);
my $s = join('|', map { quotemeta } keys %{$pi_cfg->{-cgit_static}});
$self->{static} = qr/\A($s)\z/;
$self;
}
# only what cgit cares about:
my @PASS_ENV = qw(
HTTP_HOST
QUERY_STRING
REQUEST_METHOD
SCRIPT_NAME
SERVER_NAME
SERVER_PORT
HTTP_COOKIE
HTTP_REFERER
CONTENT_LENGTH
);
# XXX: cgit filters may care about more variables...
my $parse_cgi_headers = \&PublicInbox::GitHTTPBackend::parse_cgi_headers;
sub call {
my ($self, $env, $ctx) = @_; # $ctx is optional, used by WWW
my $path_info = $env->{PATH_INFO};
my $cgit_data;
# handle requests without spawning cgit iff possible:
if ($path_info =~ m!\A/(.+?)/($PublicInbox::GitHTTPBackend::ANY)\z!ox) {
my ($nick, $path) = ($1, $2);
if (my $git = $self->{pi_cfg}->get_coderepo($nick)) {
return serve($env, $git, $path);
}
} elsif ($path_info =~ m!$self->{static}! &&
defined($cgit_data = $self->{cgit_data})) {
my $f = $cgit_data.$1; # {static} only matches leading slash
return PublicInbox::WwwStatic::response($env, [], $f);
}
my %cgi_env = (CGIT_CONFIG => $self->{cgitrc}, PATH_INFO => $path_info);
@cgi_env{@PASS_ENV} = @$env{@PASS_ENV}; # spawn ignores undef vals
$cgi_env{HTTPS} = 'on' if $env->{'psgi.url_scheme'} eq 'https';
my $rdr = input_prepare($env) or return r(500);
my $qsp = PublicInbox::Qspawn->new($self->{cmd}, \%cgi_env, $rdr);
my $limiter = $self->{pi_cfg}->limiter('-cgit');
$qsp->psgi_yield($env, $limiter, $parse_cgi_headers, $ctx);
}
1;
|