#
# 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
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+$/;