X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FRBN.pm;h=51c299c4abae389558667413e6ac8c54149682a6;hb=6eacc3d2fb49a6babfd77d8a0186c30968cb86ca;hp=0cf5c4149c4940c979280ca28eea537a89be7477;hpb=17de485c3ef46f712b11a476e8174d75cac2d0d8;p=spider.git

diff --git a/perl/RBN.pm b/perl/RBN.pm
index 0cf5c414..51c299c4 100644
--- a/perl/RBN.pm
+++ b/perl/RBN.pm
@@ -252,7 +252,7 @@ sub normal
 	}
 
 	# remove all extraneous crap from the origin - just leave the base callsign
-	$origin =~ s|^(?:[\w\d]+/)?([\w\d]+).*$|$1|;
+	$origin =~ basecall($origin);
 
 	# is this callsign in badspotter list?
 	if ($DXProt::badspotter->in($origin) || $DXProt::badnode->in($origin)) {