X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=7ad886fd16bc9f1cc8462077395fb32ec49c14fc;hb=d626e783adc2de0d666098c631d1f0aa8abc9f68;hp=596f1f08d3a1256d1ddfab84a815b6be674feee3;hpb=19740220d324a319fb868ce34fb7bed7e31dd450;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 596f1f08..7ad886fd 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -783,7 +783,21 @@ sub announce
 
 sub chat
 {
-	goto &announce;
+	my $self = shift;
+	my $line = shift;
+	my $isolate = shift;
+	my $to = shift;
+	my $target = shift;
+	my $text = shift;
+	my ($filter, $hops);
+
+	if ($self->{annfilter}) {
+		($filter, $hops) = $self->{annfilter}->it(@_);
+		return unless $filter;
+	}
+	if (($self->is_spider || $self->is_ak1a) && $_[1] ne $main::mycall) {
+		send_prot_line($self, $filter, $hops, $isolate, $line);
+	}
 }