From: Martín Marrese <marrese@gmail.com>
Date: Wed, 3 Mar 2004 21:48:07 +0000 (+0000)
Subject: Script de mantenimiento del tacho finalizado. Faltan algunos metodos en las clases... 
X-Git-Tag: svn_import~34
X-Git-Url: https://git.llucax.com/mecon/yatta.git/commitdiff_plain/0fa974abff9b5f82f26d28e27e6eacade7b50076

Script de mantenimiento del tacho finalizado. Faltan algunos metodos en las clases correspondientes, optimizarlo y mover cosas a las clases respectivas. Ademas del testing de YATTA_Tacho y YATTA_Server.
---

diff --git a/script/servidores/YATTA_Tacho.php b/script/servidores/YATTA_Tacho.php
index 4b91bd9..60eecd7 100755
--- a/script/servidores/YATTA_Tacho.php
+++ b/script/servidores/YATTA_Tacho.php
@@ -25,6 +25,15 @@ Autor:  Martin Marrese <mmarre@mecon.gov.ar>
 $Id$
 -----------------------------------------------------------------------------*/
 
+
+//==============================================
+//TODO FIXME XXX
+//==============================================
+//SACAR TODO LO QUE SE PUEDA A LAS CLASES QUE 
+//CORRESPONDAN
+//==============================================
+
+
 //YATTA LOG {{{
 function yatta_log ($texto) {
     GLOBAL $YATTA_SERVER;
@@ -133,7 +142,7 @@ if (PEAR::isError($cuotas)) {
 //WHILEO POR USUARIO {{{
 while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
     //VEO EL TIPO DE CUOTA DEL USUARIO {{{
-    if (in_array($usuario['owner'], $cuotas)) {
+    if (@in_array($usuario['owner'], $cuotas)) {
         if (PEAR::isError($cuotas)) {
             trigger_error('Error: ' . $cuotas->getMessage() . "\n", E_USER_ERROR);
         }
@@ -142,15 +151,85 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
         $cuota = $CONF['cuota_tamanio'];
     }
     //}}}
+    //BUSCO LOS ARCHIVOS, TAMANIO y FECHA DEL USUARIO{{{
+    $archivo =& new YATTA_Archivo;
+    $archivo->owner = $usuario['owner'];
+    $res = $archivo->buscar($DB, MECON_DBO_OR, null, false);
+    if (PEAR::isError($res)) {
+        trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
+    }
+    $tamanio = 0;
+    $contador = 0;
+    while ($archivo->cargar($res)) {
+        if (PEAR::isError($res)) {
+            trigger_error('Error: ' . $res->getMessage() . "\n", E_USER_ERROR);
+        }
+        //Obtengo la fecha, el tamanio de cada archivo.
+        if (file_exists($archivo->archivo)) {
+            $archivos[$contador]['nombre'] = $archivo->archivo;
+            $archivos[$contador]['resultado'] = $archivo->resultado;
+            $archivos[$contador]['tamanio'] = filesize($archivo->archivo);
+            $archivos[$contador]['fecha'] = filemtime($archivo->archivo);
+            $tamanio += $archivos[$archivo->archivo]['tamanio'] ;
+            $contador ++;
+        }
+    }
+    //}}}
     //HAY MAS DE LA CUOTA {{{
-    //BORRAR LOS ARCHIVOS MAS VIEJOS HASTA LLEGAR AL VALOR DE LA CUOTA.
+    if ($cuota <= (($tamanio / 1024) / 1024)) {
+        //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.
+        usort($archivos, 'usort_archivos_callback');
+        $seguir = true;
+        while ($seguir == true) {
+            $archivo = array_shift($archivos);
+            $tamanio -= $archivo['tamanio'];
+            $borrar[] = $archivo['nombre'];
+            $borrar2[] = $archivo['resultado'];
+            if ((($tamanio / 1024) / 1024) < 
+                    ($CONF['cuota_warning'] * $cuota / 100)) {
+                $seguir = false;
+            }
+        }
+        //Borros los archivos correspondientes.
+        foreach ($borrar as $b) {
+            unlink($b);
+        }
+        //Envio el email
+        if (@$borrar2) {
+            array_unshift($borrar2, 
+                    "Los siguientes archivos han sido borrados del sistema YATTA:");
+            array_push($borrar2, 
+                    "\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';
+            $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
+            $subject = "INTRANET - SAYONARA - Aviso cuota excedida.";
+            mail($to, $subject, $body, $headers);
+        }
+    }
     //}}}
     //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)
+    elseif (($CONF['cuota_warning'] * $cuota / 100) <= (($tamanio / 1024) / 1024)) {
+        //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)
+        $body = 
+            "Su cuota dentro del sistema YATTA esta por completarse, le \n".
+            "pedimos que libere espacio para futuros archivos.\n".
+            "\nhttp://intranet.mecon.ar/sistemas/intranet/login?redirect".
+            "=/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';
+        $headers = "From: Intranet - YATTA <intranet2@mecon.gov.ar>\r\n";
+        $subject = "INTRANET - SAYONARA - Aviso cuota completa.";
+        mail($to, $subject, $body, $headers);
+    }
     //}}}
 }
 //}}}
@@ -160,4 +239,15 @@ while ($usuario = $res->fetchRow(DB_FETCHMODE_ASSOC)) {
 yatta_log ('*************** Finaliza Ejecución ***************');
 fclose ($FH);
 //}}}
+
+//FUNCIONES AUXILIARES {{{
+//Ordena los archivos segun la "edad"
+function usort_archivos_callback($arg1, $arg2) {
+    if ($arg1['fecha'] == $arg2['fecha']) {
+        return 0;
+    }
+    return ($arg1['fecha'] < $arg2['fecha']) ? -1 : 1;
+}
+//}}}
+
 ?>
\ No newline at end of file