Changeset 92 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.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/User.pm (modified) (3 diffs)

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

@@ -39 +39 @@
 sub _key_attr { 'cn' } 
 
+sub _delayed_fields {
+    my ($self)= @_;
+    return qw(memberOf);
+}
+
 sub _canonical_fields {
     my ($self, $base, $mode) = @_;
@@ -55 +60 @@
         ipPhone otherTelephone department
         title modbile homePhone
+        memberOf
         ),
         ($mode !~ /w/
-            ? qw(cn dn uSNCreated uSNChanged memberOf)
+            ? qw(cn dn uSNCreated uSNChanged)
             : ()
         )
@@ -92 +98 @@
 }
 
+sub get_field {
+    my ($self, $field) = @_;
+
+    $field eq 'memberOf' and do {
+        my @res;
+        $self->base->_unlimited_search(
+            base => $self->base->object_base_dn('group'),
+            filter => sprintf(
+                '(&(objectClass=group)(member=%s))',
+                escape_filter_value($self->{entry}->dn),
+            ),
+            callback => sub {
+                my ($mesg, $entry) = @_;
+                ref $entry eq 'Net::LDAP::Entry' or return;
+                push(@res, $entry->get_value('cn'));
+            },
+        );
+        sort(@res);
+        return \@res
+    };
+    $self->SUPER::get_field($field);
+}
+
+sub set_fields {
+    my ($self, %data) = @_;
+    my %ndata;
+    while (my ($f, $val) = each(%data)) {
+        $f eq 'memberOf' and do {
+            my %users;
+            $users{$_}{e} = 1 foreach (@{ $self->get_field('memberOf') || []});
+            $users{$_}{n} = 1 foreach (@{ $val || []});
+            foreach (keys %users) {
+                $users{$_}{e} && $users{$_}{n} and next;
+                my $user = $self->base->get_object('group', $_) or next;
+                if ($users{$_}{e}) {
+                    $self->{entry}->del(memberOf => $user->get_field('dn'));
+                } elsif ($users{$_}{n}) {
+                    $self->{entry}->add(memberOf => $user->get_field('dn'));
+                } # else {} # can't happen
+                my $mesg = $self->{entry}->update($self->base->ldap);
+                if ($mesg->code) {
+                    warn $mesg->error;
+                }
+            }
+            next;
+        };
+        $ndata{$f} = $val;
+    }
+    $self->SUPER::set_fields(%ndata);
+}
+
 1;