#!/bin/bash 

browser="lynx -dump -nolist "


ayuda()
{
echo
echo "Uso: $( basename ${0}) idiomaidioma palabra"
echo "Ej.: $( basename ${0}) esjp perro"
echo "o $( basename ${0}) idioma palabra, para el diccionario de definiciones"
echo "Ej.: $( basename ${0}) en dog"
echo ""
echo "Lista de idiomas:"
echo ""
echo "es <--> al ar bu ca cz de dk en fi fr gr hr hu il it jp lat pt ru" 
echo "en <--> cn mal(tés) tag(alog) ro"
echo "zuen -> Zulú-Inglés"
echo
echo "Dicc. de definiciones:  es en it fr ast(uriano) ca(talá) ga(lego)"	
}





esen="http://www.wordreference.com/esen/$2"
enes="http://www.wordreference.com/enes/$2"
esfr="http://www.wordreference.com/esfr/$2"
fres="http://www.wordreference.com/fres/$2"
espt="http://www.wordreference.com/espt/$2"
ptes="http://www.wordreference.com/ptes/$2"
esit="http://it.dicios.com/esit/$2"
ites="http://it.dicios.com/ites/$2"
esde="http://diccionario.reverso.net/espanol-aleman/$2"
dees="http://diccionario.reverso.net/aleman-espanol/$2"
esal="http://www.foreignword.com/cgi-bin/albesp.pl?lengua=espalb&termbox=$2"
ales="http://www.foreignword.com/cgi-bin/albesp.pl?lengua=albesp&termbox=$2"
esca="http://dicts.info/2/catalan-spanish.php?word=$2&begin=Search"
caes="http://dicts.info/2/catalan-spanish.php?word=$2&begin=Search"
lates="http://dictionaries.travlang.com/LatinSpanish/dict.cgi?query=$2&max=50"
eslat="http://dictionaries.travlang.com/SpanishLatin/dict.cgi?query=$2&max=50" 
esfi="http://www.dicts.info/ud.php?k1=87&k2=31&w=$2"
fies="http://www.dicts.info/ud.php?k1=31&k2=87&w=$2"
esbu="http://www.dicts.info/ud.php?k1=87&k2=164&w=$2"
bues="http://www.dicts.info/ud.php?k1=164&k2=87&w=$2"
escz="http://www.dicts.info/ud.php?k1=87&k2=21&w=$2"
czes="http://www.dicts.info/ud.php?k1=21&k2=87&w=$2"
eshr="http://www.dicts.info/ud.php?k1=87&k2=170&w=$2"
hres="http://www.dicts.info/ud.php?k1=170&k2=87&w=$2"
esdk="http://www.dicts.info/ud.php?k1=87&k2=23&w=$2"
dkes="http://www.dicts.info/ud.php?k1=23&k2=87&w=$2"
esgr="http://www.dicts.info/ud.php?k1=87&k2=37&w=$2"
gres="http://www.dicts.info/ud.php?k1=37&k2=87&w=$2"
eshu="http://www.dicts.info/ud.php?k1=87&k2=43&w=$2"
hues="http://www.dicts.info/ud.php?k1=43&k2=87&w=$2"
esil="http://dicts.info/2/hebrew-spanish.php?word=$2&begin=Search"
iles=$esil
esjp="http://www.dicts.info/ud.php?k1=87&k2=55&w=$2"
jpes="http://www.dicts.info/ud.php?k1=55&k2=87&w=$2"
esar="http://www.dicts.info/ud.php?k1=118&k2=87&w=$2"
ares="http://www.dicts.info/ud.php?k1=87&k2=118&w=$2"
rues="http://www.dicts.info/ud.php?k1=81&k2=87&w=$2"
esru="http://www.dicts.info/ud.php?k1=87&k2=81&w=$2"
es="http://buscon.rae.es/draeI/SrvltGUIBusUsual?TIPO_%20HTML=2&LEMA=$2"
en="http://dictionary.reference.com/browse/$2"
it="http://www.dizionario-italiano.it/definizione-lemma.php?definizione=$2&lemma=C042C000"
fr="http://www.cnrtl.fr/definition/$2"
ast="http://mas.lne.es/diccionario/index.php?palabra=$2"
ca="http://dlc.iec.cat/results.asp?txtEntrada=$2&operEntrada=0"
ga="http://www.edu.xunta.es/diccionarios/BuscaTermo.jsp?Termo=$2"
encn="http://www.mandarintools.com/cgi-bin/wordlook.pl?word=$2&searchtype=english&where=whole"
cnen=$encn
zuen="http://www.websters-online-dictionary.org/translation/Zulu/$2"
enmal="http://www.dicts.info/ud.php?k1=1&k2=228&w=$2"
malen="http://www.dicts.info/ud.php?k1=228&k2=1&w=$2"
enro="http://www.dictionarenglezroman.ro/?cuvant=$2"
roen="http://www.dictionarromanenglez.ro/?cuvant=$2"
entag="http://www.foreignword.com/cgi-bin/engtag.cgi?language=engtag&termbox=$2&B1=Search"
tagen="http://www.foreignword.com/cgi-bin/engtag.cgi?language=tageng&termbox=$2&B1=Search"

if [ $# -lt 2 ];
 then
  ayuda
  exit 1
fi

pp=$1
j=$pp
k=${!j}


${browser}${k} |less
#> /tmp/txt
#dialog --title " $pp " --textbox /tmp/txt 22 78
#rm txt




exit 0