X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fwwv.pl;h=fbb7fac32cb10705debe5979c2b513d71e276122;hb=refs%2Fheads%2Fnewusers;hp=ed5022d728d1e131dc62fa4e31bf7849b2feb6b7;hpb=d5b4190c36f130852973121042876af3c5642cd7;p=spider.git diff --git a/cmd/show/wwv.pl b/cmd/show/wwv.pl index ed5022d7..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,8 +26,12 @@ 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, Geomag::print($from, $to, $main::systime); +push @out, $self->msg('wwv3'); +my @in = Geomag::search($from, $to, $main::systime); +for (@in) { + push @out, Geomag::print_item($_); +} return (1, @out);