perl soap-data-swallow2.pl |xml_pp

#!/usr/bin/perl --


use strict;
use warnings;

use SOAP::Lite;
use SOAP::Lite 0.65 +trace => 'debug';


my $soap = SOAP::Lite
->proxy( 'http://localhost/blah/DummyService' );

print $soap->serializer()->envelope(
    method => 'submitToRemedyForm',  
    SOAP::Data->name(String_1 => 'login'),
    SOAP::Data->name(String_2 => 'password'),
    SOAP::Data->name(String_3 => 'form'),
    SOAP::Data->name(String_4 => 'xxxxxxx'),
);

__END__
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/enc
+oding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:
+soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http:/
+/www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSche
+ma-instance">
  <soap:Body>
    <submitToRemedyForm>
      <String_1 xsi:type="xsd:string">login</String_1>
      <String_2 xsi:type="xsd:string">password</String_2>
      <String_3 xsi:type="xsd:string">form</String_3>
      <String_4 xsi:type="xsd:string">xxxxxxx</String_4>
    </submitToRemedyForm>
  </soap:Body>
</soap:Envelope>
[download]