]> dxcluster.org Git - spider.git/commitdiff
add dupe check to wwv
authorminima <minima>
Fri, 14 Dec 2001 17:34:41 +0000 (17:34 +0000)
committerminima <minima>
Fri, 14 Dec 2001 17:34:41 +0000 (17:34 +0000)
cmd/wwv.pl
perl/Messages

index dd7a6de5f343a472c780b3a88b91c6c572c26671..9f4350a6a42ba1c21fdba7303adc7ae7d8b60a35 100644 (file)
@@ -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;
 
index 39a2292dc85292f222546ba62a90d58018ff28a3..ccde0307543c26b644340ab0823e93b74b112c15 100644 (file)
@@ -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]',