Revert "Migrator for servlist_ in the installers"
This reverts commit c6ead740c8
.
This commit is contained in:
parent
8996baa35e
commit
5144fe509f
@ -240,24 +240,6 @@ begin
|
|||||||
Result := 1;
|
Result := 1;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
|
||||||
procedure MigrateServlist();
|
|
||||||
begin
|
|
||||||
FileCopy(ExpandConstant('{userappdata}\HexChat\servlist_.conf'), ExpandConstant('{userappdata}\HexChat\servlist.conf'), True);
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
|
||||||
function OldServlistCheck(): Boolean;
|
|
||||||
begin
|
|
||||||
if FileExists(ExpandConstant('{userappdata}\HexChat\servlist_.conf')) then
|
|
||||||
Result := True
|
|
||||||
else
|
|
||||||
Result := False
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
||||||
procedure CurStepChanged(CurStep: TSetupStep);
|
procedure CurStepChanged(CurStep: TSetupStep);
|
||||||
begin
|
begin
|
||||||
@ -271,18 +253,9 @@ begin
|
|||||||
end;
|
end;
|
||||||
DeleteFile(ExpandConstant('{app}\portable-mode'));
|
DeleteFile(ExpandConstant('{app}\portable-mode'));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (CurStep=ssPostInstall) then
|
|
||||||
begin
|
|
||||||
if OldServlistCheck() then begin
|
|
||||||
if SuppressibleMsgBox('Would you like to copy your old HexChat network list (servlist_.conf) to the new name (servlist.conf)? Make sure you remove servlist_.conf when you no longer need it.', mbConfirmation, MB_YESNO or MB_DEFBUTTON2, IDNO) = IDYES then
|
|
||||||
MigrateServlist();
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
||||||
// Importing LoadSkin API from ISSkin.DLL
|
// Importing LoadSkin API from ISSkin.DLL
|
||||||
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
|
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
|
||||||
|
@ -239,24 +239,6 @@ begin
|
|||||||
Result := 1;
|
Result := 1;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
|
||||||
procedure MigrateServlist();
|
|
||||||
begin
|
|
||||||
FileCopy(ExpandConstant('{userappdata}\HexChat\servlist_.conf'), ExpandConstant('{userappdata}\HexChat\servlist.conf'), True);
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
|
||||||
function OldServlistCheck(): Boolean;
|
|
||||||
begin
|
|
||||||
if FileExists(ExpandConstant('{userappdata}\HexChat\servlist_.conf')) then
|
|
||||||
Result := True
|
|
||||||
else
|
|
||||||
Result := False
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
||||||
procedure CurStepChanged(CurStep: TSetupStep);
|
procedure CurStepChanged(CurStep: TSetupStep);
|
||||||
begin
|
begin
|
||||||
@ -270,18 +252,9 @@ begin
|
|||||||
end;
|
end;
|
||||||
DeleteFile(ExpandConstant('{app}\portable-mode'));
|
DeleteFile(ExpandConstant('{app}\portable-mode'));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
if (CurStep=ssPostInstall) then
|
|
||||||
begin
|
|
||||||
if OldServlistCheck() then begin
|
|
||||||
if SuppressibleMsgBox('Would you like to copy your old HexChat network list (servlist_.conf) to the new name (servlist.conf)? Make sure you remove servlist_.conf when you no longer need it.', mbConfirmation, MB_YESNO or MB_DEFBUTTON2, IDNO) = IDYES then
|
|
||||||
MigrateServlist();
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////////
|
||||||
// Importing LoadSkin API from ISSkin.DLL
|
// Importing LoadSkin API from ISSkin.DLL
|
||||||
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
|
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
|
||||||
|
Loading…
Reference in New Issue
Block a user