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

Whos online node shows inactive nodes again.

This commit is contained in:
mysticbbs 2012-04-20 01:31:47 -04:00
parent 8727e7bfbb
commit a8cd9774e9
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mystic/bbs_nodeinfo.pas
View File

@ -95,17 +95,22 @@ Begin
Session.io.OutFullLn (Session.GetPrompt(138));
For Count := 1 to Config.INetTNNodes Do Begin
Session.io.PromptInfo[1] := strI2S(Count);
Assign (ChatFile, Config.DataPath + 'chat' + strI2S(Count) + '.dat');
{$I-} Reset(ChatFile); {$I+}
If IoResult <> 0 Then Continue;
If IoResult <> 0 Then Begin
Session.io.OutFullLn (Session.GetPrompt(268));
Continue;
End;
Read (ChatFile, TChat);
Close (ChatFile);
If TChat.Active and ((Not TChat.Invisible) or (TChat.Invisible and Session.User.Access(Config.AcsSeeInvis))) Then Begin
Session.io.PromptInfo[1] := strI2S(Count);
Session.io.PromptInfo[2] := TChat.Name;
Session.io.PromptInfo[3] := TChat.Action;
Session.io.PromptInfo[4] := TChat.Location;
@ -115,12 +120,9 @@ Begin
Session.io.PromptInfo[8] := Session.io.OutYN(TChat.Available);
Session.io.OutFullLn (Session.GetPrompt(139));
End Else Begin
Session.io.PromptInfo[1] := strI2S(Count);
End Else
Session.io.OutFullLn (Session.GetPrompt(268));
End;
End;
Session.io.OutFull (Session.GetPrompt(140));
End;