Changeset 58

Timestamp:

04/30/09 22:48:01 (15 years ago)

Author:

nanardon

Message:

• unix base support memberUID attribute

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Unix.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Bases/Unix/Group.pm (modified) (2 diffs)
• t/11_bases_unix.t (modified) (2 diffs)
• testdata/group (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm

@@ -141 +141 @@
             }
             # split user in the group
-            foreach (split(',', $ch[3] || '')) {
+            foreach (split(',', ($self->{groups}{$group}{'user_list'} || ''))) {
                 $self->{groups}{$group}{'users'}{$_} = 1;
             }
@@ -171 +171 @@
             }
             # split user in the group
-            foreach (split(',', $ch[3] || '')) {
+            foreach (split(',', $self->{groups}{$group}{'suser_list'} || '')) {
                 $self->{groups}{$group}{'susers'}{$_} = 1;
             }

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix/Group.pm

@@ -47 +47 @@
 sub get_field {
     my ($self, $field) = @_;
+    if ($field eq 'user_list') {
+        return [ keys %{ $self->{'users'} || {} } ];
+    }
     $self->{$field}
 }
@@ -54 +57 @@
     foreach my $field (keys %data) {
         # TODO check fields exists !
-        $self->{$field} = $data{$field};
+        if ($field eq 'user_list') {
+            $self->{'users'} = {};
+            foreach (ref $data{$field} ? (@{ $data{$field} || [] }) : ($data{$field})) {
+                $self->{'users'}{$_} = 1;
+            }
+        } else {
+            $self->{$field} = $data{$field};
+        }
     }
     1;

LATMOS-Accounts/t/11_bases_unix.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 21;
+use Test::More tests => 24;
 use File::Temp;
 
@@ -45 +45 @@
 
 ok($unixb->commit, "Can save unix base");
+ok(eq_set($group->get_c_field('memberUID'), [ 'user' ]), 'can get group\'s member');
+ok($group->set_c_fields('memberUID', [ 'admin' ]), 'can set group\'s member');
+ok(eq_set($group->get_c_field('memberUID'), [ 'admin' ]), 'can get group\'s member after change');
 
 

LATMOS-Accounts/testdata/group

@@ -1 @@
-root:x:0:
+root:x:0:user