strip spotters ssid from WWV

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 10ce5fa193043475802ed715c051e8d5c1b1fceb..0225f2f0c314a54b3d298fc9899a8a20e329d256 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -389,8 +389,9 @@ sub normal
                                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;