X-Git-Url: https://git.llucax.com/z.facultad/75.08/llamadas.git/blobdiff_plain/ee3a4b3b8dade0577215f22eed81c9e013540a27..133343f8e789e1c17cc97e03f4ad5ea08a90b206:/AFINSTAL?ds=inline

diff --git a/AFINSTAL b/AFINSTAL
index 87ec7a2..2883a27 100755
--- a/AFINSTAL
+++ b/AFINSTAL
@@ -14,6 +14,9 @@
 #echo "term "$TERM
 #echo "time out" $TMOUT
 
+#Includes
+. util.sh
+
 # chequeo sistema operativo
 echo "Chequeando SO ..."
 if [ -z  "`echo $0 | sed \"s/.*AFINSTAL$//\"`" ]; then
@@ -38,26 +41,25 @@ else
 	echo "Proceso de instalación para $SISOPTP"
 	echo "Presione ENTER para continuar"	
 fi
-opcion="a"
-while [ -n "$opcion" ]; do
-	echo "*******************************************************"
-	echo "*                                                     *"
-	echo "*     Proceso de instalación de \"Antifraude\"          *"
-	echo "*      Copyright TPSistemasOp  (c)2004                *"
-	echo "*                                                     *"
-	echo "*******************************************************"
-	echo "A T E N C I O N: Al instalar Antifraude UD. expresa estar"
-	echo "en un todo de acuerdo con los términos y condiciones del"
-	echo "\"ACUERDO DE LICENCIA DE SOFTWARE\" incluido en este paquete"
-	echo ""
-	echo "Si desea cancelar este proceso oprima 'F' y luego ENTER"
-	echo "Para continuar oprima solamente ENTER"
-	read opcion
-	if [ "$opcion" == "F" ] || [ "$opcion" == "f" ]; then 
-		echo "Proceso de instalación cancelado"
-		exit 0
-	fi	
-done 	
+
+echo "*******************************************************"
+echo "*                                                     *"
+echo "*     Proceso de instalación de \"Antifraude\"        *"
+echo "*      Copyright TPSistemasOp  (c)2004                *"
+echo "*                                                     *"
+echo "*******************************************************"
+echo "A T E N C I O N: Al instalar Antifraude UD. expresa estar"
+echo "en un todo de acuerdo con los términos y condiciones del"
+echo "\"ACUERDO DE LICENCIA DE SOFTWARE\" incluido en este paquete"
+echo ""
+echo "Si desea cancelar este proceso oprima 'F' y luego ENTER"
+echo "Para continuar oprima 'C' y luego ENTER"
+
+preguntar "Su opción" "cCfF" opcion
+if [ "$opcion" == "F" ] || [ "$opcion" == "f" ]; then 
+	echo "Proceso de instalación cancelado"
+	exit 0
+fi	
 
 #Verifico que Perl este instalado
 if [ "esta" == "`type perl | sed s/\"perl is .*\"/\"esta\"/`" ]; then 
@@ -86,11 +88,11 @@ while [ "$again" == "s" ]; do
 	op="s"
 	while [ "$op" == "s" ]; do
 		#muestro el directorio donde se instalara el sistema
-		echo "Nombre del directorio de instalación ($INSTDIR),ingrese una nueva ruta o ENTER para continuar: $PATH_GENERAL/<nueva ruta>"
-		read AUX1
-		if [ ! -z $AUX1 ]; then 
-			INSTDIR="$PATH_GENERAL/$AUX1"
-		fi	
+		#
+		# Asi queda mas corto ;-)
+		#
+		leer "Nombre del directorio de instalación" "$INSTDIR" INSTDIR
+
 		echo "Nombre del directorio de configuración ($CONFDIR), ingrese una nueva ruta o ENTER para continuar: $PATH_GENERAL/<nueva ruta>"
 		read AUX2
 		if [ ! -z $AUX2 ]; then