Commit a0fe9b04 authored by Lars Magne Ingebrigtsen's avatar Lars Magne Ingebrigtsen
Browse files

(Fgnutls_peer_status): Return the DH prime bits for the connection

parent c498441e
......@@ -3,6 +3,8 @@
* gnutls.c (gnutls_certificate_details): The :signature isn't
that useful, so remove it.
(gnutls_certificate_details): Clean up whitespace slightly.
(Fgnutls_peer_status): Return the Diffie-Hellman prime bits for
the connection.
 
2014-12-07 Jan Djärv <jan.h.d@swipnet.se>
 
......
......@@ -1029,6 +1029,15 @@ The return value is a property list with top-level keys :warnings and
(intern (":certificate"),
gnutls_certificate_details (XPROCESS (proc)->gnutls_certificate)));
/* Diffie-Hellman prime bits. */
{
int bits = gnutls_dh_get_prime_bits (XPROCESS (proc)->gnutls_state);
if (bits > 0)
result = nconc2 (result, list2
(intern (":diffie-hellman-prime-bits"),
make_number (bits)));
}
return result;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment