plugins/translate/setup.php

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