Perl
Perl
BaFin MVP Portal SOAP Web Service MTOM
See more REST Misc Examples
Demonstrate how to send a SOAP request with MTOM attachment to the BaFin MVP Portal as indicated at https://www.bafin.de/SharedDocs/Downloads/EN/dl_mvp-portal_soap_webservice_a26mifir_en.pdfChilkat Perl Downloads
use chilkat();
$success = 0;
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$rest = chilkat::CkRest->new();
# Connect to portal.mvp.bafin.de:444
$bTls = 1;
$port = 444;
$bAutoReconnect = 1;
$success = $rest->Connect("portal.mvp.bafin.de",$port,$bTls,$bAutoReconnect);
if ($success != 1) {
print $rest->lastErrorText() . "\r\n";
exit;
}
# The SOAP request we'll be sending is multipart/related and it will have two parts
# 1) the SOAP Envelope
# 2) the MTOM attachment (in this case an XML document)
# Let's build the SOAP envelope:
# Note: The data posted here, including the username, are not actual accounts. It is the sample data provided
# at https://www.bafin.de/SharedDocs/Downloads/EN/dl_mvp-portal_soap_webservice_a26mifir_en.pdf
# Use this online tool to generate code from sample XML:
# Generate Code to Create XML
$soapXml = chilkat::CkXml->new();
$soapXml->put_Tag("soapenv:Envelope");
$soapXml->AddAttribute("xmlns:a26mifir","http://www.bafin.de/mvp/a26mifir/");
$soapXml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$soapXml->UpdateAttrAt("soapenv:Header|wsse:Security",1,"soapenv:mustUnderstand","1");
$soapXml->UpdateAttrAt("soapenv:Header|wsse:Security",1,"xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd");
$soapXml->UpdateAttrAt("soapenv:Header|wsse:Security",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurityutility-1.0.xsd");
$soapXml->UpdateAttrAt("soapenv:Header|wsse:Security|wsse:UsernameToken",1,"wsu:Id","UsernameToken44C3662D584567FE6A14672949268541");
$soapXml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Username","karl.meier1234#hg_05_1234567890");
$soapXml->UpdateAttrAt("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Password",1,"Type","http://docs.oasis-open.org/wss/2004/01/oasis200401-wss-username-token-profile-1.0#PasswordText");
$soapXml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Password","XXXXXXXXXX");
$soapXml->UpdateAttrAt("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Nonce",1,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis200401-wss-soap-message-security1.0#Base64Binary");
$soapXml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:UsernameToken|wsse:Nonce","+WifMh5kFw/1fHgMahFu7A==");
$soapXml->UpdateChildContent("soapenv:Header|wsse:Security|wsse:UsernameToken|wsu:Created","2016-06-30T13:55:26.852Z");
$soapXml->UpdateChildContent("soapenv:Body|a26mifir:submitDATTRA|inDATTRA|a26mifir:dateiname","A26MiFIR_Testfile_001.xml");
$soapXml->UpdateChildContent("soapenv:Body|a26mifir:submitDATTRA|kundenreferenz","ClientRef_001");
$soapXml->UpdateAttrAt("soapenv:Body|a26mifir:submitDATTRA|datei|inc:Include",1,"href","cid:139580394822");
$soapXml->UpdateAttrAt("soapenv:Body|a26mifir:submitDATTRA|datei|inc:Include",1,"xmlns:inc","http://www.w3.org/2004/08/xop/include");
# We built the following XML:
# <?xml version="1.0" encoding="utf-8"?>
# <soapenv:Envelope xmlns:a26mifir="http://www.bafin.de/mvp/a26mifir/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
# <soapenv:Header>
# <wsse:Security soapenv:mustUnderstand="1" xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurityutility-1.0.xsd">
# <wsse:UsernameToken wsu:Id="UsernameToken44C3662D584567FE6A14672949268541">
# <wsse:Username>karl.meier1234#hg_05_1234567890</wsse:Username>
# <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis200401-wss-username-token-profile-1.0#PasswordText">XXXXXXXXXX</wsse:Password>
# <wsse:Nonce EncodingType="http://docs.oasis-open.org/wss/2004/01/oasis200401-wss-soap-message-security1.0#Base64Binary">+WifMh5kFw/1fHgMahFu7A==</wsse:Nonce>
# <wsu:Created>2016-06-30T13:55:26.852Z</wsu:Created>
# </wsse:UsernameToken>
# </wsse:Security>
# </soapenv:Header>
# <soapenv:Body>
# <a26mifir:submitDATTRA>
# <inDATTRA>
# <a26mifir:dateiname>A26MiFIR_Testfile_001.xml</a26mifir:dateiname>
# </inDATTRA>
# <kundenreferenz>ClientRef_001</kundenreferenz>
# <datei>
# <inc:Include href="cid:139580394822" xmlns:inc="http://www.w3.org/2004/08/xop/include"/>
# </datei>
# </a26mifir:submitDATTRA>
# </soapenv:Body>
# </soapenv:Envelope>
# ------------------------------------------------------------
# We want the top-most header of our request to look like this:
# POST https://portal.mvp.bafin.de:444/services/ws/t_a26mifir HTTP/1.1
# Content-Encoding: gzip
# Accept-Encoding: gzip,deflate
# Content-Type: multipart/related; type="application/xop+xml";
# start="<rootpart@soapui.org>"; start-info="text/xml"; boundary="----=_Part_3_19706996.1467294979823"
# SOAPAction: "http://www.bafin.de/mvp/a26mifir/submitDATTRA"
# MIME-Version: 1.0
# Transfer-Encoding: chunked
# Host: portal.mvp.bafin.de:444
# Connection: Keep-Alive
# User-Agent: Apache-HttpClient/4.1.1 (java 1.5)
# Some header fields are unimportant.
# 1) We can omit the User-Agent.
# 2) Also, the Transfer-Encoding doesn't need to be "chunked". It shouldn't matter whether it's chunked or non-chunked.
# 3) We do need the Content-Encoding to be "gzip", because the documentation at https://www.bafin.de/SharedDocs/Downloads/EN/dl_mvp-portal_soap_webservice_a26mifir_en.pdf
# explicitly states that it wants a gzip compressed request body.
# 4) Don't worry about specifying a boundary. Chilkat will auto-generate a boundary and add it to the Content-Type.
# 5) If we're sending many requests on the same connection, then set the Connection: Keep-Alive header. Otherwise, there is no need for it.
# Begin specifying header fields for the topmost header:
$rest->AddHeader("Content-Type",'multipart/related; type=\'application/xop+xml\'; start=\'<rootpart@soapui.org>\'; start-info=\'text/xml\'');
$rest->AddHeader("Content-Encoding","gzip");
$rest->AddHeader("Accept-Encoding","gzip,deflate");
$rest->AddHeader("SOAPAction","http://www.bafin.de/mvp/a26mifir/submitDATTRA");
$rest->AddHeader("MIME-Version","1.0");
$rest->AddHeader("Connection","Keep-Alive");
# ------------------------------------------------------------
# Build the header for the 1st sub-part, which will contain the SOAP envelope.
# It will look like this:
# Content-Type: application/xop+xml; charset=UTF-8; type="text/xml"
# Content-Transfer-Encoding: 8bit
# Content-ID: <rootpart@soapui.org>
$rest->put_PartSelector("1");
$rest->AddHeader("Content-Type","application/xop+xml; charset=UTF-8; type=\"text/xml\"");
$rest->AddHeader("Content-Transfer-Encoding","8bit");
$rest->AddHeader("Content-ID",'<rootpart@soapui.org>');
$soapXml->put_EmitCompact(1);
$soapXml->put_EmitXmlDecl(0);
$rest->SetMultipartBodyString($soapXml->getXml());
# ------------------------------------------------------------
# Build the header for the 1st sub-part, which will contain the SOAP envelope.
# It will look like this:
# Content-Type: application/octet-binary; name=A26MiFIR_Testfile_001.xml
# Content-Transfer-Encoding: binary
# Content-ID: <139580394822>
# Content-Disposition: attachment; name=" A26MiFIR_Testfile_001.xml"; filename="A26MiFIR_Testfile_001.xml"
$rest->put_PartSelector("2");
$rest->AddHeader("Content-Type","application/octet-binary; name=A26MiFIR_Testfile_001.xml");
$rest->AddHeader("Content-Transfer-Encoding","binary");
$rest->AddHeader("Content-ID","<139580394822>");
$rest->AddHeader("Content-Disposition","attachment; name=\"A26MiFIR_Testfile_001.xml\"; filename=\"A26MiFIR_Testfile_001.xml\"");
# We'll just use a fake attachment XML body for this example
$rest->SetMultipartBodyString("<test>blah blah blah</test>");
# ------------------------------------------------------------
# The request is fully specified. Now send the POST...
# Turn on DebugMode. This is a mode where no request is sent. Instead, the request that would've been
# sent is recorded and can be retrieved via the GetLastDebugRequest method.
$rest->put_DebugMode(1);
$responseBody = $rest->fullRequestMultipart("POST","/services/ws/t_a26mifir");
if ($rest->get_LastMethodSuccess() != 1) {
print $rest->lastErrorText() . "\r\n";
exit;
}
# Because we set DebugMode, no request was actually sent. Instead, we can examine the exact
# request that would've been sent:
if ($rest->get_DebugMode() == 1) {
$bdRequest = chilkat::CkBinData->new();
$success = $rest->GetLastDebugRequest($bdRequest);
$success = $bdRequest->WriteFile("qa_output/bafin_request.txt");
}
print "Success." . "\r\n";
# Clear the REST object for any subsequent requests..
$rest->ClearAllHeaders();
$rest->ClearAllParts();
$rest->put_PartSelector("");