BugFixes.

[mecon/yatta.git] / script / servidores / YATTA_Tacho.php

diff --git a/script/servidores/YATTA_Tacho.php b/script/servidores/YATTA_Tacho.php
index 39605b93343716bb54359707a9bb546b7e29db7a..cbfaf3b82d4c0bbc96905151e309d8ca847824d0 100755 (executable)
--- a/script/servidores/YATTA_Tacho.php
+++ b/script/servidores/YATTA_Tacho.php
@@ -96,6 +96,7 @@ yatta_log ('*************** Comienzo Ejecuci
 
 //BORRO LOS ARCHIVOS CON MAS DE N DIAS {{{
 if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
+    yatta_log('Se borran los archivos antiguos.');
     while (false !== ($fh = readdir($dh))) { 
         if ($fh != '.' && $fh != '..' && !in_array($fh, split(',',
                         $CONF['tacho']['ignorar']))) {
@@ -128,10 +129,10 @@ if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
 //VERIFICO LAS CUOTAS DE LOS USUARIOS{{{
 //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);
 }
+yatta_log('Se obtiene la lista de owners de los archivos.');
 //}}}
 //OBTENGO LA LISTA DE USUARIOS CON CUOTAS EXCEPCIONALES {{{
 $cuotas = $CONTROLADOR->obtenerListaCuotas($db);
@@ -139,8 +140,11 @@ $cuotas = $cuotas->fetchRow(DB_FETCHMODE_ARRAY);
 if (PEAR::isError($cuotas)) {
      trigger_error('Error: ' . $cuotas->getMessage() . "\n", E_USER_ERROR);
 }
+yatta_log('Se obtienen las cuotas excepcionales.');
 //}}}
+
 //WHILEO POR USUARIO {{{
+yatta_log('Se verifica que los usuarios no superen la cuota asignada.');
 while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
     //VEO EL TIPO DE CUOTA DEL USUARIO {{{
     if (@in_array($usuario['owner'], $cuotas)) {
@@ -181,6 +185,8 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
         //BORRAR LOS ARCHIVOS MAS VIEJOS HASTA LLEGAR AL VALOR DE LA CUOTA.
         //Ordeno los archivos por la fecha, y voy "borrando" los mas viejos
         //hasta cumplir con el tamaño de la cuota.
+        yatta_log('El usuario '. $usuario['owner'] 
+                .' ha excedido la cuota de su casilla');
         usort($archivos, 'usort_archivos_callback');
         $seguir = true;
         while ($seguir == true) {
@@ -195,6 +201,8 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
         }
         //Borros los archivos correspondientes.
         foreach ($borrar as $b) {
+            yatta_llog('Se borra el archivo '. $b .' perteneciente a '.
+                    $usuario['owner']);
             unlink($b);
         }
         //Envio el email
@@ -207,7 +215,7 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
                     "\n\nEste es un mensaje generado automaticamente por YATTA,".
                     " por favor no responder a este email\n");
             $body = implode ('\n', $borrar);
-            $to = $usuario.'.gov.ar';
+            $to = $usuario['owner'].'.gov.ar';
             $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
             $subject = "INTRANET - SAYONARA - Aviso cuota excedida.";
             mail($to, $subject, $body, $headers);
@@ -221,6 +229,8 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
         //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)
+        yatta_log('El usuario '. $usuario['owner'] 
+                .' ha superado el limite de aviso. Se envia email. ');
         $body = 
             "Su cuota dentro del sistema YATTA esta por completarse, le \n".
             "pedimos que libere espacio para futuros archivos.\n".
@@ -228,7 +238,7 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
             "=/sistemas/yatta\n\n".
             "\n\nEste es un mensaje generado automaticamente por YATTA,".
             " por favor no responder a este email\n";
-        $to = $usuario.'.gov.ar';
+        $to = $usuario['owner'].'.gov.ar';
         $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
         $subject = "INTRANET - SAYONARA - Aviso cuota completa.";
         mail($to, $subject, $body, $headers);