lib/func.tcl: Hack output of `openssl dgst -hex'.

[ca] / lib / func.tcl

diff --git a/lib/func.tcl b/lib/func.tcl
index 04bd20683ed014e665cc764df8ef769344b17ef5..1f73008200ba723c70a20dd9fe230040e492f5da 100644 (file)
--- a/lib/func.tcl
+++ b/lib/func.tcl
@@ -448,10 +448,10 @@ proc sync-profiles {} {
 proc req-key-hash {file} {
   ## Return the key hash from the certificate request in FILE.
 
 proc req-key-hash {file} {
   ## Return the key hash from the certificate request in FILE.
 

-  return [exec \
+  return [lindex [exec \

              openssl req -in $file -noout -pubkey | \
              openssl rsa 2>/dev/null -pubin -outform der | \
              openssl req -in $file -noout -pubkey | \
              openssl rsa 2>/dev/null -pubin -outform der | \

-             openssl dgst -sha256 -hex]
+             openssl dgst -sha256 -hex] end]

 }
 
 proc req-dn {file} {
 }
 
 proc req-dn {file} {


@@ -466,10 +466,10 @@ proc req-dn {file} {
 proc cert-key-hash {file} {
   ## Return the key hash from the certificate in FILE.
 
 proc cert-key-hash {file} {
   ## Return the key hash from the certificate in FILE.
 

-  return [exec \
+  return [lindex [exec \

              openssl x509 -in $file -noout -pubkey | \
              openssl rsa 2>/dev/null -pubin -outform der | \
              openssl x509 -in $file -noout -pubkey | \
              openssl rsa 2>/dev/null -pubin -outform der | \

-             openssl dgst -sha256 -hex]
+             openssl dgst -sha256 -hex] end]

 }
 
 proc cert-dn {file} {
 }
 
 proc cert-dn {file} {