From d7e744bdddf1217675118d1185a1e6070b8ff2b7 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 14 Dec 2001 17:34:41 +0000 Subject: [PATCH] add dupe check to wwv --- cmd/wwv.pl | 1 + perl/Messages | 2 ++ 2 files changed, 3 insertions(+) diff --git a/cmd/wwv.pl b/cmd/wwv.pl index dd7a6de5..9f4350a6 100644 --- a/cmd/wwv.pl +++ b/cmd/wwv.pl @@ -48,6 +48,7 @@ push @out, $self->msg('wwv1', 'k') unless $args{k} && $args{k} >= 0 && $args{k} push @out, $self->msg('wwv1', 'a') unless $args{a} && $args{a} >= 0 && $args{a} <= 400; push @out, $self->msg('wwv1', 'sf') unless $args{sf} && $args{sf} >= 65 && $args{sf} <= 300; push @out, $self->msg('wwv1', 'forecast') unless $forecast; +push @out, $self->msg('wwv2') if Geomag::dup($d, $args{sf}, $args{k}, $args{a}, $forecast); return (1, @out) if @out; diff --git a/perl/Messages b/perl/Messages index 39a2292d..ccde0307 100644 --- a/perl/Messages +++ b/perl/Messages @@ -269,6 +269,8 @@ package DXM; usernf => '*** User record for $_[0] not found ***', wcy1 => '$_[0] is missing or out of range', wcy2 => 'Duplicate WCY', + wwv1 => '$_[0] is missing or out of range', + wwv2 => 'Duplicate WWV', wwvs => 'WWV flag set on $_[0]', wwvu => 'WWV flag unset on $_[0]', wxs => 'WX flag set on $_[0]', -- 2.43.0