Perl

Another SOAP with MTOM XOP Attachment Example

See more HTTP Examples

Demonstrates another multipart/related MTOM SOAP request that adds additional headers in each MIME sub-part, and also specifies Content-Transfer-Encoding in the sub-parts. Perl

use chilkat();

$success = 0;

# This example sends a request such as the following:

# POST /FseInsServicesWeb/services/fseComunicazioneMetadati HTTP/1.1
# Connection: Keep-Alive
# Content-Length: 50649
# Content-Type: multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_0_355796458.1662133302632"
# Accept-Encoding: gzip,deflate
# Authorization: Basic xxxxx
# Host: ...
# SOAPAction: "http://comunicazionemetadati.wsdl.fse.ini.finanze.it/ComunicazioneMetadati"
# MIME-Version: 1.0
# 
# ------=_Part_0_355796458.1662133302632
# Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
# Content-Transfer-Encoding: 8bit
# Content-ID: <rootpart@soapui.org>
# 
# <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:com="http://comunicazionemetadatirichiesta.xsd.fse.ini.finanze.it" xmlns:tip="http://tipodaticomunicazionemetadati.xsd.fse.ini.finanze.it">
# <soapenv:Header/>
# ...
# 
# ------=_Part_0_355796458.1662133302632
# Content-Type: text/xml; charset=Cp1252
# Content-Transfer-Encoding: quoted-printable
# Content-ID: <CDA2LAB_190_signed.xml>
# Content-Disposition: attachment; name="CDA2LAB_190_signed.xml"
# 
# <!-- INSERIRE IL RIFERIMENTO AL FOGLIO DI STILE DI AGID OPPURE INSERIRNE UN=
# ...
# 
# ------=_Part_0_355796458.1662133302632--

$http = chilkat::CkHttp->new();
$req = chilkat::CkHttpRequest->new();

$req->put_HttpVerb("POST");
$req->put_Path("/FseInsServicesWeb/services/fseComunicazioneMetadati");

# Chilkat will automatically generate and add a boundary string.
$req->put_ContentType('multipart/related; type=\'application/xop+xml\'; start=\'<rootpart@soapui.org>\'; start-info=\'text/xml\'');
$req->AddHeader("SOAPAction","some-SOAP-action");

$req->AddHeader("Connection","Keep-Alive");
$req->AddHeader("Accept-Encoding","gzip,deflate");
$req->AddHeader("MIME-Version","1.0");

# Chilkat will automatically add the Content-Length and Host headers.

# The "Authorization: Basic ..."  header is added by setting the Login and Password and specifying Basic authentication:
$http->put_Login("...");
$http->put_Password("...");
$http->put_BasicAuth(1);

# Add the 1st multipart/related sub-part, which is the SOAP envelope.
$xmlBody = "<soapenv:Envelope ....";
$success = $req->AddStringForUpload2("","",$xmlBody,"utf-8","application/xop+xml; type=\"text/xml\"; charset=utf-8");

# Additional headers for the 1st sub-part
$success = $req->AddSubHeader(0,"Content-ID",'<rootpart@soapui.org>');
$success = $req->AddSubHeader(0,"Content-Transfer-Encoding","8bit");
$success = $req->AddSubHeader(0,"Content-Disposition","");

# Add the 2nd multipart/related sub-part, which is the signed XML
$xmlBody2 = "<!-- INSERIRE IL RIFERIMENT ....";
$success = $req->AddStringForUpload2("CDA2LAB_190_signed.xml","",$xmlBody2,"Cp1252","text/xml; charset=Cp1252");

# Additional headers for the 2nd sub-part.
$success = $req->AddSubHeader(1,"Content-ID","<CDA2LAB_190_signed.xml>");
$success = $req->AddSubHeader(1,"Content-Transfer-Encoding","quoted-printable");
$success = $req->AddSubHeader(1,"Content-Disposition","attachment; name=\"CDA2LAB_190_signed.xml\"");

$http->put_FollowRedirects(1);

$useTls = 1;
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpSReq("fseservicetest.sanita.finanze.it",443,$useTls,$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$xmlResponse = chilkat::CkXml->new();
$success = $xmlResponse->LoadXml($resp->bodyStr());
print $xmlResponse->getXml() . "\r\n";