Question

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

authentification适用于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

想出来：

$服务 - ＆GT; transport-＆GT;＆的Proxy-GT; conn_cache（$ UA-＆GT; conn_cache）;

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

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

1 个答案: