sys/lib/backup/backuparenas

   1 #!/bin/rc
   2 # backuparenas dev name ... - dump arena `name' from $fs to blu-ray disc.
   3 #       assumes $set is set.
   4 rfork ne
   5 # tunable variables
   6 fs=pie
   7
   8 if (test -e /sys/lib/backup/funcs)
   9         .   /sys/lib/backup/funcs
  10
  11 exits=''
  12 fsroot=/n/$fs
  13 if (! test -e $fsroot/!THIS_IS_^`{echo $fs | tr a-z A-Z}^_MAIN) {
  14         import $fs / $fsroot || exit
  15 }
  16 unmount /mnt/cd >[2]/dev/null
  17 cdfs -d $1 || exit
  18 shift
  19
  20 cd $fsroot/dev/fs
  21 for (name) {
  22         grep next /mnt/cd/ctl
  23         if (! {venti/rdarena arena0 $name |
  24             pump -i 65536 -o 1048576 -k 51200 -d 10 >/mnt/cd/wd/$name})
  25                 exit
  26 #       ls -l /mnt/cd
  27         if (test -e '/env/fn#dumpdone' -a -e '/env/set')
  28                 dumpdone arena0 $name
  29 }
  30 echo 'remember to *not* remove /mnt/cd/wd' >[1=2]
  31 # don't remove /mnt/cd/wd, since that would finalize the disc
  32 # and bugger the permanent toc, at least on bd-r.
  33 exit ''