Foro - Perl en Español

por **davidferrero** » 2009-09-03 06:43 @321

Pues si te digo la verdad, funciona de chiripa, porque uso un servidor programado hace 7 años, que funcionaba y lo he ido adecuando a mi proyecto por lo que aún no controlo del todo el funcionamiento, aunque algo he ido aprendiendo, porque al comienzo de todo esto no sabía ni declarar una variable en Perl.

El problema que me encuentro ahora es que el Server no reacciona al accept() fuera de mi máquina Debian y eso es lo que más me mosquea, porque ésta tiene la versión v5.10 de Perl como otra Ubuntu donde hago pruebas y en una funciona y en la otra no, por lo que casi podría descartar el interprete, creo.

El caso es que no entiendo por qué falla. Si te sirve de algo muestro parte del servidor:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

package PerlMonitorServer::Server;
 
use strict;
use POSIX;
use Cwd;
use Socket;
use vars qw($AUTOLOAD);
 
BEGIN {
    my $curr_path = $0;
    $curr_path =~ s/pws\.pl//;
    eval "use lib '${curr_path}lib';
    use PerlMonitorServer::Logs;
    use PerlMonitorServer::Misc;
    use PerlMonitorServer::MONITOR;
    use PerlMonitorServer::Config;
";
    die "Error loading libraries:\n$@"  if ($@);
} # BEGIN
 
my $curr_path = PerlMonitorServer::Config::getInstalationDirectory;
my $debug = 2;  # SET DEBUG LEVEL
my $server;
 
local $SIG{CHLD} = sub { wait; }  if (defined $Global::UNIX);
 
sub new {
    my $pkg = shift;
    my %hash = (_config => undef, 
        _methods => {'GET'=>1,'POST'=>1,'HEAD'=>1},
    );
    my $self = \%hash;
    bless $self, $pkg;
    logDebusg(caller(). " creating new Server object=$self.")
        if ($self->debug > 2);
    $self->config;
    return $self;
} # new
 
sub config {
    my $self = shift;
    logDebug(caller() . " config called.")
        if ($self->debug > 2);
    
    unless (defined $self->{_config}) {
        require PerlMonitorServer::Config;
        $self->{_config} = new PerlMonitorServer::Config();
    } # unless
    return $self->{_config};
} # config
 
sub debug {
    my $self = shift;
    return (@_) ? $debug = shift() : $debug;
} # debug
 
sub server {
    my $self = shift;
    die "Need config to set up server!"  unless ($self->config);
    logDebug(caller(). " server called, has config!")
        if ($self->debug > 2);
 
    unless (defined $server) {
        require PerlMonitorServer::Daemon;
        my $port = PerlMonitorServer::Config::getPort;
        my $ip = PerlMonitorServer::Config::getIP;
 
        $server = new PerlMonitorServer::Daemon(
            LocalAddr => $ip,
            LocalPort => $port,
            Type => SOCK_STREAM,
            Listen => 5,
            Reuse => 1,
        );
    } # unless
 
    while (my $new_sock = $server->accept()) {
        # CODIGO QUE SE ENCARGA DE GESTIONAR LA CONEXION....
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Ya veo que en el método config(), se tiene cuidado de no crear más objetos que uno solo para toda la vida del objeto... pero entonces, la función config() en el programa principal está mal... porque SÍ que le estás pidiendo que cree un nuevo objeto en cada situación.

Yo creo que estás usando mal ese módulo...

por **davidferrero** » 2009-09-03 07:55 @372

¿Y eso me puede suponer un error en la definición de Server? En teoría el $self lo que hace no es más que almacenar los datos de configuración en un fichero algo más especial que lo que sería un txt simple. Lo que no sé es por qué esto afecta a la creación del servidor puesto que en teoría en el Debian sobre el que se está utilizando no tiene problemas; el caso es que al probarlo antes de modificar el config no me daba problemas, se ejecutaba correctamente por lo que iré por ahí para ver a qué se debe, y ya comentaré.

por **davidferrero** » 2009-09-04 04:54 @246

Buenas, parece que el problema ha sido parcialmente resuelto.

Resulta que, cómo no, y trabajando con Linux, no se trataba más de un tema de permisos. Necesitaba instalar en modo root para que todo funcionara correctamente. Ni elementos extraños en config ni en el servidor, que seguramente existirán, nada, solamente era ejecutar como root y listo. Ahora me encuentro con ese otro problema, como eliminar esos permisos que son necesarios, pero bueno eso será otro cantar.

por **explorer** » 2009-09-04 06:06 @296

Sí, un programa necesita ser ejecutado por root en caso de querer usar puertos que estén por debajo del 1024 (creo recordar).

por **davidferrero** » 2009-09-04 06:38 @318

Tienes buena memoria. En teoría los puertos por debajo de 1024 son puertos reservados por lo que necesitas ser root para trabajar con ellos. El caso es que yo creía solventado este problema en el setup.pl de mi aplicación, ya que en teoría tenía el código que si se ejecuta por un puerto reservado y no se hace como root debería alertar, pero creo que esta última parte no la hace del todo bien.

De todas maneras gracias por la ayuda.

Foro - Perl en Español

Problema con diferentes distribuciones

Re: Problema con diferentes distribuciones

Publicidad

Re: Problema con diferentes distribuciones

Re: Problema con diferentes distribuciones

Re: Problema con diferentes distribuciones

Re: Problema con diferentes distribuciones

Re: Problema con diferentes distribuciones

¿Quién está conectado?