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

4
mystic/install.pas
View File

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