Agrego las claves del script YATTA_Tacho.

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

diff --git a/script/servidores/YATTA_Server.php b/script/servidores/YATTA_Server.php
index 40d38d2c565dad117cb8f8f71b3a796cbd01ae39..4763adf157608068f1fc2cb931940667f283cad7 100755 (executable)
--- a/script/servidores/YATTA_Server.php
+++ b/script/servidores/YATTA_Server.php
@@ -27,8 +27,6 @@ $Id$
 
 //XXX LANZAR ESTE SCRIPT CON NICE -19
 
 
 //XXX LANZAR ESTE SCRIPT CON NICE -19
 

-//@TODO Agregar las linea de logueo
-

 //YATTA LOG {{{
 function yatta_log ($texto) {
     GLOBAL $YATTA_SERVER;
 //YATTA LOG {{{
 function yatta_log ($texto) {
     GLOBAL $YATTA_SERVER;


@@ -45,7 +43,7 @@ function yatta_log ($texto) {
 //# 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"))) {
 //# 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.");
+     trigger_error("No se pudo abrir el archivo de log. Se detiene el script.", E_USER_ERROR);

 }
 //}}}
 
 }
 //}}}
 


@@ -57,14 +55,16 @@ require_once 'YATTA/Servidor.php';
 //}}}
 
 //CREO UNA CONEXION MYSQL{{{
 //}}}
 
 //CREO UNA CONEXION MYSQL{{{

-$db =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
+$conf = parse_ini_file(dirname(__FILE__) . '/consultas.ini', true);
+$db = DB::connect($conf['dsn'],$conf['opciones']);

 if (DB::isError($db)) {
 if (DB::isError($db)) {

-    die ($db->getMessage());
+     trigger_error($db->getMessage(), E_USER_ERROR);

 }
 //}}}
 
 //CREO LOS OBJETOS NECESARIOS {{{
 $CONTROLADOR =& new YATTA_Controlador;
 }
 //}}}
 
 //CREO LOS OBJETOS NECESARIOS {{{
 $CONTROLADOR =& new YATTA_Controlador;

+$SERVIDOR =& new YATTA_Servidor;

 //}}}
 
 //OBTENGO LOS DATOS DEL SERVER {{{
 //}}}
 
 //OBTENGO LOS DATOS DEL SERVER {{{


@@ -74,9 +74,14 @@ $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'])) {
         (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");
+     trigger_error('Error: ' . $YATTA_SERVER['id']->getMessage() . "\n", E_USER_ERROR);

 }
 yatta_log ('*************** Comienzo Ejecución ***************');
 }
 yatta_log ('*************** Comienzo Ejecución ***************');

+yatta_log (' SCRIPT: ' . $YATTA_SERVER['script']);
+yatta_log (' PID: ' . $YATTA_SERVER['pid']);
+yatta_log (' SERVER NAME: ' . $YATTA_SERVER['name']);
+yatta_log (' SERVER ID: ' . $YATTA_SERVER['id']);
+yatta_log ('**************************************************');

 //}}}
 
 //WHILEO LAS OPCIONES {{{
 //}}}
 
 //WHILEO LAS OPCIONES {{{


@@ -85,10 +90,13 @@ while (1) {
     //Busco un nuevo proceso {{{
     $proceso = $CONTROLADOR->obtenerNuevoProceso($db,
             $YATTA_SERVER['id']);
     //Busco un nuevo proceso {{{
     $proceso = $CONTROLADOR->obtenerNuevoProceso($db,
             $YATTA_SERVER['id']);

+    yatta_log ('Se busca un nuevo proceso.');

     //}}}
 
     //Si hay un proceso lo lanzo {{{
     if (@$proceso) {
     //}}}
 
     //Si hay un proceso lo lanzo {{{
     if (@$proceso) {

+        
+        yatta_log ('Hay un nuevo proceso. Se forkea');

         $pid = pcntl_fork();
 
         //FORK ERROR {{{
         $pid = pcntl_fork();
 
         //FORK ERROR {{{


@@ -104,27 +112,45 @@ while (1) {
 
         //FORK PADRE {{{
         elseif ($pid) {
 
         //FORK PADRE {{{
         elseif ($pid) {

+            yatta_log ('Fork Padre.');

             //Espero a que termine el proceso.
             //Espero a que termine el proceso.

+            yatta_log ('Se espera a que termine el proceso en ejecución. Se'.
+                    ' verificara si hay que abortar el proceso cada 5 segundo.');

             while (($wapid = pcntl_waitpid ($pid, $status, WNOHANG)) != $pid) {
                 if ($CONTROLADOR->abortar($db, $proceso['id'])) {
             while (($wapid = pcntl_waitpid ($pid, $status, WNOHANG)) != $pid) {
                 if ($CONTROLADOR->abortar($db, $proceso['id'])) {

+                    yatta_log ('Hay que abortar el proceso en ejecución.');

                     posix_kill($pid, 15); //SIGTERM
                     $CONTROLADOR->terminarProceso($db, $proceso['id'],
                             $YATTA_SERVER['id'], 4);
                     posix_kill($pid, 15); //SIGTERM
                     $CONTROLADOR->terminarProceso($db, $proceso['id'],
                             $YATTA_SERVER['id'], 4);

+                    yatta_log ('Se aborto el proceso en ejecución.');

                 }
                 sleep(10);
             }
                 }
                 sleep(10);
             }

-            //Cuando un proceso hijo termina no hay que hacer nada, de eso se
-            //encargo YATTA_Controlador::terminarProceso
+            yatta_log ('Fin fork Padre.');

         }
         //}}}
 
         }
         //}}}
 

-        //FORk HIJO {{{
+        //FORK HIJO {{{

         else {
         else {

+            yatta_log ('Fork Hijo.')

             require_once $proceso['script'];
             require_once $proceso['script'];

-            
+           
+            yatta_log ('Se crea el proceso..');

             if (function_exists('create_process')) {
                 $SCRIPT =& create_process();
             if (function_exists('create_process')) {
                 $SCRIPT =& create_process();

-                $SCRIPT->run();
+                yatta_log ('Se instancio el proceso. Se ejecuta el metodo run.');
+                if (!method_exists($SCRIPT, 'run')) {
+                    yatta_log ('No existe el metodo run en el proceso.');
+                    require_once 'YATTA/Proceso.php';
+                    $SCRIPT =& new YATTA_Proceso;
+                    $SCRIPT->error = 'No existe el metodo run en'. 
+                        $proceso['script'];
+                }
+                else {
+                    yatta_log ('Comienza la ejecución del proceso.');
+                    $SCRIPT->run();
+                    yatta_log ('Finaliza la ejecución del proceso.')
+                }

             }
             else {
                 require_once 'YATTA/Proceso.php';
             }
             else {
                 require_once 'YATTA/Proceso.php';


@@ -133,7 +159,6 @@ while (1) {
                     $proceso['script'];
             }
             
                     $proceso['script'];
             }
             

-

             if (@$SCRIPT->error) {
                 $estado = 3;
             }
             if (@$SCRIPT->error) {
                 $estado = 3;
             }


@@ -143,6 +168,8 @@ while (1) {
             $CONROLADOR->terminarProceso($db, $proceso['id'],
                     $YATTA_SERVER['id'], $estado, @$SCRIPT->error,
                     @$SCRIPT->archivo, @$SCRIPT->notificar);
             $CONROLADOR->terminarProceso($db, $proceso['id'],
                     $YATTA_SERVER['id'], $estado, @$SCRIPT->error,
                     @$SCRIPT->archivo, @$SCRIPT->notificar);

+            
+            yatta_log ('Fin fork Hijo.');

         }
         //}}}
 
         }
         //}}}
 


@@ -151,15 +178,16 @@ while (1) {
 
     //No hay proceso {{{
     else {
 
     //No hay proceso {{{
     else {

-        yatta_log('No hay procesos asignados a este servidor.');
+        yatta_log ('No hay procesos asignados a este servidor.'.
+                ' En 60 segundos se buscara un nuevo proceso.');

         sleep(60);
     }
     //}}}
         sleep(60);
     }
     //}}}

-    

 }
 //}}}
 
 //CIERRO EL ARCHIVO DE LOG {{{
 }
 //}}}
 
 //CIERRO EL ARCHIVO DE LOG {{{

+yatta_log ('*************** Finaliza Ejecución ***************');

 fclose ($FH);
 //}}}
 ?>
\ No newline at end of file
 fclose ($FH);
 //}}}
 ?>
\ No newline at end of file