X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fwwv.pl;h=07a0259a34af5939b10a3d223f1fd763a4e31bba;hb=093ac03207bd4468fa89dc7438936b245a92cbe5;hp=a8e4992a9e896a30f66cab9d35c51225dd97cbe3;hpb=3643ef870e040d437448632209039477eac4e52c;p=spider.git diff --git a/cmd/show/wwv.pl b/cmd/show/wwv.pl index a8e4992a..07a0259a 100644 --- a/cmd/show/wwv.pl +++ b/cmd/show/wwv.pl @@ -21,7 +21,7 @@ while ($f = shift @f) { # next field next if $from && $to > $from; } if (!$to) { - ($to) = $f =~ /^(\d+)$/o if !$to; # is it a to count? + ($to) = $f =~ /^(\d+)$/o; # is it a to count? next if $to; } } @@ -29,5 +29,8 @@ while ($f = shift @f) { # next field $to = 10 if !$to; push @out, "Date Hour SFI A K Forecast Logger"; -push @out, Geomag::print($from, $to, $main::systime); +my @in = Geomag::search($from, $to, $main::systime); +for (@in) { + push @out, Geomag::print_item($_); +} return (1, @out);