]> git.llucax.com Git - mecon/scripts.git/blob - novedades/copia
Se agrega base.epl necesario para los sistemas en embperl.
[mecon/scripts.git] / novedades / copia
1 #!/bin/sh
2 #
3 # Script para copiar un archivo deduciendo el nombre del nombre del propio
4 # script.
5 #
6 # Creado por Leandro Lucarella (llucar) el jue ene 23 17:22:03 ART 2003
7 #
8
9 # Parámetros de la línea de comandos.
10 origen="$1"
11 destino="$2"
12 libdir="$3"
13
14 # Script.
15 nombre_orig=`basename "$0" | awk -F- '{ print $1 }'`
16 nombre_nuevo=`basename "$0" | awk -F- '{ print $2 }'`
17 if [ -z "$nombre_orig" ]; then
18     nombre_nuevo=`basename "$0"`
19 fi
20 cp -fv "$origen/$nombre_orig" "$destino/$nombre_nuevo"