Se agrega función para truncar logs: clean_log.

diff --git a/inst/util.sh b/inst/util.sh
index 1cfb6c1e2acaa6ee6a43aa3ca0feb4df8867f4e5..83f077de8dd3f0662d8d9800328958937c0081cb 100755 (executable)
--- a/inst/util.sh
+++ b/inst/util.sh
@@ -133,3 +133,20 @@ perr()
        echo $@ >&2
 }
 
+# Trunca un archivo de log si pasa el tamaño máximo.
+# Uso: clean_log log_filename max_log_size_bytes
+clean_log()
+{
+       LOGFILE="$1"
+       LOGSIZE="$2"
+       # Archivo temporal
+       tmp=`dirname "$LOGFILE"`"/`basename $0`.$$.temp"
+       # Verifico que el logfile no se pase del tamaño maximo
+       tam=`stat -c '%s' "$LOGFILE"`
+       # Si se paso del maximo dejo las ultimas 100 lineas
+       if [ "$tam" -ge "$LOGSIZE" ]; then
+               tail -n 100 "$LOGFILE" > "$tmp"
+               mv "$tmp" "$LOGFILE"
+       fi
+}
+