X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=cb49f7980b39d2daadc002f044fba35619917e2a;hb=5b803645eaf1a462937d7cde0e9459f1a6d3f10e;hp=d3b39cb32097963b2ba0da0023b54fef9df8505b;hpb=ffaa3ab68ea631b0a7b3c3767883141a74daa8fe;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d3b39cb3..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])) {
+			if ($baddx->in($field[2]) || BadWords::check($field[2]) || $field[2] =~ /COCK/) {
 				dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
 				return;
 			}