From 885cd29e9dbe7aac04c1d94a4917bf9c86f0b3de Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=B4me=20Chilliet?= <come@opensides.be>
Date: Tue, 9 Aug 2016 10:22:56 +0200
Subject: [PATCH] Fixes #5012 Skip entries when errors occurs
---
contrib/bin/fusiondirectory-setup | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/contrib/bin/fusiondirectory-setup b/contrib/bin/fusiondirectory-setup
index 7a7b390fb..f9c88ebc0 100644
--- a/contrib/bin/fusiondirectory-setup
+++ b/contrib/bin/fusiondirectory-setup
@@ -1606,7 +1606,10 @@ sub migrate_printers {
foreach my $entry (@entries) {
my $newrdn = "cn=".$entry->get_value('cn')."+ipHostNumber=".$entry->get_value('ipHostNumber');
$mesg = $ldap->moddn($entry->dn(), newrdn => $newrdn);
- $mesg->code && print $entry->dn().": ".$mesg->error."\n";
+ if ($mesg->code) {
+ print $entry->dn().": ".$mesg->error."\n";
+ next;
+ }
my $dn_old = $entry->dn();
$dn_old =~ s/^[^,]+,/$newrdn,/;
my @replace = ('ieee802Device', 'ipHost', 'fdPrinter');
@@ -1618,7 +1621,10 @@ sub migrate_printers {
}
$entry->replace("objectClass" => \@replace);
$mesg = $ldap->add($entry);
- $mesg->code && print $entry->dn().": ".$mesg->error."\n";
+ if ($mesg->code) {
+ print $entry->dn().": ".$mesg->error."\n";
+ next;
+ }
undef @replace;
$mesg = $ldap->delete($dn_old);
$mesg->code && print $dn_old.": ".$mesg->error."\n";
--
GitLab