From 783f9e824a460934148e2ad711d391c3a03edac8 Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Sat, 23 Oct 2004 21:22:17 +0000
Subject: [PATCH] =?utf8?q?Bugfixes,=20mejor=20adaptaci=C3=B3n=20al=20enunc?=
 =?utf8?q?iado=20y=20un=20par=20de=20mejoras=20boludas=20"gr=C3=A1ficas"?=
 =?utf8?q?=20=3D)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 afinstal | 53 ++++++++++++++++++++++++++++++-----------------------
 1 file changed, 30 insertions(+), 23 deletions(-)

diff --git a/afinstal b/afinstal
index dd192b5..a5b58f3 100755
--- a/afinstal
+++ b/afinstal
@@ -15,23 +15,27 @@ function askDir() {
 
 # Devuelve 0 si el script y el OS matchean, 1 otherwise
 function checkOS() {
-	if echo $0 | egrep -q 'afinstal$'; then
-		SCRIPTOS="Linux"
-	fi
-	if echo $0 | egrep -q 'afinsmac$'; then
-		SCRIPTOS="Mac"
-	fi
-	if echo $0 | egrep -q 'afinstaw$'; then
-		SCRIPTOS="Windows"
-	fi
-
-	if [ "$SISOPTP" != "$SCRIPTOS" ]; then
+	CURSIS="$1"
+	SCRIPTOS="un sistema desconocido"
+	case "$0" in
+		*afinstal)
+			SCRIPTOS="Linux"
+			;;
+		*afinsmac)
+			SCRIPTOS="Mac"
+			;;
+		*afinstaw)
+			SCRIPTOS="Windows"
+			;;
+	esac
+	if [ "$CURSIS" != "$SCRIPTOS" ]; then
 		cat<<MARCA
+ERROR!
 
-### ERROR ###
-Este proceso de instalacion es para $SISOPTP y su sistema operativo 
-es $CURSIS. Solicite a su proveedor la version adecuada e inicie 
-nuevamente el proceso de instalacion.
+Este proceso de instalacion es para $SCRIPTOS
+y su sistema operativo es $CURSIS
+Solicite a su proveedor la version adecuada
+e inicie nuevamente el proceso de instalacion.
 
 MARCA
 	return 1
@@ -45,13 +49,14 @@ function checkPerl() {
 		return 0;
 	else
 	cat <<MARCA
+ERROR!
+
+Este proceso de instalación solo puede ser
+ejecutado si Perl 5 o superior ya esta instalado
 
-"ERROR!!!"
-"Este proceso de instalación solo puede ser"
-"ejecutado si Perl 5 o superior ya esta instalado"
+Efectúe a instalación de Perl
+Inicie nuevamente el procedimiento de instalación.
 
-"Efectúe a instalación de Perl"
-i"e inicie nuevamente el procedimiento de instalación."
 MARCA
 	return 1
 	fi
@@ -163,18 +168,20 @@ haveconf=0
 havefraude=0
 
 # [STEP1] Verifico el OS vs SCRIPT y la presencia de PERL
-echo ">> Verificando version del software contra el OS.."
-checkOS
+echo -n ">> Verificando version del software contra el OS... "
+checkOS "$SISOPTP"
 if [ "$?" -ne 0 ]; then 
 	abortMessage
 	exit 1
 fi
-echo ">> Verificando la existencia de PERL.."
+echo 'OK!'
+echo -n ">> Verificando la existencia de PERL... "
 checkPerl
 if [ "$?" -ne 0 ]; then
 	abortMessage
 	exit 1
 fi
+echo 'OK!'
 echo ">> Proceso de instalacion para $SISOPTP iniciado."
 echo ">> Presione ENTER para continuar"
 read key
-- 
2.43.0