Agrego documentacion. Faltan las pruebas para ver si todo funciona como debe

[mecon/yatta.git] / script / servidores / YATTA_Server.php

diff --git a/script/servidores/YATTA_Server.php b/script/servidores/YATTA_Server.php
index 06ca1f11082e9e2b895facff89a09d535046e16c..3cc225c5ba672aceee3507e377363c6d734ca432 100755 (executable)
--- a/script/servidores/YATTA_Server.php
+++ b/script/servidores/YATTA_Server.php
@@ -25,30 +25,149 @@ Autor:  Martin Marrese <mmarre@mecon.gov.ar>
 $Id$
 -----------------------------------------------------------------------------*/
 
-//Sacar el \n al final
-$SERVIDOR = substr(file_get_contents('/etc/hostname'), 0, strpos
-        (file_get_contents('/etc/hostname'), "\n"));
+//XXX LANZAR ESTE SCRIPT CON NICE -19
+
+//@TODO Agregar las linea de logueo
 
-var_dump($SERVIDOR);
-exit;
+//YATTA LOG {{{
+function yatta_log ($texto) {
+    GLOBAL $YATTA_SERVER;
+    GLOBAL $FH;
+    $linea = strftime("%b %e %H:%M:%S").' '.$YATTA_SERVER['name'].' '.
+        $YATTA_SERVER['script'].'['.$YATTA_SERVER['pid'].']: '. $texto ."\n";
+    fwrite($FH, $linea);
+}
+//}}}
+
+//ABRO EL ARCHIVO DE LOG {{{
+//Como root:
+//# touch /var/log/apache/YATTA_Server.log
+//# chown root.www-data /var/log/apache/YATTA_Server.log
+//# chmod 660 /var/log/apache/YATTA_Server.log
+if (!($FH = fopen ("/var/log/apache/YATTA_Server.log", "a"))) {
+    die ("No se pudo abrir el archivo de log. Se detiene el script.");
+}
+//}}}
 
 //REQUIRE ONCE {{{
-require_once 'YATTA/Proceso.php';
 require_once 'DB.php';
+require_once 'PEAR.php';
+require_once 'YATTA/Controlador.php';
+require_once 'YATTA/Servidor.php';
 //}}}
 
 //CREO UNA CONEXION MYSQL{{{
-$DB =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
-if (DB::isError($DB)) {
-    die ($DB->getMessage());
+$db =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
+if (DB::isError($db)) {
+    die ($db->getMessage());
+}
+//}}}
+
+//CREO LOS OBJETOS NECESARIOS {{{
+$CONTROLADOR =& new YATTA_Controlador;
+//}}}
+
+//OBTENGO LOS DATOS DEL SERVER {{{
+$YATTA_SERVER['script'] = $argv[0];
+$YATTA_SERVER['pid'] = getmypid();
+$YATTA_SERVER['name'] = substr(file_get_contents('/etc/hostname'), 0, strpos
+        (file_get_contents('/etc/hostname'), "\n"));
+$YATTA_SERVER['id'] = $SERVIDOR->obtenerId($db, $YATTA_SERVER['name']);
+if (PEAR::isError($YATTA_SERVER['id'])) {
+    die('Error: ' . $YATTA_SERVER['id']->getMessage() . "\n");
 }
+yatta_log ('*************** Comienzo Ejecución ***************');
 //}}}
 
-//BUSCO EL ESTADO DEL SERVIDOR EN LA BASE {{{
-$sql = 'SELECT count(procesos.id) AS cuenta 
-        FROM procesos, servidores 
-        WHERE servidores.nombre = ? and procesos.server = servidores.id and
-        procesos.status = 1;'; //Status 1 -> Procesando
+//WHILEO LAS OPCIONES {{{
+while (1) {
+   
+    //Busco un nuevo proceso {{{
+    $proceso = $CONTROLADOR->obtenerNuevoProceso($db,
+            $YATTA_SERVER['id']);
+    //}}}
+
+    //Si hay un proceso lo lanzo {{{
+    if (@$proceso) {
+        
+        yatta_log ('Hay un nuevo proceso. Se forkea');
+        $pid = pcntl_fork();
+
+        //FORK ERROR {{{
+        if ($pid == -1) {
+            yatta_log('ERROR: No se pudo forkear.');
+            $res = $CONTROLADOR->terminarProceso($db, $proceso['id'],
+                    $YATTA_SERVER['id'], 3, 'No se pudo forkear el script.');
+            if (PEAR::isError($res)) {
+                yatta_log('ERROR: YATTA_Controlador. '.$res->getMessage());
+            }
+        }
+        //}}}
+
+        //FORK PADRE {{{
+        elseif ($pid) {
+            yatta_log ('Fork Padre.')
+            //Espero a que termine el proceso.
+            while (($wapid = pcntl_waitpid ($pid, $status, WNOHANG)) != $pid) {
+                if ($CONTROLADOR->abortar($db, $proceso['id'])) {
+                    yatta_log ('Hay que abortar el proceso en ejecucion.');
+                    posix_kill($pid, 15); //SIGTERM
+                    $CONTROLADOR->terminarProceso($db, $proceso['id'],
+                            $YATTA_SERVER['id'], 4);
+                }
+                sleep(10);
+            }
+            //Cuando un proceso hijo termina no hay que hacer nada, de eso se
+            //encargo YATTA_Controlador::terminarProceso
+        }
+        //}}}
+
+        //FORK HIJO {{{
+        else {
+            yatta_log ('Fork Hijo.')
+            require_once $proceso['script'];
+            
+            if (function_exists('create_process')) {
+                $SCRIPT =& create_process();
+                yatta_log ('Se instancio el proceso. Se ejecuta el metodo run.');
+                $SCRIPT->run();
+            }
+            else {
+                require_once 'YATTA/Proceso.php';
+                $SCRIPT =& new YATTA_Proceso;
+                $SCRIPT->error = 'No existe la funcion create_process en'.
+                    $proceso['script'];
+            }
+            
+
+            if (@$SCRIPT->error) {
+                $estado = 3;
+            }
+            else {
+                $estado = 2;
+            }
+            $CONROLADOR->terminarProceso($db, $proceso['id'],
+                    $YATTA_SERVER['id'], $estado, @$SCRIPT->error,
+                    @$SCRIPT->archivo, @$SCRIPT->notificar);
+            yatta_log ('Finalizo el proceso.')
+        }
+        //}}}
+
+    }
+    // }}}
+
+    //No hay proceso {{{
+    else {
+        yatta_log ('No hay procesos asignados a este servidor.');
+        sleep(60);
+    }
+    //}}}
+    
+}
 //}}}
 
+//CIERRO EL ARCHIVO DE LOG {{{
+yatta_log ('*************** Finaliza Ejecución ***************');
+fclose ($FH);
+//}}}
 ?>
\ No newline at end of file