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

diff --git a/script/servidores/YATTA_Tacho.php b/script/servidores/YATTA_Tacho.php
index 5d9fe70..4b91bd9 100755
--- a/script/servidores/YATTA_Tacho.php
+++ b/script/servidores/YATTA_Tacho.php
@@ -116,19 +116,44 @@ if ($dh = opendir($YATTA_SERVER['path_tacho'])) {
 //}}}
 
 //VERIFICO LAS CUOTAS DE LOS USUARIOS{{{
-    //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 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)
-        //}}}
+//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 {{{