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

Return to:

Send suggestions and report system problems to the System administrator.