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 //YATTA LOG {{{
  29 function yatta_log ($texto) {
  30     GLOBAL $YATTA_SERVER;
  31     GLOBAL $FH;
  32     $linea = strftime("%b %e %H:%M:%S").' '.$YATTA_SERVER['name'].' '.
  33         $YATTA_SERVER['script'].'['.$YATTA_SERVER['pid'].']: '. $texto ."\n";
  34     fwrite($FH, $linea);
  35 }
  36 //}}}
  37
  38 //Leo el archivo de configuracion {{{
  39 $CONF = parse_ini_file(dirname(__FILE__) . '/configuracion.ini', true);
  40 //}}}
  41
  42 //ABRO EL ARCHIVO DE LOG {{{
  43 //Como root:
  44 //# touch /var/log/apache/YATTA_Tacho.log
  45 //# chown root.www-data /var/log/apache/YATTA_Tacho.log
  46 //# chmod 660 /var/log/apache/YATTA_Tacho.log
  47 if (!($FH = fopen ($CONF['tacho']['log'], "a"))) {
  48      trigger_error("No se pudo abrir el archivo de log. Se detiene el script.", E_USER_ERROR);
  49 }
  50 //}}}
  51
  52 //REQUIRE ONCE {{{
  53 require_once 'PEAR.php';
  54 require_once 'YATTA/DB.php';
  55 require_once 'YATTA/Controlador.php';
  56 require_once 'YATTA/Servidor.php';
  57 require_once 'YATTA/Archivo.php';
  58 require_once 'Date.php';
  59 require_once 'Date/Span.php';
  60 //}}}
  61
  62 //CREO UNA CONEXION MYSQL{{{
  63 $db = YATTA_DB::connect($CONF['db']);
  64 if (DB::isError($db)) {
  65      trigger_error($db->getMessage(), E_USER_ERROR);
  66 }
  67 //}}}
  68
  69 //CREO LOS OBJETOS NECESARIOS {{{
  70 $CONTROLADOR =& new YATTA_Controlador;
  71 $SERVIDOR =& new YATTA_Servidor;
  72 //}}}
  73
  74 //OBTENGO LOS DATOS DEL SERVER {{{
  75 $YATTA_SERVER['path_tacho'] = $CONF['tacho']['repositorio'];
  76 $YATTA_SERVER['script'] = $argv[0];
  77 $YATTA_SERVER['pid'] = getmypid();
  78 $YATTA_SERVER['name'] = substr(file_get_contents('/etc/hostname'), 0, strpos
  79         (file_get_contents('/etc/hostname'), "\n"));
  80 $YATTA_SERVER['id'] = $SERVIDOR->obtenerId($db, $YATTA_SERVER['name']);
  81 if (PEAR::isError($YATTA_SERVER['id'])) {
  82      trigger_error('Error: ' . $YATTA_SERVER['id']->getMessage() . "\n", E_USER_ERROR);
  83 }
  84 yatta_log ('*************** Comienzo Ejecución ***************');
  85 //}}}
  86
  87 //BORRO LOS ARCHIVOS CON MAS DE N DIAS {{{
  88 if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
  89     while (false !== ($fh = readdir($dh))) {
  90         if ($fh != '.' && $fh != '..' && !in_array($fh, split(',',
  91                         $CONF['tacho']['ignorar']))) {
  92             $span =& new Date_Span (
  93                     new Date (filemtime($YATTA_SERVER['path_tacho'].$fh)),
  94                     new Date ());
  95             if ($span->greater(new Date_Span (
  96                             array ($CONF['tacho']['cantidad_dias'],0,0,0)))) {
  97
  98                 $archivo =& new YATTA_Archivo;
  99                 $archivo->archivo = $fh;
 100                 $res = $archivo->buscar($DB);
 101                 if (PEAR::isError($res)) {
 102                      trigger_error('Error: ' . $res->getMessage() . "\n",
 103                              E_USER_ERROR);
 104                 }
 105                 $archivo->cargar($res);
 106                 $res = $archivo->borrar($res);
 107                 if (PEAR::isError($res)) {
 108                      trigger_error('Error: ' . $res->getMessage() . "\n",
 109                              E_USER_ERROR);
 110                 }
 111             }
 112         }
 113     }
 114     closedir($dh);
 115 }
 116 //}}}
 117
 118 //VERIFICO LAS CUOTAS DE LOS USUARIOS{{{
 119     //WHILEO POR USUARIO {{{
 120         //HAY MAS DE LA CUOTA {{{
 121         //BORRAR LOS ARCHIVOS MAS VIEJOS HASTA LLEGAR AL VALOR DE LA CUOTA.
 122         //ENVIAR UN EMAIL AVISANDO DE ESTO.
 123         //}}}
 124         //HAY MENOS DE LA CUOTA PERO SUPERA LO ESTABLECIDO EN EL ARCHIVO DE CONFIGURAION{{{
 125         //ENVIAR EMAIL SOBRE LA SITUACION Y AVISANDO QUE SI SE SUPERA LA CUOTA
 126         //LOS ARCHIVOS MAS VIEJOS SERAN BORRADOS HASTA CUMPLIR EL REQUERIMIENTO
 127         //DE TAMAÑO
 128         //LEVANTAR DEL ARCHIVO DE CONFIGURACION EL HOST PARA EL LINK (ASI EL
 129         //INFELIZ USUARIO VA A VER QUE MIERDA TIENE, QUE BORRA Y QUE NO)
 130         //}}}
 131     //}}}
 132 //}}}
 133
 134 //CIERRO EL ARCHIVO DE LOG {{{
 135 yatta_log ('*************** Finaliza Ejecución ***************');
 136 fclose ($FH);
 137 //}}}
 138 ?>