dbg('chan', "Dup WWV Spot ignored\n");
return;
}
- if ($d > $main::systime + 900) {
+ if ($d > $main::systime + 900 || $field[2] < 0 || $field[2] > 23) {
dbg('chan', "WWV Date ($field[1] $field[2]) out of range");
return;
}
-
$wwvdup{$dupkey} = $d;
+ $field[6] =~ s/-\d+$//o; # remove spotter's ssid
+
my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
my $r;