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

NOSCREEN option, bugfix for crash when no process configured

This commit is contained in:
mysticbbs 2012-03-04 21:26:08 -05:00
parent 6f9e6f0d71
commit 1850f424b8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mystic/mutil.pas
View File

@ -85,9 +85,9 @@ Var
CF : File of RecConfig; CF : File of RecConfig;
Begin Begin
ExitProc := @ApplicationShutdown; ExitProc := @ApplicationShutdown;
Console := TOutput.Create(True); Console := TOutput.Create(strUpper(ParamStr(2)) <> '-NOSCREEN');
DrawStatusScreen; If Console.Active Then DrawStatusScreen;
Console.SetWindow(5, 14, 76, 21, True); Console.SetWindow(5, 14, 76, 21, True);
@ -99,7 +99,7 @@ Begin
Else Begin Else Begin
ProcessName ('Load configuration', False); ProcessName ('Load configuration', False);
ProcessStatus ('Missing file'); ProcessStatus ('Missing file');
ProcessResult (rFATAL, True); ProcessResult (rFATAL, False);
Halt(1); Halt(1);
End; End;
@ -115,7 +115,7 @@ Begin
If IoResult <> 0 Then Begin If IoResult <> 0 Then Begin
ProcessName ('Load configuration', False); ProcessName ('Load configuration', False);
ProcessStatus ('Missing MYSTIC.DAT'); ProcessStatus ('Missing MYSTIC.DAT');
ProcessResult (rFATAL, True); ProcessResult (rFATAL, False);
Halt(1); Halt(1);
End; End;
@ -126,7 +126,7 @@ Begin
If bbsConfig.DataChanged <> mysDataChanged Then Begin If bbsConfig.DataChanged <> mysDataChanged Then Begin
ProcessName ('Load configuration', False); ProcessName ('Load configuration', False);
ProcessStatus ('Version mismatch'); ProcessStatus ('Version mismatch');
ProcessResult (rFATAL, True); ProcessResult (rFATAL, False);
Halt(1); Halt(1);
End; End;
@ -166,8 +166,8 @@ Begin
If ProcessTotal = 0 Then Begin If ProcessTotal = 0 Then Begin
ProcessName ('Load configuration', False); ProcessName ('Load configuration', False);
ProcessStatus ('No processes are configured!'); ProcessStatus ('No processes configured!');
ProcessResult (rFATAL, True); ProcessResult (rFATAL, False);
Halt(1); Halt(1);
End; End;