Foro - Perl en Español

Hola amigos, si bien he leído varios foros de cómo realizar la creación de un webservice en SOAP para el consumo de uno en .NET al tratar de autenticarme me arroja 500 Internal Server Error

El script es el siguiente :

use SOAP::Lite 'trace', 'debug';

SOAP::Lite->soapversion('1.2');
sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'user' => 'passwd';
}

my $result = SOAP::Lite
->uri('https://url.go.gt')
->proxy('https://www.worldcomex.com/application/icomexvi/enlaces_de_datos/servicio_enlace_icomexvi.asmx', timeout => 5)
->result;

print $result;

Desde ya, muchas gracias por su ayuda.

Bienvenido a los foros de Perl en español, aseverinom.

En los log del servidor web debe haber más información de por qué sale ese error 500.

El programa que muestras es el cliente, ¿no?, entonces... lo deberías ejecutar desde la línea de comandos, no a través de un servidor web...

Gracias por tu respuesta. Efectivamente se supone que debería ser el cliente y lo ejecuto desde la línea de comandos. He navegado bastante por los foros y no logro sacar el HTTP/1.1 500 Internal Server Error .... ¿ves algo mal en mi script? Pasa que soy nuevo en esto y lo necesito con suma urgencia, agradecería tu ayuda, gracias.

Este es el script que tengo..

#!/usr/bin/perl -w

use SOAP::Lite 'trace','debug';
use LWP::UserAgent;
use HTTP::Request::Common;

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
return 'usuario' => 'clave';
}


my $server = SOAP::Lite
->uri('http://www.anpworks.cl/')
->on_action( sub { join '/', 'http://www.anpworks.cl/enlace_icomexvi' } )
->proxy('https://www.worldcomex.com/application/icomexvi/enlaces_de_datos/servicio_enlace_icomexvi.asmx');


my $userAgent = LWP::UserAgent->new(agent => 'perl post');

my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<Message xmlns=\"http://schemas.xmlsoap.org/soap/envelope/\">
<datos>
<usuario>usuario</usuario>
<clave>clave</clave>
<empresa>coigo</empresa>
<origen>oc</origen>
<rut_empresa>22.222.220-1</rut_empresa>
<accion>c</accion>
<key_erp></key_erp>
<fecha_desde>01-01-2010</fecha_desde>
<fecha_hasta>02-01-2010</fecha_hasta>
</datos>
</Message>";


# A dónde hacemos el post..
my $response = $userAgent->request(POST 'https://www.worldcomex.com/application/icomexvi/enlaces_de_datos/servicio_enlace_icomexvi.asmx',
Content_Type => 'text/xml',
Content => $message);

print $response->error_as_HTML unless $response->is_success;
my $doc = $response->as_string;
# Hago salto de línea
$doc =~ s/></>\n</g;
print $doc;

A primera vista, no veo errores (aunque también es cierto que hace años que no miro esto del SOAP).

Lo dicho... en el log de errores del servidor web estará la solución (o al menos, una pista).

Ok, cuando hablas del log del servidor web, ¿te refieres al servidor al cual estoy tratando de consumir? Por que el script cliente lo ejecuto vía comando.

Gracias nuevamente...

Sí, una cosa es un servidor web, y otra, un cliente.

Si eso está más que claro veré si puedo obtener información de parte del servidor ya que no tengo acceso a él. Gracias.