2015-02-06 45 views
0

我正在尝试连接到Navision 2009 SP1所公开的Web服务,该服务需要NTLM身份验证。Perl SOAP :: Lite服务 - 使用NTLM和Navision 2009 SP1进行身份验证

验证适用于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. 

如何使用我已经用于服务相同的认证我验证$服务功能()调用?

回答

0

想通了:

$服务 - > transport->的Proxy-> conn_cache($ UA-> conn_cache);

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