Commit fcbd9671 authored by Côme Chilliet's avatar Côme Chilliet
Browse files

Fixes #4515 --migrate-dns now fixes DN of the entries

parent 648998fb
......@@ -1336,10 +1336,10 @@ sub migrate_dns {
@entries = $mesg->entries;
foreach my $entry (@entries) {
$entry->dn() =~ m/^([^,]+),(relativeDomainName=[^,]+),$zoneDn$/ or die "Could not parse dn ".$entry->dn()."\n";
$entry->dn() =~ m/^([^,]+),(relativeDomainName=[^,]+),$zoneDn$/ or next;
$rdn = $1;
my $relativeDomainName = $2;
if ($rdn == $relativeDomainName) {
if ($rdn eq $relativeDomainName) {
my %replace = ();
foreach my $attr (@{$entry->attributes()}) {
$replace{$attr} = $entry->get_value($attr, asref => 1)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment