From 46315397f055856a1777104824f70551164bd3b3 Mon Sep 17 00:00:00 2001 From: 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.43.0