13 lines
289 B
Perl
Executable file
13 lines
289 B
Perl
Executable file
#!/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{HOME}/bin/gitolite-shell", $user );
|