From ee2b26cea53095199ebd04c4977ede501981af1c Mon Sep 17 00:00:00 2001 From: minima Date: Sat, 12 Feb 2005 15:53:21 +0000 Subject: [PATCH] add default callsign overridable with a parameter. --- perl/importkeps.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.43.0