| Subject: | [Fwd: POE::Component::SSLify and TLS] |
| Date: | Thu, 13 Dec 2007 11:54:00 -0500 |
| To: | bug-POE-Component-SSLify [...] rt.cpan.org |
| From: | Apocalypse <perl [...] 0ne.us> |
Show quoted text
-------- Original Message --------
Subject: POE::Component::SSLify and TLS
Date: Thu, 13 Dec 2007 03:50:28 +0100
From: scz <scz5000@gmail.com>
To: perl@0ne.us
Hello Apocalypse.
I'm trying to do TLS negotiation on the command channel to a FTP server
with POE::Component::Client::FTP and POE::Component::SSLify.
I got it working by changing:
my $ctx = Net::SSLeay::CTX_new() or die_now( "Failed to create SSL_CTX
$!" );
with:
my $ctx = Net::SSLeay::CTX_tlsv1_new() or die_now( "Failed to create
SSL_CTX $!" );
in POE::Component::SSLify::ClientHandle
Any chance you could let the user specify the ssl version when calling
Client_SSLify()?
IO::Socket::SSL has this in it's start_SSL method:
my $ctx;
foreach ($arg_hash->{'SSL_version'}) {
$ctx = /^sslv2$/i ? Net::SSLeay::CTX_v2_new() :
/^sslv3$/i ? Net::SSLeay::CTX_v3_new() :
/^tlsv1$/i ? Net::SSLeay::CTX_tlsv1_new() :
Net::SSLeay::CTX_new();
}
$ctx || return IO::Socket::SSL->error("SSL Context init failed");
Would be nice if we could do something similar with your module!
Thanks for all your efforts,
Thomas Hoff
--
Apocalypse
Homepage: http://JiNxEdStAr.0ne.us
IRC: Apocalypse@irc.perl.org
IRC: Apocalypse@irc.freenode.net
Perl Stuff: http://search.cpan.org/~APOCAL/