Subversion Repositories planix.SVN

#!/bin/rc
# tobackup [set] - print names of venti arenas needing to be dumped to disc set
rfork e

cd /sys/lib/backup
. funcs

switch ($#*) {
case 0
case 1
        set=$1
case *
        echo usage: $0 '[set]' >[1=2]
        exit usage
}

if (! test -d $set) {
        echo $0: no backup set named $set in $backup >[1=2]
        exit 'no backup set'
}
if (! hget -o index http://$fs/index) {
        echo $0: 'can''t fetch venti index from' $fs >[1=2]
        exit 'no venti index'
}
if (! test -s index) {
        echo $0: 'empty venti index from' $fs >[1=2]
        exit 'empty index'
}

cd $set
awk '/^arena=/          { name=$1 }
        / disk=sealed/  { print name; name = "" }
    ' ../index | sed 's/^arena=//' >nsealed
>>sealed
if (! cmp -s sealed nsealed)
        cp nsealed sealed
rm -f nsealed
if (! test -s sealed)
        exit ''

>>fake
if (test -s ondisc)
        comm -23 <{sort -u sealed fake} <{sort -u ondisc}
if not {                                # first sealed arenas, dump all
        cat sealed
        chmod +a ondisc >>ondisc
}