chiark - git - mdw - distorted-keys/blob - keys.new-keeper

   1 #! /bin/sh
   2 ###
   3 ### Construct a new set of keeper keys
   4 ###
   5 ### (c) 2011 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 [-f] [-p PROFILE] KEEPER N [OPTION=VALUE ...]
  32 Create a new set of keeper keys.
  33
  34 The key nubs are stored in a safe but temporary place where they can be
  35 extracted using \`keys keeper-nub'.
  36 HELP
  37
  38 ## Parse the command line.
  39 force=nil
  40 profile=${keeper_profile-keeper}
  41 while getopts "fp:" opt; do
  42   case "$opt" in
  43     f) force=t ;;
  44     p) profile=$OPTARG ;;
  45     *) usage_err ;;
  46   esac
  47 done
  48 shift $(( $OPTIND - 1 ))
  49 case $# in 0 | 1) usage_err ;; esac
  50 keeper=$1 n=$2; shift 2
  51 checkword "keeper set label" "$keeper"
  52 checknumber "set size" "$n"
  53 checkword "profile label" "$profile"
  54
  55 ## Preflight checking.
  56 reqsafe
  57 case $force in
  58   nil)
  59     if [ -e $KEYS/keeper/$keeper ]; then
  60       echo >&2 "$quis: keeper set \`$keeper' already exists"
  61       exit 1
  62     fi
  63     if [ -e $SAFE/keys.keeper/$keeper ]; then
  64       echo >&2 "$quis: destination \`$keeper' already exists"
  65       exit 1
  66     fi
  67     ;;
  68   t)
  69     rm -rf $KEYS/keeper/$keeper
  70     rm -rf $SAFE/keys.keeper/$keeper/
  71     ;;
  72 esac
  73
  74 ## Generate the private keys, one per file, and compute the public keys.
  75 mktmp
  76 mkdir -m700 $SAFE/keys.keeper/
  77 cd $SAFE/keys.keeper/
  78 rm -rf $keeper.new
  79 mkdir -m700 $keeper.new
  80 mkdir -p -m755 $KEYS/keeper/$keeper.new
  81 echo $n >$KEYS/keeper/$keeper.new/meta
  82 i=0
  83 while [ $i -lt $n ]; do
  84   c_gensyskey $profile \
  85     $KEYS/keeper/$keeper.new/$i \
  86     $keeper.new/$i \
  87     keeper="$keeper" seq="$i" tot="$n" "$@"
  88   i=$(( $i + 1 ))
  89 done
  90 mv $keeper.new $keeper
  91 mv $KEYS/keeper/$keeper.new $KEYS/keeper/$keeper
  92
  93 ###----- That's all, folks --------------------------------------------------