[19355] | 1 | # Exits with 1 if Perl is not on the PATH
|
---|
| 2 |
|
---|
| 3 | ## ---- Check Perl exists ----
|
---|
| 4 | perlpath=
|
---|
| 5 |
|
---|
| 6 | # Some users may set the above line manually
|
---|
| 7 | if [ "x$perlpath" = "x" ]; then
|
---|
| 8 | # Check if Perl is on the search path
|
---|
| 9 | perlpath=`which perl 2> /dev/null`
|
---|
| 10 | fi
|
---|
| 11 |
|
---|
| 12 | # Check that a Perl executable has been found
|
---|
| 13 | echo "Perl:"
|
---|
| 14 | if [ ! -x "$perlpath" ] ; then
|
---|
| 15 | echo
|
---|
| 16 | if [ "$glilang" = "es" ]; then
|
---|
| 17 | echo "La Interfaz de la $PROGNAME requiere Perl para "
|
---|
| 18 | echo "poder operar, pero éste no aparece en su sistema. Por favor asegúrese "
|
---|
| 19 | echo "de que Perl está instalado y se encuentra en su ruta de búsqueda. A "
|
---|
| 20 | echo "continuación ejecute nuevamente este guión."
|
---|
| 21 | elif [ "$glilang" = "fr" ]; then
|
---|
| 22 | echo "$PROGNAME nécessite Perl pour son fonctionnement,"
|
---|
| 23 | echo "mais perl n'a pas pu être détecté dans votre système. Veuillez vous "
|
---|
| 24 | echo "assurer que perl est installé et est spécifié dans votre chemin de "
|
---|
| 25 | echo "recherche, puis redémarrez ce script."
|
---|
| 26 | elif [ "$glilang" = "ru" ]; then
|
---|
| 27 | echo "âÉÂÌÉÏÔÅÞÎÙÊ $PROGNAME ÔÒÅÂÕÅÔ Perl, ÞÔÏÂÙ ÉÍÅÔØ ×ÏÚÍÏÖÎÏÓÔØ"
|
---|
| 28 | echo "ÒÁÂÏÔÁÔØ, ÎÏ Perl ÎÅ ÂÙÌ × ×ÁÛÅÊ ÓÉÓÔÅÍÅ. ðÏÖÁÌÕÊÓÔÁ, ÐÏÄÔ×ÅÒÄÉÔÅ, ÞÔÏ "
|
---|
| 29 | echo "Perl ÕÓÔÁÎÏ×ÌÅÎ É ÎÁÈÏÄÉÔÓÑ ÎÁ ×ÁÛÅÍ ÐÕÔÉ ÐÏÉÓËÁ, ÚÁÔÅÍ ÐÏ×ÔÏÒÎÏ××ÅÄÉÔÅ"
|
---|
| 30 | echo "ÜÔÏÔ ÓËÒÉÐÔ."
|
---|
| 31 | else
|
---|
| 32 | echo "The $PROGNAME requires Perl in order to operate,"
|
---|
| 33 | echo "but perl could not be detected on your system. Please ensure that perl"
|
---|
| 34 | echo "is installed and is on your search path, then rerun this script."
|
---|
| 35 | fi
|
---|
| 36 | exit 1
|
---|
| 37 | fi
|
---|
| 38 | echo $perlpath
|
---|
| 39 | echo
|
---|