plan9fox/sys/lib/backup/backup
2011-03-30 19:35:09 +03:00

96 lines
1.8 KiB
Bash

#!/bin/rc
# backup [-n] [-d dev] [-s set] - backup venti arenas to disc set using dev
# and record that. also print recent fossil dump scores.
rfork ne
cd /sys/lib/backup
. funcs
bind -a . /bin
done=0
while (~ $done 0 && ! ~ $#* 0 && ~ $1 -*) {
switch ($1) {
case -d; rdev=$2; shift
case -n; debug=yes # don't dump; use with -s test
case -s; set=$2 ; shift
case --; done = 1 # no break in rc, alas
case -*
echo usage: $0 '[-n] [-d dev] [-s set]' >[1=2]
exit usage
}
shift
}
fn sigint sighup sigterm {
exit note
}
fn dobackuparenas {
if (~ $debug yes) {
echo pretending to backuparenas $*
shift
for (name)
dumpdone arena0 $name
}
if not
backuparenas $*
}
fn backupdisc {
echo please insert disc $disc of set $set into $rdev and press return to backup
echo -n $"*^': '
if (! ~ $debug yes)
junk=`{read}
if not
echo
dobackuparenas $rdev $*
}
fn backup1 {
progress=no
disc1trks=`{hoc -e $ntracks-$tracks}
disc1arenas=()
if (! ~ $disc1trks 0)
disc1arenas=`{sed $disc1trks^q arenas}
if (! ~ $#disc1arenas 0 && ! ~ $disc1trks 0 && backupdisc $disc1arenas){
tracks = `{hoc -e $tracks+$#disc1arenas}
if (test $tracks -ge $ntracks) {
disc=`{hoc -e $disc+1}
tracks=0
}
updprog
sed 1,$disc1trks^d arenas >morearenas
mv morearenas arenas
arenas=`{cat arenas}
}
}
cd $set
tobackup $set >arenas
quitonfailure $status
arenas=`{cat arenas}
if (~ $#arenas 0) {
echo no sealed arenas not yet on disc exist on $fs
exit ''
}
if (test -s disc)
. disc
if not
updprog
if (! ~ $debug yes && ~ $set set1) {
9fs log
# don't hang in lp
tail -50 /n/$fs/sys/log/fs.archive |
pr -h 'recent fossil dump scores' | lp &
echo fossil dump scores just printed.
}
progress=yes
while (test $#arenas -gt 0 && ~ $progress yes) {
backup1
quitonfailure $status
}
exit ''