add badword check to the spotted field

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d3b39cb32097963b2ba0da0023b54fef9df8505b..f6e1e75dc86c0ff093348eb945ab2db35141e711 100644 (file)
--- 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])) {
                                dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
                                return;
                        }