shithub: riscv

ref: 2d1fbbdafa37080ddaacb76ac1e4f5a413ef2dc3
dir: /sys/src/cmd/venti/words/wrtape/

#!/bin/rc

tape=$1

start=`{echo $tape'*32+1' | hoc}
end=`{echo  $start'+31' | hoc}

echo rewind | scuzz /dev/sd03

arenas=`{hget http://iolaire/index | grep '^arena' | sed  -n $start,$end^p | sed 's/^.*=//' | sed 's/ .*//'}
for(i in $arenas) {
	dev=`{hget http://iolaire/index | grep ''''$i'''' | sed 's/.* on //' | sed 's/ .*//'}
	echo `{date} $tape $i
	echo `{date} $tape $i >> /sys/log/ventibackup
	echo $dev
	echo write '''|venti/rdarena $dev $i''' | scuzz -m 8192 /dev/sd03
	echo filemark | scuzz -m 6144 /dev/sd03
}

echo rewind | scuzz /dev/sd03