LWP::UserAgent和500 SSL协商失败

Question

我正在运行一个旧的Debian服务器，该服务器每天通过Perl脚本获取一个网页。从昨天开始，脚本失败，出现“500 SSL协商失败”错误。

use strict;
use LWP::UserAgent;

my $browserObj = LWP::UserAgent->new();

$response = $browserObj->get( "https://www.domain.tld" );
print $response->status_line . "\n" if( ! $response->is_success );

就像我说的，它是一个运行所有东西的旧版本的旧服务器：

• Perl:5.8.8
• OpenSSL:0.9.8C
• LWP:5.805
• crypt::ssleay:0.57

测试1：我尝试的第一件事是将OpenSSL更新到1.0.2D。这没有帮助，我仍然得到了“SSL协商失败”错误。然后我更新了crypt：ssleay。这完全破坏了SSL（导致服务器无法连接到任何安全服务器）。

测试2：在不更新OpenSSL的情况下更新了Crypt：：SSleay。导致服务器无法再次连接到安全服务器。

测试3：将OpenSSL更新到1.0.2d。更新LWP。没什么区别。仍得到“500 SSL协商失败”

PS：由于几个原因，我无法更新Debian本身。

Answer 1

1）更新OpenSSL（到1.0.2d版本）

对于每个使用SSL的程序来说，这都是必要的步骤！在我的Debian系统上，我使用了这里找到的说明。

2）更新Net::SSleay

这是必要的，否则步骤4）将失败。

$ cpan Net::SSLeay

3）更新getopt：：long

同样，这一步是必要的，否则步骤4）将失败。

$ cpan Getopt::Long

注意，这也将更新LWP。

$ cpan Crypt::SSLeay