Changeset 2313 for trunk/LATMOS-Accounts/lib/LATMOS

Timestamp:

12/02/19 13:50:56 (5 years ago)

Author:

nanardon

Message:

Fix default ACL

File:

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

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

@@ -26 +26 @@
     my $acls = bless(
         {
-            _acls => []
+            _acls => [],
+            _default_acls => [
+                LATMOS::Accounts::Acls::Acl->new( '*.log', [ '$uid: read', '*: deny' ] ),
+                LATMOS::Accounts::Acls::Acl->new(
+                    'user.{userPasswd,userPassword,encryptedPassword,oldPassword}',
+                    [ '$uid: write', '*: deny' ],
+                ),
+            ]
         }, $class
-    );
-
-    # Default ACLS:
-#    $acls->add( '*.log', [ '$uid: read', '*: deny' ] );
-    $acls->add(
-        'user.{userPasswd,userPassword,encryptedPassword,oldPassword}',
-        [ '$uid: write', '*: deny' ],
     );
 
@@ -179 +179 @@
         defined($res) and return $res;
     }
+    foreach my $acl (@{$self->{_default_acls}}) {
+        my $res = $acl->match($obj, $attr, $perm, $who, $groups);
+        defined($res) and return $res;
+    }
+
     return 0;
 }