(perltidy)
This commit is contained in:
parent
d853c58ada
commit
24b36f11c5
5 changed files with 21 additions and 21 deletions
|
@ -34,7 +34,7 @@ exit 0;
|
|||
# XXX lots of stuff from gl-auth-command is missing for now...
|
||||
|
||||
sub in_local {
|
||||
if ($ENV{SSH_ORIGINAL_COMMAND} =~ /git-\w+-pack/) {
|
||||
if ( $ENV{SSH_ORIGINAL_COMMAND} =~ /git-\w+-pack/ ) {
|
||||
print STDERR "TRACE: gsh(", join( ")(", @ARGV ), ")\n";
|
||||
print STDERR "TRACE: gsh(SOC=$ENV{SSH_ORIGINAL_COMMAND})\n";
|
||||
}
|
||||
|
@ -79,13 +79,13 @@ sub main {
|
|||
my $ret = access( $repo, $user, $aa, 'any' );
|
||||
trace( 1, "access($repo, $user, $aa, 'any')", "-> $ret" );
|
||||
gl_log( 'gitolite-shell:check', $repo, $user, $aa, 'any', '->', $ret );
|
||||
trigger('ACCESS_CHECK', $repo, $user, $aa, 'any', $ret);
|
||||
trigger( 'ACCESS_CHECK', $repo, $user, $aa, 'any', $ret );
|
||||
_die $ret if $ret =~ /DENIED/;
|
||||
|
||||
$repo = "'$rc{GL_REPO_BASE}/$repo.git'";
|
||||
trigger('PRE_GIT', $repo, $user, $aa, 'any', $verb);
|
||||
trigger( 'PRE_GIT', $repo, $user, $aa, 'any', $verb );
|
||||
_system( "git", "shell", "-c", "$verb $repo" );
|
||||
trigger('POST_GIT', $repo, $user, $aa, 'any', $verb);
|
||||
trigger( 'POST_GIT', $repo, $user, $aa, 'any', $verb );
|
||||
}
|
||||
|
||||
# ----------------------------------------------------------------------
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue