#!/usr/cs/bin/csh -f

set logname = /afs/cs.cmu.edu/project/clisp-1/archive-ftp/logs/compiler-get.log
set logsize = 300

log -x -pipe clisp << FOO >>& /dev/null
anthocyanin
FOO



if (-e $logname) then
	tail -$logsize $logname > /tmp/logname.$$
	mv /tmp/logname.$$ $logname
else
	echo "New log created on `date`" > $logname
endif


# Clean out the pending directory since files get deleted from here,
# but ftp cannot delete files from the destination that are missing in
# the source directory.
#
echo "Deleting pending directory contents" >> $logname
rm -f /afs/cs.cmu.edu/project/clisp-1/archive-ftp/compiler/pending/*  >& /dev/null


echo "Archive update began on `date`" >> $logname
ftp -n -v -i cs.utah.edu << END-OF-FTP-INPUT >>& $logname

user anonymous guest

lcd /afs/cs.cmu.edu/project/clisp-1/archive-ftp/compiler/pending
cd /pub/cl-compiler/pending
mget *

lcd /afs/cs.cmu.edu/project/clisp-1/archive-ftp/compiler/passed
cd /pub/cl-compiler/passed
mget *

quit

END-OF-FTP-INPUT