X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=e0d096b9dcd6ecf389ed349c3a0b4362cb6ac084;hb=f8de8b2dedec09d040a107af6bb82e31e4667c87;hp=87cedaa71c73447a78d174e988094f6aeff08897;hpb=fb14276aab794a877986dbc397ede66ea563c7fb;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 87cedaa7..e0d096b9 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -259,6 +259,14 @@ sub normal
 		return;
 	}
 
+	# is it 'baddx'
+	if ($DXProt::baddx->in($call)) {
+		dbg("RBN: Bad DX spot '$call', ignored");
+		dbg($line) if isdbg('nologchan');
+		return;
+	}
+
+	
 	# remove all extraneous crap from the origin - just leave the base callsign
 	my $norigin = basecall($origin);
 	unless ($norigin) {