X-Git-Url: https://git.llucax.com/mecon/yatta.git/blobdiff_plain/0a561c395fff6674d9f2c6c5ecb6523886e7cb14..3ef84bbb06d6a46b561f37d909d23f73c1252190:/script/servidores/YATTA_Tacho.php

diff --git a/script/servidores/YATTA_Tacho.php b/script/servidores/YATTA_Tacho.php
index a6f34fd..4b91bd9 100755
--- a/script/servidores/YATTA_Tacho.php
+++ b/script/servidores/YATTA_Tacho.php
@@ -35,26 +35,32 @@ function yatta_log ($texto) {
 }
 //}}}
 
+//Leo el archivo de configuracion {{{
+$CONF = parse_ini_file(dirname(__FILE__) . '/configuracion.ini', true);
+//}}}
+
 //ABRO EL ARCHIVO DE LOG {{{
 //Como root:
 //# touch /var/log/apache/YATTA_Tacho.log
 //# chown root.www-data /var/log/apache/YATTA_Tacho.log
 //# chmod 660 /var/log/apache/YATTA_Tacho.log
-if (!($FH = fopen ("/var/log/apache/YATTA_Tacho.log", "a"))) {
+if (!($FH = fopen ($CONF['tacho']['log'], "a"))) {
      trigger_error("No se pudo abrir el archivo de log. Se detiene el script.", E_USER_ERROR);
 }
 //}}}
 
 //REQUIRE ONCE {{{
-require_once 'DB.php';
 require_once 'PEAR.php';
+require_once 'YATTA/DB.php';
 require_once 'YATTA/Controlador.php';
 require_once 'YATTA/Servidor.php';
+require_once 'YATTA/Archivo.php';
+require_once 'Date.php';
+require_once 'Date/Span.php';
 //}}}
 
 //CREO UNA CONEXION MYSQL{{{
-$conf = parse_ini_file(dirname(__FILE__) . '/consultas.ini', true);
-$db = DB::connect($conf['dsn'],$conf['opciones']);
+$db = YATTA_DB::connect($CONF['db']);
 if (DB::isError($db)) {
      trigger_error($db->getMessage(), E_USER_ERROR);
 }
@@ -66,7 +72,7 @@ $SERVIDOR =& new YATTA_Servidor;
 //}}}
 
 //OBTENGO LOS DATOS DEL SERVER {{{
-$YATTA_SERVER['tacho'] = '/var/www/sistemas/yatta/tacho/';
+$YATTA_SERVER['path_tacho'] = $CONF['tacho']['repositorio'];
 $YATTA_SERVER['script'] = $argv[0];
 $YATTA_SERVER['pid'] = getmypid();
 $YATTA_SERVER['name'] = substr(file_get_contents('/etc/hostname'), 0, strpos
@@ -78,23 +84,76 @@ if (PEAR::isError($YATTA_SERVER['id'])) {
 yatta_log ('*************** Comienzo Ejecución ***************');
 //}}}
 
-//BORRO LOS ARCHIVOS CON MAS DE 7 DIAS {{{
-//@TODO Borrar los archivos com mas de 7 dias.
+//BORRO LOS ARCHIVOS CON MAS DE N DIAS {{{
+if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
+    while (false !== ($fh = readdir($dh))) { 
+        if ($fh != '.' && $fh != '..' && !in_array($fh, split(',',
+                        $CONF['tacho']['ignorar']))) {
+            $span =& new Date_Span (
+                    new Date (filemtime($YATTA_SERVER['path_tacho'].$fh)), 
+                    new Date ());
+            if ($span->greater(new Date_Span (
+                            array ($CONF['tacho']['cantidad_dias'],0,0,0)))) {
+                
+                $archivo =& new YATTA_Archivo;
+                $archivo->archivo = $fh;
+                $res = $archivo->buscar($DB);
+                if (PEAR::isError($res)) {
+                     trigger_error('Error: ' . $res->getMessage() . "\n",
+                             E_USER_ERROR);
+                }
+                $archivo->cargar($res);
+                $res = $archivo->borrar($res);
+                if (PEAR::isError($res)) {
+                     trigger_error('Error: ' . $res->getMessage() . "\n",
+                             E_USER_ERROR);
+                }
+            }
+        }
+    }
+    closedir($dh); 
+}
 //}}}
 
 //VERIFICO LAS CUOTAS DE LOS USUARIOS{{{
-//@TODO Verificar las cuotas de los usuarios y actuar como deba.
-    //WHILEO POR USUARIO {{{
-        //HAY MAS DE LA CUOTA {{{
-        //BORRAR LOS ARCHIVOS MAS VIEJOS HASTA LLEGAR AL VALOR DE LA CUOTA.
-        //ENVIAR UN EMAIL AVISANDO DE ESTO.
-        //}}}
-        //HAY MENOS DE LA CUOTA PERO SUPERA EL 80%{{{
-        //ENVIAR EMAIL SOBRE LA SITUACION Y AVISANDO QUE SI SE SUPERA LA CUOTA
-        //LOS ARCHIVOS MAS VIEJOS SERAN BORRADOS HASTA CUMPLIR EL REQUERIMIENTO
-        //DE TAMAÑO
-        //}}}
+//OBTENGO LA LISTA DE USUARIOS QUE TIENEN AL MENOS UNA ENTRADA EN EL MYSQL {{{
+$res = $CONTROLADOR->obtenerListaOwners($db, true);
+$res = $res->fetchRow(DB_FETCHMODE_ASSOC);
+if (PEAR::isError($res)) {
+     trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
+}
+//}}}
+//OBTENGO LA LISTA DE USUARIOS CON CUOTAS EXCEPCIONALES {{{
+$cuotas = $CONTROLADOR->obtenerListaCuotas($db);
+$cuotas = $cuotas->fetchRow(DB_FETCHMODE_ARRAY);
+if (PEAR::isError($cuotas)) {
+     trigger_error('Error: ' . $cuotas->getMessage() . "\n", E_USER_ERROR);
+}
+//}}}
+//WHILEO POR USUARIO {{{
+while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
+    //VEO EL TIPO DE CUOTA DEL USUARIO {{{
+    if (in_array($usuario['owner'], $cuotas)) {
+        if (PEAR::isError($cuotas)) {
+            trigger_error('Error: ' . $cuotas->getMessage() . "\n", E_USER_ERROR);
+        }
+    }
+    else {
+        $cuota = $CONF['cuota_tamanio'];
+    }
+    //}}}
+    //HAY MAS DE LA CUOTA {{{
+    //BORRAR LOS ARCHIVOS MAS VIEJOS HASTA LLEGAR AL VALOR DE LA CUOTA.
+    //}}}
+    //HAY MENOS DE LA CUOTA PERO SUPERA LO ESTABLECIDO EN EL ARCHIVO DE CONFIGURAION{{{
+    //ENVIAR EMAIL SOBRE LA SITUACION Y AVISANDO QUE SI SE SUPERA LA CUOTA
+    //LOS ARCHIVOS MAS VIEJOS SERAN BORRADOS HASTA CUMPLIR EL REQUERIMIENTO
+    //DE TAMAÑO
+    //LEVANTAR DEL ARCHIVO DE CONFIGURACION EL HOST PARA EL LINK (ASI EL
+    //INFELIZ USUARIO VA A VER QUE MIERDA TIENE, QUE BORRA Y QUE NO)
     //}}}
+}
+//}}}
 //}}}
 
 //CIERRO EL ARCHIVO DE LOG {{{