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

set logname = /afs/cs.cmu.edu/project/clisp-1/archive-ftp/logs/x3j13-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/x3j13/pending/*  >& /dev/null


echo "Archive update began on `date`" >> $logname
ftp -n -v -i parcftp.xerox.com << END-OF-FTP-INPUT >>& $logname

user anonymous guest

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

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

lcd /afs/cs.cmu.edu/project/clisp-1/archive-ftp/x3j13/rejected
cd /pub/cl/cleanup/rejected
mget *

lcd /afs/cs.cmu.edu/project/clisp-1/archive-ftp/x3j13/withdrawn
cd /pub/cl/cleanup/withdrawn
mget *

quit

END-OF-FTP-INPUT