]> git.llucax.com Git - mecon/yatta.git/blobdiff - lib/YATTA/Controlador.php
BugFix.
[mecon/yatta.git] / lib / YATTA / Controlador.php
index 63ac16773e5097967e8c4b1848f7cacd36c6ca44..610ba02d34e9e38f4649968958167f2e46f9b1d2 100644 (file)
@@ -25,9 +25,11 @@ $Id$
 -----------------------------------------------------------------------------*/
 
 require_once 'YATTA/Proceso.php';
 -----------------------------------------------------------------------------*/
 
 require_once 'YATTA/Proceso.php';
-require_once 'YATTA/ProcesoWeb.php';
+require_once 'YATTA/ProcesoDB.php';
 require_once 'YATTA/Servidor.php';
 
 require_once 'YATTA/Servidor.php';
 
+define ('PATH_TACHO', '/var/www/sistemas/yatta/tacho/');
+
 /**
  * Clase para el manejo centralizado de toda la informacion de YATTA.
  *
 /**
  * Clase para el manejo centralizado de toda la informacion de YATTA.
  *
@@ -57,8 +59,24 @@ class YATTA_Controlador {
  
     /**
      * Agrega un proceso a la base de datos
  
     /**
      * Agrega un proceso a la base de datos
-     * Los datos obligatorios a pasar son: script, id_sistema, descripcion,
-     * owner, destinos, prioridad, scheduling y notificar.
+     * Recibe un array asociativo con:
+     *  Obligatorios
+     *   script     : Path completo para el require_once.
+     *   id_sistema : Identificador del sistema al que pertenece. (Es el id que
+     *                asigna SAMURAI)
+     *   descripcion: Es lo que permite al usuario identificar al proceso.
+     *   owner      : Login@Organismo de la persona responsable del proceso.
+     *
+     *  Opcionales
+     *   destinos   : Login@Organismo separado por comas de aquellos usuarios
+     *                que deben poder ver los resultados del proceso.
+     *   prioridad  : Indica la prioridad del proceso.
+     *   notificar  : Indica si hay que notificar al owner y a los destinos
+     *                cuando finalize el proceso.
+     *   resultado  : En caso que el proceso genere archivos resultado, se debe
+     *                indicar aqui el nombre del archivo que deben visualizar
+     *                los usuarios.
+     *   parametros : Parametros que hay que pasarle al metodo run del script.
      *
      * @param  DB $db Conexion a la base de datos.
      * @param  mixed $datos Datos necesarios del proceso.
      *
      * @param  DB $db Conexion a la base de datos.
      * @param  mixed $datos Datos necesarios del proceso.
@@ -78,10 +96,15 @@ class YATTA_Controlador {
         elseif (!is_array($datos)) {
             return new PEAR_Error ("Error con los datos pasados. El segundo".
                     " parametro debe ser un array asociativo o una instancia".
         elseif (!is_array($datos)) {
             return new PEAR_Error ("Error con los datos pasados. El segundo".
                     " parametro debe ser un array asociativo o una instancia".
-                    " del objeto YATTA_Proceso.");
+                    " del objeto YATTA_ProcesoDB.");
         }
         $res = $this->_obtenerServidor($db);
 
         }
         $res = $this->_obtenerServidor($db);
 
+        //Serializo los parametros
+        if (@$datos['parametros']) {
+            $datos['parametros'] = serialize($datos['parametros']);
+        }
+
         if (DB::isError($res)) {
             return $res;
         }
         if (DB::isError($res)) {
             return $res;
         }
@@ -110,27 +133,239 @@ class YATTA_Controlador {
         $proceso->owner = $owner;
         if (@$id) {
             $proceso->id = $id;
         $proceso->owner = $owner;
         if (@$id) {
             $proceso->id = $id;
+            $res = $proceso->buscar($db, MECON_DBO_AND, ' id ASC');
+            $res = $proceso->cargar($res);
+            return $proceso;
+        }
+        else {
+            return $proceso->buscar($db, MECON_DBO_AND, ' id ASC');
         }
         }
-        return $proceso->buscar($db, MECON_DBO_AND, ' id ASC');
     }
 
     /**
     }
 
     /**
-     * Obtiene un proceso de un usuario.
+     * Actualiza los datos de un proceso al terminar.
      *
      * @param DB $db Conexion a la base de datos.
      *
      * @param DB $db Conexion a la base de datos.
-     * @param string $owner Usuario duenio de los procesos.
-     * @param int $id Identificador del proceso a buscar
+     * @param int $id_proceso Identificador del proceso.
+     * @param int $id_server Identificador del Servidor.
+     * @param int $status Identificador del estado de finalizacion.
+     * @param string $nota Nota de error o similar.
+     * @param string $archivo Nombre del archivo temporal que esta en el fs.
+     * @param int $notificar Indica si hay que notificar al owner.
      *
      * @return mixed
      * @access public
      */
      *
      * @return mixed
      * @access public
      */
-    function obtenerProcesoUsuario($db, $owner, $id) {
-        $proceso =& new YATTA_ProcesoDB;
-        $proceso->owner = $owner;
-        $proceso->id = $id;
-        $res = $proceso->buscar($db, MECON_DBO_AND, ' id ASC');
-        $res = $proceso->cargar($res);
-        return $proceso;
+    function terminarProceso($db, $id_proceso, $id_server, $status, $nota =
+            null, $archivo = null, $notificar = 0) {
+
+        //NOTIFICO
+        if (@$notificar) {
+            $this->_emailUsuario ($db, $id_proceso, $status, $nota, $archivo);
+        }
+
+        //COPIO EL ARCHIVO
+        if (@$archivo) {
+            $arch = basename ($archivo);
+            rename ($archivo, PATH_TACHO.$arch);
+        }
+
+        //ACTUALIZO LA BASE PROCESOS
+        $sql = 'UPDATE yatta.procesos SET status = '. 
+            $db->quoteSmart($status);
+        if (@$nota) {
+            $sql.= ', nota = '. $db->quoteSmart($nota);
+        }
+        if (@$archivo) {
+            $sql.= ', archivo = '. $db->quoteSmart(PATH_TACHO.$arch);
+        }
+        if (@$notificar) {
+            $sql.= ', notificar = '. $db->quoteSmart($notificar);
+        }
+        $sql.= ' WHERE id = '. $db->quoteSmart($id_proceso);
+        
+        $res = $db->query($sql);
+        if (DB::isError($res)) {
+            return $res;
+        }
+
+
+        //Actualizo los servidores
+        $SERVER =& new YATTA_Servidor;
+        return $SERVER->quitarProceso($db, $id_server);
+    }
+
+    /**
+     * Busca un proceso en cola para el servidor
+     *
+     * @param DB $db Conexion a la base de datos.
+     * @param int $id Identificador del servidor.
+     *
+     * @return mixed
+     * @access public
+     */
+    function obtenerNuevoProceso($db, $id) {
+        $res = $db->query('SELECT p.id AS id, p.script AS script, p.parametros
+                AS parametros
+                FROM yatta.procesos AS p
+                WHERE p.server = '.$id.' AND status = 0 
+                ORDER BY p.prioridad, p.id');
+        // Si hay error lo devuelve.
+        if (DB::isError($res)) {
+            return $res;
+        }
+        return $res->fetchRow(DB_FETCHMODE_ASSOC);
+    }
+
+    /**
+     * Busca si un proceso que se esta ejecutando tiene pedido de cancelacion.
+     *
+     * @param DB $db Conexion a la base de datos.
+     * @param int $id Identificador del proceso.
+     *
+     * @return mixed
+     * @access public
+     */
+    function abortar($db, $id) {
+        $res = $db->query('SELECT count(*) AS cuenta 
+                FROM yatta.procesos
+                WHERE id = '.$id.' AND status = 5');
+        // Si hay error lo devuelve.
+        if (DB::isError($res)) {
+            return $res;
+        }
+        $res = $res->fetchRow(DB_FETCHMODE_ASSOC);
+        return  $res['cuenta'];
+    }
+
+    /**
+     * Envia el email al usuario informandole la finalizacion de uno de sus
+     * procesos.
+     *
+     * @param DB $db Conexion a la base de datos.
+     * @param int $id_proceso Identificador del proceso.
+     * @param int $status Identificador del estado de finalizacion.
+     * @param string $nota Nota de error o similar.
+     * @param string $archivo Nombre del archivo temporal que esta en el fs.
+     *
+     * @return void
+     * @access private
+     */
+    function _emailUsuario($db, $id_proceso, $status, $nota = null, $archivo = null) {
+        $res = $db->query(
+                "SELECT p.descripcion AS descripcion, p.owner AS owner, ".
+                "p.destinos AS destinos, p.resultado AS resultado, ".
+                "p.status AS estado, p.nota AS nota ".
+                "FROM yatta.procesos AS p ".
+                "WHERE p.id = ". $id_proceso);
+
+        if (DB::isError($res)) {
+            return $res;
+        }
+        $res = $res->fetchRow(DB_FETCHMODE_ASSOC);
+
+        
+//@FIXME El email se lo envio al owner y a los destinos, o al owner solamente?
+        
+        $dest = split (',', @$res['destinos']);
+        $to = $res['owner'].'.gov.ar';
+        foreach ($dest as $d) {
+            $to = $to . ", $d.gov.ar";
+        }
+        $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
+        $subject = "INTRANET - YATTA - Proceso Finalizado";
+
+        $body = "El proceso {$res['descripcion']} ha finalizado ";
+
+        switch ($status) {
+            case 2:
+                $body .= "con éxito.\n";
+                break;
+            case 3:
+                $body .= "con errores.\n";
+                if ($nota) {
+                    $body .= "Motivo:\n$nota\n";
+                }
+                break;
+            case 4:
+                $body .= "porque se abortó su ejecución.\n";
+                if ($nota) {
+                    $body .= "Motivo:\n$nota\n";
+                }
+                break;
+        }
+
+        if ($archivo) {
+            $body .= "Usted puede obtener el archivo resultado del proceso\n".
+                "en la seccion Archivos del sistema YATTA.\n".
+                "Recuerde que este archivo puede ser borrado sin previo aviso\n".
+                "por tres motivos:\n".
+                "1- El archivo supera la antigüedad máxima establecida.\n".
+                "2- Se supero la capacidad máxima de información permitida\n".
+                "   por usuario.\n".
+                "3- Decisión administrativa por mantenimiento de los servidores.\n";
+        }
+        
+            
+        
+        $body .="\n\n\n".
+            "************************************************************\n".
+            "Este es un mensaje generado automaticamente por MECON_YATTA.\n".
+            "Por favor no responder a esta direccion de e-mail.\n".
+            "************************************************************\n";
+        
+        mail($to, $subject, $body, $headers);
+    }
+
+    /**
+     * Verifica si un usuario tiene alguna informacion en la base de yatta para
+     * mostrarle el icono en la lista de sistemas de la intranet.
+     *
+     * @param DB $db Conexion a la base de datos.
+     * @param string $login Usuario que se esta verificando
+     *
+     * @return bool
+     * @access public
+     * @static
+     */
+    function visible($DB, $login) {
+        $res = $db->query('SELECT count (p.id) AS id FROM yatta.procesos AS p'.
+            ' WHERE (p.owner LIKE \'%'. $login .'%\') OR'.
+            ' (p.destinos LIKE \'%'. $login .'%\')');
+                
+        if (DB::isError($res)) {
+            return $res;
+        }
+        $res = $res->fetchRow(DB_FETCHMODE_ASSOC);
+
+        return $res['id'];
+    }
+
+    /**
+     * Busca los usuarios que tienen al menos una entrada en el mysql como
+     * owners.
+     *
+     * @param DB $db Conexion a la base de datos.
+     *
+     * @return mixed
+     * @access public
+     */
+    function obtenerListaOwners($db) {
+        return $db->query('SELECT DISTINCT p.owner AS owner
+                FROM yatta.procesos As p');
+    }
+
+    /**
+     * Obtiene las cuotas especiales de los usuarios.
+     *
+     * @param DB $db Conexion a la base de datos.
+     *
+     * @return mixed
+     * @access public
+     */
+    function obtenerListaCuotas($db) {
+        return $db->query('SELECT login, cuota
+                FROM yatta.cuotas');
     }
 }
 ?>
\ No newline at end of file
     }
 }
 ?>
\ No newline at end of file