alter default max spots to 100 and the no of WWV to 5

diff --git a/Changes b/Changes
index ddd5e59f0a4476c76a85def01e625d40695006b0..0d19ff9082c585050a7770e37bfa8785d56380a9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 20Dec01=======================================================================
 1. Fix 'not' in filtering
+2. alter default max spots to 100 and the no of WWV to 5
 17Dec01=======================================================================
 1. added new satellite stuff from Steve K9AN. Fixed upper/lower problem
 in convkeps.pl.

diff --git a/cmd/show/wwv.pl b/cmd/show/wwv.pl
index eb8d517bff9caed349809acefe210ef644144997..349180ae0270262f7ae4f28655c89c1784997853 100644 (file)
--- a/cmd/show/wwv.pl
+++ b/cmd/show/wwv.pl
@@ -27,7 +27,7 @@ while ($f = shift @f) {                 # next field
 }
 
 $from = 1 unless $from;
-$to = 10 unless $to;
+$to = 5 unless $to;
 
 push @out, "Date        Hour   SFI   A   K Forecast                               Logger";
 my @in = Geomag::search($from, $to, $main::systime);

diff --git a/perl/Spot.pm b/perl/Spot.pm
index fb5683fb5e07b6e9e4656a31977afac323c6376c..9fa0086ffa1e5595978a4309638f08d38f61b8f5 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -30,7 +30,7 @@ use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupa
 
 $fp = undef;
 $statp = undef;
-$maxspots = 50;                                        # maximum spots to return
+$maxspots = 100;                                       # maximum spots to return
 $defaultspots = 10;                            # normal number of spots to return
 $maxdays = 100;                                # normal maximum no of days to go back
 $dirprefix = "spots";