| 1 | <?php |
| 2 | |
| 3 | /** |
| 4 | * setup.php |
| 5 | * |
| 6 | * Copyright (c) 1999-2002 The SquirrelMail Project Team |
| 7 | * Licensed under the GNU GPL. For full terms see the file COPYING. |
| 8 | * |
| 9 | * $Id$ |
| 10 | */ |
| 11 | |
| 12 | /* Easy plugin that sends the body of the message to a new browser |
| 13 | window using the specified translator. It can also translate your |
| 14 | outgoing message if you send it to someone in a different country. |
| 15 | |
| 16 | Languages from i18n, incorporated in the auto-language selection: |
| 17 | en - English |
| 18 | no - Norwegian (Bokmål) |
| 19 | no_NO_ny - Norwegian (Nynorsk) |
| 20 | de - Deutsch |
| 21 | ru - Russian KOI8-R |
| 22 | pl - Polish |
| 23 | sv - Swedish |
| 24 | nl - Dutch |
| 25 | pt_BR - Portuguese (Brazil) |
| 26 | fr - French |
| 27 | it - Italian |
| 28 | cs - Czech |
| 29 | es - Spanish |
| 30 | ko - Korean |
| 31 | */ |
| 32 | |
| 33 | |
| 34 | /* Initialize the translation plugin */ |
| 35 | function squirrelmail_plugin_init_translate() { |
| 36 | global $squirrelmail_plugin_hooks; |
| 37 | |
| 38 | $squirrelmail_plugin_hooks['read_body_bottom']['translate'] = 'translate_read_form'; |
| 39 | $squirrelmail_plugin_hooks['optpage_register_block']['translate'] = 'translate_optpage_register_block'; |
| 40 | $squirrelmail_plugin_hooks['loading_prefs']['translate'] = 'translate_pref'; |
| 41 | $squirrelmail_plugin_hooks['compose_button_row']['translate'] = 'translate_button'; |
| 42 | } |
| 43 | |
| 44 | |
| 45 | /* Show the translation for a message you're reading */ |
| 46 | function translate_read_form() { |
| 47 | global $color, $translate_server; |
| 48 | global $body, $translate_dir; |
| 49 | global $translate_show_read; |
| 50 | |
| 51 | if (!$translate_show_read) { |
| 52 | return; |
| 53 | } |
| 54 | |
| 55 | $translate_dir = 'to'; |
| 56 | |
| 57 | $new_body = $body; |
| 58 | $pos = strpos($new_body, |
| 59 | '">Download this as a file</A></CENTER><BR></SMALL>'); |
| 60 | if (is_int($pos)) { |
| 61 | $new_body = substr($new_body, 0, $pos); |
| 62 | } |
| 63 | |
| 64 | $trans = get_html_translation_table('HTMLENTITIES'); |
| 65 | $trans[' '] = ' '; |
| 66 | $trans = array_flip($trans); |
| 67 | $new_body = strtr($new_body, $trans); |
| 68 | |
| 69 | $new_body = urldecode($new_body); |
| 70 | $new_body = strip_tags($new_body); |
| 71 | |
| 72 | /* I really don't like this next part ... */ |
| 73 | $new_body = str_replace('"', "''", $new_body); |
| 74 | $new_body = strtr($new_body, "\n", ' '); |
| 75 | |
| 76 | $function = 'translate_form_' . $translate_server; |
| 77 | $function($new_body); |
| 78 | } |
| 79 | |
| 80 | function translate_table_end() { |
| 81 | ?></td> |
| 82 | </tr> |
| 83 | </table> |
| 84 | </td> |
| 85 | </tr> |
| 86 | </table> |
| 87 | </form> |
| 88 | <?php |
| 89 | } |
| 90 | |
| 91 | |
| 92 | function translate_button() { |
| 93 | global $translate_show_send; |
| 94 | |
| 95 | if (! $translate_show_send) { |
| 96 | return; |
| 97 | } |
| 98 | } |
| 99 | |
| 100 | |
| 101 | function translate_optpage_register_block() { |
| 102 | global $optpage_blocks; |
| 103 | $optpage_blocks[] = array( |
| 104 | 'name' => _("Translation Options"), |
| 105 | 'url' => '../plugins/translate/options.php', |
| 106 | 'desc' => _("Which translator should be used when you get messages in a different language?"), |
| 107 | 'js' => false |
| 108 | ); |
| 109 | } |
| 110 | |
| 111 | function translate_pref() { |
| 112 | global $username, $data_dir; |
| 113 | global $translate_server, $translate_location; |
| 114 | global $translate_show_send, $translate_show_read; |
| 115 | global $translate_same_window; |
| 116 | |
| 117 | $translate_server = getPref($data_dir, $username, 'translate_server'); |
| 118 | if ($translate_server == '') { |
| 119 | $translate_server = 'babelfish'; |
| 120 | } |
| 121 | |
| 122 | $translate_location = getPref($data_dir, $username, 'translate_location'); |
| 123 | if ($translate_location == '') { |
| 124 | $translate_location = 'center'; |
| 125 | } |
| 126 | |
| 127 | $translate_show_send = getPref($data_dir, $username, 'translate_show_send'); |
| 128 | $translate_show_read = getPref($data_dir, $username, 'translate_show_read'); |
| 129 | $translate_same_window = getPref($data_dir, $username, 'translate_same_window'); |
| 130 | } |
| 131 | |
| 132 | |
| 133 | /** |
| 134 | * This function could be sped up. |
| 135 | * It basically negates the process if a ! is found in the beginning and |
| 136 | * matches a * at the end with 0 or more characters. |
| 137 | */ |
| 138 | function translate_does_it_match_language($test) { |
| 139 | global $squirrelmail_language; |
| 140 | $true = 1; |
| 141 | $false = 0; |
| 142 | $index = 0; |
| 143 | $smindex = 0; |
| 144 | |
| 145 | if (! $test || ! $squirrelmail_language) { |
| 146 | return $false; |
| 147 | } |
| 148 | |
| 149 | if ($test[$index] == '!') { |
| 150 | $index ++; |
| 151 | $true = 0; |
| 152 | $false = 1; |
| 153 | } |
| 154 | |
| 155 | if (($index == 0) && ($test == $squirrelmail_language)) { |
| 156 | return $true; |
| 157 | } |
| 158 | |
| 159 | while ($test[$index]) { |
| 160 | if ($test[$index] == '*') { |
| 161 | return $true; |
| 162 | } |
| 163 | if ($test[$index] != $squirrelmail_language[$smindex]) { |
| 164 | return $false; |
| 165 | } |
| 166 | $index ++; |
| 167 | $smindex ++; |
| 168 | } |
| 169 | |
| 170 | return $false; |
| 171 | } |
| 172 | |
| 173 | |
| 174 | function translate_lang_opt($from, $to, $value, $text) { |
| 175 | global $translate_dir; |
| 176 | |
| 177 | $ret = ' <option value="' . $value . '"'; |
| 178 | |
| 179 | if (translate_does_it_match_language($to) && ($translate_dir == 'to')) { |
| 180 | $ret .= ' SELECTED'; |
| 181 | } |
| 182 | |
| 183 | if (translate_does_it_match_language($from) && ($translate_dir == 'from')) { |
| 184 | $ret .= ' SELECTED'; |
| 185 | } |
| 186 | |
| 187 | $ret .= '>' . $text . "</option>\n"; |
| 188 | |
| 189 | return( $ret ); |
| 190 | } |
| 191 | |
| 192 | |
| 193 | function translate_new_form($action) { |
| 194 | global $translate_dir, $translate_new_window, $translate_location; |
| 195 | global $color, $translate_same_window; |
| 196 | |
| 197 | echo '<form action="'; |
| 198 | |
| 199 | if ($translate_dir == 'to') { |
| 200 | echo $action; |
| 201 | } else { |
| 202 | echo 'translate.php'; |
| 203 | } |
| 204 | |
| 205 | echo '" method="post"'; |
| 206 | |
| 207 | if (!$translate_same_window) { |
| 208 | echo ' target="_blank"'; |
| 209 | } |
| 210 | |
| 211 | echo ">\n"; |
| 212 | |
| 213 | ?><table align="<?php echo $translate_location ?>" cellpadding=3 cellspacing=0 border=0 bgcolor=<?php echo $color[10] ?>> |
| 214 | <tr> |
| 215 | <td> |
| 216 | <table cellpadding=2 cellspacing=1 border=0 bgcolor="<?php echo $color[5] ?>"> |
| 217 | <tr> |
| 218 | <td><?php |
| 219 | } |
| 220 | |
| 221 | function translate_form_babelfish($message) { |
| 222 | translate_new_form('http://babelfish.altavista.com/translate.dyn'); |
| 223 | ?> |
| 224 | <input type="hidden" name="doit" value="done"> |
| 225 | <input type="hidden" name="BabelFishFrontPage" value="yes"> |
| 226 | <input type="hidden" name="bblType" value="urltext"> |
| 227 | <input type="hidden" name="urltext" value="<?php echo $message; ?>"> |
| 228 | <select name="lp"><?php |
| 229 | echo translate_lang_opt('en', 'fr', 'en_fr', |
| 230 | sprintf( _("%s to %s"), |
| 231 | _("English"), |
| 232 | _("French"))) . |
| 233 | translate_lang_opt('', 'de', 'en_de', |
| 234 | sprintf( _("%s to %s"), |
| 235 | _("English"), |
| 236 | _("German"))) . |
| 237 | translate_lang_opt('', 'it', 'en_it', |
| 238 | sprintf( _("%s to %s"), |
| 239 | _("English"), |
| 240 | _("Italian"))) . |
| 241 | translate_lang_opt('', 'pt*', 'en_pt', |
| 242 | sprintf( _("%s to %s"), |
| 243 | _("English"), |
| 244 | _("Portuguese"))) . |
| 245 | translate_lang_opt('', 'es', 'en_es', |
| 246 | sprintf( _("%s to %s"), |
| 247 | _("English"), |
| 248 | _("Spanish"))) . |
| 249 | translate_lang_opt('fr', 'en', 'fr_en', |
| 250 | sprintf( _("%s to %s"), |
| 251 | _("French"), |
| 252 | _("English"))) . |
| 253 | translate_lang_opt('de', '', 'de_en', |
| 254 | sprintf( _("%s to %s"), |
| 255 | _("German"), |
| 256 | _("English"))) . |
| 257 | translate_lang_opt('it', '', 'it_en', |
| 258 | sprintf( _("%s to %s"), |
| 259 | _("Italian"), |
| 260 | _("English"))) . |
| 261 | translate_lang_opt('pt*', '', 'pt_en', |
| 262 | sprintf( _("%s to %s"), |
| 263 | _("Portuguese"), |
| 264 | _("English"))) . |
| 265 | translate_lang_opt('es', '', 'es_en', |
| 266 | sprintf( _("%s to %s"), |
| 267 | _("Spanish"), |
| 268 | _("English"))) . |
| 269 | translate_lang_opt('', '', 'de_fr', |
| 270 | sprintf( _("%s to %s"), |
| 271 | _("German"), |
| 272 | _("French"))) . |
| 273 | translate_lang_opt('', '', 'fr_de', |
| 274 | sprintf( _("%s to %s"), |
| 275 | _("French"), |
| 276 | _("German"))) . |
| 277 | translate_lang_opt('ru', '', 'ru_en', |
| 278 | sprintf( _("%s to %s"), |
| 279 | _("Russian"), |
| 280 | _("English"))); |
| 281 | echo '</select>'. |
| 282 | 'Babelfish: <input type="Submit" value="' . _("Translate") . '">'; |
| 283 | |
| 284 | translate_table_end(); |
| 285 | } |
| 286 | |
| 287 | function translate_form_go($message) { |
| 288 | translate_new_form('http://translator.go.com/cb/trans_entry'); |
| 289 | ?> |
| 290 | <input type=hidden name=input_type value=text> |
| 291 | <select name=lp><?php |
| 292 | echo translate_lang_opt('en', 'es', 'en_sp', |
| 293 | sprintf( _("%s to %s"), |
| 294 | _("English"), |
| 295 | _("Spanish"))) . |
| 296 | translate_lang_opt('', 'fr', 'en_fr', |
| 297 | sprintf( _("%s to %s"), |
| 298 | _("English"), |
| 299 | _("French"))) . |
| 300 | translate_lang_opt('', 'de', 'en_ge', |
| 301 | sprintf( _("%s to %s"), |
| 302 | _("English"), |
| 303 | _("German"))) . |
| 304 | translate_lang_opt('', 'it', 'en_it', |
| 305 | sprintf( _("%s to %s"), |
| 306 | _("English"), |
| 307 | _("Italian"))) . |
| 308 | translate_lang_opt('', 'pt', 'en_pt', |
| 309 | sprintf( _("%s to %s"), |
| 310 | _("English"), |
| 311 | _("Portuguese"))) . |
| 312 | translate_lang_opt('es', 'en', 'sp_en', |
| 313 | sprintf( _("%s to %s"), |
| 314 | _("Spanish"), |
| 315 | _("English"))) . |
| 316 | translate_lang_opt('fr', '', 'fr_en', |
| 317 | sprintf( _("%s to %s"), |
| 318 | _("French"), |
| 319 | _("English"))) . |
| 320 | translate_lang_opt('de', '', 'ge_en', |
| 321 | sprintf( _("%s to %s"), |
| 322 | _("German"), |
| 323 | _("English"))) . |
| 324 | translate_lang_opt('it', '', 'it_en', |
| 325 | sprintf( _("%s to %s"), |
| 326 | _("Italian"), |
| 327 | _("English"))) . |
| 328 | translate_lang_opt('pt', '', 'pt_en', |
| 329 | sprintf( _("%s to %s"), |
| 330 | _("Portuguese"), |
| 331 | _("English"))); |
| 332 | echo '</select>'. |
| 333 | "<input type=\"hidden\" name=\"text\" value=\"$message\">". |
| 334 | 'Go.com: <input type="Submit" value="' . _("Translate") . '">'; |
| 335 | |
| 336 | translate_table_end(); |
| 337 | } |
| 338 | |
| 339 | function translate_form_intertran($message) { |
| 340 | translate_new_form('http://www.tranexp.com:2000/InterTran'); |
| 341 | echo '<INPUT TYPE="hidden" NAME="topframe" VALUE="yes">'. |
| 342 | '<INPUT TYPE="hidden" NAME="type" VALUE="text">'. |
| 343 | "<input type=\"hidden\" name=\"text\" value=\"$message\">"; |
| 344 | |
| 345 | $left = '<SELECT name="from">' . |
| 346 | translate_lang_opt('pt_BR', '', 'pob', _("Brazilian Portuguese")). |
| 347 | translate_lang_opt('', '', 'bul', _("Bulgarian") . ' (CP 1251)'). |
| 348 | translate_lang_opt('', '', 'cro', _("Croatian") . ' (CP 1250)'). |
| 349 | translate_lang_opt('cs', '', 'che', _("Czech") . ' (CP 1250)'). |
| 350 | translate_lang_opt('', '', 'dan', _("Danish")). |
| 351 | translate_lang_opt('nl', '', 'dut', _("Dutch")). |
| 352 | translate_lang_opt('en', '!en', 'eng', _("English")). |
| 353 | translate_lang_opt('', '', 'spe', _("European Spanish")). |
| 354 | translate_lang_opt('', '', 'fin', _("Finnish")). |
| 355 | translate_lang_opt('fr', '', 'fre', _("French")). |
| 356 | translate_lang_opt('de', '', 'ger', _("German")). |
| 357 | translate_lang_opt('', '', 'grk', _("Greek")). |
| 358 | translate_lang_opt('', '', 'hun', _("Hungarian") . ' (CP 1250)'). |
| 359 | translate_lang_opt('', '', 'ice', _("Icelandic")). |
| 360 | translate_lang_opt('it', '', 'ita', _("Italian")). |
| 361 | translate_lang_opt('', '', 'jpn', _("Japanese") . ' (Shift JIS)'). |
| 362 | translate_lang_opt('', '', 'spl', _("Latin American Spanish")). |
| 363 | translate_lang_opt('no*', '', 'nor', _("Norwegian")). |
| 364 | translate_lang_opt('pl', '', 'pol', _("Polish") . ' (ISO 8859-2)'). |
| 365 | translate_lang_opt('', '', 'poe', _("Portuguese")). |
| 366 | translate_lang_opt('', '', 'rom', _("Romanian") . ' (CP 1250)'). |
| 367 | translate_lang_opt('ru', '', 'rus', _("Russian") . ' (CP 1251)'). |
| 368 | translate_lang_opt('', '', 'sel', _("Serbian") . ' (CP 1250)'). |
| 369 | translate_lang_opt('', '', 'slo', _("Slovenian") . ' (CP 1250)'). |
| 370 | translate_lang_opt('es', '', 'spa', _("Spanish")). |
| 371 | translate_lang_opt('sv', '', 'swe', _("Swedish")). |
| 372 | translate_lang_opt('', '', 'wel', _("Welsh")). |
| 373 | '</SELECT>'; |
| 374 | |
| 375 | $right = '<SELECT name="to">'. |
| 376 | translate_lang_opt('', 'pt_BR', 'pob', _("Brazilian Portuguese")). |
| 377 | translate_lang_opt('', '', 'bul', _("Bulgarian") . ' (CP 1251)'). |
| 378 | translate_lang_opt('', '', 'cro', _("Croatian") . ' (CP 1250)'). |
| 379 | translate_lang_opt('', 'cs', 'che', _("Czech") . ' (CP 1250)'). |
| 380 | translate_lang_opt('', '', 'dan', _("Danish")). |
| 381 | translate_lang_opt('', 'nl', 'dut', _("Dutch")). |
| 382 | translate_lang_opt('!en', 'en', 'eng', _("English")). |
| 383 | translate_lang_opt('', '', 'spe', _("European Spanish")). |
| 384 | translate_lang_opt('', '', 'fin', _("Finnish")). |
| 385 | translate_lang_opt('', 'fr', 'fre', _("French")). |
| 386 | translate_lang_opt('', 'de', 'ger', _("German")). |
| 387 | translate_lang_opt('', '', 'grk', _("Greek")). |
| 388 | translate_lang_opt('', '', 'hun', _("Hungarian") . ' (CP 1250)'). |
| 389 | translate_lang_opt('', '', 'ice', _("Icelandic")). |
| 390 | translate_lang_opt('', 'it', 'ita', _("Italian")). |
| 391 | translate_lang_opt('', '', 'jpn', _("Japanese") . ' (Shift JIS)'). |
| 392 | translate_lang_opt('', '', 'spl', _("Latin American Spanish")). |
| 393 | translate_lang_opt('', 'no*', 'nor', _("Norwegian")). |
| 394 | translate_lang_opt('', 'pl', 'pol', _("Polish") . ' (ISO 8859-2)'). |
| 395 | translate_lang_opt('', '', 'poe', _("Portuguese")). |
| 396 | translate_lang_opt('', '', 'rom', _("Romanian") . ' (CP 1250)'). |
| 397 | translate_lang_opt('', 'ru', 'rus', _("Russian") . ' (CP 1251)'). |
| 398 | translate_lang_opt('', '', 'sel', _("Serbian") . ' (CP 1250)'). |
| 399 | translate_lang_opt('', '', 'slo', _("Slovenian") . ' (CP 1250)'). |
| 400 | translate_lang_opt('', 'es', 'spa', _("Spanish")). |
| 401 | translate_lang_opt('', 'sv', 'swe', _("Swedish")). |
| 402 | translate_lang_opt('', '', 'wel', _("Welsh")). |
| 403 | '</SELECT>'; |
| 404 | printf( _("%s to %s"), $left, $right ); |
| 405 | echo 'InterTran: <input type=submit value="' . _("Translate") . '">'; |
| 406 | |
| 407 | translate_table_end(); |
| 408 | } |
| 409 | |
| 410 | function translate_form_gpltrans($message) { |
| 411 | translate_new_form('http://www.translator.cx/cgi-bin/gplTrans'); |
| 412 | echo '<select name="toenglish">'; |
| 413 | translate_lang_opt('en', '!en', 'no', 'From English'); |
| 414 | translate_lang_opt('!en', 'en', 'yes', 'To English'); |
| 415 | echo '</select><select name="language">'. |
| 416 | translate_lang_opt('nl', 'nl', 'dutch_dict', _("Dutch")). |
| 417 | translate_lang_opt('fr', 'fr', 'french_dict', _("French")). |
| 418 | translate_lang_opt('de', 'de', 'german_dict', _("German")). |
| 419 | translate_lang_opt('', '', 'indonesian_dict', _("Indonesian")). |
| 420 | translate_lang_opt('it', 'it', 'italian_dict', _("Italian")). |
| 421 | translate_lang_opt('', '', 'latin_dict', _("Latin")). |
| 422 | translate_lang_opt('pt', 'pt', 'portuguese_dict', _("Portuguese")). |
| 423 | translate_lang_opt('es', 'es', 'spanish_dict', _("Spanish")). |
| 424 | '</select>'. |
| 425 | "<input type=hidden name=text value=\"$message\">". |
| 426 | 'GPLTrans: <input type="submit" value="' . _("Translate") . '">'; |
| 427 | |
| 428 | translate_table_end(); |
| 429 | } |
| 430 | |
| 431 | function translate_form_dictionary($message) { |
| 432 | translate_new_form('http://translate.dictionary.com:8800/systran/cgi'); |
| 433 | echo '<INPUT TYPE=HIDDEN NAME=partner VALUE=LEXICO>'. |
| 434 | "<input type=hidden name=urltext value=\"$message\">". |
| 435 | '<SELECT NAME="lp">'. |
| 436 | translate_lang_opt('en', 'fr', 'en_fr', |
| 437 | sprintf( _("%s to %s"), |
| 438 | _("English"), |
| 439 | _("French"))) . |
| 440 | translate_lang_opt('', 'de', 'en_de', |
| 441 | sprintf( _("%s to %s"), |
| 442 | _("English"), |
| 443 | _("German"))) . |
| 444 | translate_lang_opt('', 'it', 'en_it', |
| 445 | sprintf( _("%s to %s"), |
| 446 | _("English"), |
| 447 | _("Italian"))) . |
| 448 | translate_lang_opt('', 'pt*', 'en_pt', |
| 449 | sprintf( _("%s to %s"), |
| 450 | _("English"), |
| 451 | _("Portuguese"))) . |
| 452 | translate_lang_opt('', 'es', 'en_sp', |
| 453 | sprintf( _("%s to %s"), |
| 454 | _("English"), |
| 455 | _("Spanish"))) . |
| 456 | translate_lang_opt('fr', '', 'fr_en', |
| 457 | sprintf( _("%s to %s"), |
| 458 | _("French"), |
| 459 | _("English"))) . |
| 460 | translate_lang_opt('', '', 'fr_ge', |
| 461 | sprintf( _("%s to %s"), |
| 462 | _("French"), |
| 463 | _("German"))) . |
| 464 | translate_lang_opt('', '', 'ge_fr', |
| 465 | sprintf( _("%s to %s"), |
| 466 | _("German"), |
| 467 | _("French"))) . |
| 468 | translate_lang_opt('de', '', 'de_en', |
| 469 | sprintf( _("%s to %s"), |
| 470 | _("German"), |
| 471 | _("English"))) . |
| 472 | translate_lang_opt('it', '', 'it_en', |
| 473 | sprintf( _("%s to %s"), |
| 474 | _("Italian"), |
| 475 | _("English"))) . |
| 476 | translate_lang_opt('pt*', '', 'pt_en', |
| 477 | sprintf( _("%s to %s"), |
| 478 | _("Portuguese"), |
| 479 | _("English"))) . |
| 480 | translate_lang_opt('es', '', 'sp_en', |
| 481 | sprintf( _("%s to %s"), |
| 482 | _("Spanish"), |
| 483 | _("English"))) . |
| 484 | '</SELECT>'. |
| 485 | 'Dictionary.com: <INPUT TYPE="submit" VALUE="'._("Translate").'">'; |
| 486 | |
| 487 | translate_table_end(); |
| 488 | } |
| 489 | ?> |