fix permissions

[spider.git] / perl / importkeps.pl

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index 427871673d5398952d57e145d9448390cd2e8ae0..3d66871c5893f6b41f8b396d3bf756b59d22b89b 100644 (file)
--- a/perl/importkeps.pl
+++ b/perl/importkeps.pl
@@ -3,7 +3,7 @@
 # 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$
 #
@@ -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/data/keps.txt.$$";
+       my $fn = "$root/tmp/keps.txt.$$";
        open OUT, ">$fn" or die "$fn $!";
+       chmod 0666, $fn;
        print OUT $inp;
        close OUT;