#/bin/ksh

# esto se deberia ejecutar tal que asi:
#	
#	69 gtar xwf /dev/rmt/0m \; extract.io.sh
#
# OJO: por el sistema de IO de tar, esto solo funciona con gtar
#


LOG=extract.log
DOFTP=false

date > $LOG

while :
do

# Esperar a que tar este listo para extraer un archivo

	answer=`cread -c \?`

	while ( $DOFTP )
	do
		if (  wdog 240 doftp lorelei $file )
		then
			rm $file
			DOFTP=false
		else
			sleep 5
			echo Retry ftp $file >> $LOG
		fi

	done

	DOFTP=false

	file=`echo $answer | awk '{print $2}' | awk -F\? '{print $1}'`

	if match "foto.????.pict" $file
	then
		echo y
		echo $file extracted >> $LOG
		DOFTP=true
	else
		echo n
		echo $file skiped >> $LOG
	fi

done