make the check for defined rather than 0

[spider.git] / cmd / wwv.pl

diff --git a/cmd/wwv.pl b/cmd/wwv.pl
index dd7a6de5f343a472c780b3a88b91c6c572c26671..3b0397fce0526569d294eedbb92d1e11c8c8e7f2 100644 (file)
--- a/cmd/wwv.pl
+++ b/cmd/wwv.pl
@@ -44,10 +44,11 @@ $forecast = unpad($forecast);
 my %args = map {split /\s*=\s*/, lc $_} @l; 
 
 # check the ranges of each one
-push @out, $self->msg('wwv1', 'k') unless $args{k} && $args{k} >= 0 && $args{k} <= 9;
-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', 'k') unless defined $args{k} && $args{k} >= 0 && $args{k} <= 9;
+push @out, $self->msg('wwv1', 'a') unless defined $args{a} && $args{a} >= 0 && $args{a} <= 400;
+push @out, $self->msg('wwv1', 'sf') unless defined $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;