! /bin/csh 
# @(#)TeraScan Version V3_0 Baseline 01/14/99 12:58:53 GMT 
# $Id: get_elements.sh,v 1.1 1998/09/29 11:51:51 jhf Exp $ 
# 
# FTP latest orbital elements from SeaSpace 
# Then update elements using fixoes 
cd /tmp 
/bin/rm -f elements.new 

if (-f elements.new) then 
echo get_elements: Cannot remove /tmp/elements.new 
endif 

if ( ! $?TSCANROOT ) then 
set LOGINS = ( /dev/n?ll /*/pass/tscan.login ) 
if ($#LOGINS == 1) then 
echo get_elements: TSCANROOT is not defined 
echo get_elements: Cannot find tscan.login 
exit 1 
endif 
source $LOGINS[2] 
endif 

echo get_elements: FTP 192.150.113.144 ... 

ftp -n 192.150.113.144 <<END_FTP 
user elements orbital3 
get elements.new 
quit 
END_FTP 

if (! -f elements.new) then 
echo get_elements: Failed to transfer elements.new 
exit 1 
endif 

echo "" 
echo get_elements: Updating 1-line elements 
echo "" 
fixoes elements.new 

echo "" 
echo get_elements: Updating 2-line elements 
echo "" 
add2line elements.new 

exit 0 
s