From fcdbba726ead3e13856c05881ea768bb74a078ff Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Tue, 14 Jul 2009 01:31:31 -0400
Subject: [PATCH] monkeysphere-host add-hostname now uses perl backend.

---
 src/share/mh/add_hostname | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/src/share/mh/add_hostname b/src/share/mh/add_hostname
index 9465d96..9df5eec 100644
--- a/src/share/mh/add_hostname
+++ b/src/share/mh/add_hostname
@@ -41,16 +41,10 @@ else
     log debug "adding user ID without prompting."
 fi
 
-# edit-key script command to add user ID
-adduidCommand="adduid
-$userID
-
-
-save"
-# end script
-
 # execute edit-key script
-if echo "$adduidCommand" | gpg_host_edit ; then
+if <"$GNUPGHOME_HOST/secring.gpg" "$SYSSHAREDIR/keytrans" adduserid \
+    "$HOST_FINGERPRINT" "$userID" | gpg_host --import ; then
+    gpg_host --check-trustdb
 
     update_gpg_pub_file
 
-- 
2.25.1