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

Node message broadcast no longer sends message to the originating node

This commit is contained in:
mysticbbs 2012-04-02 04:02:29 -04:00
parent 80b945bce9
commit 7c44254d7d
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
mystic/bbs_nodeinfo.pas
View File

@ -127,13 +127,13 @@ End;
Procedure Send_Node_Message (MsgType: Byte; Data: String; Room: Byte); Procedure Send_Node_Message (MsgType: Byte; Data: String; Room: Byte);
Var Var
ToNode : Byte; ToNode : Byte;
A, B, C : Byte; A, B, C : Byte;
Temp : ChatRec; Temp : ChatRec;
Str : String[3]; Str : String[3];
NodeMsgFile : File of NodeMsgRec; NodeMsgFile : File of NodeMsgRec;
NodeMsg : NodeMsgRec; NodeMsg : NodeMsgRec;
SkipCurrent : Boolean = False;
Begin Begin
If Data = '' Then Begin If Data = '' Then Begin
Repeat Repeat
@ -161,14 +161,20 @@ Begin
If ToNode = 0 Then Begin If ToNode = 0 Then Begin
B := 1; B := 1;
C := Config.INetTNNodes; C := Config.INetTNNodes;
If MsgType = 3 Then MsgType := 2;
If MsgType = 3 Then Begin
MsgType := 2;
SkipCurrent := True;
End;
End Else Begin End Else Begin
B := ToNode; B := ToNode;
C := ToNode; C := ToNode;
End; End;
End; End;
For A := B to C Do For A := B to C Do Begin
If (A = Session.NodeNum) and SkipCurrent Then Continue;
If GetChatRecord(A, Temp) Then Begin If GetChatRecord(A, Temp) Then Begin
If (Not Temp.Active) and (ToNode > 0) Then Begin If (Not Temp.Active) and (ToNode > 0) Then Begin
Session.io.OutFullLn (Session.GetPrompt(147)); Session.io.OutFullLn (Session.GetPrompt(147));
@ -211,6 +217,7 @@ Begin
Close (NodeMsgFile); Close (NodeMsgFile);
End; End;
End; End;
End;
End; End;
Function CheckNodeMessages : Boolean; Function CheckNodeMessages : Boolean;