allow show/time to decode a time_t

change the tmp directory to /spider/tmp for importkeps.pl and make sure
that the /spider/tmp is chmod 777t

diff --git a/cmd/show/time.pl b/cmd/show/time.pl
index 2054754bc4a874202ab9a63e22a1f18dab920405..6593ee3d1c147cdb9930dd4ce2ce0e2236c323cc 100644 (file)
--- a/cmd/show/time.pl
+++ b/cmd/show/time.pl
@@ -13,6 +13,9 @@ my @list = split /\s+/, $line;
 my $l;
 my @out;
 my $t = $main::systime;
 my $l;
 my @out;
 my $t = $main::systime;

+if ($list[0] =~ /^\d+$/) {
+       $t = shift @list;
+}

 
 push @out, $self->msg("time1", cldate($t, 1), ztime($t, 1), ztime($t));
 
 
 push @out, $self->msg("time1", cldate($t, 1), ztime($t, 1), ztime($t));
 

diff --git a/perl/importkeps.pl b/perl/importkeps.pl
index 427871673d5398952d57e145d9448390cd2e8ae0..aeea441566a58eb537dc517d7f50133931a8af92 100644 (file)
--- a/perl/importkeps.pl
+++ b/perl/importkeps.pl
@@ -48,7 +48,7 @@ sub process
        return unless $inp =~ s/2Line\s+Orbital\s+Elements/2Line Keps/;
        
        # open the output file in the data area
        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;
        open OUT, ">$fn" or die "$fn $!";
        print OUT $inp;
        close OUT;