Cuando se depura la base, tambien se depuran los procesos de la base que estan

asociados a los archivos que se borran.

diff --git a/script/servidores/YATTA_Tacho.php b/script/servidores/YATTA_Tacho.php
index d3ee88d1f80cbbdd13f5b2d4a6e6c7238e3a854c..5d9fe700ae72388a984ebed072b353073fb23c4b 100755 (executable)
--- a/script/servidores/YATTA_Tacho.php
+++ b/script/servidores/YATTA_Tacho.php
@@ -54,6 +54,7 @@ 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';
 //}}}
@@ -93,9 +94,19 @@ if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
                     new Date ());
             if ($span->greater(new Date_Span (
                             array ($CONF['tacho']['cantidad_dias'],0,0,0)))) {
-                if (!unlink($YATTA_SERVER['path_tacho'].$fh)) {
-                    trigger_error("No se pudo borrar el archivo
-                            ".$YATTA_SERVER['path_tacho'].$fh, E_USER_ERROR);
+                
+                $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);
                 }
             }
         }
@@ -105,16 +116,17 @@ if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
 //}}}
 
 //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%{{{
+        //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)
         //}}}
     //}}}
 //}}}