]> git.llucax.com Git - mecon/scripts.git/blob - novedades/backup
Se agrega base.epl necesario para los sistemas en embperl.
[mecon/scripts.git] / novedades / backup
1 #!/bin/sh
2 # Parámetros de la línea de comandos.
3 home="$1"
4 origen="$2"
5 datos="$3"
6
7 # Configuración.
8 host="intranet-db.mecon.ar"
9 dir="$home"/backups
10 targz="$dir"/`date +%Y%m%d`.tar.gz
11
12 # Script.
13 echo "Haciendo backup en $targz"
14 files=""
15 for f in `ls "$datos"`; do
16     nombre=`basename "$f" | awk -F- '{ print $1 }'`
17     files="$files $nombre"
18 done
19 cd "$origen"
20 tar -cvzf "$targz" $files
21 scp -1 -r "$targz" novedades@"$host":"$dir"