Foro - Perl en Español

por **Skaraluk** » 2013-05-03 16:19 @722

Estimados,

Me encuentro actualmente intentando crear un Web Service en Perl. Estoy usando para esto el paquete Pod::WSDL. A continuación pueden ver el código:

Sintáxis: (WebserviceFunctions.pm) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package WebserviceFunctions;
 
=begin WSDL
_DOC Hello return a String saying hello
_IN name $string the name of the user to salute
_RETURN $string Returns a string Hello, name
=end WSDL
 
 
sub Hello {
    my $name = shift;
    my $return = "Hello, $name";
    return $return;
}
 
=begin WSDL
_DOC Goodbye return a String saying goodbye
_IN name $string the name of the user to dismiss
_RETURN $string Returns a string Goodbye, name
=end WSDL
 
sub Goodbye {
    my $name = shift;
    my $return = "Goodbye, $name";
    return $return;
}
 
1;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sintáxis: (webservice.cgi) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use Pod::WSDL;
use CGI;
use strict;
use warnings;
 
print CGI->header('text/xml');
 
my $pod = new Pod::WSDL(source=> './WebserviceFunctions.pm',
                        location=>'http://192.168.11.73/cgi-bin/webservice',
                        pretty=>1,
                        withDocumentation=>1);
 
$pod->addNamespace('http://192.168.11.73/cgi-bin/webservice/','WebserviceFunctions');
 
print $pod->WSDL;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Si entro directamente a la URL http://192.168.11.73/cgi-bin/webservice/webservice.cgi con mi navegador puedo ver perfectamente el código WSDL. Sin embargo, al intentar llamar el web service desde algún cliente tengo problemas.

Actualmente he intentado de dos formas, primero con un cliente en PHP (nusoap) el cual si bien se conecta al web service, al llamar un método éste le devuelve un NULL. De la segunda manera es con el web services Explorer de Eclipse, con el cual también puedo entrar al web service y ver sus métodos, pero al intentar llamar alguno de los métodos me devuelve el siguiente error:

IWAB0135E An unexpected error has occurred.
301
Moved Permanently

¿Alguien tiene alguna idea de qué se puede tratar esto? Los códigos que les he mostrado corresponden a ejemplos sacados de Internet y supuestamente deberían funcionar. Y por último, en caso de no encontrar solución, si me pueden guiar hacia otro módulo de Perl con el que pueda crear exitosamente un web service con salida a WSDL les estaría muy agradecido.

Saludos.

Bienvenido a los foros de Perl en Español, Skaraluk.

Según pelpod, en la sección donde se explican las marcas "=begin", "=end" y "=for":

Note that there still must be a blank line after the "=begin" command and a blank line before the "=end" command

O sea: que debe existir (al menos) una línea en blanco después de la marca "=begin" y (al menos) otra línea en blanco delante de la marca "=end", por lo que deberías escribirlo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package WebserviceFunctions;
 
=begin WSDL
 
_DOC Hello return a String saying hello
_IN name $string the name of the user to salute
_RETURN $string Returns a string Hello, name
 
=end WSDL
 
 
sub Hello {
    my $name = shift;
    my $return = "Hello, $name";
    return $return;
}
 
=begin WSDL
 
_DOC Goodbye return a String saying goodbye
_IN name $string the name of the user to dismiss
_RETURN $string Returns a string Goodbye, name
 
=end WSDL
 
sub Goodbye {
    my $name = shift;
    my $return = "Goodbye, $name";
    return $return;
}
 
1;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mira este ejemplo que hay dentro de la carpeta de instalación del módulo Pod::WSDL.

Al final de la documentación de Pod::WSDL tienes referencias de otros tres módulos que también trabajan con WSDL.

Lo que no tengo claro es que necesites usar el módulo CGI... en toda la documentación del módulo no se dice nada de eso... salvo que solo quieras ver el código WSDL. Otra cosa es que quieras hacer funcionar el servicio web.

Vamos, este ejemplo es muy sencillo, y no aparece CGI por ningún lado.

por **Skaraluk** » 2013-05-06 11:52 @536

Gracias por la bienvenida, explorer.

Finalmente di con una solución que me funciona para lo que necesito. Dejé de lado el módulo Pod::WSDL y en cambio ocupé SOAP::Transport::HTTP.

Dejaré el código como muestra. En este momento puedo llamar a las funciones desde un proyecto Java y me retorna los valores sin problemas.

Sintáxis: (soap-cooltest.cgi) [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use SOAP::Transport::HTTP;
use MIME::Entity;
use lib "/var/www/cgi-bin/webservice2/";
 
SOAP::Transport::HTTP::CGI->packager( SOAP::Packager::MIME->new )
    ->dispatch_with( { 'urn:Webservice:HelloWorld' => 'HelloWorld' } )->handle;
 
BEGIN {
 
    package HelloWorld;
    use vars qw(@ISA);
    @ISA = qw(Exporter SOAP::Server::Parameters);
    use SOAP::Lite;
 
    sub Hello {
        my $self     = shift;
        my $envelope = pop;
        my $name     = $envelope->dataof("//Hello/name")->value;
 
        return SOAP::Data->name( 'resp' => "Hello, $name" );
    }
 
    sub GoodBye {
        my $self     = shift;
        my $envelope = pop;
        my $name     = $envelope->dataof("//GoodBye/name")->value;
 
        return SOAP::Data->name( 'resp' => "Goodbye, $name" );
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Dejando como punto de entrada http://192.168.11.73/cgi-bin/webservice2/soap-cooltest.cgi puedo acceder a los métodos desde mi proyecto.

¡Muchas gracias por la ayuda!

Foro - Perl en Español

Error 301 al testear Web Service en Perl

Error 301 al testear Web Service en Perl

Publicidad

Re: Error 301 al testear Web Service en Perl

Re: Error 301 al testear Web Service en Perl

¿Quién está conectado?