X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimportkeps.pl;h=39fa21dfc3dae59467143fdb961bdfce2193e5ea;hb=cea55a2faa24cd58756e48a54b5e00e43a16bbae;hp=fe3cc1142fb940a643c63345b12a2caefbcd3aff;hpb=45495d980ec748f19509c7668d6b92a06f216ed7;p=spider.git

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index fe3cc114..39fa21df 100644
--- a/perl/importkeps.pl
+++ b/perl/importkeps.pl
@@ -22,7 +22,7 @@ BEGIN {
 	unshift @INC, "$root/local";
 }
 
-
+my $fromcall = shift || 'G1TLH';
 my $inp;
 {
 	local $/ = undef;
@@ -44,7 +44,7 @@ exit(0);
 sub process
 {
 	# chop off most of the beginning
-	return unless $inp =~ s/^.*SB\s+KEPS\s+\@\s+AMSAT\s+\$ORB\d{5}\.\w/SB ALL/s;
+	return unless $inp =~ s/^.*SB\s+KEPS\s+\@\s+AMSAT\s+\$ORB\d{5}\.\w/SB ALL < $fromcall/s;
 	return unless $inp =~ s/2Line\s+Orbital\s+Elements/2Line Keps/;
 	
 	# open the output file in the data area