chiark / gitweb /
more progress. recovery seems to be working now.
[distorted-keys] / keeper-cards
CommitLineData
53263601
MW
1#! /bin/sh
2###
3### Issue cards containing a bunch of keeper secrets
4###
5### (c) 2011 Mark Wooding
6###
7
8###----- Licensing notice ---------------------------------------------------
9###
599c8f75
MW
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
53263601
MW
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###
599c8f75 17### distorted-keys is distributed in the hope that it will be useful,
53263601
MW
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
599c8f75 23### along with distorted-keys; if not, write to the Free Software Foundation,
53263601
MW
24### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25
26set -e
27case "${KEYSLIB+t}" in t) ;; *) echo >&2 "$0: KEYSLIB unset"; exit 1 ;; esac
28. "$KEYSLIB"/keyfunc.sh
29
30defhelp <<HELP
31KEEPER [INDICES ...]
32Typeset cards for a set of keeper secrets.
33
34This program writes a file KEEPER.ps which will contain private keys from the
35keeper set KEEPER, specifically the keys with the given INDICES. Elements of
36the list are either simple integers or ranges [LOW]-[HIGH]; if LOW is
37omitted, it means 0, and if HIGH is omitted, it means the highest possible
38index. If no INDICES are given then all secret keys are written.
39
40The public keys are found in $KEYS/keeper/KEEPER/I.pub;
41private keys are read from KEEPER/I in the current directory.
42HELP
43dohelp
44
45## Parse the command line.
46case $# in 0) echo >&2 "$usage"; exit 1 ;; esac
47keeper=$1; shift
48checkword "keeper set label" "$keeper"
49read n hunoz <$KEYS/keeper/$keeper/meta
50
51## Build a colon-separated list of the indices we actually want.
52want=:
53case $# in 0) set 0- ;; esac
54for range in "$@"; do
55 case "$range" in
56 *[!-0-9]* | *[!0-9]*-* | *-*[!0-9]*)
57 echo >&2 "$quis: bad index range \`$range'"
58 exit 1
59 ;;
60 *-*)
61 low=${range%-*} high=${range#*-}
62 ;;
63 *)
64 low=$range high=$range
65 ;;
66 esac
67 case "$low" in ?*) ;; *) low=0 ;; esac
68 case "$high" in ?*) ;; *) high=$((n - 1)) ;; esac
69 if [ 0 -gt $low -o $low -gt $high -o $high -ge $n ]; then
70 echo >&2 "$quis: invalid index range \`$range'"
71 exit 1
72 fi
73 i=$((low + 0))
74 while [ $i -le $high ]; do
75 case $want in *:"$i":*) ;; *) want=$want$i: ;; esac
76 i=$((i + 1))
77 done
78done
79
80## Start working on the output file. This will contain deep secrets, so
81## don't leave stuff easily readable.
82tmp=$(mktmp); cleanup rmtmp
83umask 077
84exec 3>$tmp/$keeper.tex
85cat >&3 <<'EOF'
86\documentclass[a4paper, landscape, 12pt]{article}
87\usepackage[utf8]{inputenc}
88\usepackage[T1]{fontenc}
89\usepackage[palatino, helvetica, courier, maths = cmr]{mdwfonts}
90\usepackage{graphicx}
91
92%% Report errors with enough context that we can debug them.
93\errorcontextlines=999
94
95%% Basic layout for the cards. We use the paragraph filling machinery, but
96%% don't actually need most of the trimmings.
97\parindent=0pt
98\parfillskip=0pt
99\pagestyle{empty}
100
101%% Page layout: try to use most of the page. The document class will already
102%% have set up the paper size, but we do the rest here.
103\hoffset=-1in \voffset=-1in
104\oddsidemargin=20mm
105\textwidth=\paperwidth \advance\textwidth by -2\oddsidemargin
106\topmargin=20mm
107\headheight=0pt \headsep=0pt
108\textheight=\paperheight \advance\textheight by -2\topmargin
109\AtBeginDocument{\special{papersize=\the\paperwidth,\the\paperheight}}
110
111%% Parameters for the cards and guide rules.
112\newdimen\cardwd \cardwd=82mm
113\newdimen\cardht \cardht=49mm
114\newdimen\guidelen \guidelen=10mm
115\newdimen\rulewd \rulewd=0.6pt
116
117%% Typesetting the secret as text. The macro \snarf TOKEN T0 T1 ... T7
118%% gathers T0 T1 ... T7 into a single argument and passes them to TOKEN, as
119%% long as T0 is not \relax. We use this to process the secret text in a
120%% continuation-passing style.
121\def\snarf#1#2{%
122 \ifx#2\relax\let\next\empty%
123 \else\def\next{\snarfdo#1#2}%
124 \fi%
125 \next%
126}
127\def\snarfdo#1#2#3#4#5#6#7#8#9{#1{#2#3#4#5#6#7#8#9}}
128
129%% Print the left and right halves of the line, with a separator. Use boxes
130%% for the lines so that TeX will work out the width of the enclosing vbox
131%% for us. The basic usage is \line TEXT \relax ... \relax, with eight
132%% \relax tokens: this is enough to complete both \snarf calls.
133\def\line{\snarf\lineleft}
134\def\lineleft#1{\hbox\bgroup#1 \snarf\lineright}
135\def\lineright#1{#1\egroup\line}
136
137%% Typeset a card containing a secret. Usage is \card{INDEX}{SECRET}.
138\def\card#1#2{%
139 %%
140 %% Make sure we're setting a paragraph.
141 \leavevmode%
142 %%
143 %% Initial material: a stretchy space on the left.
144 \hbox{}\nobreak\hfil%
145 %%
146 %% An alignment for the guide markers surrounding the actual card.
147 \vbox{\halign{&##\cr%
148 %%
149 %% Top left guides.
150 \vrule width \guidelen height \rulewd depth 0pt%
151 \vrule width \rulewd depth 0pt height \guidelen%
152 &%
153 %%
154 %% Top centre gap.
155 \hfil%
156 &%
157 %%
158 %% Top right guides.
159 \vrule width \rulewd depth 0pt height \guidelen%
160 \vrule width \guidelen height \rulewd depth 0pt%
161 \cr%
162 %%
163 %% Left gap.
164 &%
165 %%
166 %% The actual card.
167 \vbox to \cardht{%
168 %%
169 %% We actually do more or less sensible typesetting. TeX will set the
170 %% box width from the hsize, and we should leave a small margin all
171 %% around.
172 \parfillskip=0pt plus 1fil%
173 \leftskip=1em \rightskip=1em%
174 \hsize=\cardwd%
175 %%
176 %% The heading.
177 \hrule height 0pt \prevdepth = 0pt%
178 \medskip%
179 {\large\bfseries\textsf{\keeper} secret #1/\total}%
180 %%
181 %% The QR-code and the text of the secret.
182 \vfil%
183 $%
184 \vcenter{\hbox{\includegraphics[scale = 2.4]{#1.eps}}}%
185 \hfil%
186 \vcenter{\ttfamily%
187 \line#2%
188 \relax\relax\relax\relax\relax\relax\relax\relax%
189 }%
190 $%
191 %%
192 %% And we're done.
193 \vfil%
194 }%
195 &%
196 %%
197 %% Right gap.
198 \cr%
199 %%
200 %% Bottom left guides.
201 \vrule width \guidelen depth \rulewd height 0pt%
202 \vrule width \rulewd depth \guidelen height 0pt%
203 &%
204 %% Bottom centre gap.
205 \hfil%
206 &%
207 %% Bottom right guides.
208 \vrule width \rulewd depth \guidelen height 0pt%
209 \vrule width \guidelen depth \rulewd height 0pt%
210 \cr%
211 %%
212 %% Leave a small vertical space at the bottom to separate lines of cards.
213 \strut \cr%
214 }}%
215 %%
216 %% End material: a stretchy space to match the one at the start, and then
217 %% allow a break.
218 \nobreak\hfil\hbox{}%
219 \penalty0%
220}
221EOF
222
223## Write the basic configuration stuff.
224cat >&3 <<EOF
225
226%% General configuration for the cards.
227\def\keeper{$keeper}
228\def\total{$n}
229EOF
230
231## Start the document body.
232cat >&3 <<'EOF'
233
234%% The actual content.
235\begin{document}
236EOF
237
238## Work through the requested indices.
239i=0
240while [ $i -lt $n ]; do
241 case $want in
242 *:"$i":*)
243 read secret <$keeper/$i
244 tr -d '\n' <$keeper/$i | qrencode -m0 -s1 -o$tmp/$i.png
245 convert $tmp/$i.png $tmp/$i.eps
246 cat >&3 <<EOF
247\card{$i}{$secret}
248EOF
249 esac
250 i=$((i + 1))
251done
252
253## Wrap up and build the document.
254cat >&3 <<'EOF'
255\end{document}
256EOF
257exec 3>&-
258if ! (cd $tmp
259 exec </dev/null >tex.out 2>&1
260 latex $keeper.tex && dvips -o$keeper.ps $keeper.dvi); then
261 echo >&2 "$quis: document formatting failed"
262 sed >&2 's/^/| /' $tmp/tex.out
263 exit 1
264fi
265cp $tmp/$keeper.ps .
266
267###----- That's all, folks --------------------------------------------------