3 /* Easy plugin that sends the body of the message to a new browser
4 window using the specified translator. It can also translate your
5 outgoing message if you send it to someone in a different country.
7 Languages from i18n, incorporated in the auto-language selection:
9 no - Norwegian (Bokmål)
10 no_NO_ny - Norwegian (Nynorsk)
16 pt_BR - Portuguese (Brazil)
25 /* Initialize the translation plugin */
26 function squirrelmail_plugin_init_translate() {
27 global $squirrelmail_plugin_hooks;
29 $squirrelmail_plugin_hooks['read_body_bottom']['translate'] = 'translate_read_form';
30 $squirrelmail_plugin_hooks['options_register']['translate'] = 'translate_opt';
31 $squirrelmail_plugin_hooks['options_save']['translate'] = 'translate_sav';
32 $squirrelmail_plugin_hooks['loading_prefs']['translate'] = 'translate_pref';
33 $squirrelmail_plugin_hooks['compose_button_row']['translate'] = 'translate_button';
37 /* Show the translation for a message you're reading */
38 function translate_read_form() {
39 global $color, $translate_server;
40 global $body, $translate_dir;
41 global $translate_show_read;
43 if (!$translate_show_read) {
47 $translate_dir = 'to';
50 $pos = strpos($new_body,
51 '">Download this as a file</A></CENTER><BR></SMALL>');
53 $new_body = substr($new_body, 0, $pos);
56 $trans = get_html_translation_table('HTMLENTITIES');
57 $trans[' '] = ' ';
58 $trans = array_flip($trans);
59 $new_body = strtr($new_body, $trans);
61 $new_body = urldecode($new_body);
62 $new_body = strip_tags($new_body);
64 /* I really don't like this next part ... */
65 $new_body = str_replace('"', "''", $new_body);
66 $new_body = strtr($new_body, "\n", ' ');
68 $function = 'translate_form_' . $translate_server;
72 function translate_table_end() {
84 function translate_button() {
85 global $translate_show_send;
87 if (! $translate_show_send) {
93 function translate_opt() {
95 $optionpages[] = array(
96 'name' => 'Translation Options',
97 'url' => '../plugins/translate/options.php',
98 'desc' => 'Which translator should be used when you get messages in a different language?',
103 function translate_sav() {
104 global $username,$data_dir;
105 global $submit_translate, $translate_translate_server;
106 global $translate_translate_location;
107 global $translate_translate_show_read;
108 global $translate_translate_show_send;
109 global $translate_translate_same_window;
111 if ($submit_translate) {
112 if (isset($translate_translate_server)) {
113 setPref($data_dir, $username, 'translate_server', $translate_translate_server);
115 setPref($data_dir, $username, 'translate_server', 'babelfish');
118 if (isset($translate_translate_location)) {
119 setPref($data_dir, $username, 'translate_location', $translate_translate_location);
121 setPref($data_dir, $username, 'translate_location', 'center');
124 if (isset($translate_translate_show_read)) {
125 setPref($data_dir, $username, 'translate_show_read', '1');
127 setPref($data_dir, $username, 'translate_show_read', '');
130 if (isset($translate_translate_show_send)) {
131 setPref($data_dir, $username, 'translate_show_send', '1');
133 setPref($data_dir, $username, 'translate_show_send', '');
136 if (isset($translate_translate_same_window)) {
137 setPref($data_dir, $username, 'translate_same_window', '1');
139 setPref($data_dir, $username, 'translate_same_window', '');
142 echo '<center>Translation options saved.</center>';
147 function translate_pref() {
148 global $username, $data_dir;
149 global $translate_server, $translate_location;
150 global $translate_show_send, $translate_show_read;
151 global $translate_same_window;
153 $translate_server = getPref($data_dir, $username, 'translate_server');
154 if ($translate_server == '') {
155 $translate_server = 'babelfish';
158 $translate_location = getPref($data_dir, $username, 'translate_location');
159 if ($translate_location == '') {
160 $translate_location = 'center';
163 $translate_show_send = getPref($data_dir, $username, 'translate_show_send');
164 $translate_show_read = getPref($data_dir, $username, 'translate_show_read');
165 $translate_same_window = getPref($data_dir, $username, 'translate_same_window');
170 * This function could be sped up.
171 * It basically negates the process if a ! is found in the beginning and
172 * matches a * at the end with 0 or more characters.
174 function translate_does_it_match_language($test) {
175 global $squirrelmail_language;
181 if (! $test ||
! $squirrelmail_language) {
185 if ($test[$index] == '!') {
191 if (($index == 0) && ($test == $squirrelmail_language)) {
195 while ($test[$index]) {
196 if ($test[$index] == '*') {
199 if ($test[$index] != $squirrelmail_language[$smindex]) {
210 function translate_lang_opt($from, $to, $value, $text) {
211 global $translate_dir;
213 echo ' <option value="' . $value . '"';
215 if (translate_does_it_match_language($to) && ($translate_dir == 'to')) {
219 if (translate_does_it_match_language($from) && ($translate_dir == 'from')) {
223 echo '>' . $text . "</option>\n";
227 function translate_new_form($action) {
228 global $translate_dir, $translate_new_window, $translate_location;
229 global $color, $translate_same_window;
231 echo '<form action="';
233 if ($translate_dir == 'to') {
236 echo 'translate.php';
239 echo '" method="post"';
241 if (!$translate_same_window) {
242 echo ' target="_blank"';
247 ?
><table align
="<?php echo $translate_location ?>" cellpadding
=3 cellspacing
=0 border
=0 bgcolor
=<?php
echo $color[10] ?
>>
250 <table cellpadding
=2 cellspacing
=1 border
=0 bgcolor
="<?php echo $color[5] ?>">
255 function translate_form_babelfish($message) {
256 translate_new_form('http://babelfish.altavista.com/translate.dyn');
258 <input type
="hidden" name
="doit" value
="done">
259 <input type
="hidden" name
="BabelFishFrontPage" value
="yes">
260 <input type
="hidden" name
="bblType" value
="urltext">
261 <input type
="hidden" name
="urltext" value
="<?php echo $message; ?>">
262 <select name
="lp"><?php
263 translate_lang_opt('en', 'fr', 'en_fr', 'English to French');
264 translate_lang_opt('', 'de', 'en_de', 'English to German');
265 translate_lang_opt('', 'it', 'en_it', 'English to Italian');
266 translate_lang_opt('', 'pt*', 'en_pt', 'English to Portuguese');
267 translate_lang_opt('', 'es', 'en_es', 'English to Spanish');
268 translate_lang_opt('fr', 'en', 'fr_en', 'French to English');
269 translate_lang_opt('de', '', 'de_en', 'German to English');
270 translate_lang_opt('it', '', 'it_en', 'Italian to English');
271 translate_lang_opt('pt*', '', 'pt_en', 'Portuguese to English');
272 translate_lang_opt('es', '', 'es_en', 'Spanish to English');
273 translate_lang_opt('', '', 'de_fr', 'German to French');
274 translate_lang_opt('', '', 'fr_de', 'French to German');
275 translate_lang_opt('ru', '', 'ru_en', 'Russian to English');
277 Babelfish
: <input type
="Submit" value
="Translate">
279 translate_table_end();
282 function translate_form_go($message) {
283 translate_new_form('http://translator.go.com/cb/trans_entry');
285 <input type
=hidden name
=input_type value
=text
>
286 <select name
=lp
><?php
287 translate_lang_opt('en', 'es', 'en_sp', 'English to Spanish');
288 translate_lang_opt('', 'fr', 'en_fr', 'English to French');
289 translate_lang_opt('', 'de', 'en_ge', 'English to German');
290 translate_lang_opt('', 'it', 'en_it', 'English to Italian');
291 translate_lang_opt('', 'pt', 'en_pt', 'English to Portuguese');
292 translate_lang_opt('es', 'en', 'sp_en', 'Spanish to English');
293 translate_lang_opt('fr', '', 'fr_en', 'French to English');
294 translate_lang_opt('de', '', 'ge_en', 'German to English');
295 translate_lang_opt('it', '', 'it_en', 'Italian to English');
296 translate_lang_opt('pt', '', 'pt_en', 'Portuguese to English');
298 <input type
="hidden" name
="text" value
="<?php echo $message ?>">
299 Go
.com
: <input type
="Submit" value
="Translate">
301 translate_table_end();
304 function translate_form_intertran($message) {
305 translate_new_form('http://www.tranexp.com:2000/InterTran');
307 <INPUT TYPE
="hidden" NAME
="topframe" VALUE
="yes">
308 <INPUT TYPE
="hidden" NAME
="type" VALUE
="text">
309 <input type
="hidden" name
="text" value
="<?php echo $message ?>">
310 <SELECT name
="from"><?PHP
311 translate_lang_opt('pt_BR', '', 'pob', 'Brazilian Portuguese');
312 translate_lang_opt('', '', 'bul', 'Bulgarian (CP 1251)');
313 translate_lang_opt('', '', 'cro', 'Croatian (CP 1250)');
314 translate_lang_opt('cs', '', 'che', 'Czech (CP 1250)');
315 translate_lang_opt('', '', 'dan', 'Danish');
316 translate_lang_opt('nl', '', 'dut', 'Dutch');
317 translate_lang_opt('en', '!en', 'eng', 'English');
318 translate_lang_opt('', '', 'spe', 'European Spanish');
319 translate_lang_opt('', '', 'fin', 'Finnish');
320 translate_lang_opt('fr', '', 'fre', 'French');
321 translate_lang_opt('de', '', 'ger', 'German');
322 translate_lang_opt('', '', 'grk', 'Greek');
323 translate_lang_opt('', '', 'hun', 'Hungarian (CP 1250)');
324 translate_lang_opt('', '', 'ice', 'Icelandic');
325 translate_lang_opt('it', '', 'ita', 'Italian');
326 translate_lang_opt('', '', 'jpn', 'Japanese (Shift JIS)');
327 translate_lang_opt('', '', 'spl', 'Latin American Spanish');
328 translate_lang_opt('no*', '', 'nor', 'Norwegian');
329 translate_lang_opt('pl', '', 'pol', 'Polish (ISO 8859-2)');
330 translate_lang_opt('', '', 'poe', 'Portuguese');
331 translate_lang_opt('', '', 'rom', 'Romanian (CP 1250)');
332 translate_lang_opt('ru', '', 'rus', 'Russian (CP 1251)');
333 translate_lang_opt('', '', 'sel', 'Serbian (CP 1250)');
334 translate_lang_opt('', '', 'slo', 'Slovenian (CP 1250)');
335 translate_lang_opt('es', '', 'spa', 'Spanish');
336 translate_lang_opt('sv', '', 'swe', 'Swedish');
337 translate_lang_opt('', '', 'wel', 'Welsh');
338 ?
></SELECT
> to
<SELECT name
="to"><?PHP
339 translate_lang_opt('', 'pt_BR', 'pob', 'Brazilian Portuguese');
340 translate_lang_opt('', '', 'bul', 'Bulgarian (CP 1251)');
341 translate_lang_opt('', '', 'cro', 'Croatian (CP 1250)');
342 translate_lang_opt('', 'cs', 'che', 'Czech (CP 1250)');
343 translate_lang_opt('', '', 'dan', 'Danish');
344 translate_lang_opt('', 'nl', 'dut', 'Dutch');
345 translate_lang_opt('!en', 'en', 'eng', 'English');
346 translate_lang_opt('', '', 'spe', 'European Spanish');
347 translate_lang_opt('', '', 'fin', 'Finnish');
348 translate_lang_opt('', 'fr', 'fre', 'French');
349 translate_lang_opt('', 'de', 'ger', 'German');
350 translate_lang_opt('', '', 'grk', 'Greek');
351 translate_lang_opt('', '', 'hun', 'Hungarian (CP 1250)');
352 translate_lang_opt('', '', 'ice', 'Icelandic');
353 translate_lang_opt('', 'it', 'ita', 'Italian');
354 translate_lang_opt('', '', 'jpn', 'Japanese (Shift JIS)');
355 translate_lang_opt('', '', 'spl', 'Latin American Spanish');
356 translate_lang_opt('', 'no*', 'nor', 'Norwegian');
357 translate_lang_opt('', 'pl', 'pol', 'Polish (ISO 8859-2)');
358 translate_lang_opt('', '', 'poe', 'Portuguese');
359 translate_lang_opt('', '', 'rom', 'Romanian (CP 1250)');
360 translate_lang_opt('', 'ru', 'rus', 'Russian (CP 1251)');
361 translate_lang_opt('', '', 'sel', 'Serbian (CP 1250)');
362 translate_lang_opt('', '', 'slo', 'Slovenian (CP 1250)');
363 translate_lang_opt('', 'es', 'spa', 'Spanish');
364 translate_lang_opt('', 'sv', 'swe', 'Swedish');
365 translate_lang_opt('', '', 'wel', 'Welsh');
367 InterTran
: <input type
=submit value
="Translate">
369 translate_table_end();
372 function translate_form_gpltrans($message) {
373 translate_new_form('http://www.translator.cx/cgi-bin/gplTrans');
374 ?
><select name
="toenglish"><?php
375 translate_lang_opt('en', '!en', 'no', 'From English');
376 translate_lang_opt('!en', 'en', 'yes', 'To English');
377 ?
></select
><select name
="language">
379 translate_lang_opt('nl', 'nl', 'dutch_dict', 'Dutch');
380 translate_lang_opt('fr', 'fr', 'french_dict', 'French');
381 translate_lang_opt('de', 'de', 'german_dict', 'German');
382 translate_lang_opt('', '', 'indonesian_dict', 'Indonesian');
383 translate_lang_opt('it', 'it', 'italian_dict', 'Italian');
384 translate_lang_opt('', '', 'latin_dict', 'Latin');
385 translate_lang_opt('pt', 'pt', 'portuguese_dict', 'Portuguese');
386 translate_lang_opt('es', 'es', 'spanish_dict', 'Spanish');
388 <input type
="hidden" name
="text" value
="<?php echo $message ?>">
389 GPLTrans
: <input type
="submit" value
="Translate">
391 translate_table_end();
394 function translate_form_dictionary($message) {
395 translate_new_form('http://translate.dictionary.com:8800/systran/cgi');
396 ?
><INPUT TYPE
=HIDDEN NAME
=partner VALUE
=LEXICO
>
397 <input type
=hidden name
=urltext value
="<?php echo $message ?>">
398 <SELECT NAME
="lp"><?php
399 translate_lang_opt('en', 'fr', 'en_fr', 'English to French');
400 translate_lang_opt('', 'de', 'en_de', 'English to German');
401 translate_lang_opt('', 'it', 'en_it', 'English to Italian');
402 translate_lang_opt('', 'pt*', 'en_pt', 'English to Portuguese');
403 translate_lang_opt('', 'es', 'en_sp', 'English to Spanish');
404 translate_lang_opt('fr', '', 'fr_en', 'French to English');
405 translate_lang_opt('', '', 'fr_ge', 'French to German');
406 translate_lang_opt('', '', 'ge_fr', 'German to French');
407 translate_lang_opt('de', '', 'de_en', 'German to English');
408 translate_lang_opt('it', '', 'it_en', 'Italian to English');
409 translate_lang_opt('pt*', '', 'pt_en', 'Portuguese to English');
410 translate_lang_opt('es', '', 'sp_en', 'Spanish to English');
412 Dictionary
.com
: <INPUT TYPE
="submit" VALUE
="Translate">
414 translate_table_end();