From 8a22863a92cb1df4ed265aed442166c9f1a5387d Mon Sep 17 00:00:00 2001 From: Jameson Graef Rollins Date: Sat, 31 Jan 2009 20:43:23 -0500 Subject: change hyphens to underscores in function file names, for consistency with function definitions themselves --- src/subcommands/ma/remove_certifier | 49 +++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 src/subcommands/ma/remove_certifier (limited to 'src/subcommands/ma/remove_certifier') diff --git a/src/subcommands/ma/remove_certifier b/src/subcommands/ma/remove_certifier new file mode 100644 index 0000000..560281d --- /dev/null +++ b/src/subcommands/ma/remove_certifier @@ -0,0 +1,49 @@ +# -*-shell-script-*- +# This should be sourced by bash (though we welcome changes to make it POSIX sh compliant) + +# Monkeysphere authentication remove-certifier subcommand +# +# The monkeysphere scripts are written by: +# Jameson Rollins +# Jamie McClelland +# Daniel Kahn Gillmor +# +# They are Copyright 2008-2009, and are all released under the GPL, +# version 3 or later. + +# delete a certifiers key from the host keyring + +remove_certifier() { + +local keyID +local fingerprint + +keyID="$1" +if [ -z "$keyID" ] ; then + failure "You must specify the key ID of a key to remove." +fi + +if gpg_sphere "--no-options --list-options show-uid-validity --keyring ${GNUPGHOME_AUTHENTICATION}/pubring.gpg --list-key 0x${keyID}!" ; then + read -p "Really remove above listed identity certifier? (y/N) " OK; OK=${OK:-N} + if [ "${OK/y/Y}" != 'Y' ] ; then + failure "Identity certifier not removed." + fi +else + failure +fi + +# delete the requested key +if gpg_sphere "--delete-key --batch --yes 0x${keyID}!" ; then + # delete key from host keyring as well + gpg_core --delete-key --batch --yes "0x${keyID}!" + + # update the trustdb for the authentication keyring + gpg_sphere "--check-trustdb" + + echo + echo "Identity certifier removed." +else + failure "Problem removing identity certifier." +fi + +} -- cgit v1.2.3