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

[MenzAgitat]

Ce script utilise BabelFish pour traduire des mots ou des phrases entières, du français vers d'autres langues et vice versa.

Les langues supportées par défaut sont :
Anglais -> Français
Allemand -> Français
Hollandais -> Français
Italien -> Français
Portugais -> Français
Espagnol -> Français
Français -> Anglais
Français -> Allemand
Français -> Hollandais
Français -> Italien
Français -> Portugais
Français -> Espagnol

La liste des langages supportés pour la traduction peut facilement être modifiée, en accord avec la liste des langues disponibles chez BabelFish.

Vous pouvez télécharger le script ici : BabelFish Translator v1.12fr


Laissez vos commentaires / rapports de bugs ici...

[MenzAgitat]

Â
Nouvelle version : 1.1

Changelog :

Code :

- Il est maintenant possible d'effectuer une requête en privé avec le bot en tapant :
        /msg nomdubot !traduire en-fr This is a test
- Intégration dans un namespace

[MenzAgitat]

Nouvelle version : 1.11

Changelog :

Code :

- L'aide s'affiche plus rapidement (notamment la liste des langues disponibles)

[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 ?

[CrazyCat]

Question bête, c'est pas sur yahoo maintenant? Ce qui expliquerait que tu perdes des données lors du reroutage?

[MenzAgitat]

Non, ils ont juste supprimé la possibilité d'envoyer la requête par l'url.

[MenzAgitat]

Nouvelle version : 1.12

Changelog :

Code :

1.12: Réparation du script qui ne fonctionnait plus suite à des modifications du site babelfish.altavista.com (merci à Ennery)

Vous pouvez télécharger ce script ici : BabelFish Translator v1.12fr

[linoux]

Bonjour MenzAgitat (et bonne année 2012),

Pour te signaler, à tort ou à raison, que les traductions obtenues n'ont pas reçu correctement la ponctuation et les signes diacritiques.
Ce qui nous donne des phrases traduites dans une langue inattendue

Ceci sur les versions egg et win en tcl 8.5, de 1.6.18 à 1.6.21

Voilà Merci de ton attention

[MenzAgitat]

Je te remercie de l'avoir signalé, mais ce script n'est désormais plus supporté et il n'y aura jamais de nouvelle version.

ealexp est actuellement en train de développer un script similaire, fonctionnant avec l'API du traducteur en ligne de Microsoft, et il ne devrait probablement pas tarder à le publier.