add get/keps command to load AMSAT keps

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

diff --git a/cmd/show/satellite.pl b/cmd/show/satellite.pl
index 45e765f2928d8d5f6a9ba6fbb299046b7b7943fa..bede7a89dfd75859adfdf386f385332251f49e32 100644 (file)
--- a/cmd/show/satellite.pl
+++ b/cmd/show/satellite.pl
@@ -4,7 +4,7 @@
 #
 # copyright (c) 1999 Steve Franke K9AN
 #
-# $Id$
+#
 # 
 # 2001/12/16 added age of keps in the sh/sat output list.
 #   Note - there is the potential for problems when satellite name
@@ -16,9 +16,9 @@ my ($self, $line) = @_;
 my @out;
 
 my @f = split /\s+/, $line;
-my $satname = uc shift @f;
-my $numhours = shift @f;       # the number of hours ahead to print
-my $step = shift @f;           # tracking table resolution in minutes
+my $satname = uc shift @f if @f;
+my $numhours = shift @f if @f; # the number of hours ahead to print
+my $step = shift @f if @f;             # tracking table resolution in minutes
 
 # default hours and step size
 $numhours = 3 unless $numhours && $numhours =~ /^\d+$/;