ref: 75f5fdbb0df902d8d7e16a4489a04d92493eacae
dir: /sys/lib/backup/backuparenas/
#!/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 ''