Changeset 92 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

Timestamp:

05/12/09 16:40:07 (15 years ago)

Author:

nanardon

Message:

• allow to set memberUID everywhere

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm (modified) (3 diffs)

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

@@ -39 +39 @@
 sub _key_attr { 'cn' } 
 
+sub _delayed_fields {
+    my ($self)= @_;
+    return qw(memberUID member);
+}
+
 sub _canonical_fields {
     my ($self, $base, $mode) = @_;
     (
-        qw(gidNumber description sAMAccountName member),
+        qw(gidNumber description sAMAccountName member memberUID),
         ($mode !~ /w/
             ? qw(cn dn)
@@ -84 +89 @@
             },
         );
+        sort(@res);
         return \@res
+    };
+    $field eq 'memberUID' and do {
+        my $val = $self->SUPER::get_field($field);
+        return ref $val ? $val : [ grep { $_ } $val ];
     };
     $self->SUPER::get_field($field);
@@ -93 +103 @@
     my %ndata;
     while (my ($f, $val) = each(%data)) {
+        $f eq 'memberUID' and do {
+            my %users;
+            $users{$_}{e} = 1 foreach (@{ $self->get_field('memberUID') || []});
+            $users{$_}{n} = 1 foreach (@{ $val || []});
+            foreach (keys %users) {
+                $users{$_}{e} && $users{$_}{n} and next;
+                my $user = $self->base->get_object('user', $_) or next;
+                if ($users{$_}{e}) {
+                    $self->{entry}->del(memberUID => $_);
+                } elsif ($users{$_}{n}) {
+                    $self->{entry}->add(memberUID => $_);
+                } # else {} # can't happen
+                my $mesg = $self->{entry}->update($self->base->ldap);
+                if ($mesg->code) {
+                    warn $mesg->error;
+                }
+            }
+            next;
+        };
         $f eq 'member' and do {
             my %users;