From d7e744bdddf1217675118d1185a1e6070b8ff2b7 Mon Sep 17 00:00:00 2001
From: minima <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