X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fsatellite.pl;h=07d935b2d663fc3e08eb9fdcf92d1ceac9f12f42;hb=668e4252d23e2eda2a6b234f1031e1c1a5f43d15;hp=a6c07448c421c4de1d4ffbafeb15c48dceaee830;hpb=9cac31473878fc88778cb13d843fa77c5fd33d65;p=spider.git diff --git a/cmd/show/satellite.pl b/cmd/show/satellite.pl index a6c07448..07d935b2 100644 --- 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];