X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy.pm;h=c1f010c11e3a7c2790759a87acac08187e83fc6e;hb=2841b340579dae85808c5a571df3140b736c2fb2;hp=10f20f28714f3a73d988fce6812b95cec8462947;hpb=0b9f0846b89c35dd6d92dcca815f49af1682924d;p=spider.git

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index 10f20f28..c1f010c1 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); 
 	}
 }