label		programstart
env		TAPE_DB_FILE=$HOME/dev/bud/lib/tapes.ffd
env		TAPE_DEVICE=/dev/st1

label		b1start
wait	-until	thursday

label		b1choosetape
env		REQ_TAPE_ID=`ffd -s -c 1 $TAPE_DB_FILE ':emtpy:' | head -1`
goto	-noteq	b1verifytape $REQ_TAPE_ID ""
print	-mail	"there are no unused tapes listed in the tape database, rectify"
wait	-sleep	1h
goto		b1choosetape

label		b1askfortape
env		ACT_TAPE_ID=`tl -r $TAPE_DEVICE`
goto	-eq	b1startbackup $ACT_TAPE_ID $REQ_TAPE_ID
print	-mail	"please insert tape $REQ_TAPE_ID"
wait	-sleep	1h
goto		b1choosetape

label		b1startbackup
env		RC=`dump ...; echo $?`
goto	-eq	b1updatetapedb $RC 0
print	-mail	"backup failed, investigate, pausing"
wait	-pause
goto 		b1choosetape

label		b1updatetapedb
env		RC=`ffd -u $TAPE_DB_FILE $REQ_TAPE_ID "in use"; echo $?`
goto	-eq	b1end $RC 0
print 	-mail 	"update of tape database failed, investigate, pausing"
wait	-pause
goto		b1updatetapedb

label		b1end
goto		b1start

label		programend