From 7c44254d7dd8f4936d51d6f61d738587b0942d05 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 2 Apr 2012 04:02:29 -0400
Subject: [PATCH] Node message broadcast no longer sends message to the
originating node
---
mystic/bbs_nodeinfo.pas | 21 ++++++++++++++-------
1 file changed, 14 insertions(+), 7 deletions(-)
diff --git a/mystic/bbs_nodeinfo.pas b/mystic/bbs_nodeinfo.pas
index 3a302a6..35fd073 100644
--- a/mystic/bbs_nodeinfo.pas
+++ b/mystic/bbs_nodeinfo.pas
@@ -127,13 +127,13 @@ End;
Procedure Send_Node_Message (MsgType: Byte; Data: String; Room: Byte);
Var
- ToNode : Byte;
- A, B, C : Byte;
- Temp : ChatRec;
- Str : String[3];
+ ToNode : Byte;
+ A, B, C : Byte;
+ Temp : ChatRec;
+ Str : String[3];
NodeMsgFile : File of NodeMsgRec;
NodeMsg : NodeMsgRec;
-
+ SkipCurrent : Boolean = False;
Begin
If Data = '' Then Begin
Repeat
@@ -161,14 +161,20 @@ Begin
If ToNode = 0 Then Begin
B := 1;
C := Config.INetTNNodes;
- If MsgType = 3 Then MsgType := 2;
+
+ If MsgType = 3 Then Begin
+ MsgType := 2;
+ SkipCurrent := True;
+ End;
End Else Begin
B := ToNode;
C := ToNode;
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 (Not Temp.Active) and (ToNode > 0) Then Begin
Session.io.OutFullLn (Session.GetPrompt(147));
@@ -211,6 +217,7 @@ Begin
Close (NodeMsgFile);
End;
End;
+ End;
End;
Function CheckNodeMessages : Boolean;