Perl Webservice SSL 协商失败

Question

我正在尝试使用 ssl 调用网络服务。它给出以下错误:

500 SSL negotiation failed:

我搜索了论坛并应用了提供的方法，但没有一个有效。

下面列出了我应用的2种方法:

1-)调用前设置环境:

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

2-) 将参数 ssl_opts => [ SSL_verify_mode => 0 ] 传递给代理:

my $soap = SOAP::Lite    
     -> on_action( .... )
     -> uri($uri)
     -> proxy($proxy, ssl_opts => [ SSL_verify_mode => 0 ])    
     -> ns("http://schemas.xmlsoap.org/soap/envelope/","soapenv")
     -> ns("http://tempuri.org/","tem");
$soap->serializer()->encodingStyle(undef);

有什么解决办法吗？

Answer 1

... Connection reset by peer at /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi/Net‌​/SSL.pm line 145

你正在运行一个非常旧版本的 Perl(从 2004 年开始)和一个旧版本的 SSL 库(即 Crypt::SSLeay 而不是 IO::Socket::SSL)，我的猜测是这与使用非常旧版本的 OpenSSL 库来支持 TLS。这种组合意味着不支持 SNI ，不支持 TLS 1.2，也不支持 ECDHE 密码。许多现代服务器至少需要支持其中一项。但是 connection reset by peer 也可能意味着某些防火墙正在阻止连接，或者没有服务器在您指定的端点上监听。或者这可能意味着服务器希望您使用客户端证书进行授权。很难说，但是通过连接的数据包捕获可能会提供更多信息。而且，如果 URL 可公开访问发布，它也有助于调试问题。