X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimportkeps.pl;h=11a267b02943ae2051f4862b8d74915bd0329e54;hb=refs%2Fheads%2Fmaster;hp=aeea441566a58eb537dc517d7f50133931a8af92;hpb=ba1a144ec12c8265b96cf42b0218fd5bd2703e91;p=spider.git

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index aeea4415..11a267b0 100644
--- a/perl/importkeps.pl
+++ b/perl/importkeps.pl
@@ -3,9 +3,9 @@
 # Take a 2 line keps email file on STDIN, prepare it for import into standard import directory
 # and then shove it there, marked for SB ALL.
 #
-# Copyright (c) Dirk Koopman G1TLH
+# Copyright (c) 2004 Dirk Koopman G1TLH
+#
 #
-# $Id$
 #
 
 use strict;
@@ -22,7 +22,7 @@ BEGIN {
 	unshift @INC, "$root/local";
 }
 
-
+my $fromcall = shift || 'G1TLH';
 my $inp;
 {
 	local $/ = undef;
@@ -44,12 +44,13 @@ 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
 	my $fn = "$root/tmp/keps.txt.$$";
 	open OUT, ">$fn" or die "$fn $!";
+	chmod 0666, $fn;
 	print OUT $inp;
 	close OUT;