Foro - Perl en Español

El servidor web podría tener limitado el tiempo de ejecución.

Por ejemplo, en muchos proveedores de alojamiento, tienen configurado que el servidor web no debe permitir un tiempo máximo de funcionamiento de un proceso arrancado por él, de uno, tres o cinco minutos. Podrías hablar con el administrador, para que lo amplíe.

Lo que se suele hacer es dividir el problema en dos partes: la primera ejecución del CGI lanza el proceso lento, y regresa inmediatamente al usuario, con una página HTML equipado con un refresh (en la cabecera) o con un sistema Ajax, para hacer nuevas consultas al CGI (u otro CGI) para comprobar la resolución del primer proceso. Si no ha terminado, devuelve la misma página con el mismo refresh o un resultado negativo al Ajax. Cuando el proceso, en cambio, dice que ha terminado, entonces devolvemos una página con los resultados, o al Ajax le damos un resultado positivo, y entonces en la página actúa cargando nuevo contenido con el resultado.

No tiene por qué ser un solo CGI el que reciba todas las peticiones. Puedes dividir el problema en varios, según el paso en que se encuentre la petición. Y tener en cuenta los posibles causas de fallo.

En Perl, puedes usar CGI::Ajax por si quieres hacerlo de esa manera. Algo de programación de JavaScript también deberás poner.

El esquema sería:

• El usuario pide un recurso CGI al servidor, que lanza el proceso largo. Este cgi lo que hace es devolver una página de información al usuario, con el texto de que se ha iniciado el proceso. En la cabecera del HTML también pone algo como esto:
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using html4strict Syntax Highlighting

  1. <meta http-equiv="refresh" content="30;URL=http://servidor/cgi-bin/ya_esta.pl" />

  Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
  A continuación, cierra (close) las salida y entrada estándar (STDIN, STDERR y STDOUT) y lanza el proceso largo (con un system() o con un exec()). Supondremos que el proceso largo deja algún archivo temporal o algún archivo que indique su progreso. O que podamos medir de alguna manera cómo va.
• El HTML llega al navegador del usuario. El usuario ve el mensaje de que se ha iniciado. El propio navegador, a los 30 segundos, ejecuta la llamada al recurso /cgi-bin/ya_esta.pl, que es otro cgi que se encargará de ver el estado del progreso del proceso largo.
• Si el proceso largo no ha terminado, ya_esta.pl devolverá un HTML con el mismo encabezado <meta> anterior (para que sea llamado de nuevo dentro de 30 segundos), y con un contenido que informe al usuario de cómo va el proceso.
• Si el proceso ha terminado, ya_esta.pl devuelve una sencilla página HTML informando al usuario de que ha terminado todo, incluso puede sacar los resultados, envía el correo de aviso, y termina (no envía el <meta> porque ya no hace falta refrescar más).

Para enviar correo se puede usar alguno de los módulos para enviar correo. Por ejemplo, Mail::Send:
(Naturalmente, depende del medio de transporte de correo disponible en tu máquina. En el ejemplo, sí que está instalado un servidor local, así que Mail::Send le envía a él el correo a transportar).

Puedes hacer que los nuevos trabajos entren en una cola, por ejemplo en una base de datos, o en un simple directorio de trabajo. Y luego, un proceso monitor, se encarga de coger un trabajo desde la cola, y mandarlo procesar. O procesar tantos como núcleos de procesamiento existan. El proceso monitor lo puedes ejecutar de forma periódica, por ejemplo colgándolo del cron, para que se ejecute cada minuto o cada cinco minutos.

Gestión de colas, en Perl, hay unos cuantos módulos que pueden ayudar en esto, como por ejemplo la familia de módulos Queue::Q. Async::Queue es otro gestor de colas, donde se puede indicar el número de procesos simultáneos.

Si esto no es suficiente, habrá que pensar en otro tipo de herramienta de gestión de colas, fuera de Perl.