<div dir="ltr">Hi Kit,<div><br></div><div>You do not need to do any formatting - just add the data to the data structure. XML::Compile will take care of the Base64 encoding.</div><div><br></div><div><div>I created the data structure using explain method from the XML::Compile::WSDL11 module.</div><div><br></div><div>Creating the request looks something like this:</div><div><br></div><div>my %Request;</div><div>$Request{TransactionId} = $transaction_number;</div><div>$Request{SenderInfo} = \%SenderInfo;</div><div>$Request{Document} = \%Document;</div><div>my @result = (parameters => { Request => \%Request });</div><div><br></div><div>And, here is the script that I used to generate the data structure using explain.</div><div> </div><div>use strict;</div><div>use warnings;</div><div> </div><div>use XML::Compile::WSDL11; # use WSDL version 1.1</div><div>use XML::Compile::SOAP11; # use SOAP version 1.1</div><div>use XML::Compile::Transport::SOAPHTTP;</div><div>use XML::Compile::XOP;</div><div> </div><div>my $explain_input_file = 'input.txt';</div><div>my $explain_output_file = 'output.txt';</div><div> </div><div>my $wsdl = XML::Compile::WSDL11->new('SERVICE.WSDL');</div><div>$wsdl->importDefinitions('XMLMimeTypes.xsd');</div><div>$wsdl->importDefinitions('SERVICE.XSD');</div><div><br></div><div>my $call = $wsdl->compileClient('UploadOperation');</div><div> </div><div>if (open(my $ifh, '>', $explain_input_file)) {</div><div> </div><div> print $ifh $wsdl->explain('UploadOperation', PERL => 'INPUT', recurse => 1);</div><div> close($ifh);</div><div> </div><div>} else {</div><div> </div><div> die "[Error] UNABLE TO OPEN [$explain_input_file] - [$!]";</div><div> </div><div>}</div><div> </div><div>if (open(my $ofh, '>', $explain_output_file)) {</div><div> </div><div> print $ofh $wsdl->explain('UploadOperation', PERL => 'OUTPUT', recurse => 1);</div><div> close($ofh);</div><div> </div><div>} else {</div><div> </div><div> die "[Error] UNABLE TO OPEN [$explain_output_file] - [$!]";</div><div> </div><div>}</div><div> </div><div>print "Done\n";</div></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Oct 18, 2016 at 7:23 AM, Kit Peters <span dir="ltr"><<a href="mailto:Kit.Peters@broadbean.com" target="_blank">Kit.Peters@broadbean.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div bgcolor="white" lang="EN-US" link="blue" vlink="purple">
<div class="m_5193527851839430188WordSection1">
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:Calibri">What do your @request_params look like there? Because I’m not seeing anywhere that your request is being formatted as XOP/MTOM.<u></u><u></u></span></p><span class="">
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:Calibri"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:Calibri">KP<u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:Calibri"><u></u> <u></u></span></p>
<div>
<div>
<p class="MsoNormal"><span style="font-size:10.5pt;font-family:Calibri;color:black">--<u></u><u></u></span></p>
</div>
</div>
<p class="MsoNormal"><span style="font-size:11.5pt;font-family:"Calibri Light";color:#919195">Kit Peters</span><span style="font-size:13.5pt;font-family:Times;color:black"><br>
</span><span style="font-size:9.5pt;font-family:"Calibri Light";color:#566b10">Doer of Things, ATS Integrations<br>
</span><span style="font-size:9.5pt;font-family:"Calibri Light";color:#919195">D: <a href="tel:%2B1%20949%20793%208208" value="+19497938208" target="_blank">+1 949 793 8208</a> M: <a href="tel:%2B1%20816%20200%200279" value="+18162000279" target="_blank">+1 816 200 0279</a></span><span style="font-size:11.0pt;font-family:Calibri"><u></u><u></u></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:Calibri"><u></u> <u></u></span></p>
</span><div style="border:none;border-top:solid #b5c4df 1.0pt;padding:3.0pt 0in 0in 0in">
<p class="MsoNormal"><b><span style="font-family:Calibri;color:black">From: </span>
</b><span style="font-family:Calibri;color:black">Christopher Taranto <<a href="mailto:christopher@tokpela.com" target="_blank">christopher@tokpela.com</a>><br>
<b>Date: </b>Monday, October 17, 2016 at 18:55<br>
<b>To: </b>Kit Peters <<a href="mailto:Kit.Peters@broadbean.com" target="_blank">Kit.Peters@broadbean.com</a>><br>
<b>Cc: </b>Mark Overmeer <<a href="mailto:mark@overmeer.net" target="_blank">mark@overmeer.net</a>>, "<a href="mailto:xml-compile@lists.scsys.co.uk" target="_blank">xml-compile@lists.scsys.co.uk</a><wbr>" <<a href="mailto:xml-compile@lists.scsys.co.uk" target="_blank">xml-compile@lists.scsys.co.uk</a><wbr>><br>
<b>Subject: </b>Re: [Xml-compile] XOP with XML::Compile::WSDL11<u></u><u></u></span></p>
</div><div><div class="h5">
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Hi Kip, <u></u><u></u></p>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">@Hi Mark!<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">I've been using XOP for a few years in Production with XML::Compile in two different scripts. <u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">It's been a while since I had to put this together so I don't remember the particulars. <u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">The below code is not the working code - as it is separated behind objects etc - but I think I have patched together the general theme:<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">I hope this helps!<u></u><u></u></p>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
<div>
<p class="MsoNormal">Chris<u></u><u></u></p>
</div>
<div>
<pre style="white-space:pre-wrap"><span style="color:black">use XML::Compile::WSDL11; # use WSDL version 1.1<u></u><u></u></span></pre>
<pre><span style="color:black">use XML::Compile::SOAP11; # use SOAP version 1.1<u></u><u></u></span></pre>
<pre><span style="color:black">use XML::Compile::Transport::<wbr>SOAPHTTP;<u></u><u></u></span></pre>
<pre><span style="color:black">use XML::Compile::XOP;<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">my $xml_compile = XML::Compile::WSDL11->new($<wbr>primary_wsdl,<u></u><u></u></span></pre>
<pre><span style="color:black"> schema_dirs => \@schema_dirs) <u></u><u></u></span></pre>
<pre><span style="color:black"> || die "[Error] UNABLE TO CREATE XML::Compile::WSDL11 OBJECT";<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">foreach (@wsdls) {<u></u><u></u></span></pre>
<pre><span style="color:black"> $xml_compile->addWSDL($_);<u></u><u></u></span></pre>
<pre><span style="color:black">}<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">foreach (@schemas) {<u></u><u></u></span></pre>
<pre><span style="color:black"> $xml_compile-><wbr>importDefinitions($_);<u></u><u></u></span></pre>
<pre><span style="color:black">}<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black"># setup the XML::Compile transport for HTTP with the LWP user_agent<u></u><u></u></span></pre>
<pre><span style="color:black">my $ua = LWP::UserAgent->new(keep_alive => 1);<u></u><u></u></span></pre>
<pre><span style="color:black"> <u></u><u></u></span></pre>
<pre><span style="color:black">if ($jar_file) {<u></u><u></u></span></pre>
<pre><span style="color:black"> <u></u><u></u></span></pre>
<pre><span style="color:black"> $ua->cookie_jar( {file => $jar_file, <u></u><u></u></span></pre>
<pre><span style="color:black"> autosave => 1, <u></u><u></u></span></pre>
<pre><span style="color:black"> ignore_discard => 1 });<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">}<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">my $transport = XML::Compile::Transport::<wbr>SOAPHTTP->new(user_agent => $ua, <u></u><u></u></span></pre>
<pre><span style="color:black"> <wbr> soap => $self->soap_version);<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black"># compile the client call <u></u><u></u></span></pre>
<pre><span style="color:black">my $client_call = $xml_compile->compileClient($<wbr>operation_name, <u></u><u></u></span></pre>
<pre><span style="color:black"> port => $service_port, <u></u><u></u></span></pre>
<pre><span style="color:black"> <wbr> trans => $transport);<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">my ($answer, $trace, $xops);<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">eval {<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black"> ($answer, $trace, $xops) = $client_call->(@request_<wbr>params);<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">};<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">if ($@) {<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black"> die "[Error] UNABLE TO COMPLETE REQUEST: [$@] - ANSWER[$answer] - TRACE[$trace] - XOPS[$xops]";<u></u><u></u></span></pre>
<pre><span style="color:black"><u></u> <u></u></span></pre>
<pre><span style="color:black">}<u></u><u></u></span></pre>
</div>
</div>
<div>
<p class="MsoNormal"><u></u> <u></u></p>
<div>
<p class="MsoNormal">On Mon, Oct 17, 2016 at 4:27 PM, Kit Peters <<a href="mailto:Kit.Peters@broadbean.com" target="_blank">Kit.Peters@broadbean.com</a>> wrote:<u></u><u></u></p>
<blockquote style="border:none;border-left:solid #cccccc 1.0pt;padding:0in 0in 0in 6.0pt;margin-left:4.8pt;margin-right:0in">
<p class="MsoNormal">I tried that, like so (not actual code):<br>
<br>
# $xml_content is <Attributes>…</Attributes><<wbr>Content>…</Content><span style="font-family:PMingLiU"><br>
</span>my $xop = XML::Compile::XOP->new;<span style="font-family:PMingLiU"><br>
</span>my $content = $xop->bytes( $xml_content, type => ‘text/xml’ );<span style="font-family:PMingLiU"><br>
</span># Call to submitLargeDocument has been compiled already<span style="font-family:PMingLiU"><br>
</span>$wsdl->call( ‘submitLargeDocument’, parameters => { Document => $content } );<span style="font-family:PMingLiU"><br>
<br>
</span>And when I look at the content just before it’s sent to the server, I don’t see that it’s being translated into MTOM. Instead I see:<span style="font-family:PMingLiU"><br>
<br>
</span><?xml version="1.0" encoding="UTF-8"?><span style="font-family:PMingLiU"><br>
</span><soap11:Envelope xmlns:soap11="<a href="http://schemas.xmlsoap.org/soap/envelope/" target="_blank">http://schemas.<wbr>xmlsoap.org/soap/envelope/</a>"><br>
<soap11:Header><br>
<wsa:MessageID xmlns:wsa="<a href="http://www.w3.org/2005/03/addressing" target="_blank">http://www.w3.org/<wbr>2005/03/addressing</a>">Query-<wbr>Export-5490E6F8-94BE-11E6-<wbr>9A62-DBB52521867A</wsa:<wbr>MessageID><br>
<wsa:ReplyTo xmlns:wsa="<a href="http://www.w3.org/2005/03/addressing" target="_blank">http://www.w3.org/<wbr>2005/03/addressing</a>"><br>
<wsa:Address><a href="http://www.taleo.com/ws/integration/toolkit/2005/07/addressing/queue" target="_blank">http://www.taleo.<wbr>com/ws/integration/toolkit/<wbr>2005/07/addressing/queue</a></wsa:<wbr>Address><br>
</wsa:ReplyTo><br>
<wsa:Action xmlns:wsa="<a href="http://www.w3.org/2005/03/addressing" target="_blank">http://www.w3.org/<wbr>2005/03/addressing</a>"><a href="http://www.taleo.com/ws/integration/toolkit/2005/07/action/export" target="_blank">http://<wbr>www.taleo.com/ws/integration/<wbr>toolkit/2005/07/action/export</a><<wbr>/wsa:Action><br>
</soap11:Header><br>
<soap11:Body><br>
<tns0:submitLargeDocument xmlns:tns0="<a href="http://www.taleo.com/ws/integration/toolkit/2011/05/management" target="_blank">http://www.taleo.<wbr>com/ws/integration/toolkit/<wbr>2011/05/management</a>" xmlns:xsi="<a href="http://www.w3.org/2001/XMLSchema-instance" target="_blank">http://www.w3.org/<wbr>2001/XMLSchema-instance</a>"><br>
<tns0:Document><!-- # Long base64 string redacted --> tns0:Document><br>
</tns0:submitLargeDocument><br>
</soap11:Body><br>
</soap11:Envelope><br>
<br>
I expect this is happening because of the following element in the WSDL:<br>
<br>
<xsd:element name="submitLargeDocument"><br>
<xsd:complexType><br>
<xsd:sequence><br>
<xsd:element maxOccurs="1" minOccurs="1" name="Document" nillable="true" type="nsm:StreamBody" nsxmlmime:<wbr>expectedContentTypes="<wbr>application/octet-stream"/><br>
</xsd:sequence><br>
</xsd:complexType><br>
</xsd:element><br>
<br>
Am I doing the XOP right, and if so, how do I put this into MTOM, rather than just base64 encoding the XML fragment? Do I need to fiddle the WSDL somehow?<br>
<br>
KP<br>
--<br>
Kit Peters<br>
Doer of Things, ATS Integrations<br>
D: <a href="tel:%2B1%20949%20793%208208" target="_blank">+1 949 793 8208</a> M: <a href="tel:%2B1%20816%20200%200279" target="_blank">
+1 816 200 0279</a><br>
<br>
On 10/17/16, 04:54, "Mark Overmeer" <<a href="mailto:mark@overmeer.net" target="_blank">mark@overmeer.net</a>> wrote:<br>
<br>
* Kit Peters (<a href="mailto:Kit.Peters@broadbean.com" target="_blank">Kit.Peters@broadbean.com</a>) [161014 15:33]:<br>
> How do I make an XOP request using XML::Compile::WSDL11? I’ve seen<span style="font-family:PMingLiU"><br>
</span> > the XOP unit test in XML::Compile::SOAP, but I’m not sure how to adapt<span style="font-family:PMingLiU"><br>
</span> > that to a compiled call with XML::Compile::WSDL11.<span style="font-family:PMingLiU"><br>
<br>
</span> Produce the XOP Include elements and put them in your data-tree on the<span style="font-family:PMingLiU"><br>
</span> usual spot for that data. During the creation of the SOAP message,<br>
it will get attached and replaced by the attachement reference.<br>
--<br>
greetz,<br>
MarkOv<br>
<br>
------------------------------<wbr>------------------------------<wbr>------------<br>
Mark Overmeer MSc MARKOV Solutions<br>
Mark@Overmeer.net <a href="mailto:solutions@overmeer.net" target="_blank">
solutions@overmeer.net</a><br>
<a href="http://Mark.Overmeer.net" target="_blank">http://Mark.Overmeer.net</a> <a href="http://solutions.overmeer.net" target="_blank">http://solutions.overmeer.net</a><br>
<br>
<br>
<br>
______________________________<wbr>_________________<br>
Xml-compile mailing list<br>
<a href="mailto:Xml-compile@lists.scsys.co.uk" target="_blank">Xml-compile@lists.scsys.co.uk</a><br>
<a href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/xml-compile" target="_blank">http://lists.scsys.co.uk/cgi-<wbr>bin/mailman/listinfo/xml-<wbr>compile</a><u></u><u></u></p>
</blockquote>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
</div>
</div></div></div>
</div>
</blockquote></div><br></div>