Hey,

        Has anyone had any luck with NTLM auth with LWP ?

It appears to repeat the following:

--snip--
LWP::UserAgent::new: ()
--Performing request
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET http://employee.pason.com
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 745 bytes
LWP::Protocol::collect: read 911 bytes
LWP::Protocol::http::request: Keep the http connection to employee.pason.com:80
LWP::UserAgent::request: Simple response: Unauthorized
LWP::Authen::Ntlm::authenticate: authenticate() has been called
LWP::Authen::Ntlm::authenticate: In first phase of NTLM authentication
LWP::Authen::Ntlm::authenticate: Returning response object with auth header:
Authorization NTLM TlRMTVNTUAABAAAAB7IAAAUABQAgAAAABQAFACUAAABtZ2FsZVBBU09O
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET http://employee.pason.com
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 495 bytes
LWP::Protocol::collect: read 1044 bytes
LWP::Protocol::http::request: Keep the http connection to employee.pason.com:80
LWP::UserAgent::request: Simple response: Unauthorized
LWP::Authen::Ntlm::authenticate: authenticate() has been called
LWP::Authen::Ntlm::authenticate: In second phase of NTLM authentication
LWP::Authen::Ntlm::authenticate: Returning response object with auth header:
Authorization NTLM TlRMTVNTUAADAAAAGAAYAEAAAAAYABgAWAAAAAoACgBwAAAACgAKAHoAAAAKAAoAhAAAAAAAAABOAAAABYKBAg/BpuQQk1A/ftWRu1zQhz9+JXIlF08wUA1XKUr+5TXYiXNq62xEHpPpYQGpj02xZAUCzg4AAAAPUABtAGcAYQBsAGUAbQBnAGEAbABlAA==
--snip--

--snip--
my $url = "http://sharepoint.domain.com";;

my $ua = new LWP::UserAgent(keep_alive=>1);

$ua->credentials('sharepoint.domain.com:80', '',"domain\\mgale",'password');

my $request = GET $url;
--snip--

--
Michael Gale

Red Hat Certified Engineer
Network Administrator
Pason Systems Corp.

"What we need are more people who specialize in the impossible." - Theodore Roethke

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to