X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=d467a5d5b7866880ce5886a4449ea3d33f36d46a;hb=6b19958cbe351af8d5462f4e0e03b87875eec16a;hp=d9b03a907d1768420574dcb9ffb51e19266cc983;hpb=0e84728de35d2dadbb9d624614a471b68ae9eef6;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d9b03a90..d467a5d5 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -516,7 +516,7 @@ sub normal
 				dbg('chan', "Dup WWV Spot ignored\n");
 				return;
 			}
-			if (($pcno == 23 && $d < $main::systime - $pc23_max_age) || $d > $main::systime + 900 || $field[2] < 0 || $field[2] > 23) {
+			if (($pcno == 23 && $d < $main::systime - $pc23_max_age) || $d > $main::systime + 1500 || $field[2] < 0 || $field[2] > 23) {
 				dbg('chan', "WWV Date ($field[1] $field[2]) out of range");
 				return;
 			}