X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fwwv.pl;h=fbb7fac32cb10705debe5979c2b513d71e276122;hb=HEAD;hp=07a0259a34af5939b10a3d223f1fd763a4e31bba;hpb=f3adc82a0299652d929b73c718127fa38571eec5;p=spider.git diff --git a/cmd/show/wwv.pl b/cmd/show/wwv.pl index 07a0259a..fbb7fac3 100644 --- a/cmd/show/wwv.pl +++ b/cmd/show/wwv.pl @@ -3,7 +3,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # my $self = shift; @@ -26,9 +26,10 @@ while ($f = shift @f) { # next field } } -$to = 10 if !$to; +$from = 1 unless $from; +$to = 5 unless $to; -push @out, "Date Hour SFI A K Forecast Logger"; +push @out, $self->msg('wwv3'); my @in = Geomag::search($from, $to, $main::systime); for (@in) { push @out, Geomag::print_item($_);