From ba1a144ec12c8265b96cf42b0218fd5bd2703e91 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 6 Oct 2004 08:48:29 +0000 Subject: [PATCH] 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 --- cmd/show/time.pl | 3 +++ perl/importkeps.pl | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/cmd/show/time.pl b/cmd/show/time.pl index 2054754b..6593ee3d 100644 --- 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; +if ($list[0] =~ /^\d+$/) { + $t = shift @list; +} push @out, $self->msg("time1", cldate($t, 1), ztime($t, 1), ztime($t)); diff --git a/perl/importkeps.pl b/perl/importkeps.pl index 42787167..aeea4415 100644 --- 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 - my $fn = "$root/data/keps.txt.$$"; + my $fn = "$root/tmp/keps.txt.$$"; open OUT, ">$fn" or die "$fn $!"; print OUT $inp; close OUT; -- 2.43.0