diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2013-06-25 12:36:31 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2013-06-25 12:36:31 +0300 |
commit | 33ba97cd28f138b49697273e445b479d42bf42a9 (patch) | |
tree | a2d1fe3d439dd92dbcf33e23fc07cfad8d264e52 /lib/GitACL.pm | |
parent | ec125e9f860adf89f72e25641c65a1dc79c1e4a9 (diff) | |
download | gitaclhook-33ba97cd28f138b49697273e445b479d42bf42a9.tar.gz gitaclhook-33ba97cd28f138b49697273e445b479d42bf42a9.tar.bz2 |
Bugfixes.release-1.00
* gitacl.schema: An example LDAP schema.
* MANIFEST: Add gitacl.schema
* Makefile.PL: Update.
* gitaclhook: Fix passing 'user' parameter in test mode.
* lib/GitACL.pm: Fix malformed references.
Diffstat (limited to 'lib/GitACL.pm')
-rw-r--r-- | lib/GitACL.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/GitACL.pm b/lib/GitACL.pm index 51024ac..57b38b8 100644 --- a/lib/GitACL.pm +++ b/lib/GitACL.pm | |||
@@ -40,7 +40,7 @@ sub logmsg($$$;$) { | |||
40 | my $loc = shift; | 40 | my $loc = shift; |
41 | my $fd; | 41 | my $fd; |
42 | 42 | ||
43 | open($fd, $self->logfile); | 43 | open($fd, $self->{logfile}); |
44 | if ($loc) { | 44 | if ($loc) { |
45 | print $fd "$status:$loc: $message\n"; | 45 | print $fd "$status:$loc: $message\n"; |
46 | } else { | 46 | } else { |
@@ -54,7 +54,7 @@ sub deny($$;$) { | |||
54 | 54 | ||
55 | $self->logmsg("DENY", | 55 | $self->logmsg("DENY", |
56 | "$self->{project_name}:$self->{user_name}:". | 56 | "$self->{project_name}:$self->{user_name}:". |
57 | "opstr{$self->{op}}:$self->{ref}:$self->{old}:$self->{new}: $msg", | 57 | "$opstr{$self->{op}}:$self->{ref}:$self->{old}:$self->{new}: $msg", |
58 | $loc); | 58 | $loc); |
59 | 59 | ||
60 | $self->debug(1, "denied by $loc") if $loc; | 60 | $self->debug(1, "denied by $loc") if $loc; |
@@ -176,8 +176,8 @@ sub new { | |||
176 | } else { | 176 | } else { |
177 | $obj->{logfile} = git_value('config', 'hooks.acllog'); | 177 | $obj->{logfile} = git_value('config', 'hooks.acllog'); |
178 | } | 178 | } |
179 | if ($obj->{logfile} && $obj->logfile !~ /[>|]/) { | 179 | if ($obj->{logfile} && $obj->{logfile} !~ /[>|]/) { |
180 | $obj->{logfile} = ">>${obj->logfile}"; | 180 | $obj->{logfile} = ">>$obj->{logfile}"; |
181 | } | 181 | } |
182 | 182 | ||
183 | if (defined($args{quiet})) { | 183 | if (defined($args{quiet})) { |