}
# remove all extraneous crap from the origin - just leave the base callsign
- $origin = basecall($origin);
+ my $norigin = basecall($origin);
+ unless ($norigin) {
+ dbg("RBN: ERROR '$origin' is an invalid callsign, dumped");
+ return;
+ }
+ $origin = $norigin;
# is this callsign in badspotter list?
if ($DXProt::badspotter->in($origin) || $DXProt::badnode->in($origin)) {
}
# 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;
}