monkeysphere-host add-hostname now uses perl backend.

[monkeysphere.git] / src / share / mh / add_hostname

diff --git a/src/share/mh/add_hostname b/src/share/mh/add_hostname
index 9465d9635ac0bab68034c9ac29ef9356d7f80fd3..9df5eec2952adb305886fa0fa042a805075b8fac 100644 (file)
--- 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