8 |
+ |
+ |
9 |
+ # Ensure key entry exist in old record before renaming |
+ # Ensure key entry exist in old record before renaming |
10 |
+ $result = $ldap->modify( "$oldfilter,$oldsearchbase", replace => { split('=', $newdn) } ); |
+ $result = $ldap->modify( "$oldfilter,$oldsearchbase", replace => { split('=', $newdn) } ); |
11 |
+ warn "failed to rename old entry $oldfilter,$oldsearchbase: ", $result->error if $result->code; |
+ warn "failed to add attributes to old entry $oldfilter,$oldsearchbase: ", $result->error if $result->code; |
12 |
+ |
+ |
13 |
+ # Move old record to new location |
+ # Move old record to new location |
14 |
$result = $ldap->moddn( "$oldfilter,$oldsearchbase", newrdn => $newdn, newsuperior => $newbase, deleteoldrdn => 1 ); |
$result = $ldap->moddn( "$oldfilter,$oldsearchbase", newrdn => $newdn, newsuperior => $newbase, deleteoldrdn => 1 ); |