add package quals
This commit is contained in:
parent
c46e472706
commit
501c70b8f0
|
@ -28,7 +28,7 @@ die "bad git-annex-shell command: $cmd"
|
||||||
my $start = $1;
|
my $start = $1;
|
||||||
my $repo = $2;
|
my $repo = $2;
|
||||||
my $end = $3;
|
my $end = $3;
|
||||||
die "I dont like some of the characters in $repo\n" unless $repo =~ $REPONAME_PATT;
|
die "I dont like some of the characters in $repo\n" unless $repo =~ $Gitolite::Rc::REPONAME_PATT;
|
||||||
die "I dont like absolute paths in $cmd\n" if $repo =~ /^\//;
|
die "I dont like absolute paths in $cmd\n" if $repo =~ /^\//;
|
||||||
die "I dont like '..' paths in $cmd\n" if $repo =~ /\.\./;
|
die "I dont like '..' paths in $cmd\n" if $repo =~ /\.\./;
|
||||||
|
|
||||||
|
@ -52,7 +52,7 @@ $ENV{GIT_ANNEX_SHELL_LIMITED} = 1;
|
||||||
# Instead it is passed as a single parameter to git-annex-shell for
|
# Instead it is passed as a single parameter to git-annex-shell for
|
||||||
# it to parse and handle the command. This is why we do not need to
|
# it to parse and handle the command. This is why we do not need to
|
||||||
# fully validate $cmd above.
|
# fully validate $cmd above.
|
||||||
gl_log( $ENV{SSH_ORIGINAL_COMMAND} );
|
Gitolite::Common::gl_log( $ENV{SSH_ORIGINAL_COMMAND} );
|
||||||
exec "git-annex-shell", "-c", $newcmd;
|
exec "git-annex-shell", "-c", $newcmd;
|
||||||
|
|
||||||
__END__
|
__END__
|
||||||
|
|
Loading…
Reference in a new issue