From ad4a73df7a84d93c7504f1454e4d788bdab5c11f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?C=C3=B4me=20Chilliet?= <come.bernigaud@opensides.be>
Date: Tue, 22 Mar 2016 11:44:05 +0100
Subject: [PATCH] Fixes #4634 Fixed migrate-dns for PTR records
---
contrib/bin/fusiondirectory-setup | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/contrib/bin/fusiondirectory-setup b/contrib/bin/fusiondirectory-setup
index b04770f6e..980464e71 100644
--- a/contrib/bin/fusiondirectory-setup
+++ b/contrib/bin/fusiondirectory-setup
@@ -1373,12 +1373,12 @@ sub migrate_dns {
@entries = $mesg->entries;
foreach my $entry (@entries) {
- $entry->dn() =~ m/^([^,]+),(relativeDomainName=[^,]+),([^,]+,$zoneDn)$/ or next;
+ $entry->dn() =~ m/^([^,]+),relativeDomainName=[^,]+,$zoneDn$/ or next;
$result = $ldap->moddn (
$entry->dn(),
newrdn => $1,
deleteoldrdn => '1',
- newsuperior => $2
+ newsuperior => 'zoneName='.$entry->get_value('zoneName').','.$zoneDn
);
$result->code && die "Migration of DNS reverse zone subentry ".$entry->dn()." failed, LDAP error: ".$result->error."\n";
}
--
GitLab