[TCL] MediaDico (version actuelle : 3.125)

[MenzAgitat]

Depuis hier, le script ne fonctionne plus correctement car le site web sur lequel il va chercher les définitions a changé sa mise en page et la structure de ses URL.

En attendant une version corrigée et améliorée (ce qui ne devrait pas tarder), voici un correctif rapide à faire vous-même :

Ouvrez mediadico.tcl dans un éditeur de texte.
----------------------------
cherchez

tclcopier

set URL_site "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&mot=$arg&che=1"

remplacez par

tclcopier

set URL_site "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&param=$arg&che=1"

----------------------------
cherchez

tclcopier

regsub -all "</B></FONT><BR>" $res "\003 :" res

remplacez par

tclcopier

regsub -all "</B></FONT><BR>" $res "\003" res

----------------------------
cherchez

tclcopier

regsub -all "<BR>" $res "\n" res

remplacez par

tclcopier

regsub -all "</FONT><BR> </FONT><BR> <BR><BR>" $res "\n" res
regsub -all "</FONT><BR> </FONT><BR><BR>" $res "\n" res
regsub -all "<BR><BR>" $res "\n" res
regsub -all "<BR>" $res "\00312-\003" res

----------------------------
cherchez

regsub -all "&#149" $res "\00312-\003" res

et effacez cette ligne.

(je n'ai pas utilisé la balise [tcl] ici car le &#149 est interprété >< )

----------------------------
Sauvez, rehashez et voilà.