#!/usr/local/bin/perl 
use warnings;
use strict;
use Carp; use Carp::Heavy;
use feature ":5.10";

use Data::Dumper;
use Authen::NTLM;
use LWP::UserAgent;

# Debugging Mode XML::Compile
#use Log::Report mode => 'DEBUG';

# preparation
use XML::Compile::WSDL11;      # use WSDL version 1.1
use XML::Compile::SOAP11;      # use SOAP version 1.1
use XML::Compile::Transport::SOAPHTTP;

my $uri = 'https://mex.ms-testlab.mg5/EWS/Exchange.asmx';
my $wsdlfile = 'Services.wsdl';

my $wsdl = XML::Compile::WSDL11->new($wsdlfile);
$wsdl->importDefinitions('Types.xsd');
$wsdl->importDefinitions('Messages.xsd');

#say $wsdl->printIndex();
#say $wsdl->explain('GetServerTimeZones', PERL => 'INPUT', recurse => 1);
#say Dumper($wsdl->operation('GetEvents'));

my $ua = LWP::UserAgent->new(
    ssl_opts => { verify_hostname => 0 },
    keep_alive => 1,
);

$ua->agent('check_mex');
$ua->cookie_jar({});
$ua->credentials(
    'mex.ms-testlab.mg5:443', 
    '',
    'mex.ms-testlab.mg5\\Administrator' =>  'YourPassword'
);

# Debugging (on UA level , like a  packetsniffer)
#$ua->default_header('Accept-Encoding' => scalar HTTP::Message::decodable());
#$ua->add_handler("request_send",  sub { shift->dump; return });
#$ua->add_handler("response_done", sub { shift->dump; return });

my $http = XML::Compile::Transport::SOAPHTTP->new(
    user_agent => $ua, 
    address => $uri,
);


my $client = $wsdl->compileClient(
    'GetServerTimeZones',
    transporter => $http,
);


my ($answer, $trace) = $client->(
    RequestVersion => {
            Version => 'Exchange2010_SP2',
        },
);

say 'ANSWER: ' . "\n" . Dumper($answer);
#say 'TRACE: ' . "\n" . Dumper($trace);
__END__