- Timestamp:
- 12/04/19 09:27:46 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm
r2313 r2317 175 175 $attr =~ /^@(CREATE|DELETE)$/ && $perm eq 'r' and return; 176 176 177 foreach my $acl (@{$self->{_acls}} ) {177 foreach my $acl (@{$self->{_acls}}, @{$self->{_default_acls}}) { 178 178 my $res = $acl->match($obj, $attr, $perm, $who, $groups); 179 179 defined($res) and return $res; 180 180 } 181 foreach my $acl (@{$self->{_default_acls}}) {182 my $res = $acl->match($obj, $attr, $perm, $who, $groups);183 defined($res) and return $res;184 }185 181 186 182 return 0; … … 195 191 sub dump { 196 192 my ($self) = @_; 197 foreach my $acl (@{$self->{_acls}} ) {193 foreach my $acl (@{$self->{_acls}}, @{$self->{_default_acls}}) { 198 194 print $acl->dump, "\n"; 199 195 }
Note: See TracChangeset
for help on using the changeset viewer.