@@@ keys.retire-recov
[distorted-keys] / keys.forget-keeper
1 #! /bin/sh
2 ###
3 ### Clear out stashed keeper nubs when they've all been saved
4 ###
5 ### (c) 2015 Mark Wooding
6 ###
7
8 ###----- Licensing notice ---------------------------------------------------
9 ###
10 ### This file is part of the distorted.org.uk key management suite.
11 ###
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.
16 ###
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.
21 ###
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.
25
26 set -e
27 case "${KEYSLIB+t}" in t) ;; *) echo >&2 "$0: KEYSLIB unset"; exit 1 ;; esac
28 . "$KEYSLIB"/keyfunc.sh
29
30 defhelp <<HELP
31 KEEPER
32 Forget keeper nubs once they've all been stashed safely.
33
34 Forget the key nubs for the keeper set KEEPER, deleting them from the
35 safe temporary place they were left by \`keys new-keeper.
36 HELP
37
38 ## Parse the command line.
39 case $# in 1) ;; *) usage_err ;; esac
40 keeper=$1
41 checkword "keeper label" "$keeper"
42
43 ## Check that the set is actually there.
44 reqsafe
45 if [ ! -d $SAFE/keys.keeper/$keeper ]; then
46 echo >&2 "$quis: no nubs available for keeper set \`$keeper'"
47 exit 1
48 fi
49
50 ## Delete them.
51 rm -rf $SAFE/keys.keeper/$keeper
52
53 ###----- That's all, folks --------------------------------------------------