http://qs321.pair.com?node_id=653287


in reply to SOAP Server and XML

Have you tried this?

SOAP::Data->name( info => $serverinfo )->type('');

Replies are listed 'Best First'.
Re^2: SOAP Server and XML
by Anonymous Monk on Nov 28, 2007 at 02:06 UTC
    I've figured out how to output raw XML into the SOAP envelope:
    Read more... PMServer.pl (1043 Bytes)
    Using the same client as before:
    Read more... PMClient.pl (477 Bytes)
    It produces the following SOAP response: 
    <?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-instanc
+e" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:S
+OAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http:/
+/www.w3.org/1999/XMLSchema" SOAP-ENV:encodingStyle="http://schemas.xm
+lsoap.org/soap/encoding/">
  <SOAP-ENV:Body>
    <namesp1:getServerInfoResponse xmlns:namesp1="http://www.perlmonks
+.org/FileQueue">
      <info>
        <statistics>
          <documentsProcessed>0</documentsProcessed>
        </statistics>
        <validTypes>
          <filetype>html</filetype>
          <filetype>txt</filetype>
        </validTypes>
        <version>0.1.dev</version>
      </info>
    </namesp1:getServerInfoResponse>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

    [download]
     This is closer to the real SOAP server response:
    Read more... Read SOAP Server Response (1458 Bytes)
    I am still trying to figure out how to get rid of the xmlns:namesp1="http://www.perlmonk.org/FileQueue" and the envelope headers.
[reply]
[d/l]
[select]
      Ugh, the message was posted when I wasn't logged in.
      -rppowell
[reply]
        It's kind pointless to use SOAP::Lite if you're going to inject raw XML :-)

        As I said, I don't have enough experience writing SOAP::Lite-based services with that level of control over serialisation, but I'd be quite sure it's possible.

        -David

[reply]
Re^2: SOAP Server and XML
by erroneousBollock (Curate) on Nov 28, 2007 at 02:34 UTC
    That'd probably work for the 'info' node, but rppowell wants to (for reasons unknown) strip type attributes from all nodes descending from the Soap::Body.

    To do that, it'd need to be done either at the $daemon level, or with a custom(ised?) serialiser.

    -David

[reply]
[d/l]

In Section Seekers of Perl Wisdom