Perl WWW :: Mechanize - Ошибка аутентификации GETing URL

Question

Я пытаюсь заполнить веб-форму, используя библиотеку Mechanize Perl.

Всякий раз, когда я ввожу URL-адрес в поле поиска, он предлагает следующее сообщение, и я могу вручную войти в систему успешно.

Однако, когда я бегу ниже сценарий, я получаю следующее сообщение об ошибке:

Как правильно заполнить первые учетные данные аутентификации Box с помощью моего $mech объекта?

my $mech = WWW::Mechanize->new('keepalive' => 1); 

my $url = "http://URL/I/NEED/TO/ACCESS"; 
my $username = "username"; 
my $password = "password"; 

$mech->credentials($username, $password); 
$mech->get($url);   <----------------- ERROR (LINE 93) 

EDIT:

Вот результаты выполнения wget на запрашиваемом сайте

--2013-08-30 11:16:17-- http://moss.micron.com/MFG/ProbeTest/Lists/Manufacturing%20Requests/AllItems.aspx 
Resolving moss.micron.com... 137.201.88.118 
Connecting to moss.micron.com|137.201.88.118|:80... connected. 
HTTP request sent, awaiting response... 
    HTTP/1.1 401 Unauthorized 
    Server: Microsoft-IIS/7.0 
    WWW-Authenticate: Negotiate 
    WWW-Authenticate: NTLM 
    X-Powered-By: ASP.NET 
    MicrosoftSharePointTeamServices: 12.0.0.6341 
    Date: Fri, 30 Aug 2013 17:16:17 GMT 
    Connection: keep-alive 
    Content-Length: 0 
Authorization failed. 

Answer 1

В старых версиях Mechanize вы могли бы подкласс WWW::Mechanize пакета и предоставить свои собственные учетные данные рутины :

package MyMech; 

use vars qw(@ISA); 
@ISA = qw(WWW::Mechanize); 

sub get_basic_credentials { 
    my ($self, $realm, $uri) = @_; 
    return("user", "password"); 
} 

Тогда в вашей программе использовать этот пакет вместо WWW :: Mechanize:

package main; 

my $mech = MyMech->new(); 
$mech->get($url); 

Update

Вы обновили свой вопрос, чтобы указать требование аутентификации NTLM. Проверьте LWP::Authen::Ntlm на CPAN.