Confirm rename entry

Constant.pas

@@ -164,6 +164,7 @@ interface
   rPostfixMailAddress = 'Postfix\MailAddress';
   rPostfixMaildrop    = 'Postfix\Maildrop';
   rQuickSearchFilter  = 'QuickSearchFilter';
+  rRenamePrompt       = 'RenamePrompt';
   rAdDisplayName      = 'Ad\DisplayName';
   rAdCommonName       = 'Ad\CommonName';
   rAdHomeDrive        = 'Ad\HomeDrive';
@@ -517,6 +518,7 @@ interface
   stPassDiff        = 'Passwords do not match!';
   stPassFor         = 'Password for : %s';
   stRepeatCopyAction= 'Repeat for all';
+  stRenameEntry     = 'Rename entry to %s?';
   stMutuallyExclusive = 'The options "%s" and "%s" can not be selected simultaneously!';
   stPwdInclude      = 'Include passwords';
   stPwdNotEncrypted = 'Warning: exported passwords will not be encrypted!';

Main.pas

@@ -1496,6 +1496,26 @@ procedure TMainFrm.LDAPTreeEdited(Sender: TObject; Node: TTreeNode; var S: Strin
 var
   newdn, pdn, temp: string;
   i: Integer;
+
+  function ConfirmRename: Boolean;
+  var
+    cbx: Boolean;
+  begin
+    Result := true;
+    cbx := not GlobalConfig.ReadBool(rRenamePrompt, true);
+    if cbx then
+      exit;
+    temp := Node.Text;
+    Node.Text := S;
+    if CheckedMessageDlg(Format(stRenameEntry, [S]), mtConfirmation, [mbYes, mbNo], stDoNotShowAgain, cbx) <> mrYes then
+    begin
+      S := temp;
+      Result := false;
+    end;
+    if cbx then
+      GlobalConfig.WriteBool(rRenamePrompt, false);
+  end;
+
 begin
   i := Pos('=', S);
   if i = 0 then
@@ -1508,6 +1528,9 @@ procedure TMainFrm.LDAPTreeEdited(Sender: TObject; Node: TTreeNode; var S: Strin
     newdn := Copy(S, 1, i - 1) + '=' + EncodeLdapString(Copy(S, i + 1, Length(S) - i));
   pdn := GetDirFromDn(TObjectInfo(LDAPTree.Selected.Data).dn);
 
+  if not ConfirmRename then
+    exit;
+
   if not (FConnection is TDBConnection) and (FConnection.Version >= LDAP_VERSION3) then
     FConnection.RenameEntry(TObjectInfo(LDAPTree.Selected.Data).dn, newdn, pdn)
   else