#!/usr/bin/php4 -qC
<?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
-------------------------------------------------------------------------------
                             Ministerio de Economía
                                    YATTA!
-------------------------------------------------------------------------------
This file is part of YATTA!.

YATTA! is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2 of the License, or (at your option)
any later version.

YATTA! is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License; if not,
write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
Boston, MA  02111-1307  USA
-------------------------------------------------------------------------------
Creado: jue ene  8 16:53:47 ART 2004
Autor:  Martin Marrese <mmarre@mecon.gov.ar>
-------------------------------------------------------------------------------
$Id$
-----------------------------------------------------------------------------*/

//XXX LANZAR ESTE SCRIPT CON NICE -19

//@TODO Agregar las linea de logueo

//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 '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());
}
//}}}

//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 ***************');
//}}}

//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);
//}}}
?>