* src/tls/tls_drv.c: Sends the entire certificate chain (EJAB-209).

SVN Revision: 841

diff --git a/ChangeLog b/ChangeLog
index 73230157a8f5c05129659ea12934033f91c367ba..34cc38f5e12067ceebc3eb6a282b88ab245b8dec 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2007-07-30  Mickael Remond  <mickael.remond@process-one.net>
 
+       * src/tls/tls_drv.c: Sends the entire certificate chain (EJAB-209).
+
        * src/acl.erl: Remove compilation warnings (EJAB-290).
 
        * src/xml_stream.erl: Group CDATA on a single xmlcdata

diff --git a/src/tls/tls_drv.c b/src/tls/tls_drv.c
index 5d3530360432e540be4cc530457a88904dab73d9..92f00975498c60a9563d4368e8788b40843770d4 100644 (file)
--- a/src/tls/tls_drv.c
+++ b/src/tls/tls_drv.c
@@ -108,7 +108,7 @@ static int tls_drv_control(ErlDrvData handle,
         d->ctx = SSL_CTX_new(SSLv23_method());
         die_unless(d->ctx, "SSL_CTX_new failed");
 
-        res = SSL_CTX_use_certificate_file(d->ctx, buf, SSL_FILETYPE_PEM);
+        res = SSL_CTX_use_certificate_chain_file(d->ctx, buf);
         die_unless(res > 0, "SSL_CTX_use_certificate_file failed");
 
         res = SSL_CTX_use_PrivateKey_file(d->ctx, buf, SSL_FILETYPE_PEM);