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

Now only uses "mysticbbs" environment variable if mystic.dat is not in same directory

This commit is contained in:
mysticbbs 2012-07-19 21:15:23 -04:00
parent 92614e0c75
commit a3c2163a33
1 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mystic/maketheme.pas
View File

@ -195,15 +195,19 @@ Begin
Halt (1); Halt (1);
End; End;
BasePath := GetENV('mysticbbs');
If BasePath <> '' Then BasePath := DirSlash(BasePath);
Action := strUpper(ParamStr(1)); Action := strUpper(ParamStr(1));
InFN := ParamStr(2); InFN := ParamStr(2);
OutFN := ParamStr(3); OutFN := ParamStr(3);
FileMode := 2; FileMode := 2;
Assign (ConfigFile, 'mystic.dat');
Reset (ConfigFile);
If IoResult <> 0 Then Begin
BasePath := GetENV('mysticbbs');
If BasePath <> '' Then BasePath := DirSlash(BasePath);
Assign (ConfigFile, BasePath + 'mystic.dat'); Assign (ConfigFile, BasePath + 'mystic.dat');
Reset (ConfigFile); Reset (ConfigFile);
@ -214,6 +218,7 @@ Begin
WriteLn ('path defined by the MYSTICBBS environment variable.'); WriteLn ('path defined by the MYSTICBBS environment variable.');
Halt (1); Halt (1);
End; End;
End;
Read (ConfigFile, bbsConfig); Read (ConfigFile, bbsConfig);
Close (ConfigFile); Close (ConfigFile);