mdw@git.distorted.org.uk Git - 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', and, eventually, forgotten using
  36 \`keys forget-keeper'.
  37 HELP
  38
  39 ## Parse the command line.
  40 force=nil
  41 profile=${keeper_profile-keeper}
  42 while getopts "p:" opt; do
  43   case "$opt" in
  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 if [ -e $KEYS/keeper/$keeper ]; then
  58   echo >&2 "$quis: keeper set \`$keeper' already exists"
  59   exit 1
  60 fi
  61 if [ -e $SAFE/keys.keeper/$keeper ]; then
  62   echo >&2 "$quis: destination \`$keeper' already exists"
  63   exit 1
  64 fi
  65
  66 ## Generate the private keys, one per file, and compute the public keys.
  67 mktmp
  68 mkdir -m700 -p $SAFE/keys.keeper/
  69 cd $SAFE/keys.keeper/
  70 rm -rf $keeper.new
  71 mkdir -m700 $keeper.new
  72 mkdir -p -m755 $KEYS/keeper/$keeper.new
  73 echo $n >$KEYS/keeper/$keeper.new/meta
  74 i=0
  75 while [ $i -lt $n ]; do
  76   c_gensyskey $profile \
  77     $KEYS/keeper/$keeper.new/$i \
  78     $keeper.new/$i \
  79     keeper="$keeper" seq="$i" tot="$n" "$@"
  80   i=$(( $i + 1 ))
  81 done
  82 mv $keeper.new $keeper
  83 mv $KEYS/keeper/$keeper.new $KEYS/keeper/$keeper
  84
  85 ###----- That's all, folks --------------------------------------------------