ITS#7683 log tls prot/cipher info

[openldap] / libraries / libldap / tls_g.c

diff --git a/libraries/libldap/tls_g.c b/libraries/libldap/tls_g.c
index c793828e73557bdb79b1b429a9ff7547395b2508..ce422387c90a41796ef9ca6fa61b332008123ed9 100644 (file)
--- a/libraries/libldap/tls_g.c
+++ b/libraries/libldap/tls_g.c
@@ -816,6 +816,20 @@ tlsg_session_unique( tls_session *sess, struct berval *buf, int is_server)
        return 0;
 }
 
+static const char *
+tlsg_session_version( tls_session *sess )
+{
+       tlsg_session *s = (tlsg_session *)sess;
+       return gnutls_protocol_get_name(gnutls_protocol_get_version( s->session ));
+}
+
+static const char *
+tlsg_session_cipher( tls_session *sess )
+{
+       tlsg_session *s = (tlsg_session *)sess;
+       return gnutls_cipher_get_name(gnutls_cipher_get( s->session ));
+}
+
 /* suites is a string of colon-separated cipher suite names. */
 static int
 tlsg_parse_ciphers( tlsg_ctx *ctx, char *suites )
@@ -1150,6 +1164,8 @@ tls_impl ldap_int_tls_impl = {
        tlsg_session_chkhost,
        tlsg_session_strength,
        tlsg_session_unique,
+       tlsg_session_version,
+       tlsg_session_cipher,
 
        &tlsg_sbio,