a9033164e6
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_25 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_25.tar.gz
27 lines
811 B
Perl
27 lines
811 B
Perl
#!/usr/bin/perl -w
|
|
use strict;
|
|
use warnings;
|
|
use SOAP::Lite;
|
|
|
|
# I have to lookup the URL from the WSDL
|
|
my $soap = SOAP::Lite->new(
|
|
proxy => 'http://localhost:81/soap-wsdl-test/helloworld.pl'
|
|
);
|
|
|
|
# I have to lookup the SOAPAction from the WSDL
|
|
$soap->on_action( sub { "urn:HelloWorld#sayHello" });
|
|
$soap->autotype(0);
|
|
|
|
# I have to lookup the top level element's namespace from the WSDL
|
|
# I have to encode all parameters as SOAP::Data objects
|
|
# I have to know the order of parameters
|
|
my $som = $soap->call(
|
|
SOAP::Data->name("sayHello")
|
|
->attr({ xmlns => 'urn:HelloWorld' }),
|
|
SOAP::Data->name('name')->value( $ARGV[1] || '"Your name"'),
|
|
SOAP::Data->name('givenName')->value( $ARGV[0] || '"Your given name"'),
|
|
);
|
|
|
|
die $som->fault->{ faultstring } if ($som->fault);
|
|
|
|
print $som->result, "\n"; |