Foro - Perl en Español

A ver me voy acercando, utilicé el WSDL y cgi del compañero ya que la configuración es la misma respecto al servidor local... pero me da un error 500. A ver si me estaré olvidando de algo... Bueno, al que pueda darme una mano se lo agradeceré...





error

No entiendo lo que me dices. Disculpa, tengo poca experiencia en CGI y clientes WSDL...

scout escribiste:<p>More information about this error may be available
in the server error log.</p>

¿Y qué es lo que dice el log del servidor cuando haces la llamada?

Tienes que verificar además que el cgiserver.cgi tenga los permisos correspondientes, pero lo que diga el log es lo primordial ... Lo probé tal cual en mi máquina, el mismo WSDL y el mismo cliente, y mi servidor CGI es así:



Y el package Servidor.pm



y mi resultado



Veamos qué es lo que dice el log

El error del log del Apache, cuando ejecuto el cliente, es este...


[Sat Jun 11 08:29:05 2011] [error] [client 127.0.0.1] C:/AppServ/www/cgi-bin/cgiserver.cgi is not executable; ensure interpreted scripts have "#!" first line
[Sat Jun 11 08:29:05 2011] [error] [client 127.0.0.1] (9)Bad file descriptor: don't know how to spawn child process: C:/AppServ/www/cgi-bin/cgiserver.cgi

¿¿ Y tu cgiserver.cgi cómo es entero ??


Yo lo tengo así... según los últimos cambios.

use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI -> dispatch_to('Servidor') -> handle;
package Servidor;

sub InfoOnline{
my ($user,$pass) = @_;
return "Lo que vayamos a retornar";
}

En efecto, explorer, faltaba
#!C:\perl\bin\perl.exe



Estoy a punto de llorar: el cliente Perl con el WSDL funcionó. Es más, estoy llorando de felicidad... Gracias, explorer y panterozo... Ahora ya sabiendo que funciona Perl --> Perl, probaré Perl --> cliente Java.

Panterozo y explorer: en algún momento prueben si quieren el generar un servicio en Java con NetBeans, por favor, y veréis los poco minutos que lleva generar el WSDL y sus pantallas de test. No tengo conocimiento si para Perl hay algún IDE que haga lo mismo...

Script Output:
Executing file : C:\javaproyectos2011\perlsoap\clientepanterazo.pl

SOAP::Transport::HTTP::Client::send_receive: POST http://localhost/cgi-bin/cgiserver.cgi HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 642
Content-Type: text/xml; charset=utf-8
SOAPAction: ""

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tns1="http://localhost/Servidor" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Body><tns1:InfoOnline><usuario xsi:type="xsd:string">pedro</usuario><password xsi:type="xsd:string">contrapedro</password></tns1:InfoOnline></soap:Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: close
Date: Sat, 11 Jun 2011 19:24:14 GMT
Server: Apache/2.2.4 (Win32) PHP/5.2.3
Content-Length: 512
Content-Type: text/xml; charset=utf-8
Client-Date: Sat, 11 Jun 2011 19:24:15 GMT
Client-Peer: 127.0.0.1:80
Client-Response-Num: 1
SOAPServer: SOAP::Lite/Perl/0.712

<?xml version="1.0" encoding="UTF-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><InfoOnlineResponse xmlns="http://localhost/Servidor"><s-gensym3 xsi:type="xsd:string">Lo que vayamos a retornar</s-gensym3></InfoOnlineResponse></soap:Body></soap:Envelope>

Connecting to Hello Service...
Lo que vayamos a retornar

No confundamos, solo sugiero comparar la forma en la que Netbeans permite generar un servicio y archivo WSDL es la única forma de poder comparar y sacar cada uno sus puntos de vista, no estoy valorando un lenguaje ya que me considero novato, solo digo que sería bueno poder contar con una manera similar para crear servicios y también preguntaba si había algún IDE que permita hacer lo mismo con Perl.