fixed geomag errors introduced last time

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b1ce88d6750634806eda9f336382cf221ec473be..10ce5fa193043475802ed715c051e8d5c1b1fceb 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -385,7 +385,7 @@ 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;
                        }