Agrego material pulenta para el final.

[z.facultad/75.08/llamadas.git] / inst / util.sh

diff --git a/inst/util.sh b/inst/util.sh
index 83f077de8dd3f0662d8d9800328958937c0081cb..2465e9893f9b66fb9c2c55cb08942afb11601937 100755 (executable)
--- a/inst/util.sh
+++ b/inst/util.sh
@@ -133,6 +133,20 @@ perr()
        echo $@ >&2
 }
 
+
+# Pone un MSG en el log
+# Parametros :
+#  $1 = Archivo del log
+#  $2 = Comando
+#  $3 = Mensaje
+#  $4 = Tamaño maximo
+put_log() {
+       fecha=$(date +%d/%m/%Y-%H:%M)
+       echo "$fecha $USER $2:\"$3\"" >> $1
+
+       clean_log "$1" "$4"
+}
+
 # Trunca un archivo de log si pasa el tamaño máximo.
 # Uso: clean_log log_filename max_log_size_bytes
 clean_log()