#!/usr/bin/perl

use warnings;
use SOAP::Lite + trace => 'all';
use Data::Dumper;
use XML::Simple;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

my $DEBUG = 1;
my $cucmip = '10.1.10.1';
my $axl_port = '8443';
my $axltoolkit = "AXLAPI.wsdl";
my $user = 'PerlAXL';
my $password = 'password';
my $error_text;

Begin {
    sub SOAP::Transport::HTTP::Client::get_basic_credentials {
	return ($user => $password)
    };
}
my $cm = new SOAP::Lite
    encodingStyle=>'',
    uri => "$axltoolkit",
    proxy => "https://$cucmip:$axl_port/axl/" ;

my $axl_sql = "select pkid from numplan where dnorpattern = \"5000\"";

my $data = SOAP::Data->name("sql" => $axl_sql);
my $res = $cm->executeSQLQuery($data);

unless ($res->fault) {
    $Data::Dumper::Indent = 3;
    print Dumper($res->paramsall());
} 
else {
    print join ', ',
    $res->faultcode,
    $res->faultstring;
}