Dcunningham: Created page with "

 #!/usr/bin/perl -w use strict; use Data::Dumper; use SOAP::Lite;  my $proxy = 'http://127.0.0.1/api/soap/'; my $username = 'soaptest'; my $password = 'soappw';  my..."


2015-02-25T00:07:57Z
Created page with "<code><pre> #!/usr/bin/perl -w use strict; use Data::Dumper; use SOAP::Lite;  my $proxy = 'http://127.0.0.1/api/soap/'; my $username = 'soaptest'; my $password = 'soappw';  my..."
New page
<code><pre>

#!/usr/bin/perl -w

use strict;

use Data::Dumper;

use SOAP::Lite;



my $proxy = 'http://127.0.0.1/api/soap/';

my $username = 'soaptest';

my $password = 'soappw';



my $soap_client = SOAP::Lite->new(

    uri => 'Integrics/Enswitch/API',

    proxy => $proxy,

    on_fault => sub {

        goto &soap_error;

        }

    );

my @return_array = $soap_client->call( 'get_person', $username, $password, 0, 'findme@person.com' )->paramsall();

print Dumper $return_array[ 0 ];

exit 0;



sub soap_error {

    my ( $soap, $res ) = @_;



    if ( ref $res ) {

        die $res->faultstring();

    } else {

        die $soap->transport->status();

    }

}

</pre></code>

SOAP Client Perl Exmple - Revision history

Dcunningham: Created page with " `#!/usr/bin/perl -w use strict; use Data::Dumper; use SOAP::Lite; my $proxy = 'http://127.0.0.1/api/soap/'; my $username = 'soaptest'; my $password = 'soappw'; my..."`