#!/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/MachineActivityWSPort';
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 ('user' => 'password') };

##</code><code>##

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/MachineActivit
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 from get_bas
ic_credentials().  Returning unmodified response object
Service description 'http://localhost:8080/RelengWeb/MachineActivityWSPort?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: ()