97 lines
1.8 KiB
Bash
97 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 ''
|