Foro - Perl en Español

por **audax** » 2017-07-03 09:40 @444

Saludos a todos.

Necesito una ayuda. Resulta que estoy creando un script que consume un servicio web (WS). Pero el tema es que tengo que pasarle un valor, que lo llamaremos "token". Este token me ayuda para poder identificarme en el WS y así poder hacer la consulta. Este es el código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$clienteConsulta = SOAP::Lite-> service('https://ws2.cl/consultaservice?wsdl');
                $clienteConsulta->soapversion('1.1');
                $clienteConsulta->consultar($numero);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Respuesta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

         <faultcode>S:Client</faultcode>
         <faultstring>Error de Autenticacion: TOKEN invalido</faultstring>
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El tema es que no sé cómo agregar ese "token", ya que no es un dato que pida el método "consultar". Me dijeron que ese token tengo que agregarlo al Header, pero he intentado de varias maneras y no logro agregarlo. Además me indicaron que en .Net quedaría de esta forma

Sintáxis: [ Descargar ] [ Ocultar ]

Using javascript Syntax Highlighting

req.Headers.Add("SOAPAction", SOAPAction);
req.Headers.Add("cookie", Token);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La idea no es hacerlo en .Net sino en Perl.

Bueno, quizás es una tontera lo que estoy pidiendo, pero le he dado varias vueltas y no encuentro la solución.

Muchas gracias por todo.

use SOAP::Lite +trace;
 
$uri = 'urn:Foo';
$proxy = 'http://localhost/';
$username = 'username';
$password = 'password';
 
my $client = SOAP::Lite
        ->readable(1)
        ->uri($uri)
        ->proxy($proxy);
 
$client->autotype(0);
 
my $Username = SOAP::Header->name('Username' => $username);
my $Password = SOAP::Header->name('Password' => $password);
          
my $UsernameToken = SOAP::Header->name('UsernameToken')
            ->value(\SOAP::Header->value($Username, $Password));
my $security = SOAP::Header->name('Security')
            ->attr({'xmlns' => 'http://schemas.xmlsoap.org/ws/2002/xx/secext'})
            ->value(\$UsernameToken);
 
$elem1 = SOAP::Data->name('ELEM1' => "value1");
$elem2 = SOAP::Data->name('ELEM2' => "value2");
$response = $client->mymethod($elem1,$elem2, $security);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

que lo he sacado de este hilo.

Tienes otro ejemplo en este hilo. Observa que para añadir una cabecera, debemos indicar en qué posición del XML se va a agregar la entrada. Quiero decir que llamar a SOAP::Header crea una entrada en el XML de la petición.

por **audax** » 2017-07-03 14:50 @659

Gracias por la respuesta, me diste harto material para estudiar. Te informo cuando lo resuelvo o tenga más dudas. Gracias nuevamente.

Saludos.

por **audax** » 2017-07-03 16:06 @712

Aún no puedo encontrar la solución pero tengo más información.

Lo que necesito es agregar una línea a la cabeza, no dentro del XML (¿me explico?). O sea, tengo esta cabecera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

SOAP::Transport::HTTP::Client::send_receive: POST https://ws2.cl/consultaservice HTTP/1.1

Accept: text/xml

Accept: multipart/*

Accept: application/soap

Content-Length: 1081

Content-Type: text/xml; charset=utf-8

SOAPAction: ""Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Necesito agregar la línea, por ejemplo,

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

cookie: TOKEN=$tokenColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La forma que aparece es usar UserAgent, ahí puedo editar y agregar las líneas que quiera. Pero la idea es usar SOAP::Lite para conectarme al servicio web y con eso no encuentro la forma de hacerlo.

Gracias.

por **explorer** » 2017-07-04 07:03 @335

Vale, entendido.

En la página de manual de SOAP::Lite, dentro de la explicación del método proxy() hay un ejemplo de cómo usar los métodos de LWP::UserAgent() con el objeto SOAP::Lite.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $soap = SOAP::Lite
   ->uri('http://www.example.org/webservice')
   ->default_header(cookie => "TOKEN=$token")
;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Como ves, estamos usando los métodos de LWP::UserAgent de forma directa, para modificar la forma de hacer la petición.

Mira el ejemplo "Using cookies" en el cookbook de SOAP::Lite si quieres usar la galleta que el servidor te ha dado antes, almacenándola en la jarra de galletas.

por **audax** » 2017-07-05 12:27 @560

Gracias por tu ayuda y esfuerzo, explorer, pero, la verdad, aún sigo muy confundido.

He leído harto y lo que he comprendido, es que por lo visto hay dos formas de conectarse a un servicio web (WS). Esto es del método "service" (que es el que ocupo para WS WDSL) y por el método proxy. Intentando por todos lados con proxy no logro conectarme al WS. Este es código con el WS real:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                
my $cookies = 'TOKEN='.$token;
my $client1 = SOAP::Lite 
                       ->uri('http://ws.registroreclamodte.diii.sdi.sii.cl')
                       ->proxy('https://ws2.sii.cl/WSREGISTRORECLAMODTECERT/registroreclamodteservice?wsdl')
                       ->default_header('cookie',$cookies);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La respuesta es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 500 Error
Connection: close
Content-Type: text/xml; charset=utf-8
Client-Date: Wed, 05 Jul 2017 17:13:55 GMT
Client-Peer: 200.10.251.94:443
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=US/CN=Symantec Class 3 Secure Server CA - G4
Client-SSL-Cipher: AES128-GCM-SHA256
Client-SSL-Socket-Class: IO::Socket::SSL
Client-SSL-Warning: Peer certificate not verified
X-Backside-Transport: FAIL FAIL
 
<?xml version='1.0' ?>
<env:Envelope xmlns:env='http://schemas.xmlsoap.org/soap/envelope/'>
<env:Body>
<env:Fault>
<faultcode>env:Client</faultcode>
<faultstring>Internal Error</faultstring>
</env:Fault>
</env:Body>
</env:Envelope>
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Contra el método "service" que sí logro conectarme pero no me sirve el método "default_header".

Respuesta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Unrecognized method 'default_header'. List of available method(s): consultarFechaRecepcionSii listarEventosHistDoc getVersion consultarDocDteCedible ingresarAceptacionReclamoDocColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No sirve usar el service y proxy al mismo tiempo porque Perl se queda con service.

Como verás estoy muy enredado con este tema. Perdón de ante mano por todas las molestias. Gracias.

por **explorer** » 2017-07-06 13:33 @606

El error que sale demuestra que SOAP::Lite ha intentado llamar a un método remoto llamado default_header(), en lugar de aplicarlo al objeto SOAP::Lite, para modificar la cabecera y agregar el token.

Creo que no te he di una buena solución, en el mensaje anterior.

Según el manual de SOAP::Lite, en proxy, los parámetros adicionales para el transporte deben indicarse dentro de proxy(), no después.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $client1 = SOAP::Lite
        ->uri('http://ws.registroreclamodte.diii.sdi.sii.cl')
        ->proxy(
                'https://ws2.sii.cl/WSREGISTRORECLAMODTECERT/registroreclamodteservice?wsdl',
                default_headers => HTTP::Headers->new( cookie => $cookies ),
        )
        ;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Esto es lo primero que debes comprobar: que la cabecera se ha modificado colocando bien la entrada cookie.

Un detalle... Ya que te conectas a un servidor .Net, ¿has comprobado todos los puntos específicos de esa plataforma?

Foro - Perl en Español

Agregar un dato al Header en un WebService

Agregar un dato al Header en un WebService

Publicidad

Re: Agregar un dato al Header en un WebService

Re: Agregar un dato al Header en un WebService

Re: Agregar un dato al Header en un WebService

Re: Agregar un dato al Header en un WebService

Re: Agregar un dato al Header en un WebService

Re: Agregar un dato al Header en un WebService

¿Quién está conectado?