cd $KEYS/recov
## Work through the available recovery keys.
- for r in $(find . -type l -name current -print); do
- r=${r#./}; r=${r%/current}
- if ! expr >/dev/null "Q$r" : "Q$R_LABEL"; then continue; fi
+ for r in *; do
+ if ! expr >/dev/null "Q$r" : "Q$R_WORD"; then continue; fi
+ if [ ! -l $r/current ]; then continue; fi
## Add the key to our list.
recov="$recov$r "
## Now work through the instances.
ii=""
for ri in $r/*; do
- i=${ri##*/}
+ i=${ri#*/}
case "$i" in *[!0-9]*) continue ;; esac
## Add the instance to our list.
## this keeper set, or it also depends on at least one other set. If
## not, add it to the `deps' list.
this=nil others=nil
- for kp in $r/current/*.param; do
+ for kp in $ri/*.param; do
k=${kp##*/}; k=${k%.param}
case $k in $keeper) this=t ;; *) others=t ;; esac
done