Client SOAP / XML

**gizax** · 29-04-2005, 12:46

Ciao ragazzi, stavo realizzando un client SOAP in perl utilizzndo SOAP::Lite. Come faccio a passare un file xml alla richiesta senza dover costruirmelo così:
my $params =
SOAP:

ata->type('ServiceRequest') ->name('id0' =>
SOAP:

ata->value(
SOAP:

ata->name('providerId' => 'test')->type('string'),
SOAP:

ata->name('serviceId' => 'pip001001001')->type('string'),
SOAP:

ata->name('from' => "test")->type('string'),
SOAP:

ata->name('dest' => "c0AA26ED7B6EC1CD1F36E1B9C83E130E0")->type('string'),
SOAP:

ata->name('type' => "4")->type('string'),
SOAP:

ata->name('body' => ["Ciao"])->type('Array'),
)
);

non esiste una cosa del tipo che posso passare direttamente tutto il file xml in una botta?

grazie

**gizax** · 04-05-2005, 22:58

a proposito poi sono riuscito a farlo funzionare... se qualcuno vuoi sono felice di dare la soluzione

**shishii** · 09-05-2005, 13:00

E' sempre bene postare le soluzioni trovate, così tramite le funzioni di ricerca potranno essere utili anche ad altri.

Grazie.

**gizax** · 09-05-2005, 13:09

ok eccola

#!/usr/bin/perl
use strict;
use Sys::Hostname;
use lib "/usr/lib/perl5/site_perl/5.8.6";
use SOAP::Lite +trace => 'debug';
use Data:

umper;

print "Creating soap iface\n";
my $soap = SOAP::Lite
-> service('http://X.X.X.X/daniele/WSDL/SMSDelivery.wsdl')
-> xmlschema('http://www.w3.org/2001/XMLSchema')
-> namespace("soapenv")
-> multirefinplace(1);

my $header_node = SOAP::Header->name('security:sessionContext');
$header_node->type('ordered_hash' => [
'ticket'
=> SOAP:

ata->type('string' => "7795540188362186321114705841786"),
]);
$header_node->attr({"xmlns:security" => "http://xxxxx.xxxxx.it/XMLSchemas/security2.0"});

my $xml = "<multiRef id='id0' soapenc:root='0' soapenv:encodingStyle='http://schemas.xmlsoap.org/soap/encoding/' xsi:type='ns
2:ServiceRequest' xmlns:soapenc='http://schemas.xmlsoap.org/soap/encoding/' xmlns:ns2='http://X.X.X.X:8000/SMSDelivery
.xsd'><providerId xsi:type='xsd:string'>test</providerId><serviceId xsi:type='xsd:string'>test</serviceId><from x
si:type='xsd:string'>TEST</from><message_class xsi:type='xsd:string'>SIM</message_class><dest xsi:type='xsd:string'>329XXXXXXX</dest><type xsi:type='xsd:string'>4</type><body xsi:type='soapenc:Array' soapenc:arrayType='xsd:string[1]'><item>...ch
e la diritta via era smarrita....</item></body></multiRef>";

my $ret = $soap->deliverySMS(my $elem = SOAP:

ata->type('xml' => $xml),$header_node);

Discussione: Client SOAP / XML

Strumenti discussione

Ricerca discussione

Visualizza

Client SOAP / XML

Permessi di invio