]> dxcluster.org Git - spider.git/commitdiff
add default callsign overridable with a parameter.
authorminima <minima>
Sat, 12 Feb 2005 15:53:21 +0000 (15:53 +0000)
committerminima <minima>
Sat, 12 Feb 2005 15:53:21 +0000 (15:53 +0000)
perl/importkeps.pl

index fe3cc1142fb940a643c63345b12a2caefbcd3aff..39fa21dfc3dae59467143fdb961bdfce2193e5ea 100644 (file)
@@ -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