|
 |
7b6549 |
From f606a25a80a37d5565fed6fc1ce1d8d241dab6c7 Mon Sep 17 00:00:00 2001
|
|
|
7b6549 |
From: Steffen Ullrich <Steffen_Ullrich@genua.de>
|
|
|
7b6549 |
Date: Mon, 14 Oct 2013 14:13:39 +0200
|
|
|
7b6549 |
Subject: [PATCH 1/2] support for handshake protocol TLSv11, TLSv12
|
|
|
7b6549 |
MIME-Version: 1.0
|
|
|
7b6549 |
Content-Type: text/plain; charset=UTF-8
|
|
|
7b6549 |
Content-Transfer-Encoding: 8bit
|
|
|
7b6549 |
|
|
|
7b6549 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
7b6549 |
---
|
|
|
7b6549 |
lib/IO/Socket/SSL.pm | 14 +++++++++-----
|
|
|
7b6549 |
1 file changed, 9 insertions(+), 5 deletions(-)
|
|
|
7b6549 |
|
|
|
7b6549 |
diff --git a/lib/IO/Socket/SSL.pm b/lib/IO/Socket/SSL.pm
|
|
|
7b6549 |
index 3279391..a30ffb1 100644
|
|
|
7b6549 |
--- a/lib/IO/Socket/SSL.pm
|
|
|
7b6549 |
+++ b/lib/IO/Socket/SSL.pm
|
|
|
7b6549 |
@@ -1603,9 +1603,11 @@ sub new {
|
|
|
7b6549 |
}
|
|
|
7b6549 |
|
|
|
7b6549 |
my $ctx_new_sub = UNIVERSAL::can( 'Net::SSLeay',
|
|
|
7b6549 |
- $ver eq 'SSLv2' ? 'CTX_v2_new' :
|
|
|
7b6549 |
- $ver eq 'SSLv3' ? 'CTX_v3_new' :
|
|
|
7b6549 |
- $ver eq 'TLSv1' ? 'CTX_tlsv1_new' :
|
|
|
7b6549 |
+ $ver eq 'SSLv2' ? 'CTX_v2_new' :
|
|
|
7b6549 |
+ $ver eq 'SSLv3' ? 'CTX_v3_new' :
|
|
|
7b6549 |
+ $ver eq 'TLSv1' ? 'CTX_tlsv1_new' :
|
|
|
7b6549 |
+ $ver eq 'TLSv11' ? 'CTX_tlsv1_1_new' :
|
|
|
7b6549 |
+ $ver eq 'TLSv12' ? 'CTX_tlsv1_2_new' :
|
|
|
7b6549 |
'CTX_new'
|
|
|
7b6549 |
) or return IO::Socket::SSL->error("SSL Version $ver not supported");
|
|
|
7b6549 |
my $ctx = $ctx_new_sub->() or return
|
|
|
7b6549 |
@@ -2063,8 +2065,10 @@ See section "SNI Support" for details of SNI the support.
|
|
|
7b6549 |
=item SSL_version
|
|
|
7b6549 |
|
|
|
7b6549 |
Sets the version of the SSL protocol used to transmit data. 'SSLv23' auto-negotiates
|
|
|
7b6549 |
-between SSLv2 and SSLv3, while 'SSLv2', 'SSLv3' or 'TLSv1' restrict the protocol
|
|
|
7b6549 |
-to the specified version. All values are case-insensitive.
|
|
|
7b6549 |
+between SSLv2 and SSLv3, while 'SSLv2', 'SSLv3', 'TLSv1', 'TLSv11' or 'TLSv12'
|
|
|
7b6549 |
+restrict the protocol to the specified version. All values are case-insensitive.
|
|
|
7b6549 |
+Support for 'TLSv11' and 'TLSv12' requires recent versions of Net::SSLeay
|
|
|
7b6549 |
+and openssl.
|
|
|
7b6549 |
|
|
|
7b6549 |
You can limit to set of supported protocols by adding !version separated by ':'.
|
|
|
7b6549 |
|
|
|
7b6549 |
--
|
|
|
7b6549 |
2.7.4
|
|
|
7b6549 |
|