X-Git-Url: https://git.distorted.org.uk/~mdw/distorted-keys/blobdiff_plain/bd23280ceb4022899a37622ab8052359e71c54e5..refs/heads/bakery:/keys.new-keeper

diff --git a/keys.new-keeper b/keys.new-keeper
index 69b18a0..e14bb70 100755
--- a/keys.new-keeper
+++ b/keys.new-keeper
@@ -32,15 +32,15 @@ defhelp <<HELP
 Create a new set of keeper keys.
 
 The key nubs are stored in a safe but temporary place where they can be
-extracted using \`keys keeper-nub'.
+extracted using \`keys keeper-nub', and, eventually, forgotten using
+\`keys forget-keeper'.
 HELP
 
 ## Parse the command line.
 force=nil
 profile=${keeper_profile-keeper}
-while getopts "fp:" opt; do
+while getopts "p:" opt; do
   case "$opt" in
-    f) force=t ;;
     p) profile=$OPTARG ;;
     *) usage_err ;;
   esac
@@ -54,22 +54,14 @@ checkword "profile label" "$profile"
 
 ## Preflight checking.
 reqsafe
-case $force in
-  nil)
-    if [ -e $KEYS/keeper/$keeper ]; then
-      echo >&2 "$quis: keeper set \`$keeper' already exists"
-      exit 1
-    fi
-    if [ -e $SAFE/keys.keeper/$keeper ]; then
-      echo >&2 "$quis: destination \`$keeper' already exists"
-      exit 1
-    fi
-    ;;
-  t)
-    rm -rf $KEYS/keeper/$keeper
-    rm -rf $SAFE/keys.keeper/$keeper/
-    ;;
-esac
+if [ -e $KEYS/keeper/$keeper ]; then
+  echo >&2 "$quis: keeper set \`$keeper' already exists"
+  exit 1
+fi
+if [ -e $SAFE/keys.keeper/$keeper ]; then
+  echo >&2 "$quis: destination \`$keeper' already exists"
+  exit 1
+fi
 
 ## Generate the private keys, one per file, and compute the public keys.
 mktmp