X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=494b4348d9e13077b3ecf1d93766c331e24b4cef;hb=67e8ed5e4e28a5af4cec3bc1b43ce97ef51c90be;hp=92a36d1ee826b192f8c699e247c33755a9e7b16a;hpb=fc55b5fa75140c8335137662a7be6e50b89cf183;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 92a36d1e..494b4348 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -795,20 +795,15 @@ sub send_chat # send it if it isn't the except list and isn't isolated and still has a hop count # taking into account filtering and so on foreach $dxchan (@dxchan) { - my $is_ak1a = $dxchan->is_ak1a; - if ($dxchan->is_node) { next if $dxchan == $main::me; next if $dxchan == $self; - next if $from_pc9x && $dxchan->{do_pc9x}; - next unless $dxchan->is_spider || $is_ak1a; + next if $from_pc9x && $dxchan->do_pc9x; + next unless $dxchan->is_spider && $dxchan->do_pc9x; next if $target eq 'LOCAL'; - if (!$ak1a_line && $is_ak1a) { - $ak1a_line = pc12($_[0], $text, $_[1], "$target.LST"); - } } - $dxchan->chat($is_ak1a ? $ak1a_line : $line, $self->{isolate}, $target, $_[1], + $dxchan->chat($line, $self->{isolate}, $target, $_[1], $text, @_, $self->{call}, @a[0..2], @b[0..2]); } }