From: minima Date: Wed, 6 Oct 2004 08:48:29 +0000 (+0000) Subject: allow show/time to decode a time_t X-Git-Tag: 1.53~222 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba1a144ec12c8265b96cf42b0218fd5bd2703e91;p=spider.git 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 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;