diff options
Diffstat (limited to 'lib/GitACL.pm')
-rw-r--r-- | lib/GitACL.pm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/GitACL.pm b/lib/GitACL.pm index f1f792a..9cd381d 100644 --- a/lib/GitACL.pm +++ b/lib/GitACL.pm | |||
@@ -71,6 +71,20 @@ sub allow($$) { | |||
71 | exit 0; | 71 | exit 0; |
72 | } | 72 | } |
73 | 73 | ||
74 | sub default_rule($) { | ||
75 | my $self = shift; | ||
76 | my $def = GitACL::git_value('config', 'hooks.acldefault'); | ||
77 | my $msg = "default rule"; | ||
78 | if (defined($def)) { | ||
79 | if ($def eq "allow") { | ||
80 | $self->allow($msg); | ||
81 | } elsif ($def ne "deny") { | ||
82 | $msg .= " (warning: hooks.acldefault has invalid value)"; | ||
83 | } | ||
84 | } | ||
85 | $self->deny($msg); | ||
86 | } | ||
87 | |||
74 | sub info($$) { | 88 | sub info($$) { |
75 | my ($self, $msg) = @_; | 89 | my ($self, $msg) = @_; |
76 | $self->logmsg("INFO", $msg); | 90 | $self->logmsg("INFO", $msg); |
@@ -209,7 +223,6 @@ sub new { | |||
209 | } | 223 | } |
210 | 224 | ||
211 | $obj->{project_name} = get_project_name($obj->{git_dir}); | 225 | $obj->{project_name} = get_project_name($obj->{git_dir}); |
212 | |||
213 | $obj->deny("need a ref name") unless defined($args{ref}); | 226 | $obj->deny("need a ref name") unless defined($args{ref}); |
214 | $obj->deny("bogus ref $args{ref}") unless $args{ref} =~ s,^refs/,,; | 227 | $obj->deny("bogus ref $args{ref}") unless $args{ref} =~ s,^refs/,,; |
215 | $obj->{ref} = $args{ref}; | 228 | $obj->{ref} = $args{ref}; |