Skip to content

Instantly share code, notes, and snippets.

@loe

loe/request.xml

Created June 13, 2013 23:39
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save loe/5778355 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save loe/5778355 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. loe created this gist Jun 13, 2013.
    12 changes: 12 additions & 0 deletions request.xml
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,12 @@
    <?xml version="1.0" encoding="UTF-8"?>
    <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:ns="http://services.muhimbi.com/2009/10/06" xmlns:ns1="http://types.muhimbi.com/2009/10/06" xmlns:ns2="http://types.muhimbi.com/2010/05/17">
    <soapenv:Body>
    <ns:GetDiagnostics>
    <ns:convertersToDiagnose>
    <ns1:DiagnosticRequestItem>
    <ns1:ConverterName>WordProcessing</ns1:ConverterName>
    </ns1:DiagnosticRequestItem>
    </ns:convertersToDiagnose>
    </ns:GetDiagnostics>
    </soapenv:Body>
    </soapenv:Envelope>
    15 changes: 15 additions & 0 deletions script.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,15 @@
    use SOAP::Lite +trace;
    use warnings;

    my $client = SOAP::Lite
    ->readable(1)
    ->uri("http://services.muhimbi.com/2009/10/06")
    ->proxy("http://ms.onehub.com:41734/Muhimbi.DocumentConverter.WebService/")
    ->ns("http://services.muhimbi.com/2009/10/06", 'ns')
    ->ns("http://types.muhimbi.com/2009/10/06", 'ns1')
    ->ns("http://types.muhimbi.com/2010/05/17", 'ns2');

    my $method = SOAP::Data->name('GetDiagnostics' => \SOAP::Data->value(
    SOAP::Data->name('convertersToDiagnose' => '123')));

    print $client->call($method)->result;