]> dxcluster.org Git - spider.git/commitdiff
allow show/time to decode a time_t
authorminima <minima>
Wed, 6 Oct 2004 08:48:29 +0000 (08:48 +0000)
committerminima <minima>
Wed, 6 Oct 2004 08:48:29 +0000 (08:48 +0000)
change the tmp directory to /spider/tmp for importkeps.pl and make sure
that the /spider/tmp is chmod 777t

cmd/show/time.pl
perl/importkeps.pl

index 2054754bc4a874202ab9a63e22a1f18dab920405..6593ee3d1c147cdb9930dd4ce2ce0e2236c323cc 100644 (file)
@@ -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));
 
index 427871673d5398952d57e145d9448390cd2e8ae0..aeea441566a58eb537dc517d7f50133931a8af92 100644 (file)
@@ -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;