(Perl) Yet Another SOAP MTOM POST Example

Demonstrates how to sending a SOAP request with an MTOM/XOP attachment...

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# First build the following XML:

# 	<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 
# 	    xmlns:imp="http://www.yourdomain.it/ImportMultiploWorkflowPAWS/">
# 	   <soapenv:Header/>
# 	   <soapenv:Body>
# 	      <imp:InputImportMultiploWorkflowPA>
# 	         <usernameEis>MyUsername</usernameEis>
# 	         <passwordEis>MyPassword</passwordEis>
# 	         <postazioneEis>COSO00</postazioneEis>
# 	         <istitutoEis>COSO</istitutoEis>
# 	         <codiceAzienda>COSO0000</codiceAzienda>
# 	         <fileZip><inc:Include href="cid:780931946797" xmlns:inc="http://www.w3.org/2004/08/xop/include"/></fileZip>
# 	         <fileZipName>IT04769180151_00044.zip</fileZipName>
# 	         <workflow>carica</workflow>
# 	      </imp:InputImportMultiploWorkflowPA>
# 	   </soapenv:Body>
# 	</soapenv:Envelope>

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->AddAttribute("xmlns:imp","http://www.yourdomain.it/ImportMultiploWorkflowPAWS/");
$xml->UpdateChildContent("soapenv:Header","");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|usernameEis","MyUsername");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|passwordEis","MyPassword");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|postazioneEis","COSO00");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|istitutoEis","COSO");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|codiceAzienda","COSO0000");
$xml->UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",1,"href","cid:780931946797");
$xml->UpdateAttrAt("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZip|inc:Include",1,"xmlns:inc","http://www.w3.org/2004/08/xop/include");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|fileZipName","IT04769180151_00044.zip");
$xml->UpdateChildContent("soapenv:Body|imp:InputImportMultiploWorkflowPA|workflow","carica");

# We want our top-level HTTP request header to look like this:

# POST /http-router-softwarehubsystem/webservices/importMultiploWorkflowPA HTTP/1.1
# Accept-Encoding: gzip,deflate
# Content-Type: multipart/related; type="application/xop+xml"; start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_0_1353857996.1546013984933"
# SOAPAction: "http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA"
# MIME-Version: 1.0
# Content-Length: <chilkat will add this header>
# Host: <chilkat will add this header>
# Connection: Keep-Alive
# User-Agent: Apache-HttpClient/4.1.1 (java 1.5)

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_Path("/http-router-softwarehubsystem/webservices/importMultiploWorkflowPA");
$req->put_ContentType('multipart/related; type=\'application/xop+xml\'; start=\'<rootpart@soapui.org>\'; start-info=\'text/xml\'');
$req->AddHeader("SOAPAction","\"http://www.yourdomain.it/ImportMultiploWorkflowPAWS/importMultiploWorkflowPA\"");
$req->AddHeader("Accept-Encoding","gzip,deflate");
$req->AddHeader("Mime-Version","1.0");
$req->AddHeader("Connection","Keep-Alive");
$req->AddHeader("User-Agent","Apache-HttpClient/4.1.1 (java 1.5)");

# Add the XML content for the 1st MIME sub-part.
$xml->put_EmitXmlDecl(0);
$xml->put_EmitCompact(0);
$success = $req->AddStringForUpload2("","",$xml->getXml(),"utf-8","application/xop+xml; charset=UTF-8; type=\"text/xml\"");

# We want the 1st sub-header (the sub-part containing the XML) to look like this:

# Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
# Content-Transfer-Encoding: 8bit
# Content-ID: <rootpart@soapui.org>

# Make sure we set sub-headers *after* calling AddStringForUpload2, otherwise AddStringForUpload2 might change these explicitly set headers.
$success = $req->AddSubHeader(0,"Content-Transfer-Encoding","8bit");
$success = $req->AddSubHeader(0,"Content-ID",'<rootpart@soapui.org>');

# Add a reference to the local file for the file data for the 2nd MIME sub-part.
$success = $req->AddFileForUpload2("","qa_data/zips/helloWorld.zip","application/zip; name=IT04769180151_00044.zip");

# We want the 2nd sub-header (for the MIME sub-part containing a .zip file) to look like this:
# Content-Type: application/zip; name=IT04769180151_00044.zip
# Content-Transfer-Encoding: binary
# Content-ID: <IT04769180151_00044.zip>
# Content-Disposition: attachment; name="IT04769180151_00044.zip"; filename="IT04769180151_00044.zip"

# Make sure we set sub-headers *after* calling AddFileForUpload2, otherwise AddFileForUpload2 might change these explicitly set headers.
$success = $req->AddSubHeader(1,"Content-Transfer-Encoding","binary");
$success = $req->AddSubHeader(1,"Content-ID","<IT04769180151_00044.zip>");
$success = $req->AddSubHeader(1,"Content-Disposition","attachment; name=\"IT04769180151_00044.zip\"; filename=\"IT04769180151_00044.zip\"");

# Keep a session log so we can examine the exact request/response.
# Remove this line when finished with debugging.
$http->put_SessionLogFilename("qa_output/mtom_sessionLog.txt");

$useTls = 0;
# Note: Please don't run this example without changing the domain to your own domain...
# resp is a HttpResponse
$resp = $http->SynchronousRequest("www.yourdomain.it",80,$useTls,$req);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$xmlResponse = chilkat::CkXml->new();
$success = $xmlResponse->LoadXml($resp->bodyStr());
# println xmlResponse.GetXml();

print "OK." . "\r\n";