Merge commit 'dkg/master'
[monkeysphere.git] / src / subcommands / mh / revoke-hostname
1 #!/usr/bin/env bash
2
3 # Monkeysphere host revoke-hostname subcommand
4 #
5 # The monkeysphere scripts are written by:
6 # Jameson Rollins <jrollins@fifthhorseman.net>
7 # Jamie McClelland <jm@mayfirst.org>
8 # Daniel Kahn Gillmor <dkg@fifthhorseman.net>
9 #
10 # They are Copyright 2008, and are all released under the GPL, version 3
11 # or later.
12
13 # revoke hostname user ID from host key
14
15 revoke_hostname() {
16
17 local userID
18 local fingerprint
19 local tmpuidMatch
20 local line
21 local uidIndex
22 local message
23 local revuidCommand
24
25 if [ -z "$1" ] ; then
26     failure "You must specify a hostname to revoke."
27 fi
28
29 echo "WARNING: There is a known bug in this function."
30 echo "This function has been known to occasionally revoke the wrong user ID."
31 echo "Please see the following bug report for more information:"
32 echo "http://web.monkeysphere.info/bugs/revoke-hostname-revoking-wrong-userid/"
33 read -p "Are you sure you would like to proceed? (y/N) " OK; OK=${OK:=N}
34 if [ ${OK/y/Y} != 'Y' ] ; then
35     failure "aborting."
36 fi
37
38 userID="ssh://${1}"
39
40 fingerprint=$(fingerprint_server_key)
41
42 # match to only ultimately trusted user IDs
43 tmpuidMatch="u:$(echo $userID | gpg_escape)"
44
45 # find the index of the requsted user ID
46 # NOTE: this is based on circumstantial evidence that the order of
47 # this output is the appropriate index
48 if line=$(gpg_host --list-keys --with-colons --fixed-list-mode "0x${fingerprint}!" \
49     | egrep '^(uid|uat):' | cut -f2,10 -d: | grep -n -x -F "$tmpuidMatch") ; then
50     uidIndex=${line%%:*}
51 else
52     failure "No non-revoked user ID '$userID' is found."
53 fi
54
55 echo "The following host key user ID will be revoked:"
56 echo "  $userID"
57 read -p "Are you sure you would like to revoke this user ID? (y/N) " OK; OK=${OK:=N}
58 if [ ${OK/y/Y} != 'Y' ] ; then
59     failure "User ID not revoked."
60 fi
61
62 message="Hostname removed by monkeysphere-server $DATE"
63
64 # edit-key script command to revoke user ID
65 revuidCommand=$(cat <<EOF
66 $uidIndex
67 revuid
68 y
69 4
70 $message
71
72 y
73 save
74 EOF
75     )   
76
77 # execute edit-key script
78 if echo "$revuidCommand" | \
79     gpg_host --quiet --command-fd 0 --edit-key "0x${fingerprint}!" ; then
80
81     # update the trustdb for the authentication keyring
82     gpg_authentication "--check-trustdb"
83
84     show_key
85
86     echo
87     echo "NOTE: User ID revoked, but revocation not published."
88     echo "Run '$PGRM publish-key' to publish the revocation."
89 else
90     failure "Problem revoking user ID."
91 fi
92
93 }