aboutsummaryrefslogtreecommitdiff
path: root/lib/GitACL.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/GitACL.pm')
-rw-r--r--lib/GitACL.pm8
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
52sub deny($$;$) { 52sub 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');

Return to:

Send suggestions and report system problems to the System administrator.