3

NTLM 認証で構成された IIS サーバーに対して LWP を動作させようとしています。サーバーで NTLM 認証がオフになっている場合、コードは正常に動作するため、ここでの唯一の問題は NTLM 認証であると想定しています。

これまでのところ、私は次のものを持っています：

my $ua = LWP::UserAgent->new(agent => "whatever",
                            timeout => $timeout, keep_alive => 1);
$ua->credentials('hostname:80', '', $username, $password);

my $hdr = HTTP::Headers->new("Content-Type" => "text/xml; charset=UTF-8",
                             "SOAPAction" => "\"whatever\"");

my $req = HTTP::Request->new("POST" => $url, $hdr, encode_utf8($post));
$res = $ua->request($req);

デバッグをオンにすると、次のメッセージが表示されます。

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: POST http://hostname
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::http::request: Keep the http connection to hostname:80
LWP::UserAgent::request: Simple response: Unauthorized
LWP::Authen::Ntlm::authenticate: authenticate() has been called
Use of uninitialized value in exists at /usr/lib/perl5/vendor_perl/5.8.5/LWP/UserAgent.pm line 560.
Use of uninitialized value in hash element at /usr/lib/perl5/vendor_perl/5.8.5/LWP/UserAgent.pm line 561.
LWP::Authen::Ntlm::authenticate: In first phase of NTLM authentication
[Thu Apr 12 13:55:28 2012] [error] Wide character in subroutine entry at /usr/lib/perl5/site_perl/5.8.5/Authen/NTLM.pm line 346.\n
LWP::Protocol::collect: read 625 bytes
LWP::UserAgent::request: Simple response: Internal Server Error

で同じ URL にアクセスしようとしても問題なくwget動作します。のドキュメントには、$bytes に 255 を超えるコードの文字が含まれている場合MIME::Base64、encode 関数が croak することが記載されています。Wide character in subroutine entry

ここで重要な何かが欠けていますか、それとも のバグAuthen::NTLMでしょうか?

4

2 に答える 2

-1

$post には何が入っていますか? 不良データが含まれている可能性があります。

これを試して：

my $post_encoded = encode_utf8($post);
print Dumper($post,$post_encoded);
my $req = HTTP::Request->new("POST" => $url, $hdr, $post_encoded);
于 2012-04-12T12:24:56.930 に答える
-4

カールを使うだけ

curl --ntlm -u 'username:password' url
于 2012-04-12T18:18:44.307 に答える