#!/usr/bin/perl -w
use SOAP::Lite +trace => qw( debug );
my $user="perly";
my $password="xxxxx";
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
my $soap = SOAP::Lite->service("http://192.168.2.33:8881/ws/datacsv?wsdl");
####################################
my @headers = (
SOAP::Header->name('Username')->value($user),
SOAP::Header->name('Password')->value($password),
);
##################################
eval { my $result = $soap->getdata(@headers); };
if ($@) {
die $@;
}
print $om->result();
print "HEADER @headers";
## Problem accessing /ws/stats-v2. Reason:
##
Name "main::om" used only once: possible typo at XML-demo9.pl line 36.
SOAP::Transport::HTTP::Client::send_receive: POST ttp://192.168.2.33:8881/ws/datacsv HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 650
Content-Type: text/xml; charset=utf-8
SOAPAction: "getdata"
HTTP ERROR 401
Unauthorized