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 "p:" opt; do
  42   case "$opt" in
  43     p) profile=$OPTARG ;;
  44     *) usage_err ;;
  45   esac
  46 done
  47 shift $(( $OPTIND - 1 ))
  48 case $# in 0 | 1) usage_err ;; esac
  49 keeper=$1 n=$2; shift 2
  50 checkword "keeper set label" "$keeper"
  51 checknumber "set size" "$n"
  52 checkword "profile label" "$profile"
  53
  54 ## Preflight checking.
  55 reqsafe
  56 if [ -e $KEYS/keeper/$keeper ]; then
  57   echo >&2 "$quis: keeper set \`$keeper' already exists"
  58   exit 1
  59 fi
  60 if [ -e $SAFE/keys.keeper/$keeper ]; then
  61   echo >&2 "$quis: destination \`$keeper' already exists"
  62   exit 1
  63 fi
  64
  65 ## Generate the private keys, one per file, and compute the public keys.
  66 mktmp
  67 mkdir -m700 -p $SAFE/keys.keeper/
  68 cd $SAFE/keys.keeper/
  69 rm -rf $keeper.new
  70 mkdir -m700 $keeper.new
  71 mkdir -p -m755 $KEYS/keeper/$keeper.new
  72 echo $n >$KEYS/keeper/$keeper.new/meta
  73 i=0
  74 while [ $i -lt $n ]; do
  75   c_gensyskey $profile \
  76     $KEYS/keeper/$keeper.new/$i \
  77     $keeper.new/$i \
  78     keeper="$keeper" seq="$i" tot="$n" "$@"
  79   i=$(( $i + 1 ))
  80 done
  81 mv $keeper.new $keeper
  82 mv $KEYS/keeper/$keeper.new $KEYS/keeper/$keeper
  83
  84 ###----- That's all, folks --------------------------------------------------