deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

all: lexical file handles instead of bare

Browse source
This commit is contained in:
Sitaram Chamarty 2009-08-25 09:57:19 +05:30
parent 0b0d95a1ff
commit 66bf4a20f9
3 changed files with 35 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

9
gl-auth-command
View file

@ -99,9 +99,12 @@ die "access denied" unless $repos{$repo}{$perm}{$user};
# ( but first save the reponame; we can save some time later in the hook )
$ENV{GL_REPO}=$repo;
open(LOG, ">>", "$GL_ADMINDIR/log");
print LOG "\n", scalar(localtime), " $ENV{SSH_ORIGINAL_COMMAND} $user\n";
close(LOG);
# if log failure isn't important enough to block access, get rid of all the
# error checking
open my $log_fh, ">>", "$GL_ADMINDIR/log"
or die "open log failed: $!";
print $log_fh "\n", scalar(localtime), " $ENV{SSH_ORIGINAL_COMMAND} $user\n";
close $log_fh or die "close log failed: $!";
$repo = "'$REPO_BASE/$repo.git'";
exec("git", "shell", "-c", "$verb $repo");