#!/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\\user';
our $l_password = 'userPassword';

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, @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


Setting user agent

SOAP::Lite::call: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: useragent LWP::UserAgent=HASH(0x1030cec4)
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
Cannot encode 'domain' element as 'hash'. Will be encoded as 'map' instead
SOAP::Data::new: ()
SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x1035e644)
SOAP::Transport::HTTP::Client::send_receive: POST http://localhost:8080/RelengWe
b/MachineActivityWSPort HTTP/1.1
Accept: text/xml
Accept: multipart/*
Content-Length: 1784
Content-Type: text/xml; charset=utf-8
SOAPAction: "http://localhost:8080/RelengWeb/MachineActivityWSPort#useragent"

<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:apachens="http://
xml.apache.org/xml-soap" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelop
e/" xmlns:namesp2="http://namespaces.soaplite.com/perl" xmlns:xsi="http://www.w3
.org/1999/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/en
coding/" xmlns:xsd="http://www.w3.org/1999/XMLSchema" SOAP-ENV:encodingStyle="ht
tp://schemas.xmlsoap.org/soap/encoding/"><SOAP-ENV:Body><namesp1:useragent xmlns
:namesp1="http://localhost:8080/RelengWeb/MachineActivityWSPort"><LWP__UserAgent
 xsi:type="namesp2:LWP__UserAgent"><max_redirect xsi:type="xsd:int">7</max_redir
ect><conn_cache xsi:type="namesp2:LWP__ConnCache"><cc_limit_total xsi:type="xsd:
int">1</cc_limit_total><cc_conns xsi:type="SOAP-ENC:Array" SOAP-ENC:arrayType="x
sd:ur-type[0]"/></conn_cache><protocols_forbidden xsi:null="1"/><no_proxy xsi:ty
pe="SOAP-ENC:Array" SOAP-ENC:arrayType="xsd:ur-type[0]"/><protocols_allowed xsi:
null="1"/><use_eval xsi:type="xsd:int">1</use_eval><requests_redirectable xsi:ty
pe="SOAP-ENC:Array" SOAP-ENC:arrayType="xsd:string[2]"><item xsi:type="xsd:strin
g">GET</item><item xsi:type="xsd:string">HEAD</item></requests_redirectable><fro
m xsi:null="1"/><timeout xsi:type="xsd:int">180</timeout><agent xsi:type="xsd:st
ring">libwww-perl/5.805</agent><def_headers xsi:null="1"/><parse_head xsi:type="
xsd:int">1</parse_head><proxy/><basic_authentication><domain xsi:type="apachens:
Map"><item><key xsi:type="xsd:string"/><value xsi:type="SOAP-ENC:Array" SOAP-ENC
:arrayType="xsd:string[2]"><item xsi:type="xsd:string">DOMAIN\user</item><item x
si:type="xsd:string">userPassword</item></value></item></domain></basic_authenti
cation><max_size xsi:null="1"/></LWP__UserAgent></namesp1:useragent></SOAP-ENV:B
ody></SOAP-ENV:Envelope>
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: POST http://localhost:8080/RelengWeb/MachineActivi
tyWSPort
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::http::request: Keep the http connection to localhost:8080
LWP::UserAgent::request: Simple response: Unauthorized
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x1020d39c)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 401 Unauthorized
Date: Mon, 12 Oct 2009 16:11:55 GMT
Server: Apache-Coyote/1.1
WWW-Authenticate: NTLM
Content-Length: 0
Client-Date: Mon, 12 Oct 2009 16:11:56 GMT
Client-Peer: 127.0.0.1:8080
Client-Response-Num: 1
Client-Warning: Unsupported authentication scheme 'ntlm'

401 Unauthorized at test.pl line 29
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Transport::HTTP::Client::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Transport::DESTROY: ()
SOAP::Serializer::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Lite::DESTROY: ()