Changeset 2467

Timestamp:

04/21/21 15:21:02 (3 years ago)

Author:

nanardon

Message:

Fix: rename in heimdal base

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Heimdal/User.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Heimdal/User.pm

@@ -142 +142 @@
     my $obj = $class->new($base, $uid) or return;
 
-    my $mesg = $base->ldap->moddn( $obj->{entry},
-        newrdn => 'cn=' .  escape_filter_value($newuid),
-        deleteoldrdn => 1,
-    );
-
-    if ($mesg->code) {
-        $base->log(LA_ERR, "Cannot rename object %s: %s", $uid, $mesg->error);
+    my ($code) = $base->heimdal->renamePrincipal($uid, $newuid);
+
+    if (!$code) {
+        $base->log(LA_ERR, "Cannot rename object %s", $uid);
         return;
     } else {
-        return 1;
+        $base->log(LA_INFO, "Object (%s) %s renamed to %s", $class->type, $uid, $newuid);
+        return 1
     }
 }