allow array context stuff

[spider.git] / cmd / show / satellite.pl

diff --git a/cmd/show/satellite.pl b/cmd/show/satellite.pl
index a6c07448c421c4de1d4ffbafeb15c48dceaee830..07d935b2d663fc3e08eb9fdcf92d1ceac9f12f42 100644 (file)
--- a/cmd/show/satellite.pl
+++ b/cmd/show/satellite.pl
@@ -17,7 +17,11 @@ my $step = shift @f;                         # tracking table resolution in minutes
 
 # default hours and step size
 $numhours = 3 unless $numhours && $numhours =~ /^\d+$/;
+$numhours = 3 if $numhours < 0;
+$numhours = 24 if $numhours > 24;
 $step = 5 unless $step && $step =~ /^\d+$/;
+$step = 5 if $step < 0;
+$step = 30 if $step > 30;
 
 # get nearest lat and long (I can see we will need the altitude here soon as well :-)
 my $lat = $self->user->lat;
@@ -30,6 +34,7 @@ unless ($lon || $lat) {
        $call = $main::mycall;
 }
 
+#$DB::single=1;
 if ($satname && $Sun::keps{$satname}) {
        my $jtime; # lats and longs in radians
        my ($sec, $min, $hr, $day, $mon, $yr) = (gmtime($main::systime))[0,1,2,3,4,5];