From cc8043c4d905986b3dc949bbde21ed4aeb254f8c Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 21 Dec 2001 18:47:05 +0000
Subject: [PATCH] alter default max spots to 100 and the no of WWV to 5

---
 Changes         | 1 +
 cmd/show/wwv.pl | 2 +-
 perl/Spot.pm    | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index ddd5e59f..0d19ff90 100644
--- 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 eb8d517b..349180ae 100644
--- 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 fb5683fb..9fa0086f 100644
--- 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";
-- 
2.34.1