Add helpr functions for getting keyid, fingerprint

1 files changed, 19 insertions, 0 deletions

diff --git a/yarns/obnam.sh b/yarns/obnam.sh
index 50080d2b..54d76c02 100644
--- a/yarns/obnam.sh
+++ b/yarns/obnam.sh
@@ -158,6 +158,25 @@ manifest()
 }
 
 
+# Get a GPG fingerprint given a username.
+
+get_fingerprint()
+{
+    gpg --fingerprint "$1" |
+    sed -n '/^ *Key fingerprint = /s///p' |
+    sed 's/ *//g'
+}
+
+
+# Get a GPG keyid given a username.
+
+get_keyid()
+{
+    get_fingerprint "$1" |
+    awk '{ print substr($0, length-8) }'
+}
+
+
 # Create a dummy $HOME that actually exists.
 export HOME="$DATADIR/home"
 mkdir -p "$HOME"