perl - SOAP::Lite 连接到 SSL 服务器

Question

我对 Perl 完全陌生。我用 C# 编写了一个在 Windows 机器上运行的 Web 服务，并使用 SOAP::Lite 从 Linux 机器上的 Perl 脚本调用它。我的代码使用 http:// 处理程序工作正常。我现在正试图让它与 https://

一起工作

代码是:

    use SOAP::Lite;
    use POSIX;

    #Tell Perl to trust the testserver's cert
    #$ENV{HTTPS_CA_DIR} = '/usr/local/share/ca-certificates';
    $ENV{HTTPS_CA_FILE} = '/home/myusername/TestServer_CA_Cert.cer';
    #$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;


    my $uri = 'http://Automation/';
    my $proxy = 'https://TestServer/ToolsAutomation/AutomationInterface.asmx';
    my $method = SOAP::Data->name('SubmitAutomationJob')->attr({xmlns => $uri});

    #-Code that sets us @params deleted for readability-

    my $myServer = SOAP::Lite
        -> on_action(sub {join '', $uri, $_[1]})
        -> proxy($proxy)
    #        -> proxy($proxy, ssl_opts => [ SSL_verify_mode => 0 ] )
    #        -> proxy($proxy, ssl_opts => [SSL_ca_file => $ServerCACert])
            ;

    my $myCALL = $myServer #This is line 36 in the original script
                -> call($method => @params);

    print 'Result: ' . $myCALL->result;

当我按照发布的方式运行代码时，出现错误“500 无法连接到 TestServer:443 在第 36 行。”服务器端的网络跟踪显示客户端发送 SYN，服务器发送 SYN/ACK，客户端发送和 ACK，然后客户端立即发送 FIN/ACK。

我已经尝试了各种方法来让它工作。我试过:

• 取消注释行 #$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0; 导致“500 无法连接到 TestServer:443(证书验证失败)。网络跟踪显示至少部分 HTTPS 协商正在工作。
• 取消注释行 proxy($proxy, ssl_opts => [ SSL_verify_mode => 0 ] ) 有效，但是当然这不会验证服务器的身份。
• 取消注释行 -> proxy($proxy, ssl_opts => [SSL_ca_file => $ServerCACert]) 也会给出“证书验证失败”错误。
• 将路径更改为 $ENV{HTTPS_CA_FILE} 在第 36 行给出错误“SSL_ca_file/home/myusername/TestServer_CA_cert.ceeer does not exist”。我认为这是一个好兆头；代码正在查找我告诉它用于服务器身份验证的证书。
• 取消对 $ENV{HTTPS_CA_DIR} 和 $ENV{HTTPS_CA_FILE} 行的注释会出现错误“应仅提供 SSL_ca_path 或 SSL_ca_file”。

我已将我的 CA 证书导入 Linux 机器上的 Firefox 并成功浏览到我的测试服务器而没有收到 SSL 警告，然后从 Firefox 中删除证书并浏览回来并收到 SSL 警告，所以我相当有信心我拥有的证书文件是好的。

有没有人对如何修复此代码有任何想法？我应该检查 CA 证书本身的某些属性吗？令我感到困惑的是，Firefox 可以毫无问题地信任其 SSL 证书使用此 CA 的证书签名的服务器，但我无法说服 Perl 这样做。

欢迎任何反馈。请记住:我绝对是 Perl n00b。在我用 Google 搜索如何从 Perl 调用 Web 服务之前，我对 Perl 的唯一了解是“Larry Wall”。

谢谢!

更新:

应下面 Steffen Ullrich 的要求，我运行了以下命令:

perl -MIO::Socket::SSL=debug4 program.pl

我收到的输出是:

me@myMachine:~$ perl -MIO::Socket::SSL=debug4 ./program.pl 
DEBUG: .../IO/Socket/SSL.pm:402: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:404: socket connected
DEBUG: .../IO/Socket/SSL.pm:422: ssl handshake not started
DEBUG: .../IO/Socket/SSL.pm:1388: SSL structure creation failed

Answer 1

When I run the code as posted, I get error "500 Can't connect to TestServer:443 at line 36." A network trace on the server side shows the client sends a SYN, server sends a SYN/ACK, client sends and ACK, then the client immediately sends a FIN/ACK.

如果这真的像您描述的那样，则不会交换任何数据，这意味着客户端甚至不会尝试进行 SSL 握手。这意味着您调用它的方式可能是错误的:

#        -> proxy($proxy, ssl_opts => [ SSL_verify_mode => 0 ] )
#        -> proxy($proxy, ssl_opts => [SSL_ca_file => $ServerCACert])

我很确定 ssl_opts 不需要数组 ([...])，而是哈希 ({...})。

编辑:看起来您需要一个数组而不是散列，因为 ssl_opts 由 SOAP::Lite 以特殊方式处理，即它们没有像文档那样直接提供给 LWP::UserAgent 的构造函数意味着。我有 filed a bug about it .

DEBUG: .../IO/Socket/SSL.pm:1388: SSL structure creation failed

根据我从您那里得到的代码，我可以重现该问题，但前提是给定的 CA 文件已损坏。我希望你是这种情况。请注意，该文件必须如下所示:

-----BEGIN CERTIFICATE-----
MIIDKDCCApGgAwIBAgIJAOetiwdVihcnMA0GCSqGSIb3DQEBBQUAMGwxCzAJBgNV
.... more base64 encoded stuff ...
M0LUhtV8z6OcURDEfnQBsgLCPODc9Mg4FEViDGVaZ1i233ZeAlLzXSZeXL8=
-----END CERTIFICATE-----