# 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;
unshift @INC, "$root/local";
}
-
+my $fromcall = shift || 'G1TLH';
my $inp;
{
local $/ = undef;
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;