From ba1a144ec12c8265b96cf42b0218fd5bd2703e91 Mon Sep 17 00:00:00 2001
From: minima <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.34.1