SOAP post

[GrahamBright]

Hi all,

See the following a Soap implementation using

Soap::Lite
Soap::MIME
MIME::Enity</CODE>

I have one question. After the POST operation


SOAP::Transport::HTTP::Client::send_receive: POST

http://10.236.137.7:10021/vas_soap

HTTP/1.1
Accept: text/xml
Accept: multipart/*
Content-Length: 2810
Content-Type: text/xml
SOAPAction: ""


but I need Content-Type to be multipart/related; boundary="soap-border"; type="text/xml"
start="Test"

is there an easy way to do this

#!/opt/perl5/bin/perl
#############################################
#
# V0.2
# Soap04.pl
##############################################

#use SOAP::Lite maptype => {};
use SOAP::Lite +trace;
use SOAP::MIME;
use MIME::Entity;
$SOAP::Constants:O_NOT_USE_CHARSET = 1;

#Soap variables

#my $cid = "Test";
#my $ent = MIME::Entity->build(Boundary => "soap-boarder", Type => "multipart/related", 'Content-Id' =>"<$cid>");



my $service = SOAP::Lite
-> uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2')

-> on_action(sub { return "\"\""; })
#-> parts($ent)
-> proxy('

http://10.236.137.7:10021/vas_soap');

my $method = SOAP:ata
-> name('SubmitReq')
-> attr({xmlns => '

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'});

my $tx_header = SOAP::Header->name("TransactionID" => 'TransID')->mustUnderstand(1);



my @params = ( $tx_header,
SOAP:ata->name(MM7Version => '4.3.0')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name(SenderIdentification => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( VASPID => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( SenderAddress => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( Recipients => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( To => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( ServiceCode => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( LinkedID => '')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( MessageClass => 'Personal')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( DeliveryReport => 'False')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( ReadReply => 'False')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( Priority => 'Normal')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( Subject => 'TestSoap')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

SOAP:ata->name( Content_href => 'MIME')
->uri('

http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2'),

"Line", 600, );


my $result = $service->call($method => @params);

if ($result->fault)
{
print $result->faultstring;
}

else

{
print $result->valueof('//SubmitReq/MM7Version');

}