From 6da76c071f99163e16f3f59dabed3d2490ec9881 Mon Sep 17 00:00:00 2001
Message-Id: <6da76c071f99163e16f3f59dabed3d2490ec9881.1714002522.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Wed, 15 Feb 2012 00:49:26 +0000
Subject: [PATCH] cryptop.public: New operation to export a key with its
 properties.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

This form will be useful soon.
---
 cryptop.public | 25 +++++++++++++++++++++----
 1 file changed, 21 insertions(+), 4 deletions(-)

diff --git a/cryptop.public b/cryptop.public
index 27fde4b..4d57ee5 100755
--- a/cryptop.public
+++ b/cryptop.public
@@ -28,20 +28,37 @@ case "${KEYSLIB+t}" in t) ;; *) echo >&2 "$0: KEYSLIB unset"; exit 1 ;; esac
 . "$KEYSLIB"/keyfunc.sh
 
 defhelp <<HELP
-KEY
+[-x] KEY
 If the user KEY is asymmetric, write the public key to stdout.
+
+Options:
+  -x		Export the key in a form usable by \`pubkeyop'.
 HELP
 
+exportp=nil
+while getopts "x" opt; do
+  case $opt in
+    x) exportp=t ;;
+    *) usage_err ;;
+  esac
+done
+shift $(( $OPTIND - 1 ))
 case $# in 1) ;; *) usage_err ;; esac
 key=$1
 
 mktmp
 prepare "$key" -
-if [ -f $kdir/pub ]; then
-  cat $kdir/pub
-else
+if [ ! -f $kdir/pub ]; then
   echo >&2 "$quis: \`$key' has no public part"
   exit 1
 fi
+case $exportp in
+  t)
+    prepare "$key" info
+    dumpprops kprop_
+    echo ENDPROP
+    ;;
+esac
+cat $kdir/pub
 
 ###----- That's all, folks --------------------------------------------------
-- 
[mdw]