################################################################################
# Script: Ftp_Recup_TECO_Tups.scr                                              #
# Autor : Jorge Tuzi                                                           #
# Fecha : 06/09/2001                                                           #
# Descripcion: Recupera files de TECO para old                                 #
################################################################################
#----------------------------    Parametros    --------------------------------#
EMP=$1
IP=$4
USER=$2
PASS=$3
OPT=$5
#---------------------------     Directorios   --------------------------------#
DIRLOC=/u/usuarios/"$EMP"/a_tasa
#DIRDIST=de_"$OPT"
DIRLOG=/work/stde
DIRTEST=/u/pce00/datos/testigos
#-----------------------  Variables Auxiliares --------------------------------#
scr=`basename $0 .scr`
typeset -u SCR=$scr
typeset -i CANT=0
typeset -i CANT2=0
DIASEM=`date +"%w"`
LISTA=/work/LISTA_RECUP_ATT.lst
ARCHIES=""
CMD1="o $IP \n u $USER $PASS \n ls * $LISTA"
CMD2="o $IP \n u $USER $PASS \n  bin \n mget  "
#--------------------------- Archivos de log   --------------------------------#
SCRIPTLOG="$DIRLOG"/"$scr".log."$DIASEM"
BATCHLOG="$DIRLOG"/"$SCR".log."$DIASEM"
#-----------------------     Comienza el script       -------------------------#
>$SCRIPTLOG
>$BATCHLOG
>$LISTA

find $DIRTEST -name 'QPGEN*' -mtime +160 -exec rm {} \;

echo "#---------------   Generacion de la lista    ---------------#" >>$BATCHLOG

echo "$CMD1"|ftp -inv                                2>>$BATCHLOG    >>$BATCHLOG

echo "--------  Verifico si existen archivos a transmitir ---------" >>$BATCHLOG
if grep '550 No files found.' $BATCHLOG
then
     echo "No se encontraron archivos para transmitir"               >>$BATCHLOG
     cat $BATCHLOG
     exit 47
fi

if grep '226 Transfer complete.' $BATCHLOG
then
     for ARCHI in $( cat $LISTA|grep 'QPGEN'|grep 'pgp')
     do
              CANT=`expr $CANT + 1`
              ARCHIES=`echo $ARCHIES" "$ARCHI`
     done
     if [ $CANT -eq 0 ]
     then
         echo "No existen archivos a transmitir"                     >>$BATCHLOG
         cat $BATCHLOG
         exit 0
     else
         echo "Existen $CANT de archivos a transmitir"               >>$BATCHLOG
     fi
else
     echo "ERROR - existen problemas de conexion con TECO"           >>$BATCHLOG
     echo "Informar a administracion de redes  o      "              >>$BATCHLOG
     echo "verifique  si tiene los parametros correctos"             >>$BATCHLOG
     cat $BATCHLOG
     exit 47
fi
echo "#-------------- Verificacion concluida   -------------------#" >>$BATCHLOG
echo "#----------  Procedo a recuperar los archivos  -------------#" >>$BATCHLOG
cd $DIRLOC

echo "$CMD2""$ARCHIES"|ftp -inv                      2>>$BATCHLOG    >>$BATCHLOG

CANT2=`cat $BATCHLOG|grep '226 Transfer complete.'|wc -l`
CANT2=`expr $CANT2 - 1`

if [ $CANT -ne $CANT2 ]
then
     echo "Todos o algunos de los files no pudieron ser recuperados" >>$BATCHLOG
     cat $BATCHLOG
     exit 47
else
     echo "La transmision fue satisfactoria"                         >>$BATCHLOG
fi
chmod 777 $SCRIPTLOG   $BATCHLOG $LISTA
tail -10  $BATCHLOG