NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent

reasonablekeith has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,

A little help please. I need to write some test scripts over our company sharepoint intranet (from and to windows), so to that end I need to authenicate through NTLM. No problem, I've updated libperl-www to 5.862, and set up the following...

use LWP::UserAgent;
my $ua = new LWP::UserAgent('keep_alive' => '1');
my $url = 'http://intranet/mypage';
$ua->credentials('intranet:80', '', "domain\\user", 'pass');
my $response =$ua->get($url);
print $response->code();
[download]

The above works just fine and returns a response code of 200, groovey. However, as I'll be following links, submitting forms etc, I'd obviously much rather use Mechanize. As I beleive Mechanize is built over LWP, I don't think this should be a problem, so try the following...

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

$mech->credentials('intranet:80', '', "domain\\user", 'pass');
$mech->get( 'http://intranet/mypage' );
print $mech->status();
[download]

Unfortunately, I can't get anything other than a 401 unauthorized out of this. I'm not sure how to attack this, so any advice much appreciated.

Thanks,

Rob

---
my name's not Keith, and I'm not reasonable.

Comment on NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent Select or Download Code

Replies are listed 'Best First'.
Re: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by Anonymous Monk on May 22, 2009 at 11:51 UTC
Try upgrading both LWP and WWW::Mechanize, and try turning on debugging	[reply]
Re^2: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by reasonablekeith (Deacon) on May 22, 2009 at 12:33 UTC
Both are up-to-date via activestate's ppms. I'm not sure how to turn on debugging though, I've tried `use LWP::Debug qw(+);` [download] but it doesn't seem to make any difference. --- my name's not Keith, and I'm not reasonable.	[reply] [d/l]
Re^3: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by Anonymous Monk on May 22, 2009 at 12:40 UTC
Both are up-to-date via activestate's ppms. Then they are not up-to-date (at least WWW::Mechanize isn't up to date, the version on activestate's repository is ancient). I'm not sure how to turn on debugging though, I've tried perldoc LWP::Debug `use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodab +le()); $ua->add_handler("request_send", sub { shift->dump; return }); $ua->add_handler("response_done", sub { shift->dump; return }); $ua->get("http://www.example.com");` [download]	[reply] [d/l]
Re^4: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by reasonablekeith (Deacon) on May 22, 2009 at 14:23 UTC
Re^5: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by Anonymous Monk on May 22, 2009 at 15:01 UTC
Re^5: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by Anonymous Monk on May 22, 2009 at 15:08 UTC
Re: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by reasonablekeith (Deacon) on Jun 02, 2009 at 11:52 UTC
I'm still banging my head on this one. I've tried using LWP to generate a valid authentication string, and passing that in the headers of a mech request, but that's not working either, presumably because I'm being issued another challenge. Any pointers would be much appreciated. --- my name's not Keith, and I'm not reasonable.	[reply]
Re^2: NTLM authentication fails with WWW:Mechanize, fine with LWP::UserAgent by Corion (Patriarch) on Jun 02, 2009 at 11:56 UTC
You will need a version of WWW::Mechanize of at least 1.52 or greater, as the changes in the `credentials` API of LWP::UserAgent did not get mirrored by similar changes in WWW::Mechanize until then.	[reply] [d/l]


Perl Monk, Perl Meditation
	PerlMonks