Falta terminar de ver que se hace cuando supera la cuota o esta por superarla un...

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

diff --git a/script/servidores/YATTA_Server.php b/script/servidores/YATTA_Server.php
index 40d38d2c565dad117cb8f8f71b3a796cbd01ae39..bde00fc031586c86d63100bd60ab8a94c360f58d 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
 
-//@TODO Agregar las linea de logueo
-
 //YATTA LOG {{{
 function yatta_log ($texto) {
     GLOBAL $YATTA_SERVER;
@@ -39,32 +37,37 @@ function yatta_log ($texto) {
 }
 //}}}
 
+//Leo el archivo de configuracion {{{
+$CONF = parse_ini_file(dirname(__FILE__) . '/configuracion.ini', true);
+//}}}
+
 //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.");
+if (!($FH = fopen ($CONF['server']['log'], "a"))) {
+     trigger_error("No se pudo abrir el archivo de log. Se detiene el script.", E_USER_ERROR);
 }
 //}}}
 
 //REQUIRE ONCE {{{
-require_once 'DB.php';
 require_once 'PEAR.php';
 require_once 'YATTA/Controlador.php';
 require_once 'YATTA/Servidor.php';
+require_once 'YATTA/DB.php';
 //}}}
 
 //CREO UNA CONEXION MYSQL{{{
-$db =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
+$db = YATTA_DB::connect($CONF['db']);
 if (DB::isError($db)) {
-    die ($db->getMessage());
+     trigger_error($db->getMessage(), E_USER_ERROR);
 }
 //}}}
 
 //CREO LOS OBJETOS NECESARIOS {{{
 $CONTROLADOR =& new YATTA_Controlador;
+$SERVIDOR =& new YATTA_Servidor;
 //}}}
 
 //OBTENGO LOS DATOS DEL SERVER {{{
@@ -74,9 +77,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'])) {
-    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 (' 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 {{{
@@ -85,10 +93,13 @@ while (1) {
     //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) {
+        
+        yatta_log ('Hay un nuevo proceso. Se forkea');
         $pid = pcntl_fork();
 
         //FORK ERROR {{{
@@ -104,27 +115,45 @@ while (1) {
 
         //FORK PADRE {{{
         elseif ($pid) {
+            yatta_log ('Fork Padre.');
             //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'])) {
+                    yatta_log ('Hay que abortar el proceso en ejecución.');
                     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);
             }
-            //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 {
+            yatta_log ('Fork Hijo.')
             require_once $proceso['script'];
-            
+           
+            yatta_log ('Se crea el proceso..');
             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';
@@ -133,7 +162,6 @@ while (1) {
                     $proceso['script'];
             }
             
-
             if (@$SCRIPT->error) {
                 $estado = 3;
             }
@@ -143,6 +171,8 @@ while (1) {
             $CONROLADOR->terminarProceso($db, $proceso['id'],
                     $YATTA_SERVER['id'], $estado, @$SCRIPT->error,
                     @$SCRIPT->archivo, @$SCRIPT->notificar);
+            
+            yatta_log ('Fin fork Hijo.');
         }
         //}}}
 
@@ -151,15 +181,16 @@ while (1) {
 
     //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);
     }
     //}}}
-    
 }
 //}}}
 
 //CIERRO EL ARCHIVO DE LOG {{{
+yatta_log ('*************** Finaliza Ejecución ***************');
 fclose ($FH);
 //}}}
 ?>
\ No newline at end of file