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

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

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

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

lcd /afs/cs.cmu.edu/project/clisp-1/archive-ftp/archive
cd [com,lsp]
case
mget *

quit

END-OF-FTP-INPUT