script/servidores/YATTA_Tacho.php

   1 #!/usr/bin/php4 -qC
   2 <?php /* vim: set binary expandtab tabstop=4 shiftwidth=4 textwidth=80 foldmethod=marker:
   3 -------------------------------------------------------------------------------
   4                              Ministerio de Economía
   5                                     YATTA!
   6 -------------------------------------------------------------------------------
   7 This file is part of YATTA!.
   8
   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)
  12 any later version.
  13
  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.
  17
  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 -------------------------------------------------------------------------------
  25 $Id$
  26 -----------------------------------------------------------------------------*/
  27
  28
  29 //==============================================
  30 //TODO FIXME XXX
  31 //==============================================
  32 //SACAR TODO LO QUE SE PUEDA A LAS CLASES QUE
  33 //CORRESPONDAN
  34 //AGREGAR LAS LINEAS DEL LOG
  35 //==============================================
  36
  37
  38 //YATTA LOG {{{
  39 function yatta_log ($texto) {
  40     GLOBAL $YATTA_SERVER;
  41     GLOBAL $FH;
  42     $linea = strftime("%b %e %H:%M:%S").' '.$YATTA_SERVER['name'].' '.
  43         $YATTA_SERVER['script'].'['.$YATTA_SERVER['pid'].']: '. $texto ."\n";
  44     fwrite($FH, $linea);
  45 }
  46 //}}}
  47
  48 //Leo el archivo de configuracion {{{
  49 $CONF = parse_ini_file(dirname(__FILE__) . '/configuracion.ini', true);
  50 //}}}
  51
  52 //ABRO EL ARCHIVO DE LOG {{{
  53 //Como root:
  54 //# touch /var/log/apache/YATTA_Tacho.log
  55 //# chown root.www-data /var/log/apache/YATTA_Tacho.log
  56 //# chmod 660 /var/log/apache/YATTA_Tacho.log
  57 if (!($FH = fopen ($CONF['tacho']['log'], "a"))) {
  58      trigger_error("No se pudo abrir el archivo de log. Se detiene el script.", E_USER_ERROR);
  59 }
  60 //}}}
  61
  62 //REQUIRE ONCE {{{
  63 require_once 'PEAR.php';
  64 require_once 'YATTA/DB.php';
  65 require_once 'YATTA/Controlador.php';
  66 require_once 'YATTA/Servidor.php';
  67 require_once 'YATTA/Archivo.php';
  68 require_once 'Date.php';
  69 require_once 'Date/Span.php';
  70 //}}}
  71
  72 //CREO UNA CONEXION MYSQL{{{
  73 $db = YATTA_DB::connect($CONF['db']);
  74 if (DB::isError($db)) {
  75      trigger_error($db->getMessage(), E_USER_ERROR);
  76 }
  77 //}}}
  78
  79 //CREO LOS OBJETOS NECESARIOS {{{
  80 $CONTROLADOR =& new YATTA_Controlador;
  81 $SERVIDOR =& new YATTA_Servidor;
  82 //}}}
  83
  84 //OBTENGO LOS DATOS DEL SERVER {{{
  85 $YATTA_SERVER['path_tacho'] = $CONF['tacho']['repositorio'];
  86 $YATTA_SERVER['script'] = $argv[0];
  87 $YATTA_SERVER['pid'] = getmypid();
  88 $YATTA_SERVER['name'] = substr(file_get_contents('/etc/hostname'), 0, strpos
  89         (file_get_contents('/etc/hostname'), "\n"));
  90 $YATTA_SERVER['id'] = $SERVIDOR->obtenerId($db, $YATTA_SERVER['name']);
  91 if (PEAR::isError($YATTA_SERVER['id'])) {
  92      trigger_error('Error: ' . $YATTA_SERVER['id']->getMessage() . "\n", E_USER_ERROR);
  93 }
  94 yatta_log ('*************** Comienzo Ejecución ***************');
  95 //}}}
  96
  97 //BORRO LOS ARCHIVOS CON MAS DE N DIAS {{{
  98 if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
  99     yatta_log('Se borran los archivos antiguos.');
 100     while (false !== ($fh = readdir($dh))) {
 101         if ($fh != '.' && $fh != '..' && !in_array($fh, split(',',
 102                         $CONF['tacho']['ignorar']))) {
 103             $span =& new Date_Span (
 104                     new Date (filemtime($YATTA_SERVER['path_tacho'].$fh)),
 105                     new Date ());
 106             if ($span->greater(new Date_Span (
 107                             array ($CONF['tacho']['cantidad_dias'],0,0,0)))) {
 108
 109                 $archivo =& new YATTA_Archivo;
 110                 $archivo->archivo = $fh;
 111                 $res = $archivo->buscar($DB);
 112                 if (PEAR::isError($res)) {
 113                      trigger_error('Error: ' . $res->getMessage() . "\n",
 114                              E_USER_ERROR);
 115                 }
 116                 $archivo->cargar($res);
 117                 $res = $archivo->borrar($res);
 118                 if (PEAR::isError($res)) {
 119                      trigger_error('Error: ' . $res->getMessage() . "\n",
 120                              E_USER_ERROR);
 121                 }
 122             }
 123         }
 124     }
 125     closedir($dh);
 126 }
 127 //}}}
 128
 129 //VERIFICO LAS CUOTAS DE LOS USUARIOS{{{
 130 //OBTENGO LA LISTA DE USUARIOS QUE TIENEN AL MENOS UNA ENTRADA EN EL MYSQL {{{
 131 $res = $CONTROLADOR->obtenerListaOwners($db, true);
 132 $res = $res->fetchRow(DB_FETCHMODE_ASSOC);
 133 if (PEAR::isError($res)) {
 134      trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
 135 }
 136 yatta_log('Se obtiene la lista de owners de los archivos.');
 137 //}}}
 138 //OBTENGO LA LISTA DE USUARIOS CON CUOTAS EXCEPCIONALES {{{
 139 $cuotas = $CONTROLADOR->obtenerListaCuotas($db);
 140 $cuotas = $cuotas->fetchRow(DB_FETCHMODE_ARRAY);
 141 if (PEAR::isError($cuotas)) {
 142      trigger_error('Error: ' . $cuotas->getMessage() . "\n", E_USER_ERROR);
 143 }
 144 yatta_log('Se obtienen las cuotas excepcionales.');
 145 //}}}
 146 //WHILEO POR USUARIO {{{
 147 yatta_log('Se verifica que los usuarios no superen la cuota asignada.');
 148 while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
 149     //VEO EL TIPO DE CUOTA DEL USUARIO {{{
 150     if (@in_array($usuario['owner'], $cuotas)) {
 151         if (PEAR::isError($cuotas)) {
 152             trigger_error('Error: ' . $cuotas->getMessage() . "\n", E_USER_ERROR);
 153         }
 154     }
 155     else {
 156         $cuota = $CONF['cuota_tamanio'];
 157     }
 158     //}}}
 159     //BUSCO LOS ARCHIVOS, TAMANIO y FECHA DEL USUARIO{{{
 160     $archivo =& new YATTA_Archivo;
 161     $archivo->owner = $usuario['owner'];
 162     $res = $archivo->buscar($DB, MECON_DBO_OR, null, false);
 163     if (PEAR::isError($res)) {
 164         trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
 165     }
 166     $tamanio = 0;
 167     $contador = 0;
 168     while ($archivo->cargar($res)) {
 169         if (PEAR::isError($res)) {
 170             trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
 171         }
 172         //Obtengo la fecha, el tamanio de cada archivo.
 173         if (file_exists($archivo->archivo)) {
 174             $archivos[$contador]['nombre'] = $archivo->archivo;
 175             $archivos[$contador]['resultado'] = $archivo->resultado;
 176             $archivos[$contador]['tamanio'] = filesize($archivo->archivo);
 177             $archivos[$contador]['fecha'] = filemtime($archivo->archivo);
 178             $tamanio += $archivos[$archivo->archivo]['tamanio'] ;
 179             $contador ++;
 180         }
 181     }
 182     //}}}
 183     //HAY MAS DE LA CUOTA {{{
 184     if ($cuota <= (($tamanio / 1024) / 1024)) {
 185         //BORRAR LOS ARCHIVOS MAS VIEJOS HASTA LLEGAR AL VALOR DE LA CUOTA.
 186         //Ordeno los archivos por la fecha, y voy "borrando" los mas viejos
 187         //hasta cumplir con el tamaño de la cuota.
 188         yatta_log('El usuario '. $usuario['owner']
 189                 .' ha excedido la cuota de su casilla');
 190         usort($archivos, 'usort_archivos_callback');
 191         $seguir = true;
 192         while ($seguir == true) {
 193             $archivo = array_shift($archivos);
 194             $tamanio -= $archivo['tamanio'];
 195             $borrar[] = $archivo['nombre'];
 196             $borrar2[] = $archivo['resultado'];
 197             if ((($tamanio / 1024) / 1024) <
 198                     ($CONF['cuota_warning'] * $cuota / 100)) {
 199                 $seguir = false;
 200             }
 201         }
 202         //Borros los archivos correspondientes.
 203         foreach ($borrar as $b) {
 204             yatta_llog('Se borra el archivo '. $b .' perteneciente a '.
 205                     $usuario['owner']);
 206             unlink($b);
 207         }
 208         //Envio el email
 209         if (@$borrar2) {
 210             array_unshift($borrar2,
 211                     "La capacidad maxima que usted tiene en el sistema YATTA fue",
 212                     "superada.",
 213                     "Los siguientes archivos han sido borrados del sistema:");
 214             array_push($borrar2,
 215                     "\n\nEste es un mensaje generado automaticamente por YATTA,".
 216                     " por favor no responder a este email\n");
 217             $body = implode ('\n', $borrar);
 218             $to = $usuario['owner'].'.gov.ar';
 219             $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
 220             $subject = "INTRANET - SAYONARA - Aviso cuota excedida.";
 221             mail($to, $subject, $body, $headers);
 222         }
 223     }
 224     //}}}
 225     //HAY MENOS DE LA CUOTA PERO SUPERA LO ESTABLECIDO EN EL ARCHIVO DE CONFIGURAION{{{
 226     elseif (($CONF['cuota_warning'] * $cuota / 100) <= (($tamanio / 1024) / 1024)) {
 227         //ENVIAR EMAIL SOBRE LA SITUACION Y AVISANDO QUE SI SE SUPERA LA CUOTA
 228         //LOS ARCHIVOS MAS VIEJOS SERAN BORRADOS HASTA CUMPLIR EL REQUERIMIENTO
 229         //DE TAMAÑO
 230         //LEVANTAR DEL ARCHIVO DE CONFIGURACION EL HOST PARA EL LINK (ASI EL
 231         //INFELIZ USUARIO VA A VER QUE MIERDA TIENE, QUE BORRA Y QUE NO)
 232         yatta_log('El usuario '. $usuario['owner']
 233                 .' ha superado el limite de aviso. Se envia email. ');
 234         $body =
 235             "Su cuota dentro del sistema YATTA esta por completarse, le \n".
 236             "pedimos que libere espacio para futuros archivos.\n".
 237             "\nhttp://intranet.mecon.ar/sistemas/intranet/login?redirect".
 238             "=/sistemas/yatta\n\n".
 239             "\n\nEste es un mensaje generado automaticamente por YATTA,".
 240             " por favor no responder a este email\n";
 241         $to = $usuario['owner'].'.gov.ar';
 242         $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
 243         $subject = "INTRANET - SAYONARA - Aviso cuota completa.";
 244         mail($to, $subject, $body, $headers);
 245     }
 246     //}}}
 247 }
 248 //}}}
 249 //}}}
 250
 251 //CIERRO EL ARCHIVO DE LOG {{{
 252 yatta_log ('*************** Finaliza Ejecución ***************');
 253 fclose ($FH);
 254 //}}}
 255
 256 //FUNCIONES AUXILIARES {{{
 257 //Ordena los archivos segun la "edad"
 258 function usort_archivos_callback($arg1, $arg2) {
 259     if ($arg1['fecha'] == $arg2['fecha']) {
 260         return 0;
 261     }
 262     return ($arg1['fecha'] < $arg2['fecha']) ? -1 : 1;
 263 }
 264 //}}}
 265
 266 ?>