# 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$
#
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 $!";
print OUT $inp;
close OUT;