Skip to content

Instantly share code, notes, and snippets.

@Logioniz

Logioniz/dpd.pl

Created August 15, 2017 06:55
Show Gist options
  • Save Logioniz/a67be37859cfc666e6f9b25005ed5f8b to your computer and use it in GitHub Desktop.
Save Logioniz/a67be37859cfc666e6f9b25005ed5f8b to your computer and use it in GitHub Desktop.
Download ZIP
dpd soap::lite example
Raw
dpd.pl
#!/usr/bin/perl
use Mojo::Base -strict;
use SOAP::Lite +trace => 'all';
use DDP;
my $soap = new SOAP::Lite->new;
$soap->autotype(0);
$soap->readable(1);
$soap->service('http://ws.dpd.ru/services/geography2?wsdl');
$soap->ns('http://dpd.ru/ws/geography/2015-05-20');
$soap->proxy('http://ws.dpd.ru/services/geography2');
my $res = $soap->call('getCitiesCashPay',
SOAP::Data->name('request')->value(
\SOAP::Data->name('auth')->value(
\SOAP::Data->value(
SOAP::Data->name('clientNumber')->value('number'),
SOAP::Data->name('clientKey')->value('key')
)
)
)
);
p $res;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment