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

25
mystic/maketheme.pas
View File

@ -195,24 +195,29 @@ 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, BasePath + 'mystic.dat'); Assign (ConfigFile, 'mystic.dat');
Reset (ConfigFile); Reset (ConfigFile);
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin
WriteLn ('ERROR: Unable to read MYSTIC.DAT'); BasePath := GetENV('mysticbbs');
WriteLn;
WriteLn ('MYSTIC.DAT must exist in the same directory as MakeTheme, or in the'); If BasePath <> '' Then BasePath := DirSlash(BasePath);
WriteLn ('path defined by the MYSTICBBS environment variable.');
Halt (1); Assign (ConfigFile, BasePath + 'mystic.dat');
Reset (ConfigFile);
If IoResult <> 0 Then Begin
WriteLn ('ERROR: Unable to read MYSTIC.DAT');
WriteLn;
WriteLn ('MYSTIC.DAT must exist in the same directory as MakeTheme, or in the');
WriteLn ('path defined by the MYSTICBBS environment variable.');
Halt (1);
End;
End; End;
Read (ConfigFile, bbsConfig); Read (ConfigFile, bbsConfig);