chiark - git - mdw - distorted-keys/blob - keys.list-keepers

   1 #! /bin/sh
   2 ###
   3 ### List the available keeper sets
   4 ###
   5 ### (c) 2012 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
  32 List the available keeper sets, and the recovery secrets they protect.
  33 HELP
  34
  35 case $# in 0) ;; *) usage_err ;; esac
  36
  37 if [ -d $KEYS/recov ]; then
  38   cd $KEYS/recov
  39   kk=:
  40   for r in $(find . -type l -name current -print); do
  41     r=${r#./}; r=${r%/current}
  42     if ! expr >/dev/null "Q$r" : "Q$R_LABEL"; then continue; fi
  43     set _ $(echo $r | md5sum); rh=$2
  44     eval rcur_$rh=$(readlink $r/current) r_$rh=\$r
  45     for ri in $r/*; do
  46       i=${ri##*/}
  47       case "$i" in *[!0-9]*) continue ;; esac
  48       for kp in $ri/*.param; do
  49         k=${kp##*/}; k=${k%.param}
  50         case $kk in *:$k:*) ;; *) kk=$kk$k:; unset rr_$k ;; esac
  51         eval t_$k_$rh_$i='$(sharethresh $kp)'
  52         eval "rr_$k=\${rr_$k+\$rr_$k }$rh/$i"
  53       done
  54     done
  55   done
  56 fi
  57
  58 if [ ! -d $KEYS/keeper ]; then
  59   echo >&2 "$quis: no keepers"
  60 else
  61   cd $KEYS/keeper
  62   for k in *; do
  63     checkword "keeper set label" "$k"
  64     if [ ! -r $k/meta ]; then continue; fi
  65     read n hunoz <$k/meta
  66     readmeta $k/0
  67     echo "$k profile=$profile n=$n"
  68     echo "  share"
  69     i=0; while [ $i -lt $n ]; do
  70       nubid=$(cat $k/$i/nubid)
  71       echo "    $i nubid=$nubid"
  72       i=$(( $i + 1 ))
  73     done
  74     echo "  recov"
  75     eval rr=\$rr_$k
  76     for ri in $rr; do
  77       rh=${ri%/*} i=${ri##*/}
  78       eval r=\$r_$rh
  79       eval t=\$t_$k_$rh_$i
  80       info="$r/$i t=$t"
  81       set $(echo $r/$i | tr / .) revealed
  82       eval rcur=\$rcur_$rh
  83       case $rcur in $i) set "$@" $(echo $r/current | tr / .) current ;; esac
  84       while [ $# -gt 0 ]; do
  85         rd=$SAFE/keys.reveal/$1 attr=$2; shift 2
  86         if [ ! -d $rd ]; then
  87           case $attr in revealed) ;; *) info="$info $attr" ;; esac
  88         elif [ -f $rd/nub ]; then
  89           info="$info $attr=nub"
  90         else
  91           unset ss
  92           i=0; while [ $i -lt $n ]; do
  93             if [ -f $rd/$k.$i.share ]; then ss=${ss+$ss,}$i; fi
  94             i=$(( $i + 1 ))
  95           done
  96           info="$info $attr=$ss"
  97         fi
  98       done
  99       echo "    $info"
 100     done
 101   done
 102 fi
 103
 104 ###----- That's all, folks --------------------------------------------------