[exim-cvs] certextract tidying

Gitweb: http://git.exim.org/exim.git/commitdiff/8a6eec04798d4000b00537e6c6f7f7f1596fccb8

Commit:     8a6eec04798d4000b00537e6c6f7f7f1596fccb8
Parent:     3faae4c075bd1054f3e199051f146d886c8abf0f
Author:     Jeremy Harris <jgh146exb@???>
AuthorDate: Tue May 13 17:47:04 2014 +0100
Committer:  Jeremy Harris <jgh146exb@???>
CommitDate: Tue May 13 17:57:32 2014 +0100

    certextract tidying
---
 doc/doc-docbook/spec.xfpt |   10 ++++-
 src/src/tlscert-gnu.c     |   94 ++++++++++++++++++++------------------------
 2 files changed, 51 insertions(+), 53 deletions(-)

diff --git a/doc/doc-docbook/spec.xfpt b/doc/doc-docbook/spec.xfpt
index 03ec898..17c69a7 100644
--- a/doc/doc-docbook/spec.xfpt
+++ b/doc/doc-docbook/spec.xfpt
@@ -8897,8 +8897,8 @@ the certificate.  Supported fields are:
 .display
 &`version        `&
 &`serial_number  `&
-&`subject        `&
-&`issuer         `&
+&`subject        `& RFC4514 DN
+&`issuer         `& RFC4514 DN
 &`notbefore      `&
 &`notafter       `&
 &`sig_algorithm  `&
@@ -8931,6 +8931,12 @@ Elements of only one type may be selected by a modifier
 which is one of "dns", "uri" or "mail";
 if so the elenment tags are omitted.

+The field selectors marked as "RFC4514" above
+output a Distinguished Name string which is
+not quite
+parseable by Exim as a comma-separated tagged list
+(the exceptions being elements containin commas).
+
Field values are generally presented in human-readable form.
.wen

diff --git a/src/src/tlscert-gnu.c b/src/src/tlscert-gnu.c
index 5a4c231..3d255ee 100644
--- a/src/src/tlscert-gnu.c
+++ b/src/src/tlscert-gnu.c
@@ -75,6 +75,15 @@ gnutls_global_deinit();
* Certificate field extraction routines
*****************************************************/
static uschar *
+g_err(const char * tag, const char * from, int gnutls_err)
+{
+expand_string_message = string_sprintf(stderr,
+ "%s: %s fail: %s\n", from, tag, gnutls_strerror(gnutls_err));
+return NULL;
+}
+
+
+static uschar *
time_copy(time_t t)
{
uschar * cp = store_get(32);
@@ -167,10 +176,27 @@ return algo < 0 ? NULL : string_copy(gnutls_sign_get_name(algo));
uschar *
tls_cert_subject(void * cert, uschar * mod)
{
-static uschar txt[256];
-size_t sz = sizeof(txt);
-return ( gnutls_x509_crt_get_dn(cert, CS txt, &sz) == 0 )
- ? string_copy(txt) : NULL;
+uschar * cp = NULL;
+int ret;
+size_t siz = 0;
+
+ret = gnutls_x509_crt_get_dn(cert, cp, &siz);
+if (ret != GNUTLS_E_SHORT_MEMORY_BUFFER)
+ {
+ fprintf(stderr, "%s: gs0 fail: %s\n", __FUNCTION__, gnutls_strerror(ret));
+ return NULL;
+ }
+
+cp = store_get(siz);
+
+ret = gnutls_x509_crt_get_dn(cert, cp, &siz);
+if (ret < 0)
+ {
+ fprintf(stderr, "%s: gs1 fail: %s\n", __FUNCTION__, gnutls_strerror(ret));
+ return NULL;
+ }
+
+return cp;
}

uschar *
@@ -192,20 +218,14 @@ int ret;
ret = gnutls_x509_crt_get_extension_by_oid ((gnutls_x509_crt_t)cert,
oid, idx, cp1, &siz, &crit);
if (ret != GNUTLS_E_SHORT_MEMORY_BUFFER)
- {
- fprintf(stderr, "%s: ge0 fail: %s\n", __FUNCTION__, gnutls_strerror(ret));
- return NULL;
- }
+ return g_err("ge0", __FUNCTION__, ret);

cp1 = store_get(siz*4 + 1);

ret = gnutls_x509_crt_get_extension_by_oid ((gnutls_x509_crt_t)cert,
oid, idx, cp1, &siz, &crit);
if (ret < 0)
- {
- fprintf(stderr, "%s: ge1 fail: %s\n", __FUNCTION__, gnutls_strerror(ret));
- return NULL;
- }
+ return g_err("ge1", __FUNCTION__, ret);

/* binary data, DER encoded */

@@ -254,21 +274,13 @@ for(index = 0;; index++)
       break;

     default:
-      expand_string_message = 
-    string_sprintf("%s: gs0 fail: %d %s\n", __FUNCTION__,
-      ret, gnutls_strerror(ret));
-      return NULL;
+      return g_err("gs0", __FUNCTION__, ret);
     }

   ele = store_get(siz+1);
   if ((ret = gnutls_x509_crt_get_subject_alt_name(
     (gnutls_x509_crt_t)cert, index, ele, &siz, NULL)) < 0)
-    {
-    expand_string_message = 
-      string_sprintf("%s: gs1 fail: %d %s\n", __FUNCTION__,
-    ret, gnutls_strerror(ret));
-    return NULL;
-    }
+    return g_err("gs1", __FUNCTION__, ret);
   ele[siz] = '\0';

   if (match != -1 && match != ret)
@@ -307,12 +319,7 @@ for(index = 0;; index++)
   if (ret == GNUTLS_E_REQUESTED_DATA_NOT_AVAILABLE)
     return list;
   if (ret < 0)
-    {
-    expand_string_message = 
-      string_sprintf("%s: gai fail: %d %s\n", __FUNCTION__,
-    ret, gnutls_strerror(ret));
-    return NULL;
-    }
+    return g_err("gai", __FUNCTION__, ret);

   list = string_append_listele(list, sep,
         string_copyn(uri.data, uri.size));
@@ -353,21 +360,14 @@ for(index = 0;; index++)
     case GNUTLS_E_SHORT_MEMORY_BUFFER:
       break;
     default:
-      expand_string_message = 
-    string_sprintf("%s: gc0 fail: %d %s\n", __FUNCTION__,
-      ret, gnutls_strerror(ret));
-      return NULL;
+      return g_err("gc0", __FUNCTION__, ret);
     }

   ele = store_get(siz+1);
   if ((ret = gnutls_x509_crt_get_crl_dist_points(
-    (gnutls_x509_crt_t)cert, index, ele, &siz, NULL, NULL)) < 0)
-    {
-    expand_string_message = 
-      string_sprintf("%s: gc1 fail: %d %s\n", __FUNCTION__,
-    ret, gnutls_strerror(ret));
-    return NULL;
-    }
+      (gnutls_x509_crt_t)cert, index, ele, &siz, NULL, NULL)) < 0)
+    return g_err("gc1", __FUNCTION__, ret);
+
   ele[siz] = '\0';
   list = string_append_listele(list, sep, ele);
   }
@@ -389,20 +389,12 @@ uschar * cp3;

 if ((ret = gnutls_x509_crt_get_fingerprint(cert, algo, NULL, &siz))
     != GNUTLS_E_SHORT_MEMORY_BUFFER)
-  {
-  expand_string_message = 
-    string_sprintf("%s: gf0 fail: %d %s\n", __FUNCTION__,
-      ret, gnutls_strerror(ret));
-  return NULL;
-  }
+  return g_err("gf0", __FUNCTION__, ret);
+
 cp = store_get(siz*3+1);
 if ((ret = gnutls_x509_crt_get_fingerprint(cert, algo, cp, &siz)) < 0)
-  {
-  expand_string_message = 
-    string_sprintf("%s: gf1 fail: %d %s\n", __FUNCTION__,
-      ret, gnutls_strerror(ret));
-  return NULL;
-  }
+  return g_err("gf1", __FUNCTION__, ret);
+
 for (cp3 = cp2 = cp+siz; cp < cp2; cp++, cp3+=2)
   sprintf(cp3, "%02X",*cp);
 return cp2;