Source for file setup.php

Documentation is available at setup.php

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

Documentation generated on Mon, 13 Jan 2020 04:25:17 +0100 by phpDocumentor 1.4.3