EW0210 SIOSEIS scripts - initialize seisnet/sioseis interface

Aug 2003, Steffen suggests using:
ls -1 | sort -n -k 2 -t %
Apparently the seisnet FFIDs can bet out of order.


#!/bin/csh -f
#  Usage: init_seisnet seisnet_directory
#  Initialize the SIOSEIS-SEISNET interface
#
#  script init_seisnet lists the last two files in directory
#
if( $#argv < 1 ) then
    echo "Usage: init_seisnet seisnet_directory"
    exit 1
endif
set DIR = $1
set PATH = /export/home3/seisnet/0210/data/$DIR
rm seisnet_data
ln -s $PATH seisnet_data

set forever = 1
while( $forever )
ls -t1 $PATH | head -n 2 > /tmp/latest
   sed '1,2 s^FFID^seisnet_data/FFID^;w latest' /tmp/latest > /dev/null
   sleep 5
end
end