X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fwwv.pl;h=fbb7fac32cb10705debe5979c2b513d71e276122;hb=91a3d0439029d8bb76f3439aa9ecc0e699f5a195;hp=e010972604ce738f5e05ebe74fdfbf07b353eb64;hpb=9c23c26e9c317f924994e1fead122708d3369091;p=spider.git diff --git a/cmd/show/wwv.pl b/cmd/show/wwv.pl index e0109726..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 K A Forecast Logger"; +push @out, $self->msg('wwv3'); my @in = Geomag::search($from, $to, $main::systime); for (@in) { push @out, Geomag::print_item($_);