enable use of hkps (closes: MS #1749)
[monkeysphere.git] / src / share / ma / setup
1 # -*-shell-script-*-
2 # This should be sourced by bash (though we welcome changes to make it POSIX sh compliant)
3
4 # Monkeysphere authentication setup subcommand
5 #
6 # The monkeysphere scripts are written by:
7 # Jameson Rollins <jrollins@finestructure.net>
8 # Jamie McClelland <jm@mayfirst.org>
9 # Daniel Kahn Gillmor <dkg@fifthhorseman.net>
10 #
11 # They are Copyright 2009, and are all released under the GPL,
12 # version 3 or later.
13
14 setup() {
15     # make all needed directories
16     log debug "checking authentication directory structure..."
17     mkdir -p "${MADATADIR}"
18     chmod 0750 "${MADATADIR}"
19     chgrp "$MONKEYSPHERE_GROUP" "${MADATADIR}"
20     mkdir -p "${MATMPDIR}"
21     chmod 0750 "${MATMPDIR}"
22     chgrp "$MONKEYSPHERE_GROUP" "${MATMPDIR}"
23     mkdir -p "${GNUPGHOME_CORE}"
24     chmod 0700 "${GNUPGHOME_CORE}"
25     mkdir -p "${GNUPGHOME_SPHERE}"
26     chmod 0700 "${GNUPGHOME_SPHERE}"
27     mkdir -p "${SYSDATADIR}"/authorized_keys
28
29     # deliberately replace the config files via truncation
30     # FIXME: should we be dumping to tmp files and then moving atomically?
31     log debug "writing core gpg.conf..."
32     cat >"${GNUPGHOME_CORE}"/gpg.conf <<EOF
33 # Monkeysphere trust core GnuPG configuration
34 # This file is maintained by the Monkeysphere software.
35 # Edits will be overwritten.
36 no-greeting
37 EOF
38
39     log debug "writing sphere gpg.conf..."
40     cat >"${GNUPGHOME_SPHERE}"/gpg.conf <<EOF
41 # Monkeysphere trust sphere GnuPG configuration
42 # This file is maintained by the Monkeysphere software.
43 # Edits will be overwritten.
44 no-greeting
45 list-options show-uid-validity
46 keyserver-options ca-cert-file=${SYSCONFIGDIR}/monkeysphere-authentication-x509-anchors.crt
47 EOF
48
49     # make sure the monkeysphere user owns everything in the sphere
50     # gnupghome
51     log debug "fixing sphere gnupg home ownership..."
52     chown "$MONKEYSPHERE_USER:$MONKEYSPHERE_GROUP" "${GNUPGHOME_SPHERE}" "${GNUPGHOME_SPHERE}"/gpg.conf
53
54     # get fingerprint of core key.  this should be empty on unconfigured systems.
55     local CORE_FPR=$(core_fingerprint)
56     log debug "core fingerprint: $CORE_FPR"
57
58     if [ -z "$CORE_FPR" ] ; then
59         log info "setting up Monkeysphere authentication trust core..."
60
61         local CORE_UID=$(printf "Monkeysphere authentication trust core UID (random string: %s)" $(dd if=/dev/urandom bs=21 count=1 2>/dev/null | perl -MMIME::Base64 -ne 'print encode_base64($_)'))
62     
63         printf "generating monkeysphere authentication trust core key:\nsize: %d bits\nuid: '%s'\n" "$CORE_KEYLENGTH" "$CORE_UID" | log debug
64         PEM2OPENPGP_USAGE_FLAGS=certify \
65             PEM2OPENPGP_NEWKEY=$CORE_KEYLENGTH pem2openpgp "$CORE_UID" \
66             | gpg_core --import \
67             || failure "Could not import new key for Monkeysphere authentication trust core"
68
69         # get fingerprint of core key.  should definitely not be empty at this point
70         CORE_FPR=$(core_fingerprint)
71         log debug "core fingerprint: $CORE_FPR"
72         if [ -z "$CORE_FPR" ] ; then
73             failure "Failed to create Monkeysphere authentication trust core!"
74         fi
75         
76     else 
77         log verbose "Monkeysphere authentication trust core already exists."
78     fi
79
80     # export the core key to the sphere keyring
81     log debug "exporting core pub key to sphere keyring..."
82     gpg_core --export | gpg_sphere "--import"
83
84     # ensure that the authentication sphere checker has absolute ownertrust on the expected key.
85     log debug "setting ultimate owner trust on core key in gpg_sphere..."
86     printf "%s:6:\n" "$CORE_FPR" | gpg_sphere "--import-ownertrust" 2>&1 | log verbose
87     gpg_sphere "--export-ownertrust" 2>&1 | log debug
88
89     # check the owner trust
90     log debug "checking gpg_sphere owner trust set properly..."
91     local ORIG_TRUST
92     if ORIG_TRUST=$(gpg_sphere "--export-ownertrust" | grep '^[^#]') ; then
93         if [ "${CORE_FPR}:6:" != "$ORIG_TRUST" ] ; then
94             failure "Monkeysphere authentication trust sphere should explicitly trust the core.  It does not have proper ownertrust settings."
95         fi
96     else
97         failure "Could not get monkeysphere-authentication trust guidelines."
98         # FIXME: what does this mean?  should we suggest how to fix?
99     fi
100
101     # ensure that we're using the extended trust model (1), and that
102     # our preferences are reasonable (i.e. 3 marginal OR 1 fully
103     # trusted certifications are sufficient to grant full validity.
104     log debug "checking trust model for authentication ..."
105     local TRUST_MODEL=$(gpg_sphere "--with-colons --fixed-list-mode --list-keys" 2>/dev/null \
106         | head -n1 | grep "^tru:" | cut -d: -f3,6,7)
107     log debug "sphere trust model: $TRUST_MODEL"
108     if [ "$TRUST_MODEL" != '1:3:1' ] ; then
109         failure "monkeysphere-authentication does not have the expected trust model settings."
110         # FIXME: what does this mean?  should we suggest how to fix?
111     fi
112 }