Foro - Perl en Español

Me encuentro con el siguiente problema.

A lo largo del desarrollo de mi programa me he encontrado con diversos problemas que aquí amablemente habéis solucionado; en este momento me encuentro con lo siguiente: una vez que me conformaba con el funcionamiento de mi servidor, se quedaba colgado y no mostraba bien los datos, o no los refrescaba. El caso es que vía telnet la respuesta era precisa.

Resulta que ahora me encuentro con que si lo pongo como demonio me muestra los datos una vez pero no me deja ni refrescar ni nada, es decir, necesito reiniciar el servicio para poder volver a mostrar la página, y el caso es que no encuentro el motivo de mi problema.

Este sería el código del servidor:


y este otro sería el perteneciente a la creación del demonio:


Seguramente existan imperfecciones en el código, ya que mi conocimiento es muy escaso por lo que toda ayuda para depurarlo se agradece y se siente a la vez.

Gracias por las respuestas.

Disculpa mi ignorancia, como habías dicho en tu post anterior que había supuestamente problemas de compatibilidad al instalar módulos, ¿Podrías colocar algún detalle técnico legible sobre esos supuestos problemas?. De esta manera (al menos creo yo), podríamos matar dos conejos en un solo tiro.

Como en su momento comento en ese mismo post, y dejando en evidencia mi desconocimiento de Perl, no es la palabra compatibilidad la más adecuada, los posibles problemas los expresó perfectamente explorer. Yo con compatibilidad me refería más bien a que mi intención es crear un sistema el cual pueda se instalado en cualquier máquina Linux con la instalación por defecto de Perl, por lo que la idea de depender de módulos no me satisfacía, aunque lógicamente existen posibilidades de hacerlo sin necesidad de tener que instalar los propios módulos como bien contesto también explorer, por lo cual sería más aproximado el término de portabilidad, para el cual, lógicamente, si es compatible tiene muchas posibilidades de ser portable.

En el Perl Cookbook, hay un capítulo entero (el 17, de la segunda edición) completamente dedicado al tema de Sockets, servidores, etc. La receta número 17 se dedica precisamente a cómo crear un servidor como si fuera un demonio:

17.17.1 Problem
You want your program to run as a daemon.

17.17.2 Solution
If you are paranoid and running as root, chroot to a safe directory:
chroot("/var/daemon")
or die "Couldn't chroot to /var/daemon: $!";
Fork once, and let the parent exit:
$pid = fork;
exit if $pid;
die "Couldn't fork: $!" unless defined($pid);
Close the three standard filehandles by reopening them to /dev/null:
for my $handle (*STDIN, *STDOUT, *STDERR) {
open($handle, "+<", "/dev/null")
|| die "can't reopen $handle to /dev/null: $!";
}
Dissociate from the controlling terminal that started us and stop being part of whatever process group we had been a member of:
use POSIX;

POSIX::setsid( )
or die "Can't start a new session: $!";
Trap fatal signals, setting a flag to indicate that we need to gracefully exit:
$time_to_die = 0;

sub signal_handler {
$time_to_die = 1;
}

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signal_handler;
# trap or ignore $SIG{PIPE}
Wrap your actual server code in a loop:
until ($time_to_die) {
# ...
}

Gracias por tu respuesta explorer, el único problema que me surge es el hecho de que no la entiendo bien, el motivo de por qué me dices eso, es decir, has visto fallos a la hora de crear el demonio, o es que simplemente no es un buen método para servidores.

Bueno, de todas maneras seguiré mirando, ahora he pasado de nuevo a la idea de HTTP::Daemon, más que nada porque he vuelto a la idea de PerlWebServer pero realizándole las modificaciones a mi antojo, porque me encuentro los mismos problemas pero con el servidor más completo.

Seguramente los errores no pertenezcan solo al propio servidor sino que se junten con problemas del resto de scripts del programa, además de como se gestionan los hijos y de más.

Perdón por mi ignorancia y gracias por las respuestas.

En la receta que te he puesto están descritos los pasos necesarios para crear un demonio:
Traducido:

1.- Si eres paranoico y estás corriendo como root, chroot a un directorio seguro:


2.- fork() una vez, y deja que el padre termine:


3.- Cierra los tres manejadores de ficheros estándares reabriéndoles hacia /dev/null:


4.- Disóciate de la terminal que estás usando que se usó para arrancar y deja de formar parte del grupo de procesos del que fuimos miembros:


5.- Atrapa señales fatales, activando una bandera para indicar que necesitamos una forma amable de terminar:


6.- Cubre tu código actual con un bucle:


(Luego sigue una explicación larga de estos pasos y por qué)

Como ves, se trata de una serie de reglas para desligar al proceso demonio del que fuera su padre, su grupo de procesos, de la terminal que lo arrancó y de los canales de entrada y salida que su padre le abrió. Luego, capturas las señales fatales para saber cuándo tienes que morir. Y finalmente, el programa entra en un bucle sin fin, atendiendo a sus tareas, hasta que le dicen que se tiene que terminar.

Eso es lo que no he visto en tu código (al menos, de forma clara. Quizás me equivoque).

Quizás pase algo tan sencillo como que el hijo que crea el demonio para atender a las peticiones no cierra la conexión.

En ese caso, quizás tengas que usar shutdown() en lugar de close(), como indica la receta 17.9 (cerrar un socket después de hacer un fork()):

Imagine a server that wants to read its client's request until end-of-file, and then send an answer. If the client calls close, that socket is now invalid for I/O, so no answer would ever come back. Instead, the client should use shutdown to half-close the connection.

que quiere decir:

Imagina un servidor que quiere leer las peticiones de su cliente hasta el fin-del-fichero, y entonces envía una respuesta. Si el cliente llama a close(), este socket es ahora inválido para E/S, así que ninguna respuesta regresará. En lugar de eso, el cliente debería usar shutdown para medio-cerrar la conexión.

Nuevamente perdón por mi incomprensión y gracias por la respuesta, entendía el código y digamos en cierta manera también el proceso que seguía, el problema es que como siempre existen diferentes maneras de poder hacer las cosas, y sobre todo en lenguajes con tantas posibilidades, pues no entendía si me decías que estaba mal mi código y que le faltaba eso, o que eso era una manera mejor de hacerlo, sea lo que sea, agradezco tu respuesta y revisaré y intentaré modificar dicho código.

Además ahora precisamente tengo el problema de que el servidor refresca correctamente la página y la muestra correctamente, pero lo que ocurre es que el refresco que realiza la propia página es mediante aunque es cierto que en ocasiones muestra un comportamiento un tanto irregular y falla también el refresco del propio explorador teniendo que darle dos veces para poder refrescar la página.

El refresco de la página en el caso del código HTML mencionado lo que hace es generar nuevos hijos del servicio, además por duplicado, ¿puede que tenga algo que ver con cómo creo el demonio, no? ¿Alguien entiende este comportamiento del servidor?

No entiendo por qué en las líneas 78 y 80 haces dos llamadas fork().

Como ya he mencionado la parte del servidor y demonio, es la que estoy modificando del proyecto PerlWebServer, y puesto que mis conocimientos son más bien limitados voy paso a paso intentando entender el código.

No sabría decirte exactamente la función que cubre ese código, pero sí decirte que quitando esas dos líneas el comportamiento varía bastante. Si las quito a la hora de resetear el demonio lo que hace es no ejecutarlo en segundo plano, y quitando solo uno lo ejecuta en segundo plano y aparentemente no da problemas.

Esto es más que nada ensayo, prueba y error. Voy intentando entender el funcionamiento de todo el código, lógicamente si no lo entiendo no podré solucionar problemas, por eso estoy tan pesado en el foro, hay muchas cosas que se escapan a mi compresión aún.

Si te ayuda pongo el código del servidor y del demonio actual.

Si no me equivoco, pasa esto:



Vamos, que al final quien continúa es el nieto... no creo que sea necesario crear tanta descendencia