Hm okay, still playing around with it. Looks like NTLM module wasn't installed properly (or at least not the right version). I fixed that and updated the script, here's where I'm at currently. I tried using the fix as posted above in the comments but to no avail. Perl:
#!/usr/bin/perl use lib qw( \\crdhome\shares\TechHome\dbuild\ourperl ); use SOAP::Lite; use LWP::UserAgent; use LWP::Debug; LWP::Debug::level('+'); SOAP::Lite->import(+trace => 'all'); our $l_endpoint = 'http://localhost:8080/RelengWeb/MachineActivityWSPo +rt'; our $l_domain = 'DOMAIN'; our $l_username = 'DOMAIN\\username'; our $l_password = 'password'; my @ua_args = (keep_alive => 1); my @credentials = ($l_domain, "", $l_username, $l_password); my $schema_ua = LWP::UserAgent->new(@ua_args); $schema_ua->credentials(@credentials); print "\nBuilding proxy\n\n"; $soap = SOAP::Lite->proxy($l_endpoint . '?wsdl', @ua_args, credentials + => \@credentials); print "\nSetting URI\n\n"; $soap->uri("$l_endpoint"); #print "\nSetting user agent\n\n"; #$soap->useragent($schema_ua); print "\nTrying to connect to MachineActivity Port\n\n"; my $service = $soap->service("$l_endpoint" . "?wsdl"); print 'Successfully connected.'; sub SOAP::Transport::HTTP::Client::get_basic_credentials { return ('us +er' => 'password') };
Response:
LWP::UserAgent::new: () Building proxy SOAP::Transport::new: () SOAP::Serializer::new: () SOAP::Deserializer::new: () SOAP::Parser::new: () SOAP::Lite::new: () LWP::UserAgent::new: () SOAP::Transport::HTTP::Client::new: () Setting URI Trying to connect to MachineActivity Port SOAP::Deserializer::new: () SOAP::Parser::new: () SOAP::Schema::new: () LWP::UserAgent::new: () LWP::UserAgent::request: () LWP::UserAgent::send_request: GET http://localhost:8080/RelengWeb/Mach +ineActivit yWSPort?wsdl LWP::UserAgent::_need_proxy: Not proxied LWP::Protocol::http::request: () LWP::UserAgent::request: Simple response: Unauthorized LWP::Authen::Ntlm::authenticate: authenticate() has been called Use of uninitialized value in exists at /usr/lib/perl5/5.8/cygwin/LWP/ +UserAgent. pm line 566. LWP::Authen::Ntlm::authenticate: No username and password available fr +om get_bas ic_credentials(). Returning unmodified response object Service description 'http://localhost:8080/RelengWeb/MachineActivityWS +Port?wsdl' can't be loaded: 401 Unauthorized SOAP::Schema::DESTROY: () SOAP::Deserializer::DESTROY: () SOAP::Parser::DESTROY: () SOAP::Transport::HTTP::Client::DESTROY: () SOAP::Parser::DESTROY: () SOAP::Transport::DESTROY: () SOAP::Serializer::DESTROY: () SOAP::Deserializer::DESTROY: () SOAP::Lite::DESTROY: ()
Am I overriding the wrong method with the sub-- thing? Ty

In reply to Re^2: soap::lite + ntlm + wsdls, how? by vijalpatel
in thread soap::lite + ntlm + wsdls, how? by vijalpatel

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.