Lang to lang
#!/bin/bash
browser="lynx -dump -nolist "
name=$(basename ${0})
origen=""
destino=""
btitulo="Lang to Lang - Diccionario Multilenguaje"
tmpfile1="/tmp/opciones_menu"
dialog="/usr/bin/dialog"
lista_idiomas(){
$dialog --title " $name " \
--backtitle "$btitulo" --msgbox "
Traduce entre los siguientes idiomas usando la web
http://www.langtolang.com
English, Albanian, Arabic, Breton, Catalan, Chinese Simplified,
Chinese Traditional, Corsican, Czech, Danish, Dutch, Esperanto,
Estonian, Finnish, French, Gaelic, Georgian, German, Greek,
Hebrew, Hungarian, Icelandic, Indonesian, Italian, Japanese,
Korean, Kurdish, Latvian, Lithuanian, Malagasy, Norwegian,
Polish, Portuguese Brazil, Portuguese Portugal, Romanian, Russian,
Serbo Croat, Slovak, Slovenian, Spanish, Swahili, Swedish,
Turkish, Vietnamese, Yiddish, Walloon, Welsh
kir@sdf-eu.org
" 14 70
}
escoje_idioma(){
exec 3>&1
idioma=$($dialog --scrollbar --backtitle "$btitulo" \
--title " " \
--menu "Escoje la lengua de $fromto" 16 55 9 \
"English" ""\
"Albanian" "" \
"Arabic" "" \
"Breton" "" \
"Catala" "" \
"Chinese Simplified" "" \
"Chinese Traditional" "" \
"Corsican" "" \
"Czech" "" \
"Danish" "" \
"Dutch" "" \
"Esperanto" "" \
"Estonian" "" \
"Finnish" "" \
"French" "" \
"Gaelic" "" \
"Georgian" "" \
"German" "" \
"Greek" "" \
"Hebrew" "" \
"Hungarian" "" \
"Icelandic" "" \
"Indonesian" "" \
"Italian" "" \
"Japanese" "" \
"Korean" "" \
"Kurdish" "" \
"Latvian" "" \
"Lithuanian" "" \
"Malagasy" "" \
"Norwegian" "" \
"Polish" "" \
"Portuguese Brazil" "" \
"Portuguese Portugal" "" \
"Romanian" "" \
"Russian" "" \
"Serbo Croat" "" \
"Slovak" "" \
"Slovenian" "" \
"Spanish" "" \
"Swahili" "" \
"Swedish" "" \
"Turkish" "" \
"Vietnamese" "" \
"Yiddish" "" \
"Walloon" "" 2>&1 1>&3 )
exec 3>&-
}
input_palabra(){
exec 3>&1
palabra=$($dialog --title "De $origen a $destino" \
--backtitle "$btitulo" \
--cancel-label "Volver" \
--inputbox "Introduce la palabra a traducir:" 8 50 2>&1 1>&3)
ret=$?
case $ret in
0) ;;
1) menu ;;
255) ;;
esac
exec 3>&-
url="http://www.langtolang.com/?selectFrom=\
$origen&selectTo=$destino&txtLang=$palabra&submitButton=Search"
salida=$($browser $url | sed '1, 13d' |tac | sed '1, 6d' | tac )
$dialog --backtitle "$btitulo" \
--msgbox "$salida" 16 55
input_palabra
}
menu(){
$dialog --item-help \
--title "" \
--backtitle "$btitulo" \
--menu "" 15 55 6 \
1 "Lista de idiomas " "Lista de idiomas disponibles" \
2 "Idioma de origen " "Idioma desde el que se va a traducir" \
3 "Idioma de destino " "Idioma al que se va a traducir" \
4 "Traducir " "Introducción de palabra y búsqueda de la traducción" \
5 "Exit" "Pues eso" 2> $tmpfile1
retv=$?
choice=$(cat $tmpfile1)
[ $retv -eq 1 -o $retv -eq 255 ] && exit
case $choice in
1) lista_idiomas
menu ;;
2) fromto="origen"
escoje_idioma
origen=$idioma
menu ;;
3) fromto="destino"
escoje_idioma
destino=$idioma
menu ;;
4) input_palabra ;;
5) clear
exit ;;
esac
}
if [ -f $dialog ]; then
menu
else
echo "Necesitas instalar Dialog"; exit 0
fi
date: 18/12/2011
|
Retoque del