X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=inline;f=perl%2FDXProt.pm;h=71cef0e220d81071f5ddf931973020cb301a1b49;hb=bf2433ea0cf3e501ded7dd83b06a026121860d3d;hp=d6a81ec4328ff0e4d8db67eda6010474df64bca2;hpb=1fd948e7dfd70949e959dd0a633d4e5b762d07e0;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d6a81ec4..71cef0e2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -415,7 +415,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;
 			}
@@ -957,6 +957,7 @@ sub normal
 		}
 
 		if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
+			return if $pcno == 49 && eph_dup($line);
 			if ($pcno == 49 || $field[1] eq $main::mycall) {
 				DXMsg::process($self, $line);
 			} else {