Changeset 420 for LATMOS-Accounts/lib/LATMOS

Timestamp:

09/04/09 05:12:38 (15 years ago)

Author:

nanardon

Message:

• allow to manage CREATE/DELETE action in acls

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Acls.pm (modified) (2 diffs)

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

@@ -182 +182 @@
 sub match {
     my ($self, $obj, $attr, $perm, $who, $groups) = @_;
-    my $objtype = lc($obj->type); $attr = lc($attr);
+    my $objtype = ref $obj ? lc($obj->type) : $obj;
+    $attr = lc($attr);
     if (!($self->{obj} eq '*' || $self->{obj} eq $objtype)) {
         return
@@ -190 +191 @@
     foreach my $u (@{ $self->{users} }) {
         if (substr($u->{user}, 0, 1) eq '$') { # check attr content
-            my $attribute = substr($u->{user}, 1);
-            my $val = $obj->_get_c_field($attribute);
-            my @vals = ref $val ? (@{ $val }) : ($val);
-            return ($u->{$perm} || 0) if (grep { $_ eq $who } @vals);
+            if (ref $obj) {
+                my $attribute = substr($u->{user}, 1);
+                my $val = $obj->_get_c_field($attribute);
+                my @vals = ref $val ? (@{ $val }) : ($val);
+                return ($u->{$perm} || 0) if (grep { $_ eq $who } @vals);
+            }
         } elsif (substr($u->{user}, 0, 1) eq '%') { # group
             my $group = substr($u->{user}, 1);