projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove any trailing \rs from the ends of lines
[spider.git]
/
cmd
/
show
/
wwv.pl
diff --git
a/cmd/show/wwv.pl
b/cmd/show/wwv.pl
index a8e4992a9e896a30f66cab9d35c51225dd97cbe3..eb8d517bff9caed349809acefe210ef644144997 100644
(file)
--- a/
cmd/show/wwv.pl
+++ b/
cmd/show/wwv.pl
@@
-21,13
+21,17
@@
while ($f = shift @f) { # next field
next if $from && $to > $from;
}
if (!$to) {
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;
}
}
next if $to;
}
}
-$to = 10 if !$to;
+$from = 1 unless $from;
+$to = 10 unless $to;
push @out, "Date Hour SFI A K Forecast Logger";
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);
return (1, @out);