diff options
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 | |||
@@ -37,13 +37,13 @@ sub logmsg($$$;$) { | |||
37 | 37 | ||
38 | my $status = shift; | 38 | my $status = shift; |
39 | my $message = shift; | 39 | my $message = shift; |
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 { |
47 | print $fd "$status: $message\n"; | 47 | print $fd "$status: $message\n"; |
48 | } | 48 | } |
49 | close($fd); | 49 | close($fd); |
@@ -51,13 +51,13 @@ sub logmsg($$$;$) { | |||
51 | 51 | ||
52 | sub deny($$;$) { | 52 | sub deny($$;$) { |
53 | my ($self, $msg, $loc) = @_; | 53 | my ($self, $msg, $loc) = @_; |
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; |
61 | print STDERR "denied: $msg\n" unless $self->{quiet}; | 61 | print STDERR "denied: $msg\n" unless $self->{quiet}; |
62 | exit 1; | 62 | exit 1; |
63 | } | 63 | } |
@@ -173,14 +173,14 @@ sub new { | |||
173 | 173 | ||
174 | if (defined($args{logfile})) { | 174 | if (defined($args{logfile})) { |
175 | $obj->{logfile} = $args{logfile}; | 175 | $obj->{logfile} = $args{logfile}; |
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})) { |
184 | $obj->{quiet} = $args{quiet}; | 184 | $obj->{quiet} = $args{quiet}; |
185 | } elsif (!$obj->{debug}) { | 185 | } elsif (!$obj->{debug}) { |
186 | $obj->{quiet} = git_value('config', 'hooks.aclquiet'); | 186 | $obj->{quiet} = git_value('config', 'hooks.aclquiet'); |