tls: respect the order of specified ciphers.
Signed-off-by: Tom Li <biergaizi2009@gmail.com>
This commit is contained in:
parent
262857b1cb
commit
e6ee356925
@ -94,7 +94,8 @@ sub init {
|
|||||||
SSL_key_file => $self->tls_key,
|
SSL_key_file => $self->tls_key,
|
||||||
SSL_ca_file => $self->tls_ca,
|
SSL_ca_file => $self->tls_ca,
|
||||||
SSL_cipher_list => $self->tls_ciphers,
|
SSL_cipher_list => $self->tls_ciphers,
|
||||||
SSL_server => 1
|
SSL_server => 1,
|
||||||
|
SSL_honor_cipher_order => 1
|
||||||
)
|
)
|
||||||
or die "Could not create SSL context: $!";
|
or die "Could not create SSL context: $!";
|
||||||
|
|
||||||
@ -195,6 +196,7 @@ sub _convert_to_ssl {
|
|||||||
SSL_cipher_list => $self->tls_ciphers,
|
SSL_cipher_list => $self->tls_ciphers,
|
||||||
SSL_server => 1,
|
SSL_server => 1,
|
||||||
SSL_reuse_ctx => $self->ssl_context,
|
SSL_reuse_ctx => $self->ssl_context,
|
||||||
|
SSL_honor_cipher_order => 1
|
||||||
)
|
)
|
||||||
or die "Could not create SSL socket: $!";
|
or die "Could not create SSL socket: $!";
|
||||||
|
|
||||||
@ -295,6 +297,7 @@ sub upgrade_socket {
|
|||||||
SSL_startHandshake => 0,
|
SSL_startHandshake => 0,
|
||||||
SSL_server => 1,
|
SSL_server => 1,
|
||||||
SSL_reuse_ctx => $sp->ssl_context,
|
SSL_reuse_ctx => $sp->ssl_context,
|
||||||
|
SSL_honor_cipher_order => 1
|
||||||
}
|
}
|
||||||
)
|
)
|
||||||
or die "Could not upgrade socket to SSL: $!";
|
or die "Could not upgrade socket to SSL: $!";
|
||||||
|
Loading…
Reference in New Issue
Block a user