1 files changed, 34 insertions, 0 deletions
diff --git a/src/share/mh/set_expire b/src/share/mh/set_expire
new file mode 100644
index 0000000..2389e57
--- /dev/null
+++ b/src/share/mh/set_expire
@@ -0,0 +1,34 @@
+# -*-shell-script-*-
+# This should be sourced by bash (though we welcome changes to make it POSIX sh compliant)
+
+# Monkeysphere host set-expire subcommand
+#
+# This is a function to set the expiration date of the monkeysphere
+# host key.
+#
+# 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 2008-2009, and are all released under the GPL,
+# version 3 or later.
+
+set-expire() {
+
+local extendTo
+
+# get the new expiration date
+extendTo=$(get_gpg_expiration "$1")
+
+gpg_host_edit expire <<EOF
+$extendTo
+save
+EOF
+
+cat <<EOF | log info
+NOTE: Host key expiration date adjusted, but not yet published.
+Run '$PGRM publish-key' to publish the new expiration date.
+EOF
+
+}