gitolite/t/gitolite-receive-pack
Sitaram Chamarty 60e190215e very basic, usable, first cut done
- sausage making hidden
  - lots of important features missing
2012-03-24 10:30:37 +05:30

13 lines
290 B
Perl
Executable file

#!/usr/bin/perl
use strict;
use warnings;
print STDERR "TRACE: grp(", join( ")(", @ARGV ), ")\n";
my $repo = shift;
$repo =~ s/\.git$//;
my $user = $ENV{G3T_USER} || 'no-such-user';
$ENV{SSH_ORIGINAL_COMMAND} = "git-receive-pack '$repo'";
exec( "$ENV{HOME}/bin/gitolite-shell", $user );