@checklist =
(
[ qw(i c c m bp bc c) ], # pc10
- [ qw(i f m d t m c c h) ], # pc11
+ [ qw(i f bm d t m c c h) ], # pc11
[ qw(i c bm m bm bm p h) ], # pc12
[ qw(i c h) ], #
[ qw(i c h) ], #
return;
}
}
+ $_[7] =~ s/-\d+$//o; # remove spotter's ssid
if (Geomag::dup($d,$sfi,$k,$i,$_[6],$_[7])) {
dbg("PCPROT: Dup WWV Spot ignored\n") if isdbg('chanerr');
return;
}
- $_[7] =~ s/-\d+$//o; # remove spotter's ssid
# note this only takes the first one it gets
Geomag::update($d, $_[2], $sfi, $k, $i, @_[6..8], $r);