strip spotters ssid from WWV

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b1ce88d6750634806eda9f336382cf221ec473be..0225f2f0c314a54b3d298fc9899a8a20e329d256 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -385,12 +385,13 @@ sub normal
                                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;