Foro - Perl en Español

por **danimera** » 2013-10-15 09:14 @426

Tengo que consumir un webservice y uso SOAP-Lite con un WSDL, pero cuando llamo el método utilizando el modo debug el soaplite me construye el siguiente xml:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<<span class="posthilit">soap</span>:Envelope <span class="posthilit">soap</span>:encodingStyle="http://
schemas.xmlsoap.org/<span class="posthilit">soap</span>/encoding/" xmlns:http="http://schemas.xmlsoap.org/wsdl/
http/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:s="http://www.w3
.org/2001/XMLSchema" xmlns:<span class="posthilit">soap</span>="http://schemas.xmlsoap.org/wsdl/<span class="posthilit">soap</span>/" xmlns:so
ap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soapenc="http://schemas.xml
<span class="posthilit">soap</span>.org/<span class="posthilit">soap</span>/encoding/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
 xmlns:tns="http://www.achcolombia.com.co/PSEHostingWS" xmlns:wsdl="http://schem
as.xmlsoap.org/wsdl/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<<span class="posthilit">soap</span>:Body>
        <tns:getTransactionInformationHosting>
                <ticketOfficeID xsi:type="s:int">66</ticketOfficeID>
                <password xsi:type="s:string">vesta123</password>
                <paymentID xsi:type="s:string">1234</paymentID>
        </tns:getTransactionInformationHosting>
</<span class="posthilit">soap</span>:Body>
</<span class="posthilit">soap</span>:Envelope>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Yo esperaría que me creara algo como esto que está en la especificación:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<<span class="posthilit">soap</span>:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:<span class="posthilit">soap</span>="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/">
  <<span class="posthilit">soap</span>:Body>
    <getTransactionInformationHosting xmlns="http://www.achcolombia.com.co/PSEHostingWS">
      <ticketOfficeID>66</ticketOfficeID>
      <password>string</password>
      <paymentID>string</paymentID>
    </getTransactionInformationHosting>
  </<span class="posthilit">soap</span>:Body>
</<span class="posthilit">soap</span>:Envelope>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La respuesta que tengo con el primer xml que he colocado es sencillamente un

Sintáxis: [ Descargar ] [ Ocultar ]

Bad Request

No sé qué podría hacer. Lo otro sería construir manualmente el XML, pero siento que perdería la esencia del SOAP::Lite.

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/" xmlns:pseh="http://www.achcolombia.com.co/PSEHostingWS">
   <soapenv:Header/>
   <soapenv:Body>
      <pseh:getTransactionInformationHosting>
         <pseh:ticketOfficeID>66</pseh:ticketOfficeID>
         <!--Optional:-->
         <pseh:password>66</pseh:password>
         <!--Optional:-->
         <pseh:paymentID>66</pseh:paymentID>
      </pseh:getTransactionInformationHosting>
   </soapenv:Body>
</soapenv:Envelope>
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Evidentemente el tema es lo que afecta.. Hummm, ¿no hay otra opción? Me tocará construir manualmente el xml

¡Qué tristeza!

por **explorer** » 2013-10-15 10:10 @465

Respondida: hay que llamar al método ns() para que agregue ese namespace a la generación del XML.

Quizás también con register_ns(). Con este método, queda registrado el espacio de nombres en la cabecera del XML, y luego ya puedes llamar a Data() con un argumento que incluya el espacio de nombres: 'tns:getTransactionInformationHosting'.

Hay más resultados, buscando en Google, por SOAP::Lite namespace.

por **danimera** » 2013-10-15 11:48 @533

Perfecto, por ahí la cosa ya mejoró, ahora estoy usando algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                $response = <span class="posthilit">SOAP</span>::Lite->uri('http://www.jggfddd.com./fghhjjj/')
                   ->proxy($self->cfg('ach_host'))
                   ->ns(undef)
                   ->getTransactionInformationHosting (
                                <span class="posthilit">SOAP</span>::Data->name('ticketOfficeID')->value(666)->type('int'),
                                <span class="posthilit">SOAP</span>::Data->name('password')->value('vesta123')->type('string'),
                                <span class="posthilit">SOAP</span>::Data->name('paymentID')->value('1234')->type('string'),
                        );
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo malo es que ahora obtengo error 500, pero ahí vamos ya mejorando.

Obtengo: bad request y este es el xml final generado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?><<span class="posthilit">soap</span>:Envelope <span class="posthilit">soap</span>:encodingStyle="http://
schemas.xmlsoap.org/<span class="posthilit">soap</span>/encoding/" xmlns:namesp1="" xmlns:<span class="posthilit">soap</span>="http://schemas.
xmlsoap.org/<span class="posthilit">soap</span>/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/encod
ing/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/
2001/XMLSchema-instance"><<span class="posthilit">soap</span>:Body><namesp1:getTransactionInformationHosting><t
icketOfficeID xsi:type="xsd:int">666</ticketOfficeID><password xsi:type="xsd:str
ing">vesta123</password><paymentID xsi:type="xsd:string">1234</paymentID></names
p1:getTransactionInformationHosting></<span class="posthilit">soap</span>:Body></<span class="posthilit">soap</span>:Envelope>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo he pegado tal como salió del debug.

por **danimera** » 2013-10-15 12:04 @544

Corrijo. Ahora este es mi xml generado que me muestra el debug de soaplite:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?><<span class="posthilit">soap</span>:Envelope <span class="posthilit">soap</span>:encodingStyle="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/encoding/" xmlns:pseh="https://desarrollo.pse.com.co/PSEHostingWebServices/PSEHostingWS.asmx" xmlns:<span class="posthilit">soap</span>="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/<span class="posthilit">soap</span>/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><<span class="posthilit">soap</span>:Body><pseh:getTransactionInformationHosting><ticketOfficeID xsi:type="xsd:int">666</ticketOfficeID><password xsi:type="xsd:string">vesta123</password><paymentID xsi:type="xsd:string">1234</paymentID></pseh:getTransactionInformationHosting></<span class="posthilit">soap</span>:Body></<span class="posthilit">soap</span>:Envelope>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Efectivamente es lo que espero, pero lastimosamente tengo unos saltos de línea, y cuando copio y pego eso en soapui que es mi programa para soap, obtengo bad request, pero si corrijo el problema de los saltos de líneas, entonces ahí sí consume el webservice...

por **explorer** » 2013-10-15 17:02 @751

Los saltos de línea no deberían influir, ya que es un archivo XML... salvo que ocurran en mitad de las marcas o atributos, lo cual no debe suceder nunca.

Podrías derivar la salida a un archivo de texto, y así la pantalla no te crea los saltos de línea.

por **danimera** » 2013-10-15 17:38 @777

Bueno, pero mi problema ahora es que me devuelve siempre

Sintáxis: [ Descargar ] [ Ocultar ]

SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x578ab00)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error

El debug me muestra esto:

Sintáxis: [ Descargar ] [ Ocultar ]

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyle="http://
schemas.xmlsoap.org/soap/encoding/" xmlns:namesp1="https://xxx.xx.x
/xxxWebServices/xxxHostingWS.asmx" xmlns:soap="http://schemas.xmlsoap.org
/soap/envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns
sd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSch
ema-instance"><soap:Body><namesp1:getTransactionInformationHosting><ticketOffice
ID xsi:type="xsd:int">33</ticketOfficeID><password xsi:type="xsd:string">1234</p
assword><paymentID xsi:type="xsd:string">1234</paymentID></namesp1:getTransactio
nInformationHosting></soap:Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x576db80)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Internal Server Error

Si copio y pego ese xml en mi programa soap ui, me funciona bien si arreglo los saltos de línea, obviamente.

MÁS INFORMACIÓN:

Sintáxis: [ Descargar ] [ Ocultar ]

<soap:Body>
<soap:Fault>
<faultcode>soap:Client</faultcode>
<faultstring>Server did not recognize the value of HTTP Header SOAPAction: https://XXXX/PSEHostingWebServices/XXXH ... ionHosting.
</faultstring><detail /></soap:Fault>
</soap:Body>
</soap:Envelope>

por **danimera** » 2013-10-16 11:04 @502

Finalmente se solucionó el problema de error 500 con soap-lite y servidor en .Net
la clave es:

.Net espera que las acciones los métodos se llamen de la forma:

Sintáxis: [ Descargar ] [ Ocultar ]

XXXHostingWS.asmx/action

y soap-lite me daba algo como

Sintáxis: [ Descargar ] [ Ocultar ]

XXXHostingWS.asmx#action

en la documentación del SOAP-lite claramente explica lo que hay que hacer para eso y eso hice, modificar el método on_action (callback) de la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

$client->on_action( sub { join '/', @_ } );

Para que mi código de: cómo consumir un webservice en .Net en Perl con SOAP-Lite debe ser de la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                # Consultamos el ws
                $response = <span class="posthilit">SOAP</span>::Lite->uri( $self->cfg('ach_ns') );
                $response->on_action( sub { join '/', @_ } );
 
                $response->proxy( $self->cfg('ach_host') )->default_ns( $self->cfg('ach_ns') )->action(
                    <span class="posthilit">SOAP</span>::Data->name('ticket')->value($ticket)->type('int'),
                    <span class="posthilit">SOAP</span>::Data->name('password')->value($password)->type('string'),
                    <span class="posthilit">SOAP</span>::Data->name('paymentID')->value($paymentID)->type('string'),
                )->result;
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Comparto con ustedes esta solución.

por **explorer** » 2013-10-16 13:48 @617

Como era de esperar: Micro$oft tocando las narices.

Foro - Perl en Español

SOAP-Lite no funciona como esperaba

SOAP-Lite no funciona como esperaba

Publicidad

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

Re: SOAP-Lite no funciona como esperaba

¿Quién está conectado?