From 936291e24d4f85d61013394334156a8f160324b9 Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Tue, 27 Apr 2004 19:27:47 +0000
Subject: [PATCH] Se hace que se borren los backups viejos.

---
 novedades/backup | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/novedades/backup b/novedades/backup
index 642fedb..53e1a8b 100755
--- 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"
-- 
2.43.0