为什么我的 LWP::UserAgent 凭据不起作用？

Question

我正在尝试访问受保护的文件。服务器正在使用摘要身份验证 - 我可以从打印输出的响应中看到这一点。 以下是示例代码：

use LWP;
use strict;

my $url = 'http://somesite.com/aa/bb/cc.html';
my $username = 'scott';
my $password = 'tiger';

my $browser = LWP::UserAgent->new('Mozilla');
$browser->credentials("http://somesite.com:80","realm-name",$username=>$password);
my $response=$browser->get($url);

print $response->content;

当我尝试从浏览器访问该资源时，我从弹出窗口中获取了领域的名称。相同的用户名和密码在浏览器中运行得非常好，我可以看到内容，但当我运行上面的脚本时，它总是显示 401 Authorization required。

LWP 是如何工作的？

我是否需要要求 LWP 发送用户名和密码的 MD5 哈希（摘要），还是像在内部一样检查要使用的身份验证并发送相应的（基本/摘要）发送凭据的方式。 我的问题是

1. 如何设置 LWP 以便它发送用户名和密码的摘要？
2. 如果服务器使用 Windows NTLM 身份验证协议怎么办？遇到这样的情况我该怎么办呢？

非常感谢任何快速帮助！

Answer 1

请考虑以下 LWP::UserAgent 模块文档的摘录：

$ua->credentials( $netloc, $realm )
$ua->credentials( $netloc, $realm, $uname, $pass )

获取/设置用于领域的用户名和密码。

$netloc 是 ":" 形式的字符串。用户名和密码只会传递到该服务器。示例：

$ua->credentials("www.example.com:80", "Some Realm", "foo", "secret");

更改

$browser->credentials("http://somesite.com:80","realm-name",$username=>$password);

为

$browser->credentials("somesite.com:80","realm-name",$username=>$password);

Answer 2

HTTP GET Authed Request 也可以按如下方式完成

use LWP::UserAgent;

my $address = "localhost";
my $port = "8080";
my $username = "admin";
my $pass = "password";

my $browser = LWP::UserAgent->new;
my $req =  HTTP::Request->new( GET => "http://$address:$port/path");
$req->authorization_basic( "$username", "$pass" );
my $page = $browser->request( $req );

Answer 3

当您遇到此类问题时，请使用 HTTP 嗅探器来监视事务，以便您可以看到程序发送的标头。在这种情况下，您可能根本没有发送凭据，因为 HTTP 状态是 401 而不是 403。这通常意味着您在凭据方面犯了错误，如 gbacon 在他的回答中指出。

Answer 4

我通过在 Red Hat 7 上安装 perl-NTLM.noarch 解决了这个问题。