Changeset 315

Timestamp:

08/08/09 16:59:29 (15 years ago)

Author:

nanardon

Message:

• add script to test acls and eventually dump it

Location:

LATMOS-Accounts

Files:

• bin/la-acls (added)
• lib/LATMOS/Accounts/Acls.pm (modified) (3 diffs)

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

@@ -124 +124 @@
 }
 
+sub dump {
+    my ($self) = @_;
+    foreach my $acl (@{$self->{_acls}}) {
+        print $acl->dump, "\n";
+    }
+}
+
 package LATMOS::Accounts::Acls::acl;
 use strict;
@@ -130 +137 @@
 sub new {
     my ($class, $objdotatt, $list) = @_;
-    my ($obj, $attr) = $objdotatt =~ /^([^.]+)\.(.*)/;
+    my ($obj, $attr) = $objdotatt =~ /^([^.]+)\.(.*)/ or return;
     my @attrs = ($attr =~ /^\{(.*)\}$/)
         ? (split(/\s*,\s*/, $1))
@@ -192 +199 @@
 }
 
+sub dump {
+    my ($self) = @_;
+    my $dump = sprintf("%s.{%s}\n", $self->{obj}, join(', ', @{$self->{attr}}));
+    foreach my $u (@{ $self->{users} }) {
+        $dump .= sprintf("\t%s: %s\n",
+            $u->{user},
+            join(', ', ($u->{r} ? 'read' : ()), ($u->{w} ? 'write' : ())) ||
+            'deny');
+    }
+    $dump
+}
+
 1;