Changeset 489

Timestamp:

10/04/09 18:25:35 (15 years ago)

Author:

nanardon

Message:

• acl: unspecified read or write keywords must not return perm denied

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm

@@ -206 +206 @@
             if (ref $obj) {
                 my $attribute = substr($u->{user}, 1);
-                my $val = $obj->_get_c_field($attribute);
+                my $val = $obj->_get_c_field($attribute) or return;
                 my @vals = ref $val ? (@{ $val }) : ($val);
-                return ($u->{$perm} || 0) if (grep { $_ eq $who } @vals);
+                return $u->{$perm} if (defined($u->{$perm}) && grep { $_ eq $who } @vals);
             }
         # user is in group
         } elsif (substr($u->{user}, 0, 1) eq '%') { # group
             my $group = substr($u->{user}, 1);
-            return ($u->{$perm} || 0) if (grep { $group eq $_ } @{$groups ||[]});
+            return $u->{$perm} if (defined($u->{$perm}) && grep { $group eq $_ } @{$groups ||[]});
         # any user
         } elsif ($u->{user} eq '*' || $u->{user} eq $who) {
-            return $u->{$perm} || 0;
+            return $u->{$perm} if (defined($u->{$perm}));
         # any authenticated user
         } elsif (lc($u->{user}) eq '@authenticated' && $who) {
-            return $u->{$perm} || 0;
+            return $u->{$perm} if (defined($u->{$perm}));
         # not login
         } elsif (lc($u->{user}) eq '@anonymous' && $who eq "") {
-            return $u->{$perm} || 0;
+            return $u->{$perm} if (defined($u->{$perm}));
         }
     }