Se agrega base.epl necesario para los sistemas en embperl.

[mecon/scripts.git] / novedades / backup

diff --git a/novedades/backup b/novedades/backup
index a9911a01cd45d3df2867051e8620f1b8d1358b69..30aae432a73eeef1fe99424d739a3e67c430260e 100755 (executable)
--- a/novedades/backup
+++ b/novedades/backup
@@ -13,7 +13,7 @@ targz="$dir"/`date +%Y%m%d`.tar.gz
 echo "Haciendo backup en $targz"
 files=""
 for f in `ls "$datos"`; do
 echo "Haciendo backup en $targz"
 files=""
 for f in `ls "$datos"`; do

-    nombre=`basename "$f" | awk -F\\. '{ print $1 }'`
+    nombre=`basename "$f" | awk -F- '{ print $1 }'`

     files="$files $nombre"
 done
 cd "$origen"
     files="$files $nombre"
 done
 cd "$origen"