}
# remove all extraneous crap from the origin - just leave the base callsign
- $origin =~ s|^(?:[\w\d]+/)?([\w\d]+).*$|$1|;
+ 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;
}
unless ($user->qra && is_qra($user->qra)) {
$user->qra($qra);
dbg("RBN: update qra on $saver->[SCall] to $qra");
- $user->put;
}
+ # update lastseen if nothing else
+ $user->put;
}
}
}