From ee2b26cea53095199ebd04c4977ede501981af1c Mon Sep 17 00:00:00 2001
From: minima <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