Subversion Repositories planix.SVN

#!/bin/rc
# backup [-np] [-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
print=yes
while (~ $done 0 && ! ~ $#* 0 && ~ $1 -*) {
        switch ($1) {
        case -d;        rdev=$2; shift
        case -n;        debug=yes               # don't dump; use with -s test
        case -p;        print=no
        case -s;        set=$2 ; shift
        case --;        done = 1                # no break in rc, alas
        case -*
                echo usage: $0 '[-np] [-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
                quitonfailure $status

                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_todo=`{cat arenas}
        }
}

cd $set
tobackup $set >arenas
quitonfailure $status

arenas_todo=`{cat arenas}
if (~ $#arenas_todo 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 && ~ $print yes) {
        9fs log
        # don't hang in lp
        tail -50 /sys/log/fs.archive | pr -h 'recent fossil dump scores' | lp &
        echo fossil dump scores just printed.
}

progress=yes
while (test $#arenas_todo -gt 0 && ~ $progress yes) {
        backup1
        quitonfailure $status
}
exit ''