X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=cb49f7980b39d2daadc002f044fba35619917e2a;hb=407d9a80a8af1fa6c1ae2c8fbca833e49da6e816;hp=f6e1e75dc86c0ff093348eb945ab2db35141e711;hpb=7b125939d7c1542f951286e03c28f9cddbfe4fce;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index f6e1e75d..cb49f798 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -256,6 +256,7 @@ sub start
 	# set unbuffered and no echo
 	$self->send_now('B',"0");
 	$self->send_now('E',"0");
+	$self->conn->echo(0) if $self->conn->can('echo');
 	
 	# ping neighbour node stuff
 	my $ping = $user->pingint;
@@ -415,7 +416,7 @@ sub normal
 			}
 
 			# is it 'baddx'
-			if ($baddx->in($field[2]) || BadWords::check($field[2])) {
+			if ($baddx->in($field[2]) || BadWords::check($field[2]) || $field[2] =~ /COCK/) {
 				dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
 				return;
 			}