#!/bin/rc
# backuparenas dev name ... - dump arena `name' from $fs to blu-ray disc.
#	assumes $set is set.
rfork ne
# tunable variables
fs=pie

if (test -e /sys/lib/backup/funcs)
	.   /sys/lib/backup/funcs

exits=''
fsroot=/n/$fs
if (! test -e $fsroot/!THIS_IS_^`{echo $fs | tr a-z A-Z}^_MAIN) {
	import $fs / $fsroot || exit
}
unmount /mnt/cd >[2]/dev/null
cdfs -d $1 || exit
shift

cd $fsroot/dev/fs
for (name) {
	grep next /mnt/cd/ctl
	if (! {venti/rdarena arena0 $name |
	    pump -i 65536 -o 1048576 -k 51200 -d 10 >/mnt/cd/wd/$name})
		exit
#	ls -l /mnt/cd
	if (test -e '/env/fn#dumpdone' -a -e '/env/set')
		dumpdone arena0 $name
}
echo 'remember to *not* remove /mnt/cd/wd' >[1=2]
# don't remove /mnt/cd/wd, since that would finalize the disc
# and bugger the permanent toc, at least on bd-r.
exit ''