BabelFish Translator (version actuelle : 1.12) (support arrêté)

[MenzAgitat]

Petit souci depuis quelques jours, babelfish ne renvoie plus la traduction à partir de la méthode "GET", c'est à dire à partir d'une url construite comme :

Code :

http://babelfish.altavista.com/tr?doit=done&intl=1&lp=en-fr&urltext=tree

Il semblerait qu'ils aient changé leur système et qu'il soit désormais nécessaire d'utiliser la méthode "POST".

J'ai passé pas mal de temps à essayer de comprendre la technique en utilisant http.tcl mais je n'arrive à rien.

Avant, on avait (j'ai un peu schématisé histoire que ce soit plus clair) :

tclcopier

set url1 "http://babelfish.altavista.com/babelfish/tr?doit=done&intl=1&lp="
set url2 "&urltext="
set url "$url1$langtype$url2$text"
::http::config -useragent $bftrans::useragent
set token [::http::geturl "$url"]
if {[::http::status $token] == "ok"} {set res [::http::data $token]}

mais cela ne fonctionne plus.

A force de recherches et documentation, j'ai fait ça :

tclcopier

::http::config -useragent $bftrans::useragent
set query [::http::formatQuery "doit" "done" "intl" "1" "lp" "$langtype" "urltext" "$text"]
set token [::http::geturl "$url" -query $query]
if {[::http::status $token] == "ok"} {set res [::http::data $token]}

ou ça :

tclcopier

::http::config -useragent $bftrans::useragent
set query "doit=done&intl=1&lp=[set language]&urltext=[set text]"
set token [::http::geturl "$url" -query $query]
if {[::http::status $token] == "ok"} {set res [::http::data $token]}

ça ne fonctionne pas mieux.
J'ai essayé pas mal d'autres trucs mais à la lecture de http://src.opensolaris.org/source/xref/s...doc/http.n c'est ce que j'ai fait de plus cohérent.

Quelqu'un a une idée ?