X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=8e981fc2f908690db5f6cb539c0fa06fe07b3c7f;hb=47fcf88853f83b34078198fdeb063791a6a7f0f2;hp=0b3dfe5a937dc245c9b67958476212a9610d7664;hpb=36cf78e5660c745f32be2f1d63be738a0c537c48;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 0b3dfe5a..8e981fc2 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -253,6 +253,10 @@ sub normal
 
 	# remove all extraneous crap from the origin - just leave the base callsign
 	$origin = basecall($origin);
+	unless ($origin) {
+		dbg("RBN: ERROR '$origin' is an invalid callsign, dumped");
+		return;
+	}
 
 	# is this callsign in badspotter list?
 	if ($DXProt::badspotter->in($origin) || $DXProt::badnode->in($origin)) {
@@ -261,7 +265,7 @@ sub normal
 	}
 	
 	# is the qrg valid
-	unless ($qrg =~ /^\d+\.\d{1,2}$/) {
+	unless ($qrg =~ /^\d+\.\d{1,3}$/) {
 		dbg("RBN: ERROR qrg $qrg from $origin invalid, dumped");
 		return;
 	}