shithub: riscv

ref: 556618eb07d1ac6e2c629a60acd53c45d53261be
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