3 ### Retire an old recovery key
5 ### (c) 2015 Mark Wooding
8 ###----- Licensing notice ---------------------------------------------------
10 ### This file is part of the distorted.org.uk key management suite.
12 ### distorted-keys is free software; you can redistribute it and/or modify
13 ### it under the terms of the GNU General Public License as published by
14 ### the Free Software Foundation; either version 2 of the License, or
15 ### (at your option) any later version.
17 ### distorted-keys is distributed in the hope that it will be useful,
18 ### but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ### GNU General Public License for more details.
22 ### You should have received a copy of the GNU General Public License
23 ### along with distorted-keys; if not, write to the Free Software Foundation,
24 ### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 case "${KEYSLIB+t}" in t
) ;; *) echo >&2 "$0: KEYSLIB unset"; exit 1 ;; esac
28 .
"$KEYSLIB"/keyfunc.sh
32 Retire a non-current instance I of the recovery key RECOV.
35 ## Parse the command line.
36 case $# in 2) ;; *) usage_err
;; esac
38 checkword
"recovery key label" "$recov"
39 checknumber
"recovery key instance" "$inst"
41 ## Check that the key exists and isn't current.
43 if [ ! -l
$recov/current
]; then
44 echo >&2 "$quis: unknown recovery key \`$recov'"
47 if [ ! -d
$recov/$inst ]; then
48 echo >&2 "$quis: recovery key \`$recov' has no instance $inst"
51 curr
=$
(readlink
$recov/current
)
54 echo >&2 "$quis: $inst is current instance of recovery key \`$recov'"
59 ## Delete all of the secrets.
62 ###----- That's all, folks --------------------------------------------------