Hi all!
I am trying to use Perl to connect to an NTLM-authenticated site via LWP. (My final goal is to use SOAP::Lite but I'm doing a proof of concept with LWP first as it's simpler.)
Script below, mostly copied from googling around and finding that this works for everyone else:
Output:#!/usr/bin/perl -w use LWP::UserAgent; use HTTP::Request::Common; use LWP::Debug qw(+); my $username = "DOMAIN\\username"; my $password = 'password'; my $soapUrl = "https://site.domain.com/directory/"; # Set up the ntlm client and then the base64 encoded ntlm handshake me +ssage my $ua = new LWP::UserAgent(keep_alive=>1); $ua->credentials('site.domain.com/directory:443', '', $username, $pass +word); $request = GET $soapUrl; print "--Performing request now...-----------\n"; $response = $ua->request($request); print "--Done with request-------------------\n"; if ($response->is_success) {print "It worked!->" . $response->code . " +\n"} else {print "It didn't work!->" . $response->code . ": " . $response-> +status_line . "\n"}
--Performing request now...----------- --Done with request------------------- It didn't work!->401: 401 Unauthorized
Is HTTPS making it problematic? Because from what I can tell, the above really should work.
I very much appreciate any help you can give!
Jessica
In reply to LWP + NTLM over HTTPS? by jphekman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |