#!/usr/local/bin/perl
#CLIENT
use warnings;
use strict;

use SOAP::Lite +trace => qw(debug);

my $uri = 'Delivery';
#Data to be added to the request
my (@data) = (
              SOAP::Data->name(MessengerHeader => {
                                                   Action => "New Ticket",
                                                   Username => "Bannu",
                                                   Password => "test-password",
                                                   Account => "local-account"
                                                  }
                              ),
	
 SOAP::Data->name(TicketInformation =>{
                                                    createStatus => "Private",
                                                    ISPCustomer => "N",
                                                    AS => "ABC 111 00",
                                                    Embargo=>"false"
                                                   }
                              )

);

#Enable fault management globally
  use SOAP::Lite
    on_fault => sub { my($soap, $res) = @_;
      eval { die ref $res ? $res->faultstring : $soap->transport->status };
                      return ref $res ? $res : new SOAP::SOM;
    };


#print $soap->fault ? $soap->faultstring. "\n" : $soap->result;

my $soap = SOAP::Lite
        -> proxy('http://localhost/perl/soap-dbi.pl')
        -> serializer($serializer)
        -> uri($uri);
my $res = $soap->byName(@data);

#print $soap->retrieveDocument->result;
print $res->fault ? $res->faultstring. "\n" : $res->result;