Se hace que se borren los backups viejos.

[mecon/scripts.git] / novedades / backup

diff --git a/novedades/backup b/novedades/backup
index 642fedb74286168f30109265c0d70ac82fabbe16..53e1a8b8de9813823528a89cd5aff447bcd05489 100755 (executable)
--- a/novedades/backup
+++ b/novedades/backup
@@ -8,6 +8,23 @@ datos="$3"
 host="intranet-db.mecon.ar"
 dir="$home"/backups
 targz="$dir"/`date +%Y%m%d`.tar.gz
+delete_older_than='-7 days'
+ext=tar.gz
+
+# Obtengo fechas
+fecha=`date +'%Y%m%d'`
+fecha_old=`date +'%Y%m%d' -d "$delete_older_than"`
+# funcion que borra archivos más viejos de lo deseado.
+delete_old_files() {
+       for f in `ls $dir`; do
+               if (echo $f | egrep -q "[0-9]{8}.$ext"); then
+                       f_fecha=`echo $f | sed s/'\\([0-9]\\{8\\}\\)'."$ext"/'\1'/`
+                       if ((f_fecha<=fecha_old)); then
+                               rm -f "$dir/$f"
+                       fi      
+               fi      
+       done    
+}
 
 # Script.
 echo "Haciendo backup en $targz"
@@ -17,5 +34,6 @@ for f in `ls "$datos"`; do
     files="$files $nombre"
 done
 cd "$origen"
+delete_old_files
 tar -cvzf "$targz" $files
-scp -r "$targz" novedades@"$host":"$dir"
+#scp -r "$targz" novedades@"$host":"$dir"