From 46315397f055856a1777104824f70551164bd3b3 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 24 Feb 2005 10:46:35 +0000
Subject: [PATCH] constrain broadcasting back to oneself

---
 perl/Thingy.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 10f20f28..08d14667 100644
--- a/perl/Thingy.pm
+++ b/perl/Thingy.pm
@@ -104,6 +104,10 @@ sub broadcast
 	foreach my $dxchan (DXChannel::get_all()) {
 		next if $dxchan == $main::me;
 		next if grep $dxchan == $_, @_;
+		next if $dxchan->{call} eq $thing->{origin};
+		next if $thing->{user} && !dxchan->is_user && $dxchan->{call} eq $thing->{user};
+		
+		dbg("Thingy::broadcast: sending to $dxchan->{call}") if isdbg('thing');
 		$thing->send($dxchan); 
 	}
 }
-- 
2.34.1