X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0cc714135317ff1119a0dc786a326b2b81c8c23f;hb=cd5a9bf8711c676352b647705008bc59d66a354a;hp=b1ce88d6750634806eda9f336382cf221ec473be;hpb=324bd80ed4aef7e2636f5a03288788ce11ab2663;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b1ce88d6..0cc71413 100644
--- 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;