blob: 5981f17df505b1f18614c7f6f6fdc2c0eb4d349a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
#!/usr/bin/perl
use strict;
use warnings;
print STDERR "TRACE: gup(", join( ")(", @ARGV ), ")\n";
my $repo = shift;
$repo =~ s/\.git$//;
my $user = $ENV{G3T_USER} || 'no-such-user';
$ENV{SSH_ORIGINAL_COMMAND} = "git-upload-pack '$repo'";
exec( "$ENV{GL_BINDIR}/../src/gitolite-shell", $user );
|