Changeset 74 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/objects.pm

Timestamp:

05/08/09 17:07:20 (15 years ago)

Author:

nanardon

Message:

• support object deletion
• fix synchro of delayed fields

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/objects.pm (modified) (2 diffs)

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

@@ -46 +46 @@
         callback => sub {
             my ($mesg, $entry) = @_;
-            $mesg->code and die $mesg->error;
+            #$mesg->code and die $mesg->error;
             $entry or return;
             ref $entry eq 'Net::LDAP::Entry' or return;
@@ -85 +85 @@
     return if(@others); # we cannot have multiple entries...
     return if (!$entry);
-    bless({ entry => $entry }, $class);
+    bless({ entry => $entry, _base => $base }, $class);
+}
+
+sub _delete {
+    my ($class, $base, $uid) = @_;
+    my $obj = $class->new($base, $uid) or return;
+
+    my $mesg = $base->ldap->delete($obj->{entry}->dn);
+
+    if ($mesg->code) {
+        warn $mesg->error;
+        return;
+    } else { return 1 }
 }