(Fgnutls_peer_status): Return the DH prime bits for the connection
This commit is contained in:
parent
c498441ee6
commit
a0fe9b0481
2 changed files with 11 additions and 0 deletions
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue