eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixes for 1.10 installation

This commit is contained in:
mysticbbs 2012-03-03 21:29:54 -05:00
parent a68b857766
commit 14a82d5674
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mystic/109to110.pas
View File

@ -399,11 +399,11 @@ Begin
Result := (IoResult = 0); Result := (IoResult = 0);
End; End;
Procedure PurgeDataWildcard (WC: String); Procedure PurgeWildcard (WC: String);
Var Var
D : SearchRec; D : SearchRec;
Begin Begin
FindFirst (Config.DataPath + WC, AnyFile, D); FindFirst (WC, AnyFile, D);
While DosError = 0 Do Begin While DosError = 0 Do Begin
If D.Attr AND Directory <> 0 Then Continue; If D.Attr AND Directory <> 0 Then Continue;
@ -1331,11 +1331,15 @@ Begin
ConvertHistory; //1.10a11 ConvertHistory; //1.10a11
ConvertLastOn; //1.10a11 ConvertLastOn; //1.10a11
// ConvertArchives; //1.10a1 ConvertArchives; //1.10a1
// ConvertGroups; //1.10a1 ConvertGroups; //1.10a1
PurgeDataWildcard('*.lng'); PurgeWildcard(Config.DataPath + '*.lng');
PurgeDataWildcard('node*.dat'); PurgeWildcard(Config.DataPath + 'node*.dat');
PurgeWildcard(Config.DataPath + 'wfcscrn.*');
PurgeWildcard(Config.SystemPath + 'mcfg.*');
PurgeWildcard(Config.SystemPath + 'makelang.*');
PurgeWildcard(Config.ScriptPath + '*.mpe');
TextAttr := 12; TextAttr := 12;
WriteLn; WriteLn;

4
mystic/install.pas
View File

@ -420,6 +420,8 @@ Begin
Cfg.QwkPath := Config.QwkPath; Cfg.QwkPath := Config.QwkPath;
Cfg.ScriptPath := Config.ScriptPath; Cfg.ScriptPath := Config.ScriptPath;
Cfg.LogsPath := Config.LogsPath; Cfg.LogsPath := Config.LogsPath;
Cfg.MenuPath := Lang.MenuPath;
Cfg.TextPath := Lang.TextPath;
Cfg.UserIdxPos := 0; Cfg.UserIdxPos := 0;
Cfg.SystemCalls := 0; Cfg.SystemCalls := 0;
@ -454,7 +456,7 @@ Begin
End; End;
Close (FBaseFile); Close (FBaseFile);
Assign (LangFile, Config.DataPath + 'language.dat'); Assign (LangFile, Config.DataPath + 'theme.dat');
Reset (LangFile); Reset (LangFile);
While Not Eof(LangFile) Do Begin While Not Eof(LangFile) Do Begin