20bc790c |
1 | <?php |
2 | /** |
3 | * SquirrelMail translate plugin functions |
4 | * |
5 | * Copyright (c) 2004 The SquirrelMail Project Team |
6 | * Licensed under the GNU GPL. For full terms see the file COPYING. |
7 | * |
8 | * @version $Id$ |
9 | * @package plugins |
10 | * @subpackage translate |
11 | */ |
12 | |
13 | /** Load default config */ |
14 | if (file_exists(SM_PATH . 'plugins/translate/config_default.php')) { |
15 | include_once(SM_PATH . 'plugins/translate/config_default.php'); |
16 | } else { |
17 | /** Somebody removed default config */ |
18 | global $translate_gpltrans_url; |
19 | $translate_gpltrans_url=''; |
20 | global $disable_compose_translate; |
21 | $disable_compose_translate=true; |
22 | global $translate_default_engine; |
23 | $translate_default_engine='babelfish'; |
24 | global $translate_babelfish_enabled; |
25 | $translate_babelfish_enabled=true; |
26 | global $translate_go_enabled; |
27 | $translate_go_enabled=false; |
28 | global $translate_dictionary_enabled; |
29 | $translate_dictionary_enabled=true; |
30 | global $translate_google_enabled; |
31 | $translate_google_enabled=true; |
32 | global $translate_intertran_enabled; |
33 | $translate_intertran_enabled=true; |
34 | global $translate_promt_enabled; |
35 | $translate_promt_enabled=true; |
36 | global $translate_otenet_enabled; |
37 | $translate_otenet_enabled=true; |
38 | global $translate_gpltrans_enabled; |
39 | $translate_gpltrans_enabled=true; |
40 | global $translate_custom_enabled; |
41 | $translate_custom_enabled=false; |
42 | } |
43 | |
44 | /** Load site config */ |
45 | if (file_exists(SM_PATH . 'config/translate_config.php')) { |
46 | include_once(SM_PATH . 'config/translate_config.php'); |
47 | } elseif (file_exists(SM_PATH . 'plugins/translate/config.php')) { |
48 | include_once(SM_PATH . 'plugins/translate/config.php'); |
49 | } |
50 | |
51 | /** Setup functions */ |
52 | |
bb3ecba2 |
53 | /** |
54 | * Shows translation box in message display window |
20bc790c |
55 | * @access private |
56 | */ |
57 | function translate_read_form_function() { |
58 | global $color, $translate_server; |
59 | global $message, $translate_dir; |
60 | global $translate_show_read; |
61 | global $imapConnection, $wrap_at, $passed_id, $mailbox; |
62 | global $translate_gpltrans_url; |
63 | |
64 | global $translate_babelfish_enabled, $translate_go_enabled, |
65 | $translate_dictionary_enabled, $translate_google_enabled, |
66 | $translate_gpltrans_enabled, $translate_intertran_enabled, |
67 | $translate_promt_enabled, $translate_otenet_enabled; |
68 | |
69 | if (!$translate_show_read) { |
70 | return; |
71 | } |
72 | |
73 | $translate_server_option='translate_' . $translate_server . '_enabled'; |
74 | if ($translate_server=='gpltrans' && $translate_gpltrans_url=='' || |
75 | ! $$translate_server_option || ! function_exists('translate_form_' . $translate_server)) { |
76 | error_box(_("Selected translation engine is disabled. Please update your translation preferences."),$color); |
bb3ecba2 |
77 | return; |
20bc790c |
78 | } |
79 | $translate_dir = 'to'; |
80 | |
81 | $trans_ar = $message->findDisplayEntity(array(), array('text/plain')); |
82 | $body = ''; |
83 | if ($trans_ar[0] != '') { |
84 | for ($i = 0; $i < count($trans_ar); $i++) { |
85 | $body .= formatBody($imapConnection, $message, $color, $wrap_at, $trans_ar[$i], $passed_id, $mailbox); |
86 | } |
87 | $hookResults = do_hook('message_body', $body); |
88 | $body = $hookResults[1]; |
89 | } else { |
90 | $body = 'Message can\'t be translated'; |
91 | } |
92 | |
93 | $new_body = $body; |
94 | $pos = strpos($new_body, |
95 | '">'. _("Download this as a file") . '</a></center><br /></small>'); |
96 | if (is_int($pos)) { |
97 | $new_body = substr($new_body, 0, $pos); |
98 | } |
99 | |
100 | $trans = get_html_translation_table(HTML_ENTITIES); |
101 | $trans[' '] = ' '; |
102 | $trans = array_flip($trans); |
103 | $new_body = strtr($new_body, $trans); |
104 | |
105 | $new_body = urldecode($new_body); |
106 | $new_body = strip_tags($new_body); |
107 | |
108 | /* I really don't like this next part ... */ |
109 | $new_body = str_replace('"', "''", $new_body); |
110 | $new_body = strtr($new_body, "\n", ' '); |
111 | |
112 | $function = 'translate_form_' . $translate_server; |
113 | $function($new_body); |
114 | } |
115 | |
116 | /** |
117 | * Adds translation option block |
118 | * @access private |
119 | */ |
120 | function translate_optpage_function() { |
121 | global $optpage_blocks; |
122 | $optpage_blocks[] = array( |
123 | 'name' => _("Translation Options"), |
124 | 'url' => '../plugins/translate/options.php', |
125 | 'desc' => _("Which translator should be used when you get messages in a different language?"), |
126 | 'js' => false |
127 | ); |
128 | } |
129 | |
130 | /** |
131 | * Gets user's translation preferences |
132 | * @access private |
133 | */ |
bb3ecba2 |
134 | function translate_pref_function() { |
20bc790c |
135 | global $username, $data_dir; |
136 | global $translate_server, $translate_location; |
137 | global $translate_show_send, $translate_show_read; |
138 | global $translate_same_window,$translate_default_engine; |
139 | |
140 | $translate_server = getPref($data_dir, $username, 'translate_server',$translate_default_engine); |
141 | |
142 | $translate_location = getPref($data_dir, $username, 'translate_location'); |
143 | if ($translate_location == '') { |
144 | $translate_location = 'center'; |
145 | } |
146 | |
147 | $translate_show_send = getPref($data_dir, $username, 'translate_show_send'); |
148 | $translate_show_read = getPref($data_dir, $username, 'translate_show_read'); |
149 | $translate_same_window = getPref($data_dir, $username, 'translate_same_window'); |
150 | } |
151 | |
152 | /** |
153 | * Should add translation options in compose window |
154 | * |
155 | * Unimplemented |
156 | * @access private |
157 | */ |
158 | function translate_button_function() { |
159 | global $translate_show_send; |
160 | |
161 | if (! $translate_show_send) { |
162 | return; |
163 | } |
164 | } |
165 | |
166 | /** Option functions */ |
167 | |
168 | /** |
169 | * |
170 | */ |
171 | function translate_showoption() { |
172 | global $translate_babelfish_enabled, $translate_go_enabled, |
173 | $translate_dictionary_enabled, $translate_google_enabled, |
174 | $translate_gpltrans_enabled, $translate_intertran_enabled, |
175 | $translate_promt_enabled, $translate_otenet_enabled; |
176 | global $translate_custom_enabled; |
177 | |
178 | if ($translate_babelfish_enabled) translate_showoption_internal('server','babelfish', 'Babelfish'); |
179 | if ($translate_go_enabled) translate_showoption_internal('server','go', 'Go.com'); |
180 | if ($translate_dictionary_enabled) translate_showoption_internal('server','dictionary', 'Dictionary.com'); |
181 | if ($translate_google_enabled) translate_showoption_internal('server','google', 'Google Translate'); |
bb3ecba2 |
182 | if ($translate_gpltrans_enabled && $translate_gpltrans_url!='') |
183 | translate_showoption_internal('server','gpltrans', 'GPLTrans'); |
20bc790c |
184 | if ($translate_intertran_enabled) translate_showoption_internal('server','intertran', 'Intertran'); |
185 | if ($translate_otenet_enabled) translate_showoption_internal('server','otenet', 'OTEnet'); |
186 | if ($translate_promt_enabled) translate_showoption_internal('server','promt', 'PROMT'); |
187 | if ($translate_custom_enabled && function_exists('translate_custom_showoption')) { |
188 | translate_custom_showoption(); |
189 | } |
190 | } |
191 | |
192 | /** |
193 | * |
194 | */ |
195 | function translate_showtrad() { |
196 | global $translate_babelfish_enabled, $translate_go_enabled, |
197 | $translate_dictionary_enabled, $translate_google_enabled, |
198 | $translate_gpltrans_enabled, $translate_intertran_enabled, |
199 | $translate_promt_enabled, $translate_otenet_enabled; |
200 | global $translate_gpltrans_url, $translate_custom_enabled; |
201 | |
202 | if ($translate_babelfish_enabled) translate_showtrad_internal( 'Babelfish', |
203 | _("Maximum of 1000 characters translated, powered by Systran"). |
bb3ecba2 |
204 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'19').' ' , |
20bc790c |
205 | 'http://babelfish.altavista.com/' ); |
206 | if ($translate_go_enabled) translate_showtrad_internal( 'Translator.Go.com', |
207 | _("Maximum of 25 kilobytes translated, powered by Systran"). |
bb3ecba2 |
208 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'10').' ' , |
20bc790c |
209 | 'http://translator.go.com/' ); |
210 | if ($translate_dictionary_enabled) translate_showtrad_internal( 'Dictionary.com', |
211 | _("No known limits, powered by Systran"). |
bb3ecba2 |
212 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'24').' ' , |
20bc790c |
213 | 'http://www.dictionary.com/translate' ); |
214 | if ($translate_google_enabled) translate_showtrad_internal( 'Google Translate', |
215 | _("No known limits, powered by Systran"). |
bb3ecba2 |
216 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'12').' ' , |
20bc790c |
217 | 'http://www.google.com/translate' ); |
218 | if ($translate_gpltrans_enabled && $translate_gpltrans_url!='') translate_showtrad_internal( 'GPLTrans', |
219 | _("No known limits, powered by GPLTrans (free, open source)"). |
bb3ecba2 |
220 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'16').' ' , |
20bc790c |
221 | 'http://www.translator.cx/' ); |
222 | if ($translate_intertran_enabled) translate_showtrad_internal( 'InterTran', |
223 | _("No known limits, powered by Translation Experts' InterTran"). |
bb3ecba2 |
224 | '<br />'.sprintf(_("Number of supported languages: %s"),'29').' ' , |
20bc790c |
225 | 'http://www.tranexp.com/' ); |
226 | if ($translate_otenet_enabled) translate_showtrad_internal( 'OTEnet', |
227 | _("Hellenic translations, no known limits, powered by Systran"). |
bb3ecba2 |
228 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'20').' ' , |
20bc790c |
229 | 'http://systran.otenet.gr/' ); |
230 | if ($translate_promt_enabled) translate_showtrad_internal( 'PROMT', |
231 | _("Russian translations, maximum of 500 characters translated"). |
bb3ecba2 |
232 | '<br />'.sprintf(_("Number of supported language pairs: %s"),'13').' ' , |
20bc790c |
233 | 'http://www.online-translator.com/' ); |
234 | |
235 | if ($translate_custom_enabled && function_exists('translate_custom_showtrad')) { |
236 | translate_custom_showtrad(); |
237 | } |
238 | } |
239 | |
240 | /** |
241 | * Creates options for translation selection boxes |
242 | * @param string $Var option type (server,location) |
243 | * @param string $value option value |
244 | * @param string $Desc description of translation server |
245 | * @access private |
246 | * @since 1.5.1 |
247 | */ |
248 | function translate_showoption_internal($Var,$value, $Desc) { |
249 | $Var='translate_' . $Var; |
250 | |
251 | global $$Var; |
252 | |
253 | echo '<option value="' . $value . '"'; |
254 | if ($$Var == $value) { |
255 | echo ' selected="selected"'; |
256 | } |
257 | echo '>' . $Desc . "</option>\n"; |
258 | } |
259 | |
260 | /** |
261 | * Creates translation server description |
262 | * @param string $tit title |
263 | * @param string $com comments about translation server |
264 | * @param string $url url of translation server |
265 | * @access private |
266 | */ |
267 | function translate_showtrad_internal( $tit, $com, $url ) { |
268 | echo "<li><b>$tit</b> - ". |
269 | $com . |
270 | "[ <a href=\"$url\" target=\"_blank\">$tit</a> ]</li>"; |
271 | } |
272 | |
273 | /** Internal functions */ |
274 | |
275 | /** |
276 | * Closes table tags in translation box |
277 | * @access private |
278 | */ |
279 | function translate_table_end() { |
280 | ?></td> |
281 | </tr> |
282 | </table> |
283 | </td> |
284 | </tr> |
285 | </table> |
286 | </form> |
287 | <?php |
288 | } |
289 | |
290 | /** |
291 | * Tries to select default translation combination |
292 | * |
293 | * This function could be speed up. |
294 | * It basically negates the process if a ! is found in the beginning and |
295 | * matches a * at the end with 0 or more characters. |
296 | * |
297 | * @param string $test language code that has to be tested. |
298 | * @return boolean true if language code matches user's language. |
299 | * @access private |
300 | */ |
301 | function translate_does_it_match_language($test) { |
302 | global $squirrelmail_language; |
303 | $true = 1; |
304 | $false = 0; |
305 | $index = 0; |
306 | $smindex = 0; |
307 | |
308 | if (! $test || ! $squirrelmail_language) { |
309 | return $false; |
310 | } |
311 | |
312 | if ($test[$index] == '!') { |
313 | $index ++; |
314 | $true = 0; |
315 | $false = 1; |
316 | } |
317 | |
318 | if (($index == 0) && ($test == $squirrelmail_language)) { |
319 | return $true; |
320 | } |
321 | |
322 | while (isset($test[$index]) && $test[$index]) { |
323 | if ($test[$index] == '*') { |
324 | return $true; |
325 | } |
326 | if ($test[$index] != $squirrelmail_language[$smindex]) { |
327 | return $false; |
328 | } |
329 | $index ++; |
330 | $smindex ++; |
331 | } |
332 | |
333 | return $false; |
334 | } |
335 | |
336 | /** |
337 | * Creates language option selection box. |
338 | * @param string $from |
339 | * @param string $to |
340 | * @param string $value |
341 | * @param string $text |
342 | * @access private |
343 | */ |
344 | function translate_lang_opt($from, $to, $value, $text) { |
345 | global $translate_dir; |
346 | |
347 | $ret = ' <option value="' . $value . '"'; |
348 | |
349 | if (translate_does_it_match_language($to) && ($translate_dir == 'to')) { |
350 | $ret .= ' selected="selected"'; |
351 | } |
352 | |
353 | if (translate_does_it_match_language($from) && ($translate_dir == 'from')) { |
354 | $ret .= ' selected="selected"'; |
355 | } |
356 | |
357 | $ret .= '>' . $text . "</option>\n"; |
358 | |
359 | return( $ret ); |
360 | } |
361 | |
362 | /** |
363 | * Starts translation box |
364 | * |
365 | * @param string $action url that has to recieve message for translation |
366 | * @access private |
367 | */ |
368 | function translate_new_form($action) { |
369 | global $translate_dir, $translate_new_window, $translate_location; |
370 | global $color, $translate_same_window; |
371 | |
372 | echo '<form action="'; |
373 | |
374 | if ($translate_dir == 'to') { |
375 | echo $action; |
376 | } else { |
377 | echo 'translate.php'; |
378 | } |
379 | |
380 | echo '" method="post"'; |
381 | |
382 | if (!$translate_same_window) { |
383 | echo ' target="_blank"'; |
384 | } |
385 | |
386 | echo ">\n"; |
387 | |
bb3ecba2 |
388 | ?><table align="<?php echo $translate_location; ?>" cellpadding="3" cellspacing="0" border="0" bgcolor="<?php echo $color[10]; ?>"> |
20bc790c |
389 | <tr> |
390 | <td> |
bb3ecba2 |
391 | <table cellpadding="2" cellspacing="1" border="0" bgcolor="<?php echo $color[5]; ?>"> |
20bc790c |
392 | <tr> |
393 | <td><?php |
394 | } |
395 | |
396 | /** |
397 | * Babelfish translation engine functions |
398 | * |
399 | * @param string $message text that has to be translated. |
400 | * @access private |
401 | */ |
402 | function translate_form_babelfish($message) { |
403 | translate_new_form('http://babelfish.altavista.com/babelfish/tr'); |
404 | ?> |
405 | <input type="hidden" name="doit" value="done" /> |
406 | <input type="hidden" name="intl" value="1" /> |
407 | <input type="hidden" name="tt" value="urltext" /> |
408 | <input type="hidden" name="trtext" value="<?php echo $message; ?>" /> |
409 | <select name="lp"><?php |
410 | echo translate_lang_opt('en_US', 'zh_CN', 'en_zh', |
411 | sprintf( _("%s to %s"),_("English"),_("Chinese Simplified"))) . |
412 | translate_lang_opt('en_US', 'zh_TW', 'en_zt', |
413 | sprintf( _("%s to %s"),_("English"),_("Chinese Traditional"))) . |
414 | translate_lang_opt('en_US', 'fr_FR', 'en_fr', |
415 | sprintf( _("%s to %s"),_("English"),_("French"))) . |
416 | translate_lang_opt('en_US', 'de_DE', 'en_de', |
417 | sprintf( _("%s to %s"),_("English"),_("German"))) . |
418 | translate_lang_opt('en_US', 'it_IT', 'en_it', |
419 | sprintf( _("%s to %s"),_("English"),_("Italian"))) . |
420 | translate_lang_opt('en_US', 'ja_JP', 'en_ja', |
421 | sprintf( _("%s to %s"),_("English"),_("Japanese"))) . |
422 | translate_lang_opt('en_US', 'ko_KR', 'en_ko', |
423 | sprintf( _("%s to %s"),_("English"),_("Korean"))) . |
424 | translate_lang_opt('en_US', 'pt*', 'en_pt', |
425 | sprintf( _("%s to %s"),_("English"),_("Portuguese"))) . |
426 | translate_lang_opt('en_US', 'es_ES', 'en_es', |
427 | sprintf( _("%s to %s"),_("English"),_("Spanish"))) . |
428 | translate_lang_opt('zh_CN', '', 'zh_en', |
429 | sprintf( _("%s to %s"),_("Chinese Simplified"),_("English"))) . |
430 | translate_lang_opt('zh_TW', '', 'zt_en', |
431 | sprintf( _("%s to %s"),_("Chinese Traditional"),_("English"))) . |
432 | translate_lang_opt('fr_FR', '', 'fr_en', |
433 | sprintf( _("%s to %s"),_("French"),_("English"))) . |
434 | translate_lang_opt('de_DE', 'en_US', 'de_en', |
435 | sprintf( _("%s to %s"),_("German"),_("English"))) . |
436 | translate_lang_opt('it_IT', '', 'it_en', |
437 | sprintf( _("%s to %s"),_("Italian"),_("English"))) . |
438 | translate_lang_opt('ja_JP', '', 'ja_en', |
439 | sprintf( _("%s to %s"),_("Japanese"),_("English"))) . |
440 | translate_lang_opt('ko_KR', '', 'ko_en', |
441 | sprintf( _("%s to %s"),_("Korean"),_("English"))) . |
442 | translate_lang_opt('pt*', '', 'pt_en', |
443 | sprintf( _("%s to %s"),_("Portuguese"),_("English"))) . |
444 | translate_lang_opt('es_ES', '', 'es_en', |
445 | sprintf( _("%s to %s"),_("Spanish"),_("English"))) . |
446 | translate_lang_opt('de_DE', '', 'de_fr', |
447 | sprintf( _("%s to %s"),_("German"),_("French"))) . |
448 | translate_lang_opt('fr_FR', '', 'fr_de', |
449 | sprintf( _("%s to %s"),_("French"),_("German"))) . |
450 | translate_lang_opt('ru_RU', '', 'ru_en', |
451 | sprintf( _("%s to %s"),_("Russian"),_("English"))); |
452 | echo '</select>'. |
453 | 'Babelfish: <input type="submit" value="' . _("Translate") . '" />'; |
454 | |
455 | translate_table_end(); |
456 | } |
457 | |
458 | /** |
459 | * go.com translation engine (disabled) |
460 | * |
461 | * @param string $message text that has to be translated |
462 | * @access private |
463 | */ |
464 | function translate_form_go($message) { |
465 | translate_new_form('http://translator.go.com/cb/trans_entry'); |
466 | ?> |
467 | <input type="hidden" name="input_type" value="text" /> |
468 | <select name="lp"><?php |
469 | echo translate_lang_opt('en_US', 'es_ES', 'en_sp', |
470 | sprintf( _("%s to %s"),_("English"),_("Spanish"))) . |
471 | translate_lang_opt('en_US', 'fr_FR', 'en_fr', |
472 | sprintf( _("%s to %s"),_("English"),_("French"))) . |
473 | translate_lang_opt('en_US', 'de_DE', 'en_ge', |
474 | sprintf( _("%s to %s"),_("English"),_("German"))) . |
475 | translate_lang_opt('en_US', 'it_IT', 'en_it', |
476 | sprintf( _("%s to %s"),_("English"),_("Italian"))) . |
477 | translate_lang_opt('en_US', 'pt*', 'en_pt', |
478 | sprintf( _("%s to %s"),_("English"),_("Portuguese"))) . |
479 | translate_lang_opt('es_ES', '', 'sp_en', |
480 | sprintf( _("%s to %s"),_("Spanish"),_("English"))) . |
481 | translate_lang_opt('fr_FR', '', 'fr_en', |
482 | sprintf( _("%s to %s"),_("French"),_("English"))) . |
483 | translate_lang_opt('de_DE', 'en_US', 'ge_en', |
484 | sprintf( _("%s to %s"),_("German"),_("English"))) . |
485 | translate_lang_opt('it_IT', '', 'it_en', |
486 | sprintf( _("%s to %s"),_("Italian"),_("English"))) . |
487 | translate_lang_opt('pt*', '', 'pt_en', |
488 | sprintf( _("%s to %s"),_("Portuguese"),_("English"))); |
489 | echo '</select>'. |
490 | '<input type="hidden" name="text" value="'.$message.'" />'. |
491 | 'Go.com: <input type="submit" value="' . _("Translate") . '" />'; |
492 | |
493 | translate_table_end(); |
494 | } |
495 | |
496 | /** |
497 | * intertran translation engine |
498 | * |
499 | * @param string $message text that has to be translated |
500 | * @access private |
501 | */ |
502 | function translate_form_intertran($message) { |
503 | translate_new_form('http://www.tranexp.com:2000/InterTran'); |
504 | echo '<input type="hidden" name="topframe" value="yes" />'. |
505 | '<input type="hidden" name="type" value="text" />'. |
506 | '<input type="hidden" name="text" value="'.$message.'" />'; |
507 | |
508 | $left = '<select name="from">' . |
509 | translate_lang_opt('pt_BR', '', 'pob', _("Brazilian Portuguese")). |
510 | translate_lang_opt('bg_BG', '', 'bul', _("Bulgarian") . ' (CP 1251)'). |
511 | translate_lang_opt('hr_HR', '', 'cro', _("Croatian") . ' (CP 1250)'). |
512 | translate_lang_opt('cs_CZ', '', 'che', _("Czech") . ' (CP 1250)'). |
513 | translate_lang_opt('da_DK', '', 'dan', _("Danish")). |
514 | translate_lang_opt('nl_NL', '', 'dut', _("Dutch")). |
515 | translate_lang_opt('en_US', '!en', 'eng', _("English")). |
516 | translate_lang_opt('tl_PH', '', 'tag', _("Filipino (Tagalog)")). |
517 | translate_lang_opt('fi_FI', '', 'fin', _("Finnish")). |
518 | translate_lang_opt('fr_FR', '', 'fre', _("French")). |
519 | translate_lang_opt('de_DE', '', 'ger', _("German")). |
520 | translate_lang_opt('el_GR', '', 'grk', _("Greek")). |
521 | translate_lang_opt('hu_HU', '', 'hun', _("Hungarian") . ' (CP 1250)'). |
522 | translate_lang_opt('is_IS', '', 'ice', _("Icelandic")). |
523 | translate_lang_opt('it_IT', '', 'ita', _("Italian")). |
524 | translate_lang_opt('ja_JP', '', 'jpn', _("Japanese") . ' (Shift JIS)'). |
525 | translate_lang_opt('la', '', 'ltt', _("Latin")). |
526 | translate_lang_opt('es*', '', 'spl', _("Latin American Spanish")). |
527 | translate_lang_opt('no*', '', 'nor', _("Norwegian")). |
528 | translate_lang_opt('pl_PL', '', 'pol', _("Polish") . ' (ISO 8859-2)'). |
529 | translate_lang_opt('pt*', '', 'poe', _("Portuguese")). |
530 | translate_lang_opt('ro_RO', '', 'rom', _("Romanian") . ' (CP 1250)'). |
531 | translate_lang_opt('ru_RU', '', 'rus', _("Russian") . ' (CP 1251)'). |
532 | translate_lang_opt('sr_YU', '', 'sel', _("Serbian") . ' (CP 1250)'). |
533 | translate_lang_opt('sl_SI', '', 'slo', _("Slovenian") . ' (CP 1250)'). |
534 | translate_lang_opt('es_ES', '', 'spa', _("Spanish")). |
535 | translate_lang_opt('sv_SE', '', 'swe', _("Swedish")). |
536 | translate_lang_opt('tr_TR', '', 'tur', _("Turkish") . ' (CP 1254)'). |
537 | translate_lang_opt('cy_GB', '', 'wel', _("Welsh")). |
538 | '</select>'; |
539 | |
540 | $right = '<select name="to">'. |
541 | translate_lang_opt('', 'pt_BR', 'pob', _("Brazilian Portuguese")). |
542 | translate_lang_opt('', 'bg_BG', 'bul', _("Bulgarian") . ' (CP 1251)'). |
543 | translate_lang_opt('', 'hr_HR', 'cro', _("Croatian") . ' (CP 1250)'). |
544 | translate_lang_opt('', 'cs_CZ', 'che', _("Czech") . ' (CP 1250)'). |
545 | translate_lang_opt('', 'da_DK', 'dan', _("Danish")). |
546 | translate_lang_opt('', 'nl_NL', 'dut', _("Dutch")). |
547 | translate_lang_opt('!en', 'en_US', 'eng', _("English")). |
548 | translate_lang_opt('', 'tl_PH', 'tag', _("Filipino (Tagalog)")). |
549 | translate_lang_opt('', 'fi_FI', 'fin', _("Finnish")). |
550 | translate_lang_opt('', 'fr_FR', 'fre', _("French")). |
551 | translate_lang_opt('', 'de_DE', 'ger', _("German")). |
552 | translate_lang_opt('', 'el_GR', 'grk', _("Greek")). |
553 | translate_lang_opt('', 'hu_HU', 'hun', _("Hungarian") . ' (CP 1250)'). |
554 | translate_lang_opt('', 'is_IS', 'ice', _("Icelandic")). |
555 | translate_lang_opt('', 'it_IT', 'ita', _("Italian")). |
556 | translate_lang_opt('', 'ja_JP', 'jpn', _("Japanese") . ' (Shift JIS)'). |
557 | translate_lang_opt('', 'la', 'ltt', _("Latin")). |
558 | translate_lang_opt('', 'es*', 'spl', _("Latin American Spanish")). |
559 | translate_lang_opt('', 'no*', 'nor', _("Norwegian")). |
560 | translate_lang_opt('', 'pl_PL', 'pol', _("Polish") . ' (ISO 8859-2)'). |
561 | translate_lang_opt('', 'pt_PT', 'poe', _("Portuguese")). |
562 | translate_lang_opt('', 'ro_RO', 'rom', _("Romanian") . ' (CP 1250)'). |
563 | translate_lang_opt('', 'ru_RU', 'rus', _("Russian") . ' (CP 1251)'). |
564 | translate_lang_opt('', 'sr_YU', 'sel', _("Serbian") . ' (CP 1250)'). |
565 | translate_lang_opt('', 'sl_SI', 'slo', _("Slovenian") . ' (CP 1250)'). |
566 | translate_lang_opt('', 'es_ES', 'spa', _("Spanish")). |
567 | translate_lang_opt('', 'sv_SE', 'swe', _("Swedish")). |
568 | translate_lang_opt('', 'tr_TR', 'tur', _("Turkish") . ' (CP 1254)'). |
569 | translate_lang_opt('', 'cy_GB', 'wel', _("Welsh")). |
570 | '</select>'; |
571 | printf( _("%s to %s"), $left, $right ); |
572 | echo 'InterTran: <input type="submit" value="' . _("Translate") . '" />'; |
573 | |
574 | translate_table_end(); |
575 | } |
576 | |
577 | /** |
578 | * gpltrans translation engine |
579 | * |
580 | * @param string $message text that has to be translated |
581 | * @access private |
582 | */ |
583 | function translate_form_gpltrans($message) { |
584 | translate_new_form('http://www.translator.cx/cgi-bin/gplTrans'); |
585 | echo '<select name="language">'. |
586 | translate_lang_opt('', 'nl_NL', 'dutch_dict', _("Dutch")). |
587 | translate_lang_opt('', 'fr_FR', 'french_dict', _("French")). |
588 | translate_lang_opt('', 'de_DE', 'german_dict', _("German")). |
589 | translate_lang_opt('', 'id_ID', 'indonesian_dict', _("Indonesian")). |
590 | translate_lang_opt('', 'it_IT', 'italian_dict', _("Italian")). |
591 | translate_lang_opt('', 'la', 'latin_dict', _("Latin")). |
592 | translate_lang_opt('', 'pt*', 'portuguese_dict', _("Portuguese")). |
593 | translate_lang_opt('', 'es_ES', 'spanish_dict', _("Spanish")). |
594 | '</select>'; |
595 | echo '<select name="toenglish">'; |
596 | echo '<option value="yes">'. _("to English") . '</option>'; |
597 | echo '<option value="no" selected="selected">' . _("from English") . '</option></select>'; |
598 | echo '<input type="hidden" name="text" value="'.$message.'" />'. |
599 | 'GPLTrans: <input type="submit" value="' . _("Translate") . '" />'; |
600 | |
601 | translate_table_end(); |
602 | } |
603 | |
604 | /** |
605 | * reference.com (dictionary) translation engine |
606 | * |
607 | * @param string $message text that has to be translated |
608 | * @access private |
609 | */ |
610 | function translate_form_dictionary($message) { |
611 | translate_new_form('http://dictionary.reference.com/translate/text.html'); |
bb3ecba2 |
612 | list($usec, $sec) = explode(' ',microtime()); |
20bc790c |
613 | $time = $sec . (float)$usec*100000000; |
614 | echo '<input type="hidden" name="text" value="'.$message.'" />'. |
615 | '<input type="hidden" name="r" value="'.$time.'" />'. |
616 | '<select name="lp">'. |
617 | translate_lang_opt('en_US', 'zh_CN', 'en_zh', |
618 | sprintf( _("%s to %s"),_("English"),_("Simplified Chinese"))) . |
619 | translate_lang_opt('en_US', 'zh_TW', 'en_zt', |
620 | sprintf( _("%s to %s"),_("English"),_("Traditional Chinese"))) . |
621 | translate_lang_opt('en_US', 'nl_NL', 'en_nl', |
622 | sprintf( _("%s to %s"),_("English"),_("Dutch"))) . |
623 | translate_lang_opt('en_US', 'fr_FR', 'en_fr', |
624 | sprintf( _("%s to %s"),_("English"),_("French"))) . |
625 | translate_lang_opt('en_US', 'de_DE', 'en_ge', |
626 | sprintf( _("%s to %s"),_("English"),_("German"))) . |
627 | translate_lang_opt('en_US', 'el_GR', 'en_el', |
628 | sprintf( _("%s to %s"),_("English"),_("Greek"))) . |
629 | translate_lang_opt('en_US', 'it_IT', 'en_it', |
630 | sprintf( _("%s to %s"),_("English"),_("Italian"))) . |
631 | translate_lang_opt('en_US', 'ja_JP', 'en_ja', |
632 | sprintf( _("%s to %s"),_("English"),_("Japanese"))) . |
633 | translate_lang_opt('en_US', 'ko_KR', 'en_ko', |
634 | sprintf( _("%s to %s"),_("English"),_("Korean"))) . |
635 | translate_lang_opt('en_US', 'pt*', 'en_pt', |
636 | sprintf( _("%s to %s"),_("English"),_("Portuguese"))) . |
637 | translate_lang_opt('en_US', 'ru_RU', 'en_ru', |
638 | sprintf( _("%s to %s"),_("English"),_("Russian"))) . |
639 | translate_lang_opt('en_US', 'es_ES', 'en_es', |
640 | sprintf( _("%s to %s"),_("English"),_("Spanish"))) . |
641 | translate_lang_opt('zh_CN', '', 'zh_en', |
642 | sprintf( _("%s to %s"),_("Simplified Chinese"),_("English"))) . |
643 | translate_lang_opt('zh_TW', '', 'zt_en', |
644 | sprintf( _("%s to %s"),_("Traditional Chinese"),_("English"))) . |
645 | translate_lang_opt('nl_NL', '', 'nl_en', |
646 | sprintf( _("%s to %s"),_("Dutch"),_("English"))) . |
647 | translate_lang_opt('fr_FR', '', 'fr_en', |
648 | sprintf( _("%s to %s"),_("French"),_("English"))) . |
649 | translate_lang_opt('de_DE', 'en_US', 'ge_en', |
650 | sprintf( _("%s to %s"),_("German"),_("English"))) . |
651 | translate_lang_opt('el_GR', '', 'el_en', |
652 | sprintf( _("%s to %s"),_("Greek"),_("English"))) . |
653 | translate_lang_opt('it_IT', '', 'it_en', |
654 | sprintf( _("%s to %s"),_("Italian"),_("English"))) . |
655 | translate_lang_opt('ja_JP', '', 'ja_en', |
656 | sprintf( _("%s to %s"),_("Japanese"),_("English"))) . |
657 | translate_lang_opt('ko_KR', '', 'ko_en', |
658 | sprintf( _("%s to %s"),_("Korean"),_("English"))) . |
659 | translate_lang_opt('pt*', '', 'pt_en', |
660 | sprintf( _("%s to %s"),_("Portuguese"),_("English"))) . |
661 | translate_lang_opt('ru_RU', '', 'ru_en', |
662 | sprintf( _("%s to %s"),_("Russian"),_("English"))) . |
663 | translate_lang_opt('es_ES', '', 'es_en', |
664 | sprintf( _("%s to %s"),_("Spanish"),_("English"))) . |
665 | '</select>'. |
666 | 'Dictionary.com: <input type="submit" value="'._("Translate").'" />'; |
667 | |
668 | translate_table_end(); |
669 | } |
670 | |
671 | /** |
672 | * otenet translation engine |
673 | * |
674 | * @param string $message text that has to be translated |
675 | * @access private |
676 | */ |
677 | function translate_form_otenet($message) { |
678 | translate_new_form('http://systran.otenet.gr/cgi-bin/systran.cgi'); |
679 | ?> |
680 | <input type="hidden" name="doit" value="done" /> |
681 | <input type="hidden" name="partner" value="OTEnet-en" /> |
682 | <input type="hidden" name="urltext" value="<?php echo $message; ?>" /> |
683 | <select name="lp" size="1"><?php |
684 | echo translate_lang_opt('en_US', 'el_GR', 'en_el', |
685 | sprintf( _("%s to %s"),_("English"),_("Greek"))) . |
686 | translate_lang_opt('el_GR', 'en_US', 'el_en', |
687 | sprintf( _("%s to %s"),_("Greek"),_("English"))) . |
688 | translate_lang_opt('fr_FR', '', 'fr_el', |
689 | sprintf( _("%s to %s"),_("French"),_("Greek"))) . |
690 | translate_lang_opt('el_GR', 'fr_FR', 'el_fr', |
691 | sprintf( _("%s to %s"),_("Greek"),_("French"))) . |
692 | translate_lang_opt('#', '', '', '----------------') . |
693 | translate_lang_opt('en_US', '', 'en_fr', |
694 | sprintf( _("%s to %s"),_("English"),_("French"))) . |
695 | translate_lang_opt('fr_FR', '', 'fr_en', |
696 | sprintf( _("%s to %s"),_("French"),_("English"))) . |
697 | translate_lang_opt('en_US', 'de_DE', 'en_de', |
698 | sprintf( _("%s to %s"),_("English"),_("German"))) . |
699 | translate_lang_opt('de_DE', '', 'de_en', |
700 | sprintf( _("%s to %s"),_("German"),_("English"))) . |
701 | translate_lang_opt('en_US', 'es_ES', 'en_es', |
702 | sprintf( _("%s to %s"),_("English"),_("Spanish"))) . |
703 | translate_lang_opt('es_ES', '', 'es_en', |
704 | sprintf( _("%s to %s"),_("Spanish"),_("English"))) . |
705 | translate_lang_opt('en_US', 'it_IT', 'en_it', |
706 | sprintf( _("%s to %s"),_("English"),_("Italian"))) . |
707 | translate_lang_opt('it_IT', '', 'it_en', |
708 | sprintf( _("%s to %s"),_("Italian"),_("English"))) . |
709 | translate_lang_opt('en_US', 'pt*', 'en_pt', |
710 | sprintf( _("%s to %s"),_("English"),_("Portuguese"))) . |
711 | translate_lang_opt('pt*', '', 'pt_en', |
712 | sprintf( _("%s to %s"),_("Portuguese"),_("English"))) . |
713 | translate_lang_opt('fr_FR', '', 'fr_de', |
714 | sprintf( _("%s to %s"),_("French"),_("German"))) . |
715 | translate_lang_opt('de_DE', '', 'de_fr', |
716 | sprintf( _("%s to %s"),_("German"),_("French"))) . |
717 | translate_lang_opt('fr_FR', '', 'fr_es', |
718 | sprintf( _("%s to %s"),_("French"),_("Spanish"))) . |
719 | translate_lang_opt('es_ES', '', 'es_fr', |
720 | sprintf( _("%s to %s"),_("Spanish"),_("French"))) . |
721 | translate_lang_opt('fr_FR', 'nl_NL', 'fr_nl', |
722 | sprintf( _("%s to %s"),_("French"),_("Dutch"))) . |
723 | translate_lang_opt('nl_NL', '', 'nl_fr', |
724 | sprintf( _("%s to %s"),_("Dutch"),_("French"))) ; |
725 | echo '</select>'. |
726 | 'OTEnet: <input type="submit" value="' . _("Translate") . '" />'; |
727 | |
728 | translate_table_end(); |
729 | } |
730 | |
731 | /** |
732 | * promt translation engine |
733 | * |
734 | * @param string $message text that has to be translated |
735 | * @access private |
736 | */ |
737 | function translate_form_promt($message) { |
738 | translate_new_form('http://www.online-translator.com/text.asp#tr_form'); |
739 | echo '<input type="hidden" name="status" value="translate" />'; |
740 | echo '<input type="hidden" name="source" value="'.$message.'" />'; |
741 | echo _("Interface language")." : "; |
742 | echo "<select size=\"1\" name=\"lang\">\n"; |
743 | echo '<option value="en">' . _("English") . "</option>\n"; |
744 | echo '<option value="ru">' . _("Russian") . "</option>\n"; |
745 | echo '<option value="de">' . _("German") . "</option>\n"; |
746 | echo '<option value="fr">' . _("French") . "</option>\n"; |
747 | echo '<option value="es">' . _("Spanish") . "</option>\n"; |
748 | echo "</select><br />\n"; |
749 | echo _("Translation direction")." : "; |
750 | echo '<select size="1" id="direction" name="direction">'; |
751 | echo translate_lang_opt('en_US', 'ru_RU', 'er', |
752 | sprintf( _("%s to %s"),_("English"),_("Russian"))) . |
753 | translate_lang_opt('ru_RU', 'en_US', 're', |
754 | sprintf( _("%s to %s"),_("Russian"),_("English"))) . |
755 | translate_lang_opt('de_DE', '', 'gr', |
756 | sprintf( _("%s to %s"),_("German"),_("Russian"))) . |
757 | translate_lang_opt('ru_RU', 'de_DE', 'rg', |
758 | sprintf( _("%s to %s"),_("Russian"),_("German"))) . |
759 | translate_lang_opt('fr_FR', '', 'fr', |
760 | sprintf( _("%s to %s"),_("French"),_("Russian"))) . |
761 | translate_lang_opt('ru_RU', 'fr_FR', 'rf', |
762 | sprintf( _("%s to %s"),_("Russian"),_("French"))) . |
763 | translate_lang_opt('es_ES', '', 'sr', |
764 | sprintf( _("%s to %s"),_("Spanish"),_("Russian"))) . |
765 | translate_lang_opt('ru_RU', 'es_ES', 'rs', |
766 | sprintf( _("%s to %s"),_("Russian"),_("Spanish"))) . |
767 | translate_lang_opt('it_IT', '', 'ir', |
768 | sprintf( _("%s to %s"),_("Italian"),_("Russian"))) . |
769 | translate_lang_opt('en_US', '', 'eg', |
770 | sprintf( _("%s to %s"),_("English"),_("German"))) . |
771 | translate_lang_opt('de_DE', '', 'ge', |
772 | sprintf( _("%s to %s"),_("German"),_("English"))) . |
773 | translate_lang_opt('en_US', '', 'es', |
774 | sprintf( _("%s to %s"),_("English"),_("Spanish"))) . |
775 | translate_lang_opt('es_ES', '', 'se', |
776 | sprintf( _("%s to %s"),_("Spanish"),_("English"))) ; |
777 | echo "</select><br />\n"; |
778 | echo "<input type=\"hidden\" name=\"template\" value=\"General\" />\n"; |
779 | echo 'PROMT: <input type="submit" value="' . _("Translate") . '" />'; |
780 | |
781 | translate_table_end(); |
782 | } |
783 | |
784 | /** |
785 | * google translation engine |
786 | * |
787 | * @param string $message text that has to be translated |
788 | * @access private |
789 | */ |
790 | function translate_form_google($message) { |
791 | translate_new_form('http://www.google.com/translate_t'); |
792 | ?> |
793 | <input type="hidden" name="ie" value="Unknown" /> |
794 | <input type="hidden" name="oe" value="ASCII" /> |
795 | <input type="hidden" name="hl" value="en" /> |
796 | <input type="hidden" name="text" value="<?php echo $message; ?>" /> |
797 | <select name="langpair"><?php |
798 | echo translate_lang_opt('en_US', 'de_DE', 'en|de', |
799 | sprintf( _("%s to %s"),_("English"),_("German"))) . |
800 | translate_lang_opt('en_US', 'es_ES', 'en|es', |
801 | sprintf( _("%s to %s"),_("English"),_("Spanish"))) . |
802 | translate_lang_opt('en_US', 'fr_FR', 'en|fr', |
803 | sprintf( _("%s to %s"),_("English"),_("French"))) . |
804 | translate_lang_opt('en_US', 'it_IT', 'en|it', |
805 | sprintf( _("%s to %s"),_("English"),_("Italian"))) . |
806 | translate_lang_opt('en_US', 'pt*', 'en|pt', |
807 | sprintf( _("%s to %s"),_("English"),_("Portuguese"))) . |
808 | translate_lang_opt('de_DE', 'en_US', 'de|en', |
809 | sprintf( _("%s to %s"),_("German"),_("English"))) . |
810 | translate_lang_opt('de_DE', '', 'de|fr', |
811 | sprintf( _("%s to %s"),_("German"),_("French"))) . |
812 | translate_lang_opt('es_ES', '', 'es|en', |
813 | sprintf( _("%s to %s"),_("Spanish"),_("English"))) . |
814 | translate_lang_opt('fr_FR', '', 'fr|en', |
815 | sprintf( _("%s to %s"),_("French"),_("English"))) . |
816 | translate_lang_opt('fr_FR', '', 'fr|de', |
817 | sprintf( _("%s to %s"),_("French"),_("German"))) . |
818 | translate_lang_opt('it_IT', '', 'it|en', |
819 | sprintf( _("%s to %s"),_("Italian"),_("English"))) . |
820 | translate_lang_opt('pt*', '', 'pt|en', |
821 | sprintf( _("%s to %s"),_("Portuguese"),_("English"))); |
822 | echo '</select>'. |
823 | 'Google: <input type="submit" value="' . _("Translate") . '" />'; |
824 | |
825 | translate_table_end(); |
826 | } |
827 | ?> |