[TCL] Motus (version actuelle : 3.355)

[MenzAgitat]

Depuis hier, le site web que le Motus utilise pour afficher la définition des mots a changé sa mise en page et la structure de ses URL.
Voici un correctif rapide à faire vous-même pour corriger le problème (c'est pas optimal mais ça fonctionne en attendant que j'arrange ça proprement) :
------------------
cherchez

tclcopier

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

remplacez par

tclcopier

set URL_site "http://dictionnaire.tv5.org/dictionnaires.asp?Action=1&param=$mot&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 "\00307|\003" res

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

regsub -all "&#149" $res "[color 07]|\003" res

et supprimez cette ligne.

(je n'ai pas utilisé les balises [tcl] pour celle-là car le &#149 est interprété >< )
------------------

J'ai bientôt terminé la version 2.0 du script, le temps de terminer la phase de beta tests et je vous la livre