perl - 如何将 NTLM 身份验证与 Perl 的 SOAP::Lite 模块集成？

Question

此 Perl 代码适用于对 ASP.NET Web 服务的匿名访问，但是当集成安全性打开时，该服务会返回 401 错误。我认为我需要将 NTLM 模块与 SOAP::Lite 结合使用，但不清楚如何这样做。这些组件如何集成？

use SOAP::Lite;
use strict;

my $proxy = "http://localhost:28606/WebService.asmx";

my $method_name = "HelloWorld";
my $uri = "http://tempuri.org/";
my $methodAction = $uri . $method_name;

my $soap = SOAP::Lite
    ->uri( $uri )
    ->proxy( $proxy )
    ->on_action(sub{ $methodAction; });

my $method = SOAP::Data->name($method_name)->attr({xmlns=>$uri});
my $result = $soap->call($method);

print $result->result();

Answer 1

如果你这样做，你可以获得 SOAP::Lite 来打印一些调试输出:

use SOAP::Lite +trace;

代替

use SOAP::Lite;

编辑:

好的，我想我现在明白了。打开集成安全功能使 IIS 需要 NTLM 身份验证。有一个 thread over at perlmonks.org这似乎揭示了答案。