2 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
3 -------------------------------------------------------------------------------
6 -------------------------------------------------------------------------------
7 This file is part of YATTA!.
9 YATTA! is free software; you can redistribute it and/or modify it under
10 the terms of the GNU General Public License as published by the Free
11 Software Foundation; either version 2 of the License, or (at your option)
14 YATTA! is distributed in the hope that it will be useful, but WITHOUT
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
16 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License; if not,
19 write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
20 Boston, MA 02111-1307 USA
21 -------------------------------------------------------------------------------
22 Creado: jue ene 8 16:53:47 ART 2004
23 Autor: Martin Marrese <mmarre@mecon.gov.ar>
24 -------------------------------------------------------------------------------
26 -----------------------------------------------------------------------------*/
28 //XXX LANZAR ESTE SCRIPT CON NICE -19
30 //@TODO Agregar las linea de logueo
33 function yatta_log ($texto) {
36 $linea = strftime("%b %e %H:%M:%S").' '.$YATTA_SERVER['name'].' '.
37 $YATTA_SERVER['script'].'['.$YATTA_SERVER['pid'].']: '. $texto ."\n";
42 //ABRO EL ARCHIVO DE LOG {{{
44 //# touch /var/log/apache/YATTA_Server.log
45 //# chown root.www-data /var/log/apache/YATTA_Server.log
46 //# chmod 660 /var/log/apache/YATTA_Server.log
47 if (!($FH = fopen ("/var/log/apache/YATTA_Server.log", "a"))) {
48 die ("No se pudo abrir el archivo de log. Se detiene el script.");
53 require_once 'DB.php';
54 require_once 'PEAR.php';
55 require_once 'YATTA/Controlador.php';
56 require_once 'YATTA/Servidor.php';
59 //CREO UNA CONEXION MYSQL{{{
60 $db =& DB::connect('mysql://intranet:intranet@bal747f/yatta', true);
61 if (DB::isError($db)) {
62 die ($db->getMessage());
66 //CREO LOS OBJETOS NECESARIOS {{{
67 $CONTROLADOR =& new YATTA_Controlador;
68 $SERVIDOR =& new YATTA_Servidor;
71 //OBTENGO LOS DATOS DEL SERVER {{{
72 $YATTA_SERVER['script'] = $argv[0];
73 $YATTA_SERVER['pid'] = getmypid();
74 $YATTA_SERVER['name'] = substr(file_get_contents('/etc/hostname'), 0, strpos
75 (file_get_contents('/etc/hostname'), "\n"));
76 $YATTA_SERVER['id'] = $SERVIDOR->obtenerId($db, $YATTA_SERVER['name']);
77 if (PEAR::isError($YATTA_SERVER['id'])) {
78 die('Error: ' . $YATTA_SERVER['id']->getMessage() . "\n");
80 yatta_log ('*************** Comienzo Ejecución ***************');
83 //WHILEO LAS OPCIONES {{{
86 //Busco un nuevo proceso {{{
87 $proceso = $CONTROLADOR->obtenerNuevoProceso($db,
91 //Si hay un proceso lo lanzo {{{
94 yatta_log ('Hay un nuevo proceso. Se forkea');
99 yatta_log('ERROR: No se pudo forkear.');
100 $res = $CONTROLADOR->terminarProceso($db, $proceso['id'],
101 $YATTA_SERVER['id'], 3, 'No se pudo forkear el script.');
102 if (PEAR::isError($res)) {
103 yatta_log('ERROR: YATTA_Controlador. '.$res->getMessage());
110 yatta_log ('Fork Padre.')
111 //Espero a que termine el proceso.
112 while (($wapid = pcntl_waitpid ($pid, $status, WNOHANG)) != $pid) {
113 if ($CONTROLADOR->abortar($db, $proceso['id'])) {
114 yatta_log ('Hay que abortar el proceso en ejecucion.');
115 posix_kill($pid, 15); //SIGTERM
116 $CONTROLADOR->terminarProceso($db, $proceso['id'],
117 $YATTA_SERVER['id'], 4);
121 //Cuando un proceso hijo termina no hay que hacer nada, de eso se
122 //encargo YATTA_Controlador::terminarProceso
128 yatta_log ('Fork Hijo.')
129 require_once $proceso['script'];
131 if (function_exists('create_process')) {
132 $SCRIPT =& create_process();
133 yatta_log ('Se instancio el proceso. Se ejecuta el metodo run.');
137 require_once 'YATTA/Proceso.php';
138 $SCRIPT =& new YATTA_Proceso;
139 $SCRIPT->error = 'No existe la funcion create_process en'.
144 if (@$SCRIPT->error) {
150 $CONROLADOR->terminarProceso($db, $proceso['id'],
151 $YATTA_SERVER['id'], $estado, @$SCRIPT->error,
152 @$SCRIPT->archivo, @$SCRIPT->notificar);
153 yatta_log ('Finalizo el proceso.')
162 yatta_log ('No hay procesos asignados a este servidor.');
170 //CIERRO EL ARCHIVO DE LOG {{{
171 yatta_log ('*************** Finaliza Ejecución ***************');