3 # A git daemon with an added userv security boundary.
5 # This reads the first packet-line of the protocol, checks the syntax
6 # of the pathname and hostname, then uses userv to invoke the
7 # git-upload-pack as the target user with safe arguments.
9 # This was written by Tony Finch <dot@dotat.at>
10 # You may do anything with it, at your own risk.
11 # http://creativecommons.org/publicdomain/zero/1.0/
20 use vars qw{ %vhost_default_user %vhost_user_from_tilde
21 $TILDE $REPO $HOSTNAME };
24 require 'git-daemon-vhosts.pl';
26 my $peer = getpeername STDIN;
29 ($port,$addr) = sockaddr_in $peer;
30 $addr = inet_ntoa $addr;
31 $peer = "[$addr]:$port";
33 $peer = "[?.?.?.?]:?";
37 openlog 'userv-git-daemon', 'pid', 'daemon';
40 syslog 'err', "$peer @_";
47 # simply die if the client takes too long
49 while ($length > length $buffer) {
50 my $ret = sysread STDIN, $buffer, $length, length $buffer;
51 fail "short read: expected $length bytes, got " . length $buffer
52 if defined $ret and $ret == 0;
53 fail "read: $!" if not defined $ret and $! != EINTR and $! != EAGAIN;
54 $ret = 0 if not defined $ret;
60 my $len_hex = xread 4;
61 fail "non-hexadecimal packet length" unless $len_hex =~ m{^[0-9a-zA-Z]{4}$};
62 my $len = hex $len_hex;
64 my $line = xread $len;
65 unless ($line =~ m{^git-upload-pack (?:~($TILDE)/)?($REPO[.]git)\0host=($HOSTNAME)\0$}) {
66 $line =~ s/[^ -~]+/ /g;
67 fail "could not parse \"$line\""
69 my ($tilde,$repo,$host) = ($1,$2,$3);
70 my $url = $tilde ? "git://$host/~$tilde/$repo" : "git://$host/$repo";
72 my $user = $vhost_user_from_tilde{$host} ? $tilde : $vhost_default_user{$host};
73 fail "no user configuration for $url" unless defined $user;
75 syslog 'info', "$peer $user $url";
77 my @opts = ("-DCLIENT=$addr", "-DHOST=$host", "-DREPO=$repo");
78 push @opts, "-DTILDE=$tilde" if defined $tilde;
80 exec 'userv', @opts, $user, 'git-upload-pack'
81 or fail "exec userv: $!";