summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDaniel Kahn Gillmor <dkg@fifthhorseman.net>2009-02-01 01:58:02 -0500
committerDaniel Kahn Gillmor <dkg@fifthhorseman.net>2009-02-01 01:58:02 -0500
commitebb12157ce060b27c2740e9bef241ce4a74aff70 (patch)
tree60cdebddbb5f6fa282041861d554ef22439d5336 /src
parentd27b1e18de6b23968ec59d7b39a798869f415065 (diff)
add m-a setup implementation
Diffstat (limited to 'src')
-rw-r--r--src/share/ma/setup88
1 files changed, 88 insertions, 0 deletions
diff --git a/src/share/ma/setup b/src/share/ma/setup
new file mode 100644
index 0000000..a829a98
--- /dev/null
+++ b/src/share/ma/setup
@@ -0,0 +1,88 @@
+# -*-shell-script-*-
+# This should be sourced by bash (though we welcome changes to make it POSIX sh compliant)
+
+# Monkeysphere authentication setup subcommand
+#
+# The monkeysphere scripts are written by:
+# Jameson Rollins <jrollins@finestructure.net>
+# Jamie McClelland <jm@mayfirst.org>
+# Daniel Kahn Gillmor <dkg@fifthhorseman.net>
+#
+# They are Copyright 2009, and are all released under the GPL,
+# version 3 or later.
+
+setup() {
+ # make the core and the sphere:
+ mkdir -p ${SYSDATADIR}/authentication
+ mkdir -p ${GNUPGHOME_SPHERE}
+ mkdir -p ${GNUPGHOME_CORE}
+
+ # deliberately replace the config files via truncation
+ # FIXME: should we be dumping to tmp files and then moving atomically?
+ cat >${GNUPGHOME_CORE}/gpg.conf <<EOF
+# Monkeysphere trust core GnuPG configuration
+# This file is maintained by the Monkeysphere software.
+# Edits will be overwritten.
+no-greeting
+list-options show-uid-validity
+EOF
+
+ cat >${GNUPGHOME_SPHERE}/gpg.conf <<EOF
+# Monkeysphere trust sphere GnuPG configuration
+# This file is maintained by the Monkeysphere software.
+# Edits will be overwritten.
+no-greeting
+primary-keyring ${GNUPGHOME_SPHERE}/pubring.gpg
+keyring ${GNUPGHOME_CORE}/pubring.gpg
+
+list-options show-uid-validity
+EOF
+
+ local CORE_FPR=$(gpg_core --with-colons --fixed-list-mode --fingerprint --list-secret-key | grep ^fpr: | cut -f10 -d: )
+
+ if [ -z "$CORE_FPR" ] ; then
+ log info "Setting up Monkeysphere authentication trust core"
+
+ local CORE_UID=$(printf "Monkeysphere authentication trust core UID (random string: %s)" $(head -c21 | base64))
+
+ if gpg_core --gen-key --batch <<EOF
+Key-Type: RSA
+Key-Length: 4096
+Key-Usage: certify
+Name-Real: $CORE_UID
+
+%commit
+%echo done
+EOF
+ then
+ CORE_FPR=$(gpg_core --with-colons --fixed-list-mode --fingerprint --list-secret-key | grep ^fpr: | cut -f10 -d: )
+ if [ -z "$CORE_FPR" ] ; then
+ failure "Failed to find fingerprint of Monkeysphere authentication trust core!"
+ fi
+ else
+ failure "Failed to create Monkeysphere authentication trust core!"
+ fi
+
+ else
+ log verbose "This system has already set up the Monkeysphere authentication trust core"
+ fi
+
+
+ # ensure that the authentication sphere checker has absolute ownertrust on the expected key.
+ printf "%s:6:\n" "$CORE_FPR" | gpg_sphere --import-ownertrust
+ local ORIG_TRUST
+ if ORIG_TRUST=$(gpg_sphere --export-ownertrust | grep '^[^#]') ; then
+ if [ "$CORE_FPR:6:" != "$ORIG_TRUST" ] ; then
+ failure "Monkeysphere authentication trust sphere should explicitly trust the core. It does not have proper ownertrust settings."
+ fi
+ else
+ failure "Could not get monkeysphere-authentication trust guidleines."
+ fi
+
+ # ensure that we're using the extended trust model (1), and that
+ # our preferences are reasonable (i.e. 3 marginal OR 1 fully
+ # trusted certifications are sufficient to grant full validity.
+ if [ "1:3:1" != $(gpg_sphere --with-colons --fixed-list-mode --list-keys | head -n1 | grep ^tru: cut -f3,6,7 -d:) ] ; then
+ failure "monkeysphere-preference does not have the expected trust model settings"
+ fi
+}