Perl SOAP :: Lite服务 - 使用NTLM和Navision 2009 SP1进行身份验证
问题描述:
我正在尝试连接到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.
如何使用我已经用于服务相同的认证我验证$服务功能()调用?
答
想通了:
$服务 - > transport->的Proxy-> conn_cache($ UA-> conn_cache);
它必须使用相同的连接缓存,然后才能正常工作。