Perl SOAP::Lite 服务 - 使用 NTLM 和 Navision 2009 SP1 进行身份验证

Question

我正在尝试连接到 Navision 2009 SP1 公开的 Web 服务，它需要 NTLM 身份验证。

身份验证适用于 service() 调用 - 这意味着我得到了存根！但是，一旦我尝试调用函数，身份验证就消失了。

我尝试再次为 $service 设置凭据（然后缺少 keep_alive），我也尝试使用 PATCH_HTTP_KEEPALIVE 常量，但两者都没有帮助。

$SOAP::Constants::PATCH_HTTP_KEEPALIVE = 1; # does this even do anything?

my $ua = LWP::UserAgent->new(keep_alive => 1);
$ua->credentials($host, '', $domain_user, $password);

my $client = SOAP::Lite->new();
$client->schema->useragent($ua);

# this works!
my $service = $client->service($service_url)->proxy($service_url);

# this is just a test - how can I set keep_alive again?
$service->{_transport}->{_proxy}->credentials($host, '', $domain_user, $password);

# this returns 401 unauthorized
$service->Read('R1446781');

这是我得到的完整回复：

SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x224adf8)
SOAP::Transport::HTTP::Client::send_receive: POST http://somedomain.org:7047/DynamicsNAV/WS/Company%20Name/Page/InvHeader HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 485
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:microsoft-dynamics-schemas/page/invheader:Read"

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="urn:microsoft-dynamics-schemas/page/invheader" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><soap:Body><tns:Read><No xsi:type="xsd:string">R1446781</No></tns:Read></soap:Body></soap:Envelope>
The keep_alive option must be enabled for NTLM authentication to work.  NTLM authentication aborted.
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x22511b8)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 401 Unauthorized
Date: Fri, 06 Feb 2015 09:42:22 GMT
Server: Microsoft-HTTPAPI/2.0
WWW-Authenticate: NTLM
Content-Length: 0
Client-Date: Fri, 06 Feb 2015 09:42:22 GMT
Client-Peer: somedomain.org:7047
Client-Response-Num: 1

401 Unauthorized at script/test_webservice.pl line 36.

如何使用我已经用于 service() 调用的相同身份验证来验证 $service 函数？

Answer 1

想通了：

$service->transport->proxy->conn_cache($ua->conn_cache);

它必须使用相同的连接缓存，然后才能工作。

Perl SOAP::Lite 服务 - 使用 NTLM 和 Navision 2009 SP1 进行身份验证

Perl SOAP::Lite service - Authentification with NTLM and Navision 2009 SP1

perl

soap

web-services

navision

soaplite