X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy.pm;h=5d7909cca930df91cf19e3a45710a0caee0bd9a7;hb=decf4e82a66a51f03216dd7531422868cd03611b;hp=efacdbb3219f0864a587098e841229abd404ee8a;hpb=b03b8dda6a611e21b9e3d9c632c9a5fd68c36129;p=spider.git diff --git a/perl/Thingy.pm b/perl/Thingy.pm index efacdbb3..5d7909cc 100644 --- a/perl/Thingy.pm +++ b/perl/Thingy.pm @@ -78,7 +78,7 @@ sub send # function must return true to make the send happen $sub = "before_send_$class"; if ($thing->can($sub)) { - return $thing->$sub($dxchan); + return unless $thing->$sub($dxchan); } # generate the protocol line which may (or not) be cached @@ -113,7 +113,8 @@ sub broadcast dbg("Thingy::broadcast: " . $thing->ascii) if isdbg('thing'); my @dxchan; - my $to ||= $thing->{touser}; + my $to ||= $thing->{route}; + $to ||= $thing->{touser}; $to ||= $thing->{group}; if ($to && is_callsign($to) && (my $ref = Route::get($to))) { dbg("Thingy::broadcast: routing for $to") if isdbg('thing');