keys.delete-keeper: Recovery-key labels are plain words.

[distorted-keys] / keys.delete-keeper

diff --git a/keys.delete-keeper b/keys.delete-keeper
index edcb718..84a3ae9 100755 (executable)
--- a/keys.delete-keeper
+++ b/keys.delete-keeper
@@ -54,9 +54,9 @@ if [ -d $KEYS/recov ]; then
   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 "
@@ -64,7 +64,7 @@ if [ -d $KEYS/recov ]; then
     ## 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.