Changes
=======
+ * Plugin included into squirrelmail distribution
1.3 -> 1.4
* Modified to use new option page hook.
Paul Joseph Thompson <captbunzo@squirrelmail.org>
--- /dev/null
+<?php
+/**
+ * Default SquirrelMail translate plugin configuration
+ *
+ * Copyright (c) 2004 The SquirrelMail Project Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * @version $Id$
+ * @package plugins
+ * @subpackage translate
+ */
+
+/** */
+global $translate_default_engine;
+$translate_default_engine='babelfish';
+
+/**
+ *
+ */
+global $translate_babelfish_enabled;
+$translate_babelfish_enabled=true;
+
+/**
+ *
+ */
+global $translate_go_enabled;
+$translate_go_enabled=false;
+
+/**
+ *
+ */
+global $translate_dictionary_enabled;
+$translate_dictionary_enabled=true;
+
+/**
+ *
+ */
+global $translate_google_enabled;
+$translate_google_enabled=true;
+
+/**
+ *
+ */
+global $translate_intertran_enabled;
+$translate_intertran_enabled=true;
+
+/**
+ *
+ */
+global $translate_promt_enabled;
+$translate_promt_enabled=true;
+
+/**
+ *
+ */
+global $translate_otenet_enabled;
+$translate_otenet_enabled=true;
+
+/**
+ *
+ */
+global $translate_gpltrans_enabled;
+$translate_gpltrans_enabled=true;
+
+/**
+ * Sets URL to custom GPLTrans server CGI.
+ *
+ * Original URL (http://www.translator.cx/cgi-bin/gplTrans)
+ * is no longer valid. If string is empty, GPLTrans is disabled
+ * regardless of $translate_gpltrans_enabled setting.
+ * @global string $translate_gpltrans_url
+ */
+global $translate_gpltrans_url;
+$translate_gpltrans_url='';
+
+/**
+ *
+ */
+global $disable_compose_translate;
+$disable_compose_translate=true;
+
+/** Custom translation engine setup */
+
+/**
+ * Controls inclusion of custom translation engines.
+ *
+ * If you enable custon translation engines, you must include
+ * translate_custom(), translate_custom_showtrad() and
+ * $translate_custom_showoption() functions in your config.
+ * @example config-sample.php
+ * @global bool $translate_custom_enabled
+ */
+global $translate_custom_enabled;
+$translate_custom_enabled=false;
+?>
\ No newline at end of file
--- /dev/null
+<?php
+/**
+ * SquirrelMail translate plugin functions
+ *
+ * Copyright (c) 2004 The SquirrelMail Project Team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * @version $Id$
+ * @package plugins
+ * @subpackage translate
+ */
+
+/** Load default config */
+if (file_exists(SM_PATH . 'plugins/translate/config_default.php')) {
+ include_once(SM_PATH . 'plugins/translate/config_default.php');
+} else {
+ /** Somebody removed default config */
+ global $translate_gpltrans_url;
+ $translate_gpltrans_url='';
+ global $disable_compose_translate;
+ $disable_compose_translate=true;
+ global $translate_default_engine;
+ $translate_default_engine='babelfish';
+ global $translate_babelfish_enabled;
+ $translate_babelfish_enabled=true;
+ global $translate_go_enabled;
+ $translate_go_enabled=false;
+ global $translate_dictionary_enabled;
+ $translate_dictionary_enabled=true;
+ global $translate_google_enabled;
+ $translate_google_enabled=true;
+ global $translate_intertran_enabled;
+ $translate_intertran_enabled=true;
+ global $translate_promt_enabled;
+ $translate_promt_enabled=true;
+ global $translate_otenet_enabled;
+ $translate_otenet_enabled=true;
+ global $translate_gpltrans_enabled;
+ $translate_gpltrans_enabled=true;
+ global $translate_custom_enabled;
+ $translate_custom_enabled=false;
+}
+
+/** Load site config */
+if (file_exists(SM_PATH . 'config/translate_config.php')) {
+ include_once(SM_PATH . 'config/translate_config.php');
+} elseif (file_exists(SM_PATH . 'plugins/translate/config.php')) {
+ include_once(SM_PATH . 'plugins/translate/config.php');
+}
+
+/** Setup functions */
+
+/**
+ * Shows translation box in message display window
+ * @access private
+ */
+function translate_read_form_function() {
+ global $color, $translate_server;
+ global $message, $translate_dir;
+ global $translate_show_read;
+ global $imapConnection, $wrap_at, $passed_id, $mailbox;
+ global $translate_gpltrans_url;
+
+ global $translate_babelfish_enabled, $translate_go_enabled,
+ $translate_dictionary_enabled, $translate_google_enabled,
+ $translate_gpltrans_enabled, $translate_intertran_enabled,
+ $translate_promt_enabled, $translate_otenet_enabled;
+
+ if (!$translate_show_read) {
+ return;
+ }
+
+ $translate_server_option='translate_' . $translate_server . '_enabled';
+ if ($translate_server=='gpltrans' && $translate_gpltrans_url=='' ||
+ ! $$translate_server_option || ! function_exists('translate_form_' . $translate_server)) {
+ error_box(_("Selected translation engine is disabled. Please update your translation preferences."),$color);
+ return;
+ }
+ $translate_dir = 'to';
+
+ $trans_ar = $message->findDisplayEntity(array(), array('text/plain'));
+ $body = '';
+ if ($trans_ar[0] != '') {
+ for ($i = 0; $i < count($trans_ar); $i++) {
+ $body .= formatBody($imapConnection, $message, $color, $wrap_at, $trans_ar[$i], $passed_id, $mailbox);
+ }
+ $hookResults = do_hook('message_body', $body);
+ $body = $hookResults[1];
+ } else {
+ $body = 'Message can\'t be translated';
+ }
+
+ $new_body = $body;
+ $pos = strpos($new_body,
+ '">'. _("Download this as a file") . '</a></center><br /></small>');
+ if (is_int($pos)) {
+ $new_body = substr($new_body, 0, $pos);
+ }
+
+ $trans = get_html_translation_table(HTML_ENTITIES);
+ $trans[' '] = ' ';
+ $trans = array_flip($trans);
+ $new_body = strtr($new_body, $trans);
+
+ $new_body = urldecode($new_body);
+ $new_body = strip_tags($new_body);
+
+ /* I really don't like this next part ... */
+ $new_body = str_replace('"', "''", $new_body);
+ $new_body = strtr($new_body, "\n", ' ');
+
+ $function = 'translate_form_' . $translate_server;
+ $function($new_body);
+}
+
+/**
+ * Adds translation option block
+ * @access private
+ */
+function translate_optpage_function() {
+ global $optpage_blocks;
+ $optpage_blocks[] = array(
+ 'name' => _("Translation Options"),
+ 'url' => '../plugins/translate/options.php',
+ 'desc' => _("Which translator should be used when you get messages in a different language?"),
+ 'js' => false
+ );
+}
+
+/**
+ * Gets user's translation preferences
+ * @access private
+ */
+function translate_pref_function() {
+ global $username, $data_dir;
+ global $translate_server, $translate_location;
+ global $translate_show_send, $translate_show_read;
+ global $translate_same_window,$translate_default_engine;
+
+ $translate_server = getPref($data_dir, $username, 'translate_server',$translate_default_engine);
+
+ $translate_location = getPref($data_dir, $username, 'translate_location');
+ if ($translate_location == '') {
+ $translate_location = 'center';
+ }
+
+ $translate_show_send = getPref($data_dir, $username, 'translate_show_send');
+ $translate_show_read = getPref($data_dir, $username, 'translate_show_read');
+ $translate_same_window = getPref($data_dir, $username, 'translate_same_window');
+}
+
+/**
+ * Should add translation options in compose window
+ *
+ * Unimplemented
+ * @access private
+ */
+function translate_button_function() {
+ global $translate_show_send;
+
+ if (! $translate_show_send) {
+ return;
+ }
+}
+
+/** Option functions */
+
+/**
+ *
+ */
+function translate_showoption() {
+ global $translate_babelfish_enabled, $translate_go_enabled,
+ $translate_dictionary_enabled, $translate_google_enabled,
+ $translate_gpltrans_enabled, $translate_intertran_enabled,
+ $translate_promt_enabled, $translate_otenet_enabled;
+ global $translate_custom_enabled;
+
+ if ($translate_babelfish_enabled) translate_showoption_internal('server','babelfish', 'Babelfish');
+ if ($translate_go_enabled) translate_showoption_internal('server','go', 'Go.com');
+ if ($translate_dictionary_enabled) translate_showoption_internal('server','dictionary', 'Dictionary.com');
+ if ($translate_google_enabled) translate_showoption_internal('server','google', 'Google Translate');
+ if ($translate_gpltrans_enabled && $translate_gpltrans_url!='')
+ translate_showoption_internal('server','gpltrans', 'GPLTrans');
+ if ($translate_intertran_enabled) translate_showoption_internal('server','intertran', 'Intertran');
+ if ($translate_otenet_enabled) translate_showoption_internal('server','otenet', 'OTEnet');
+ if ($translate_promt_enabled) translate_showoption_internal('server','promt', 'PROMT');
+ if ($translate_custom_enabled && function_exists('translate_custom_showoption')) {
+ translate_custom_showoption();
+ }
+}
+
+/**
+ *
+ */
+function translate_showtrad() {
+ global $translate_babelfish_enabled, $translate_go_enabled,
+ $translate_dictionary_enabled, $translate_google_enabled,
+ $translate_gpltrans_enabled, $translate_intertran_enabled,
+ $translate_promt_enabled, $translate_otenet_enabled;
+ global $translate_gpltrans_url, $translate_custom_enabled;
+
+ if ($translate_babelfish_enabled) translate_showtrad_internal( 'Babelfish',
+ _("Maximum of 1000 characters translated, powered by Systran").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"19")." " ,
+ 'http://babelfish.altavista.com/' );
+ if ($translate_go_enabled) translate_showtrad_internal( 'Translator.Go.com',
+ _("Maximum of 25 kilobytes translated, powered by Systran").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"10")." " ,
+ 'http://translator.go.com/' );
+ if ($translate_dictionary_enabled) translate_showtrad_internal( 'Dictionary.com',
+ _("No known limits, powered by Systran").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"24")." " ,
+ 'http://www.dictionary.com/translate' );
+ if ($translate_google_enabled) translate_showtrad_internal( 'Google Translate',
+ _("No known limits, powered by Systran").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"12")." " ,
+ 'http://www.google.com/translate' );
+ if ($translate_gpltrans_enabled && $translate_gpltrans_url!='') translate_showtrad_internal( 'GPLTrans',
+ _("No known limits, powered by GPLTrans (free, open source)").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"16")." " ,
+ 'http://www.translator.cx/' );
+ if ($translate_intertran_enabled) translate_showtrad_internal( 'InterTran',
+ _("No known limits, powered by Translation Experts' InterTran").
+ "<br />".sprintf(_("Number of supported languages: %s"),"29")." " ,
+ 'http://www.tranexp.com/' );
+ if ($translate_otenet_enabled) translate_showtrad_internal( 'OTEnet',
+ _("Hellenic translations, no known limits, powered by Systran").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"20")." " ,
+ 'http://systran.otenet.gr/' );
+ if ($translate_promt_enabled) translate_showtrad_internal( 'PROMT',
+ _("Russian translations, maximum of 500 characters translated").
+ "<br />".sprintf(_("Number of supported language pairs: %s"),"13")." " ,
+ 'http://www.online-translator.com/' );
+
+ if ($translate_custom_enabled && function_exists('translate_custom_showtrad')) {
+ translate_custom_showtrad();
+ }
+}
+
+/**
+ * Creates options for translation selection boxes
+ * @param string $Var option type (server,location)
+ * @param string $value option value
+ * @param string $Desc description of translation server
+ * @access private
+ * @since 1.5.1
+ */
+function translate_showoption_internal($Var,$value, $Desc) {
+ $Var='translate_' . $Var;
+
+ global $$Var;
+
+ echo '<option value="' . $value . '"';
+ if ($$Var == $value) {
+ echo ' selected="selected"';
+ }
+ echo '>' . $Desc . "</option>\n";
+}
+
+/**
+ * Creates translation server description
+ * @param string $tit title
+ * @param string $com comments about translation server
+ * @param string $url url of translation server
+ * @access private
+ */
+function translate_showtrad_internal( $tit, $com, $url ) {
+ echo "<li><b>$tit</b> - ".
+ $com .
+ "[ <a href=\"$url\" target=\"_blank\">$tit</a> ]</li>";
+}
+
+/** Internal functions */
+
+/**
+ * Closes table tags in translation box
+ * @access private
+ */
+function translate_table_end() {
+ ?></td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ </form>
+ <?php
+}
+
+/**
+ * Tries to select default translation combination
+ *
+ * This function could be speed up.
+ * It basically negates the process if a ! is found in the beginning and
+ * matches a * at the end with 0 or more characters.
+ *
+ * @param string $test language code that has to be tested.
+ * @return boolean true if language code matches user's language.
+ * @access private
+ */
+function translate_does_it_match_language($test) {
+ global $squirrelmail_language;
+ $true = 1;
+ $false = 0;
+ $index = 0;
+ $smindex = 0;
+
+ if (! $test || ! $squirrelmail_language) {
+ return $false;
+ }
+
+ if ($test[$index] == '!') {
+ $index ++;
+ $true = 0;
+ $false = 1;
+ }
+
+ if (($index == 0) && ($test == $squirrelmail_language)) {
+ return $true;
+ }
+
+ while (isset($test[$index]) && $test[$index]) {
+ if ($test[$index] == '*') {
+ return $true;
+ }
+ if ($test[$index] != $squirrelmail_language[$smindex]) {
+ return $false;
+ }
+ $index ++;
+ $smindex ++;
+ }
+
+ return $false;
+}
+
+/**
+ * Creates language option selection box.
+ * @param string $from
+ * @param string $to
+ * @param string $value
+ * @param string $text
+ * @access private
+ */
+function translate_lang_opt($from, $to, $value, $text) {
+ global $translate_dir;
+
+ $ret = ' <option value="' . $value . '"';
+
+ if (translate_does_it_match_language($to) && ($translate_dir == 'to')) {
+ $ret .= ' selected="selected"';
+ }
+
+ if (translate_does_it_match_language($from) && ($translate_dir == 'from')) {
+ $ret .= ' selected="selected"';
+ }
+
+ $ret .= '>' . $text . "</option>\n";
+
+ return( $ret );
+}
+
+/**
+ * Starts translation box
+ *
+ * @param string $action url that has to recieve message for translation
+ * @access private
+ */
+function translate_new_form($action) {
+ global $translate_dir, $translate_new_window, $translate_location;
+ global $color, $translate_same_window;
+
+ echo '<form action="';
+
+ if ($translate_dir == 'to') {
+ echo $action;
+ } else {
+ echo 'translate.php';
+ }
+
+ echo '" method="post"';
+
+ if (!$translate_same_window) {
+ echo ' target="_blank"';
+ }
+
+ echo ">\n";
+
+ ?><table align="<?php echo $translate_location ?>" cellpadding=3 cellspacing=0 border=0 bgcolor=<?php echo $color[10] ?>>
+ <tr>
+ <td>
+ <table cellpadding=2 cellspacing=1 border=0 bgcolor="<?php echo $color[5] ?>">
+ <tr>
+ <td><?php
+}
+
+/**
+ * Babelfish translation engine functions
+ *
+ * @param string $message text that has to be translated.
+ * @access private
+ */
+function translate_form_babelfish($message) {
+ translate_new_form('http://babelfish.altavista.com/babelfish/tr');
+?>
+ <input type="hidden" name="doit" value="done" />
+ <input type="hidden" name="intl" value="1" />
+ <input type="hidden" name="tt" value="urltext" />
+ <input type="hidden" name="trtext" value="<?php echo $message; ?>" />
+ <select name="lp"><?php
+ echo translate_lang_opt('en_US', 'zh_CN', 'en_zh',
+ sprintf( _("%s to %s"),_("English"),_("Chinese Simplified"))) .
+ translate_lang_opt('en_US', 'zh_TW', 'en_zt',
+ sprintf( _("%s to %s"),_("English"),_("Chinese Traditional"))) .
+ translate_lang_opt('en_US', 'fr_FR', 'en_fr',
+ sprintf( _("%s to %s"),_("English"),_("French"))) .
+ translate_lang_opt('en_US', 'de_DE', 'en_de',
+ sprintf( _("%s to %s"),_("English"),_("German"))) .
+ translate_lang_opt('en_US', 'it_IT', 'en_it',
+ sprintf( _("%s to %s"),_("English"),_("Italian"))) .
+ translate_lang_opt('en_US', 'ja_JP', 'en_ja',
+ sprintf( _("%s to %s"),_("English"),_("Japanese"))) .
+ translate_lang_opt('en_US', 'ko_KR', 'en_ko',
+ sprintf( _("%s to %s"),_("English"),_("Korean"))) .
+ translate_lang_opt('en_US', 'pt*', 'en_pt',
+ sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
+ translate_lang_opt('en_US', 'es_ES', 'en_es',
+ sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
+ translate_lang_opt('zh_CN', '', 'zh_en',
+ sprintf( _("%s to %s"),_("Chinese Simplified"),_("English"))) .
+ translate_lang_opt('zh_TW', '', 'zt_en',
+ sprintf( _("%s to %s"),_("Chinese Traditional"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr_en',
+ sprintf( _("%s to %s"),_("French"),_("English"))) .
+ translate_lang_opt('de_DE', 'en_US', 'de_en',
+ sprintf( _("%s to %s"),_("German"),_("English"))) .
+ translate_lang_opt('it_IT', '', 'it_en',
+ sprintf( _("%s to %s"),_("Italian"),_("English"))) .
+ translate_lang_opt('ja_JP', '', 'ja_en',
+ sprintf( _("%s to %s"),_("Japanese"),_("English"))) .
+ translate_lang_opt('ko_KR', '', 'ko_en',
+ sprintf( _("%s to %s"),_("Korean"),_("English"))) .
+ translate_lang_opt('pt*', '', 'pt_en',
+ sprintf( _("%s to %s"),_("Portuguese"),_("English"))) .
+ translate_lang_opt('es_ES', '', 'es_en',
+ sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
+ translate_lang_opt('de_DE', '', 'de_fr',
+ sprintf( _("%s to %s"),_("German"),_("French"))) .
+ translate_lang_opt('fr_FR', '', 'fr_de',
+ sprintf( _("%s to %s"),_("French"),_("German"))) .
+ translate_lang_opt('ru_RU', '', 'ru_en',
+ sprintf( _("%s to %s"),_("Russian"),_("English")));
+ echo '</select>'.
+ 'Babelfish: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+
+/**
+ * go.com translation engine (disabled)
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_go($message) {
+ translate_new_form('http://translator.go.com/cb/trans_entry');
+?>
+ <input type="hidden" name="input_type" value="text" />
+ <select name="lp"><?php
+ echo translate_lang_opt('en_US', 'es_ES', 'en_sp',
+ sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
+ translate_lang_opt('en_US', 'fr_FR', 'en_fr',
+ sprintf( _("%s to %s"),_("English"),_("French"))) .
+ translate_lang_opt('en_US', 'de_DE', 'en_ge',
+ sprintf( _("%s to %s"),_("English"),_("German"))) .
+ translate_lang_opt('en_US', 'it_IT', 'en_it',
+ sprintf( _("%s to %s"),_("English"),_("Italian"))) .
+ translate_lang_opt('en_US', 'pt*', 'en_pt',
+ sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
+ translate_lang_opt('es_ES', '', 'sp_en',
+ sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr_en',
+ sprintf( _("%s to %s"),_("French"),_("English"))) .
+ translate_lang_opt('de_DE', 'en_US', 'ge_en',
+ sprintf( _("%s to %s"),_("German"),_("English"))) .
+ translate_lang_opt('it_IT', '', 'it_en',
+ sprintf( _("%s to %s"),_("Italian"),_("English"))) .
+ translate_lang_opt('pt*', '', 'pt_en',
+ sprintf( _("%s to %s"),_("Portuguese"),_("English")));
+ echo '</select>'.
+ '<input type="hidden" name="text" value="'.$message.'" />'.
+ 'Go.com: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+
+/**
+ * intertran translation engine
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_intertran($message) {
+ translate_new_form('http://www.tranexp.com:2000/InterTran');
+ echo '<input type="hidden" name="topframe" value="yes" />'.
+ '<input type="hidden" name="type" value="text" />'.
+ '<input type="hidden" name="text" value="'.$message.'" />';
+
+ $left = '<select name="from">' .
+ translate_lang_opt('pt_BR', '', 'pob', _("Brazilian Portuguese")).
+ translate_lang_opt('bg_BG', '', 'bul', _("Bulgarian") . ' (CP 1251)').
+ translate_lang_opt('hr_HR', '', 'cro', _("Croatian") . ' (CP 1250)').
+ translate_lang_opt('cs_CZ', '', 'che', _("Czech") . ' (CP 1250)').
+ translate_lang_opt('da_DK', '', 'dan', _("Danish")).
+ translate_lang_opt('nl_NL', '', 'dut', _("Dutch")).
+ translate_lang_opt('en_US', '!en', 'eng', _("English")).
+ translate_lang_opt('tl_PH', '', 'tag', _("Filipino (Tagalog)")).
+ translate_lang_opt('fi_FI', '', 'fin', _("Finnish")).
+ translate_lang_opt('fr_FR', '', 'fre', _("French")).
+ translate_lang_opt('de_DE', '', 'ger', _("German")).
+ translate_lang_opt('el_GR', '', 'grk', _("Greek")).
+ translate_lang_opt('hu_HU', '', 'hun', _("Hungarian") . ' (CP 1250)').
+ translate_lang_opt('is_IS', '', 'ice', _("Icelandic")).
+ translate_lang_opt('it_IT', '', 'ita', _("Italian")).
+ translate_lang_opt('ja_JP', '', 'jpn', _("Japanese") . ' (Shift JIS)').
+ translate_lang_opt('la', '', 'ltt', _("Latin")).
+ translate_lang_opt('es*', '', 'spl', _("Latin American Spanish")).
+ translate_lang_opt('no*', '', 'nor', _("Norwegian")).
+ translate_lang_opt('pl_PL', '', 'pol', _("Polish") . ' (ISO 8859-2)').
+ translate_lang_opt('pt*', '', 'poe', _("Portuguese")).
+ translate_lang_opt('ro_RO', '', 'rom', _("Romanian") . ' (CP 1250)').
+ translate_lang_opt('ru_RU', '', 'rus', _("Russian") . ' (CP 1251)').
+ translate_lang_opt('sr_YU', '', 'sel', _("Serbian") . ' (CP 1250)').
+ translate_lang_opt('sl_SI', '', 'slo', _("Slovenian") . ' (CP 1250)').
+ translate_lang_opt('es_ES', '', 'spa', _("Spanish")).
+ translate_lang_opt('sv_SE', '', 'swe', _("Swedish")).
+ translate_lang_opt('tr_TR', '', 'tur', _("Turkish") . ' (CP 1254)').
+ translate_lang_opt('cy_GB', '', 'wel', _("Welsh")).
+ '</select>';
+
+ $right = '<select name="to">'.
+ translate_lang_opt('', 'pt_BR', 'pob', _("Brazilian Portuguese")).
+ translate_lang_opt('', 'bg_BG', 'bul', _("Bulgarian") . ' (CP 1251)').
+ translate_lang_opt('', 'hr_HR', 'cro', _("Croatian") . ' (CP 1250)').
+ translate_lang_opt('', 'cs_CZ', 'che', _("Czech") . ' (CP 1250)').
+ translate_lang_opt('', 'da_DK', 'dan', _("Danish")).
+ translate_lang_opt('', 'nl_NL', 'dut', _("Dutch")).
+ translate_lang_opt('!en', 'en_US', 'eng', _("English")).
+ translate_lang_opt('', 'tl_PH', 'tag', _("Filipino (Tagalog)")).
+ translate_lang_opt('', 'fi_FI', 'fin', _("Finnish")).
+ translate_lang_opt('', 'fr_FR', 'fre', _("French")).
+ translate_lang_opt('', 'de_DE', 'ger', _("German")).
+ translate_lang_opt('', 'el_GR', 'grk', _("Greek")).
+ translate_lang_opt('', 'hu_HU', 'hun', _("Hungarian") . ' (CP 1250)').
+ translate_lang_opt('', 'is_IS', 'ice', _("Icelandic")).
+ translate_lang_opt('', 'it_IT', 'ita', _("Italian")).
+ translate_lang_opt('', 'ja_JP', 'jpn', _("Japanese") . ' (Shift JIS)').
+ translate_lang_opt('', 'la', 'ltt', _("Latin")).
+ translate_lang_opt('', 'es*', 'spl', _("Latin American Spanish")).
+ translate_lang_opt('', 'no*', 'nor', _("Norwegian")).
+ translate_lang_opt('', 'pl_PL', 'pol', _("Polish") . ' (ISO 8859-2)').
+ translate_lang_opt('', 'pt_PT', 'poe', _("Portuguese")).
+ translate_lang_opt('', 'ro_RO', 'rom', _("Romanian") . ' (CP 1250)').
+ translate_lang_opt('', 'ru_RU', 'rus', _("Russian") . ' (CP 1251)').
+ translate_lang_opt('', 'sr_YU', 'sel', _("Serbian") . ' (CP 1250)').
+ translate_lang_opt('', 'sl_SI', 'slo', _("Slovenian") . ' (CP 1250)').
+ translate_lang_opt('', 'es_ES', 'spa', _("Spanish")).
+ translate_lang_opt('', 'sv_SE', 'swe', _("Swedish")).
+ translate_lang_opt('', 'tr_TR', 'tur', _("Turkish") . ' (CP 1254)').
+ translate_lang_opt('', 'cy_GB', 'wel', _("Welsh")).
+ '</select>';
+ printf( _("%s to %s"), $left, $right );
+ echo 'InterTran: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+
+/**
+ * gpltrans translation engine
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_gpltrans($message) {
+ translate_new_form('http://www.translator.cx/cgi-bin/gplTrans');
+ echo '<select name="language">'.
+ translate_lang_opt('', 'nl_NL', 'dutch_dict', _("Dutch")).
+ translate_lang_opt('', 'fr_FR', 'french_dict', _("French")).
+ translate_lang_opt('', 'de_DE', 'german_dict', _("German")).
+ translate_lang_opt('', 'id_ID', 'indonesian_dict', _("Indonesian")).
+ translate_lang_opt('', 'it_IT', 'italian_dict', _("Italian")).
+ translate_lang_opt('', 'la', 'latin_dict', _("Latin")).
+ translate_lang_opt('', 'pt*', 'portuguese_dict', _("Portuguese")).
+ translate_lang_opt('', 'es_ES', 'spanish_dict', _("Spanish")).
+ '</select>';
+ echo '<select name="toenglish">';
+ echo '<option value="yes">'. _("to English") . '</option>';
+ echo '<option value="no" selected="selected">' . _("from English") . '</option></select>';
+ echo '<input type="hidden" name="text" value="'.$message.'" />'.
+ 'GPLTrans: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+
+/**
+ * reference.com (dictionary) translation engine
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_dictionary($message) {
+ translate_new_form('http://dictionary.reference.com/translate/text.html');
+ list($usec, $sec) = explode(" ",microtime());
+ $time = $sec . (float)$usec*100000000;
+ echo '<input type="hidden" name="text" value="'.$message.'" />'.
+ '<input type="hidden" name="r" value="'.$time.'" />'.
+ '<select name="lp">'.
+ translate_lang_opt('en_US', 'zh_CN', 'en_zh',
+ sprintf( _("%s to %s"),_("English"),_("Simplified Chinese"))) .
+ translate_lang_opt('en_US', 'zh_TW', 'en_zt',
+ sprintf( _("%s to %s"),_("English"),_("Traditional Chinese"))) .
+ translate_lang_opt('en_US', 'nl_NL', 'en_nl',
+ sprintf( _("%s to %s"),_("English"),_("Dutch"))) .
+ translate_lang_opt('en_US', 'fr_FR', 'en_fr',
+ sprintf( _("%s to %s"),_("English"),_("French"))) .
+ translate_lang_opt('en_US', 'de_DE', 'en_ge',
+ sprintf( _("%s to %s"),_("English"),_("German"))) .
+ translate_lang_opt('en_US', 'el_GR', 'en_el',
+ sprintf( _("%s to %s"),_("English"),_("Greek"))) .
+ translate_lang_opt('en_US', 'it_IT', 'en_it',
+ sprintf( _("%s to %s"),_("English"),_("Italian"))) .
+ translate_lang_opt('en_US', 'ja_JP', 'en_ja',
+ sprintf( _("%s to %s"),_("English"),_("Japanese"))) .
+ translate_lang_opt('en_US', 'ko_KR', 'en_ko',
+ sprintf( _("%s to %s"),_("English"),_("Korean"))) .
+ translate_lang_opt('en_US', 'pt*', 'en_pt',
+ sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
+ translate_lang_opt('en_US', 'ru_RU', 'en_ru',
+ sprintf( _("%s to %s"),_("English"),_("Russian"))) .
+ translate_lang_opt('en_US', 'es_ES', 'en_es',
+ sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
+ translate_lang_opt('zh_CN', '', 'zh_en',
+ sprintf( _("%s to %s"),_("Simplified Chinese"),_("English"))) .
+ translate_lang_opt('zh_TW', '', 'zt_en',
+ sprintf( _("%s to %s"),_("Traditional Chinese"),_("English"))) .
+ translate_lang_opt('nl_NL', '', 'nl_en',
+ sprintf( _("%s to %s"),_("Dutch"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr_en',
+ sprintf( _("%s to %s"),_("French"),_("English"))) .
+ translate_lang_opt('de_DE', 'en_US', 'ge_en',
+ sprintf( _("%s to %s"),_("German"),_("English"))) .
+ translate_lang_opt('el_GR', '', 'el_en',
+ sprintf( _("%s to %s"),_("Greek"),_("English"))) .
+ translate_lang_opt('it_IT', '', 'it_en',
+ sprintf( _("%s to %s"),_("Italian"),_("English"))) .
+ translate_lang_opt('ja_JP', '', 'ja_en',
+ sprintf( _("%s to %s"),_("Japanese"),_("English"))) .
+ translate_lang_opt('ko_KR', '', 'ko_en',
+ sprintf( _("%s to %s"),_("Korean"),_("English"))) .
+ translate_lang_opt('pt*', '', 'pt_en',
+ sprintf( _("%s to %s"),_("Portuguese"),_("English"))) .
+ translate_lang_opt('ru_RU', '', 'ru_en',
+ sprintf( _("%s to %s"),_("Russian"),_("English"))) .
+ translate_lang_opt('es_ES', '', 'es_en',
+ sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
+ '</select>'.
+ 'Dictionary.com: <input type="submit" value="'._("Translate").'" />';
+
+ translate_table_end();
+}
+
+/**
+ * otenet translation engine
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_otenet($message) {
+ translate_new_form('http://systran.otenet.gr/cgi-bin/systran.cgi');
+?>
+ <input type="hidden" name="doit" value="done" />
+ <input type="hidden" name="partner" value="OTEnet-en" />
+ <input type="hidden" name="urltext" value="<?php echo $message; ?>" />
+ <select name="lp" size="1"><?php
+ echo translate_lang_opt('en_US', 'el_GR', 'en_el',
+ sprintf( _("%s to %s"),_("English"),_("Greek"))) .
+ translate_lang_opt('el_GR', 'en_US', 'el_en',
+ sprintf( _("%s to %s"),_("Greek"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr_el',
+ sprintf( _("%s to %s"),_("French"),_("Greek"))) .
+ translate_lang_opt('el_GR', 'fr_FR', 'el_fr',
+ sprintf( _("%s to %s"),_("Greek"),_("French"))) .
+ translate_lang_opt('#', '', '', '----------------') .
+ translate_lang_opt('en_US', '', 'en_fr',
+ sprintf( _("%s to %s"),_("English"),_("French"))) .
+ translate_lang_opt('fr_FR', '', 'fr_en',
+ sprintf( _("%s to %s"),_("French"),_("English"))) .
+ translate_lang_opt('en_US', 'de_DE', 'en_de',
+ sprintf( _("%s to %s"),_("English"),_("German"))) .
+ translate_lang_opt('de_DE', '', 'de_en',
+ sprintf( _("%s to %s"),_("German"),_("English"))) .
+ translate_lang_opt('en_US', 'es_ES', 'en_es',
+ sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
+ translate_lang_opt('es_ES', '', 'es_en',
+ sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
+ translate_lang_opt('en_US', 'it_IT', 'en_it',
+ sprintf( _("%s to %s"),_("English"),_("Italian"))) .
+ translate_lang_opt('it_IT', '', 'it_en',
+ sprintf( _("%s to %s"),_("Italian"),_("English"))) .
+ translate_lang_opt('en_US', 'pt*', 'en_pt',
+ sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
+ translate_lang_opt('pt*', '', 'pt_en',
+ sprintf( _("%s to %s"),_("Portuguese"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr_de',
+ sprintf( _("%s to %s"),_("French"),_("German"))) .
+ translate_lang_opt('de_DE', '', 'de_fr',
+ sprintf( _("%s to %s"),_("German"),_("French"))) .
+ translate_lang_opt('fr_FR', '', 'fr_es',
+ sprintf( _("%s to %s"),_("French"),_("Spanish"))) .
+ translate_lang_opt('es_ES', '', 'es_fr',
+ sprintf( _("%s to %s"),_("Spanish"),_("French"))) .
+ translate_lang_opt('fr_FR', 'nl_NL', 'fr_nl',
+ sprintf( _("%s to %s"),_("French"),_("Dutch"))) .
+ translate_lang_opt('nl_NL', '', 'nl_fr',
+ sprintf( _("%s to %s"),_("Dutch"),_("French"))) ;
+ echo '</select>'.
+ 'OTEnet: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+
+/**
+ * promt translation engine
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_promt($message) {
+ translate_new_form('http://www.online-translator.com/text.asp#tr_form');
+ echo '<input type="hidden" name="status" value="translate" />';
+ echo '<input type="hidden" name="source" value="'.$message.'" />';
+ echo _("Interface language")." : ";
+ echo "<select size=\"1\" name=\"lang\">\n";
+ echo '<option value="en">' . _("English") . "</option>\n";
+ echo '<option value="ru">' . _("Russian") . "</option>\n";
+ echo '<option value="de">' . _("German") . "</option>\n";
+ echo '<option value="fr">' . _("French") . "</option>\n";
+ echo '<option value="es">' . _("Spanish") . "</option>\n";
+ echo "</select><br />\n";
+ echo _("Translation direction")." : ";
+ echo '<select size="1" id="direction" name="direction">';
+ echo translate_lang_opt('en_US', 'ru_RU', 'er',
+ sprintf( _("%s to %s"),_("English"),_("Russian"))) .
+ translate_lang_opt('ru_RU', 'en_US', 're',
+ sprintf( _("%s to %s"),_("Russian"),_("English"))) .
+ translate_lang_opt('de_DE', '', 'gr',
+ sprintf( _("%s to %s"),_("German"),_("Russian"))) .
+ translate_lang_opt('ru_RU', 'de_DE', 'rg',
+ sprintf( _("%s to %s"),_("Russian"),_("German"))) .
+ translate_lang_opt('fr_FR', '', 'fr',
+ sprintf( _("%s to %s"),_("French"),_("Russian"))) .
+ translate_lang_opt('ru_RU', 'fr_FR', 'rf',
+ sprintf( _("%s to %s"),_("Russian"),_("French"))) .
+ translate_lang_opt('es_ES', '', 'sr',
+ sprintf( _("%s to %s"),_("Spanish"),_("Russian"))) .
+ translate_lang_opt('ru_RU', 'es_ES', 'rs',
+ sprintf( _("%s to %s"),_("Russian"),_("Spanish"))) .
+ translate_lang_opt('it_IT', '', 'ir',
+ sprintf( _("%s to %s"),_("Italian"),_("Russian"))) .
+ translate_lang_opt('en_US', '', 'eg',
+ sprintf( _("%s to %s"),_("English"),_("German"))) .
+ translate_lang_opt('de_DE', '', 'ge',
+ sprintf( _("%s to %s"),_("German"),_("English"))) .
+ translate_lang_opt('en_US', '', 'es',
+ sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
+ translate_lang_opt('es_ES', '', 'se',
+ sprintf( _("%s to %s"),_("Spanish"),_("English"))) ;
+ echo "</select><br />\n";
+ echo "<input type=\"hidden\" name=\"template\" value=\"General\" />\n";
+ echo 'PROMT: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+
+/**
+ * google translation engine
+ *
+ * @param string $message text that has to be translated
+ * @access private
+ */
+function translate_form_google($message) {
+ translate_new_form('http://www.google.com/translate_t');
+?>
+ <input type="hidden" name="ie" value="Unknown" />
+ <input type="hidden" name="oe" value="ASCII" />
+ <input type="hidden" name="hl" value="en" />
+ <input type="hidden" name="text" value="<?php echo $message; ?>" />
+ <select name="langpair"><?php
+ echo translate_lang_opt('en_US', 'de_DE', 'en|de',
+ sprintf( _("%s to %s"),_("English"),_("German"))) .
+ translate_lang_opt('en_US', 'es_ES', 'en|es',
+ sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
+ translate_lang_opt('en_US', 'fr_FR', 'en|fr',
+ sprintf( _("%s to %s"),_("English"),_("French"))) .
+ translate_lang_opt('en_US', 'it_IT', 'en|it',
+ sprintf( _("%s to %s"),_("English"),_("Italian"))) .
+ translate_lang_opt('en_US', 'pt*', 'en|pt',
+ sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
+ translate_lang_opt('de_DE', 'en_US', 'de|en',
+ sprintf( _("%s to %s"),_("German"),_("English"))) .
+ translate_lang_opt('de_DE', '', 'de|fr',
+ sprintf( _("%s to %s"),_("German"),_("French"))) .
+ translate_lang_opt('es_ES', '', 'es|en',
+ sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr|en',
+ sprintf( _("%s to %s"),_("French"),_("English"))) .
+ translate_lang_opt('fr_FR', '', 'fr|de',
+ sprintf( _("%s to %s"),_("French"),_("German"))) .
+ translate_lang_opt('it_IT', '', 'it|en',
+ sprintf( _("%s to %s"),_("Italian"),_("English"))) .
+ translate_lang_opt('pt*', '', 'pt|en',
+ sprintf( _("%s to %s"),_("Portuguese"),_("English")));
+ echo '</select>'.
+ 'Google: <input type="submit" value="' . _("Translate") . '" />';
+
+ translate_table_end();
+}
+?>
\ No newline at end of file
<?php
-
- /**
- ** index.php -- Displays the main frameset
- **
- ** Copyright (c) 1999-2004 The SquirrelMail development team
- ** Licensed under the GNU GPL. For full terms see the file COPYING.
- **
- ** Redirects to the login page.
- **
- * @version $Id$
- * @package plugins
- * @subpackage translate
- **/
-
- header("Location:../../src/login.php\n\n");
- exit();
-
+/**
+ * index.php -- Displays the main frameset
+ *
+ * Copyright (c) 1999-2004 The SquirrelMail development team
+ * Licensed under the GNU GPL. For full terms see the file COPYING.
+ *
+ * Redirects to the login page.
+ *
+ * @version $Id$
+ * @package plugins
+ * @subpackage translate
+ */
+header("Location:../../src/login.php\n\n");
+exit();
?>
<?php
-
/**
* options.php
*
define('SM_PATH','../../');
/* SquirrelMail required files. */
-require_once(SM_PATH . 'include/validate.php');
-require_once(SM_PATH . 'functions/strings.php');
-require_once(SM_PATH . 'functions/page_header.php');
-require_once(SM_PATH . 'functions/display_messages.php');
-require_once(SM_PATH . 'functions/imap.php');
-require_once(SM_PATH . 'include/load_prefs.php');
+include_once(SM_PATH . 'include/validate.php');
+include_once(SM_PATH . 'functions/display_messages.php');
+include_once(SM_PATH . 'functions/imap.php');
+include_once(SM_PATH . 'plugins/translate/functions.php');
displayPageHeader($color, 'None');
-if (isset($_POST['submit_translate']) && $_POST['submit_translate'] ) {
- if (isset($_POST['translate_translate_server'])) {
- setPref($data_dir, $username, 'translate_server', $_POST['translate_translate_server']);
+// Save preferences
+if (sqgetGlobalVar('submit_translate',$tmp,SQ_POST)) {
+ if (sqgetGlobalVar('translate_translate_server',$translate_translate_server,SQ_POST)) {
+ setPref($data_dir, $username, 'translate_server', $translate_translate_server);
} else {
- setPref($data_dir, $username, 'translate_server', 'babelfish');
+ setPref($data_dir, $username, 'translate_server', $translate_default_engine);
}
- if (isset($_POST['translate_translate_location'])) {
- setPref($data_dir, $username, 'translate_location', $_POST['translate_translate_location']);
+ if (sqgetGlobalVar('translate_translate_location',$translate_translate_location,SQ_POST)) {
+ setPref($data_dir, $username, 'translate_location', $translate_translate_location);
} else {
setPref($data_dir, $username, 'translate_location', 'center');
}
- if (isset($_POST['translate_translate_show_read'])) {
+ if (sqgetGlobalVar('translate_translate_show_read',$tmp,SQ_POST)) {
setPref($data_dir, $username, 'translate_show_read', '1');
} else {
setPref($data_dir, $username, 'translate_show_read', '');
}
- if (isset($_POST['translate_translate_show_send'])) {
+ if (sqgetGlobalVar('translate_translate_show_send',$tmp,SQ_POST)) {
setPref($data_dir, $username, 'translate_show_send', '1');
} else {
setPref($data_dir, $username, 'translate_show_send', '');
}
- if (isset($_POST['translate_translate_same_window'])) {
+ if (sqgetGlobalVar('translate_translate_same_window',$tmp,SQ_POST)) {
setPref($data_dir, $username, 'translate_same_window', '1');
} else {
setPref($data_dir, $username, 'translate_same_window', '');
}
}
-$translate_server = getPref($data_dir, $username, 'translate_server');
-if ($translate_server == '') {
- $translate_server = 'babelfish';
-}
+// Move these calls to separate function
+$translate_server = getPref($data_dir, $username, 'translate_server',$translate_default_engine);
+
$translate_location = getPref($data_dir, $username, 'translate_location');
if ($translate_location == '') {
$translate_location = 'center';
$translate_show_read = getPref($data_dir, $username, 'translate_show_read');
$translate_show_send = getPref($data_dir, $username, 'translate_show_send');
$translate_same_window = getPref($data_dir, $username, 'translate_same_window');
-
-/**
- * FIXME: undocumented function
- * @access private
- */
-function ShowOption($Var, $value, $Desc) {
- $Var = 'translate_' . $Var;
-
- global $$Var;
-
- echo '<option value="' . $value . '"';
- if ($$Var == $value) {
- echo ' selected="selected"';
- }
- echo '>' . $Desc . "</option>\n";
-}
-
-/**
- * FIXME: undocumented function
- * @access private
- */
-function ShowTrad( $tit, $com, $url ) {
-
- echo "<li><b>$tit</b> - ".
- $com .
- "[ <a href=\"$url\" target=\"_blank\">$tit</a> ]</li>";
-
-}
?>
<table width="95%" align="center" border="0" cellpadding="1" cellspacing="0"><tr><td bgcolor="<?php echo $color[0]; ?>">
<center><b><?php echo _("Options") . ' - '. _("Translator"); ?></b></center>
</td></tr></table>
- <?php if (isset($_POST['submit_translate']) && $_POST['submit_translate'] ) {
+ <?php if (sqgetGlobalVar('submit_translate',$tmp,SQ_POST)) {
print "<center><h4>"._("Saved Translation Options")."</h4></center>\n";
}?>
<ul>
<?php
- ShowTrad( 'Babelfish',
- _("Maximum of 1000 characters translated, powered by Systran").
- "<br />".sprintf(_("Number of supported language pairs: %s"),"19")." " ,
- 'http://babelfish.altavista.com/' );
-// ShowTrad( 'Translator.Go.com',
-// _("10 language pairs, maximum of 25 kilobytes translated, powered by Systran"),
-// 'http://translator.go.com/' );
- ShowTrad( 'Dictionary.com',
- _("No known limits, powered by Systran").
- "<br />".sprintf(_("Number of supported language pairs: %s"),"24")." " ,
- 'http://www.dictionary.com/translate' );
- ShowTrad( 'Google Translate',
- _("No known limits, powered by Systran").
- "<br />".sprintf(_("Number of supported language pairs: %s"),"12")." " ,
- 'http://www.google.com/translate' );
- ShowTrad( 'GPLTrans',
- _("No known limits, powered by GPLTrans (free, open source)").
- "<br />".sprintf(_("Number of supported language pairs: %s"),"16")." " ,
- 'http://www.translator.cx/' );
- ShowTrad( 'InterTran',
- _("No known limits, powered by Translation Experts' InterTran").
- "<br />".sprintf(_("Number of supported languages: %s"),"29")." " ,
- 'http://www.tranexp.com/' );
- ShowTrad( 'OTEnet',
- _("Hellenic translations, no known limits, powered by Systran").
- "<br />".sprintf(_("Number of supported language pairs: %s"),"20")." " ,
- 'http://systran.otenet.gr/' );
- ShowTrad( 'PROMT',
- _("Russian translations, maximum of 500 characters translated").
- "<br />".sprintf(_("Number of supported language pairs: %s"),"13")." " ,
- 'http://www.online-translator.com/' );
+ translate_showtrad();
?>
</ul>
<p>
_("Select your translator:") .
'</td>'.
'<td><select name="translate_translate_server">';
+ translate_showoption();
+ echo '</select>' .
+ '</td></tr>' .
+ '<tr>'.html_tag('td',_("When reading:"),'right','','nowrap').
+ '<td><input type="checkbox" name="translate_translate_show_read"';
+ if ($translate_show_read)
+ echo ' checked="checked"';
+ echo ' /> - ' . _("Show translation box") .
+ ' <select name="translate_translate_location">';
+ translate_showoption_internal('location', 'left', _("to the left"));
+ translate_showoption_internal('location', 'center', _("in the center"));
+ translate_showoption_internal('location', 'right', _("to the right"));
+ echo '</select><br />'.
+ '<input type="checkbox" name="translate_translate_same_window"';
+ if ($translate_same_window)
+ echo ' checked="checked"';
+ echo ' /> - ' . _("Translate inside the SquirrelMail frames").
+ "</td></tr>\n";
- ShowOption('server', 'babelfish', 'Babelfish');
-// ShowOption('server', 'go', 'Go.com');
- ShowOption('server', 'dictionary', 'Dictionary.com');
- ShowOption('server', 'google', 'Google Translate');
- ShowOption('server', 'gpltrans', 'GPLTrans');
- ShowOption('server', 'intertran', 'Intertran');
- ShowOption('server', 'otenet', 'OTEnet');
- ShowOption('server', 'promt', 'PROMT');
- echo '</select>' .
- '</td></tr>' .
- '<tr>'.html_tag('td',_("When reading:"),'right','','nowrap').
- '<td><input type="checkbox" name="translate_translate_show_read"';
- if ($translate_show_read)
- echo ' checked="checked"';
- echo ' /> - ' . _("Show translation box") .
- ' <select name="translate_translate_location">';
- ShowOption('location', 'left', _("to the left"));
- ShowOption('location', 'center', _("in the center"));
- ShowOption('location', 'right', _("to the right"));
- echo '</select><br />'.
- '<input type="checkbox" name="translate_translate_same_window"';
- if ($translate_same_window)
- echo ' checked="checked"';
- echo ' /> - ' . _("Translate inside the SquirrelMail frames").
- "</td></tr>\n";
-
-$disable_compose_translate=true;
if (!$disable_compose_translate) {
echo '<tr>'.html_tag('td',_("When composing:"),'right','','nowrap').
'<td><input type="checkbox" name="translate_translate_show_send"';
/**
* setup.php
*
+ * Easy plugin that sends the body of the message to a new browser
+ * window using the specified translator.
+ *
+ * Translation of composed messages is not supported.
+ *
* Copyright (c) 1999-2004 The SquirrelMail Project Team
* Licensed under the GNU GPL. For full terms see the file COPYING.
*
* @subpackage translate
*/
-/*
-Easy plugin that sends the body of the message to a new browser
-window using the specified translator.
-
-Translation of composed messages is not supported.
-*/
-
+/**
+ * If SM_PATH isn't defined, define it.
+ * @ignore
+ */
+if (!defined('SM_PATH')) {
+ define('SM_PATH','../../');
+}
/**
* Initialize the translation plugin
$squirrelmail_plugin_hooks['read_body_bottom']['translate'] = 'translate_read_form';
$squirrelmail_plugin_hooks['optpage_register_block']['translate'] = 'translate_optpage_register_block';
$squirrelmail_plugin_hooks['loading_prefs']['translate'] = 'translate_pref';
- $squirrelmail_plugin_hooks['compose_button_row']['translate'] = 'translate_button';
+// $squirrelmail_plugin_hooks['compose_button_row']['translate'] = 'translate_button';
}
-
/**
* Shows translation box in message display window
* @access private
*/
function translate_read_form() {
- global $color, $translate_server;
- global $message, $translate_dir;
- global $translate_show_read;
- global $imapConnection, $wrap_at, $passed_id, $mailbox;
-
- if (!$translate_show_read) {
- return;
- }
-
- $translate_dir = 'to';
-
-$trans_ar = $message->findDisplayEntity(array(), array('text/plain'));
-$body = '';
-if ($trans_ar[0] != '') {
- for ($i = 0; $i < count($trans_ar); $i++) {
- $body .= formatBody($imapConnection, $message, $color, $wrap_at, $trans_ar[$i], $passed_id, $mailbox);
- }
- $hookResults = do_hook('message_body', $body);
- $body = $hookResults[1];
- } else {
- $body = 'Message can\'t be translated';
-}
-
- $new_body = $body;
- $pos = strpos($new_body,
- '">'. _("Download this as a file") . '</a></center><br /></small>');
- if (is_int($pos)) {
- $new_body = substr($new_body, 0, $pos);
- }
-
- $trans = get_html_translation_table(HTML_ENTITIES);
- $trans[' '] = ' ';
- $trans = array_flip($trans);
- $new_body = strtr($new_body, $trans);
-
- $new_body = urldecode($new_body);
- $new_body = strip_tags($new_body);
-
- /* I really don't like this next part ... */
- $new_body = str_replace('"', "''", $new_body);
- $new_body = strtr($new_body, "\n", ' ');
-
- $function = 'translate_form_' . $translate_server;
- $function($new_body);
+ include_once(SM_PATH . 'plugins/translate/functions.php');
+ translate_read_form_function();
}
/**
- * Closes table tags in translation box
- * @access private
- */
-function translate_table_end() {
- ?></td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </form>
- <?php
-}
-
-/**
- * FIXME: Undocumented function.
+ * Should add translation options in compose window
+ *
+ * Unimplemented
* @access private
*/
function translate_button() {
- global $translate_show_send;
-
- if (! $translate_show_send) {
- return;
- }
+ include_once(SM_PATH . 'plugins/translate/functions.php');
+ translate_button_function();
}
/**
- * Adds translation option block
+ * Calls translation option block function
* @access private
*/
function translate_optpage_register_block() {
- global $optpage_blocks;
- $optpage_blocks[] = array(
- 'name' => _("Translation Options"),
- 'url' => '../plugins/translate/options.php',
- 'desc' => _("Which translator should be used when you get messages in a different language?"),
- 'js' => false
- );
-}
-
-/**
- * Gets user's translation preferences
- * @access private
- */
-function translate_pref() {
- global $username, $data_dir;
- global $translate_server, $translate_location;
- global $translate_show_send, $translate_show_read;
- global $translate_same_window;
-
- $translate_server = getPref($data_dir, $username, 'translate_server');
- if ($translate_server == '') {
- $translate_server = 'babelfish';
- }
-
- $translate_location = getPref($data_dir, $username, 'translate_location');
- if ($translate_location == '') {
- $translate_location = 'center';
- }
-
- $translate_show_send = getPref($data_dir, $username, 'translate_show_send');
- $translate_show_read = getPref($data_dir, $username, 'translate_show_read');
- $translate_same_window = getPref($data_dir, $username, 'translate_same_window');
-}
-
-
-/**
- * Tries to select default translation combination
- *
- * This function could be speed up.
- * It basically negates the process if a ! is found in the beginning and
- * matches a * at the end with 0 or more characters.
- *
- * @param string $test language code that has to be tested.
- * @return boolean true if language code matches user's language.
- * @access private
- */
-function translate_does_it_match_language($test) {
- global $squirrelmail_language;
- $true = 1;
- $false = 0;
- $index = 0;
- $smindex = 0;
-
- if (! $test || ! $squirrelmail_language) {
- return $false;
- }
-
- if ($test[$index] == '!') {
- $index ++;
- $true = 0;
- $false = 1;
- }
-
- if (($index == 0) && ($test == $squirrelmail_language)) {
- return $true;
- }
-
- while (isset($test[$index]) && $test[$index]) {
- if ($test[$index] == '*') {
- return $true;
- }
- if ($test[$index] != $squirrelmail_language[$smindex]) {
- return $false;
- }
- $index ++;
- $smindex ++;
- }
-
- return $false;
-}
-
-/**
- * Creates language option selection box.
- *
- * @access private
- */
-function translate_lang_opt($from, $to, $value, $text) {
- global $translate_dir;
-
- $ret = ' <option value="' . $value . '"';
-
- if (translate_does_it_match_language($to) && ($translate_dir == 'to')) {
- $ret .= ' selected="selected"';
- }
-
- if (translate_does_it_match_language($from) && ($translate_dir == 'from')) {
- $ret .= ' selected="selected"';
- }
-
- $ret .= '>' . $text . "</option>\n";
-
- return( $ret );
-}
-
-/**
- * Starts translation box
- *
- * @param string $action url that has to recieve message for translation
- * @access private
- */
-function translate_new_form($action) {
- global $translate_dir, $translate_new_window, $translate_location;
- global $color, $translate_same_window;
-
- echo '<form action="';
-
- if ($translate_dir == 'to') {
- echo $action;
- } else {
- echo 'translate.php';
- }
-
- echo '" method="post"';
-
- if (!$translate_same_window) {
- echo ' target="_blank"';
- }
-
- echo ">\n";
-
- ?><table align="<?php echo $translate_location ?>" cellpadding=3 cellspacing=0 border=0 bgcolor=<?php echo $color[10] ?>>
- <tr>
- <td>
- <table cellpadding=2 cellspacing=1 border=0 bgcolor="<?php echo $color[5] ?>">
- <tr>
- <td><?php
+ include_once(SM_PATH . 'plugins/translate/functions.php');
+ translate_optpage_function();
}
/**
- * Babelfish translation engine functions
- *
- * @param string $message text that has to be translated.
- * @access private
- */
-function translate_form_babelfish($message) {
- translate_new_form('http://babelfish.altavista.com/babelfish/tr');
-?>
- <input type="hidden" name="doit" value="done" />
- <input type="hidden" name="intl" value="1" />
- <input type="hidden" name="tt" value="urltext" />
- <input type="hidden" name="urltext" value="<?php echo $message; ?>" />
- <select name="lp"><?php
- echo translate_lang_opt('en_US', 'zh_CN', 'en_zh',
- sprintf( _("%s to %s"),_("English"),_("Chinese"))) .
- translate_lang_opt('en_US', 'fr_FR', 'en_fr',
- sprintf( _("%s to %s"),_("English"),_("French"))) .
- translate_lang_opt('en_US', 'de_DE', 'en_de',
- sprintf( _("%s to %s"),_("English"),_("German"))) .
- translate_lang_opt('en_US', 'it_IT', 'en_it',
- sprintf( _("%s to %s"),_("English"),_("Italian"))) .
- translate_lang_opt('en_US', 'ja_JP', 'en_ja',
- sprintf( _("%s to %s"),_("English"),_("Japanese"))) .
- translate_lang_opt('en_US', 'ko_KR', 'en_ko',
- sprintf( _("%s to %s"),_("English"),_("Korean"))) .
- translate_lang_opt('en_US', 'pt*', 'en_pt',
- sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
- translate_lang_opt('en_US', 'es_ES', 'en_es',
- sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
- translate_lang_opt('zh_CN', '', 'zh_en',
- sprintf( _("%s to %s"),_("Chinese"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr_en',
- sprintf( _("%s to %s"),_("French"),_("English"))) .
- translate_lang_opt('de_DE', 'en_US', 'de_en',
- sprintf( _("%s to %s"),_("German"),_("English"))) .
- translate_lang_opt('it_IT', '', 'it_en',
- sprintf( _("%s to %s"),_("Italian"),_("English"))) .
- translate_lang_opt('ja_JP', '', 'ja_en',
- sprintf( _("%s to %s"),_("Japanese"),_("English"))) .
- translate_lang_opt('ko_KR', '', 'ko_en',
- sprintf( _("%s to %s"),_("Korean"),_("English"))) .
- translate_lang_opt('pt*', '', 'pt_en',
- sprintf( _("%s to %s"),_("Portuguese"),_("English"))) .
- translate_lang_opt('es_ES', '', 'es_en',
- sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
- translate_lang_opt('de_DE', '', 'de_fr',
- sprintf( _("%s to %s"),_("German"),_("French"))) .
- translate_lang_opt('fr_FR', '', 'fr_de',
- sprintf( _("%s to %s"),_("French"),_("German"))) .
- translate_lang_opt('ru_RU', '', 'ru_en',
- sprintf( _("%s to %s"),_("Russian"),_("English")));
- echo '</select>'.
- 'Babelfish: <input type="submit" value="' . _("Translate") . '" />';
-
- translate_table_end();
-}
-
-/**
- * go.com translation engine (disabled)
- *
- * @param string $message text that has to be translated
- * @access private
- */
-function translate_form_go($message) {
- translate_new_form('http://translator.go.com/cb/trans_entry');
-?>
- <input type="hidden" name="input_type" value="text" />
- <select name="lp"><?php
- echo translate_lang_opt('en_US', 'es_ES', 'en_sp',
- sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
- translate_lang_opt('en_US', 'fr_FR', 'en_fr',
- sprintf( _("%s to %s"),_("English"),_("French"))) .
- translate_lang_opt('en_US', 'de_DE', 'en_ge',
- sprintf( _("%s to %s"),_("English"),_("German"))) .
- translate_lang_opt('en_US', 'it_IT', 'en_it',
- sprintf( _("%s to %s"),_("English"),_("Italian"))) .
- translate_lang_opt('en_US', 'pt*', 'en_pt',
- sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
- translate_lang_opt('es_ES', '', 'sp_en',
- sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr_en',
- sprintf( _("%s to %s"),_("French"),_("English"))) .
- translate_lang_opt('de_DE', 'en_US', 'ge_en',
- sprintf( _("%s to %s"),_("German"),_("English"))) .
- translate_lang_opt('it_IT', '', 'it_en',
- sprintf( _("%s to %s"),_("Italian"),_("English"))) .
- translate_lang_opt('pt*', '', 'pt_en',
- sprintf( _("%s to %s"),_("Portuguese"),_("English")));
- echo '</select>'.
- '<input type="hidden" name="text" value="'.$message.'" />'.
- 'Go.com: <input type="submit" value="' . _("Translate") . '" />';
-
- translate_table_end();
-}
-
-/**
- * intertran translation engine
- *
- * @param string $message text that has to be translated
- * @access private
- */
-function translate_form_intertran($message) {
- translate_new_form('http://www.tranexp.com:2000/InterTran');
- echo '<input type="hidden" name="topframe" value="yes" />'.
- '<input type="hidden" name="type" value="text" />'.
- '<input type="hidden" name="text" value="'.$message.'" />';
-
- $left = '<select name="from">' .
- translate_lang_opt('pt_BR', '', 'pob', _("Brazilian Portuguese")).
- translate_lang_opt('bg_BG', '', 'bul', _("Bulgarian") . ' (CP 1251)').
- translate_lang_opt('hr_HR', '', 'cro', _("Croatian") . ' (CP 1250)').
- translate_lang_opt('cs_CZ', '', 'che', _("Czech") . ' (CP 1250)').
- translate_lang_opt('da_DK', '', 'dan', _("Danish")).
- translate_lang_opt('nl_NL', '', 'dut', _("Dutch")).
- translate_lang_opt('en_US', '!en', 'eng', _("English")).
- translate_lang_opt('tl_PH', '', 'tag', _("Filipino (Tagalog)")).
- translate_lang_opt('fi_FI', '', 'fin', _("Finnish")).
- translate_lang_opt('fr_FR', '', 'fre', _("French")).
- translate_lang_opt('de_DE', '', 'ger', _("German")).
- translate_lang_opt('el_GR', '', 'grk', _("Greek")).
- translate_lang_opt('hu_HU', '', 'hun', _("Hungarian") . ' (CP 1250)').
- translate_lang_opt('is_IS', '', 'ice', _("Icelandic")).
- translate_lang_opt('it_IT', '', 'ita', _("Italian")).
- translate_lang_opt('ja_JP', '', 'jpn', _("Japanese") . ' (Shift JIS)').
- translate_lang_opt('la', '', 'ltt', _("Latin")).
- translate_lang_opt('es*', '', 'spl', _("Latin American Spanish")).
- translate_lang_opt('no*', '', 'nor', _("Norwegian")).
- translate_lang_opt('pl_PL', '', 'pol', _("Polish") . ' (ISO 8859-2)').
- translate_lang_opt('pt*', '', 'poe', _("Portuguese")).
- translate_lang_opt('ro_RO', '', 'rom', _("Romanian") . ' (CP 1250)').
- translate_lang_opt('ru_RU', '', 'rus', _("Russian") . ' (CP 1251)').
- translate_lang_opt('sr_YU', '', 'sel', _("Serbian") . ' (CP 1250)').
- translate_lang_opt('sl_SI', '', 'slo', _("Slovenian") . ' (CP 1250)').
- translate_lang_opt('es_ES', '', 'spa', _("Spanish")).
- translate_lang_opt('sv_SE', '', 'swe', _("Swedish")).
- translate_lang_opt('tr_TR', '', 'tur', _("Turkish") . ' (CP 1254)').
- translate_lang_opt('cy_GB', '', 'wel', _("Welsh")).
- '</select>';
-
- $right = '<select name="to">'.
- translate_lang_opt('', 'pt_BR', 'pob', _("Brazilian Portuguese")).
- translate_lang_opt('', 'bg_BG', 'bul', _("Bulgarian") . ' (CP 1251)').
- translate_lang_opt('', 'hr_HR', 'cro', _("Croatian") . ' (CP 1250)').
- translate_lang_opt('', 'cs_CZ', 'che', _("Czech") . ' (CP 1250)').
- translate_lang_opt('', 'da_DK', 'dan', _("Danish")).
- translate_lang_opt('', 'nl_NL', 'dut', _("Dutch")).
- translate_lang_opt('!en', 'en_US', 'eng', _("English")).
- translate_lang_opt('', 'tl_PH', 'tag', _("Filipino (Tagalog)")).
- translate_lang_opt('', 'fi_FI', 'fin', _("Finnish")).
- translate_lang_opt('', 'fr_FR', 'fre', _("French")).
- translate_lang_opt('', 'de_DE', 'ger', _("German")).
- translate_lang_opt('', 'el_GR', 'grk', _("Greek")).
- translate_lang_opt('', 'hu_HU', 'hun', _("Hungarian") . ' (CP 1250)').
- translate_lang_opt('', 'is_IS', 'ice', _("Icelandic")).
- translate_lang_opt('', 'it_IT', 'ita', _("Italian")).
- translate_lang_opt('', 'ja_JP', 'jpn', _("Japanese") . ' (Shift JIS)').
- translate_lang_opt('', 'la', 'ltt', _("Latin")).
- translate_lang_opt('', 'es*', 'spl', _("Latin American Spanish")).
- translate_lang_opt('', 'no*', 'nor', _("Norwegian")).
- translate_lang_opt('', 'pl_PL', 'pol', _("Polish") . ' (ISO 8859-2)').
- translate_lang_opt('', 'pt_PT', 'poe', _("Portuguese")).
- translate_lang_opt('', 'ro_RO', 'rom', _("Romanian") . ' (CP 1250)').
- translate_lang_opt('', 'ru_RU', 'rus', _("Russian") . ' (CP 1251)').
- translate_lang_opt('', 'sr_YU', 'sel', _("Serbian") . ' (CP 1250)').
- translate_lang_opt('', 'sl_SI', 'slo', _("Slovenian") . ' (CP 1250)').
- translate_lang_opt('', 'es_ES', 'spa', _("Spanish")).
- translate_lang_opt('', 'sv_SE', 'swe', _("Swedish")).
- translate_lang_opt('', 'tr_TR', 'tur', _("Turkish") . ' (CP 1254)').
- translate_lang_opt('', 'cy_GB', 'wel', _("Welsh")).
- '</select>';
- printf( _("%s to %s"), $left, $right );
- echo 'InterTran: <input type="submit" value="' . _("Translate") . '" />';
-
- translate_table_end();
-}
-
-/**
- * gpltrans translation engine
- *
- * @param string $message text that has to be translated
- * @access private
- */
-function translate_form_gpltrans($message) {
- translate_new_form('http://www.translator.cx/cgi-bin/gplTrans');
- echo '<select name="language">'.
- translate_lang_opt('', 'nl_NL', 'dutch_dict', _("Dutch")).
- translate_lang_opt('', 'fr_FR', 'french_dict', _("French")).
- translate_lang_opt('', 'de_DE', 'german_dict', _("German")).
- translate_lang_opt('', 'id_ID', 'indonesian_dict', _("Indonesian")).
- translate_lang_opt('', 'it_IT', 'italian_dict', _("Italian")).
- translate_lang_opt('', 'la', 'latin_dict', _("Latin")).
- translate_lang_opt('', 'pt*', 'portuguese_dict', _("Portuguese")).
- translate_lang_opt('', 'es_ES', 'spanish_dict', _("Spanish")).
- '</select>';
- echo '<select name="toenglish">';
- echo '<option value="yes">'. _("to English") . '</option>';
- echo '<option value="no" selected="selected">' . _("from English") . '</option></select>';
- echo '<input type="hidden" name="text" value="'.$message.'" />'.
- 'GPLTrans: <input type="submit" value="' . _("Translate") . '" />';
-
- translate_table_end();
-}
-
-/**
- * reference.com (dictionary) translation engine
- *
- * @param string $message text that has to be translated
- * @access private
- */
-function translate_form_dictionary($message) {
- translate_new_form('http://dictionary.reference.com/translate/text.html');
- list($usec, $sec) = explode(" ",microtime());
- $time = $sec . (float)$usec*100000000;
- echo '<input type="hidden" name="text" value="'.$message.'" />'.
- '<input type="hidden" name="r" value="'.$time.'" />'.
- '<select name="lp">'.
- translate_lang_opt('en_US', 'zh_CN', 'en_zh',
- sprintf( _("%s to %s"),_("English"),_("Simplified Chinese"))) .
- translate_lang_opt('en_US', 'zh_TW', 'en_zt',
- sprintf( _("%s to %s"),_("English"),_("Traditional Chinese"))) .
- translate_lang_opt('en_US', 'nl_NL', 'en_nl',
- sprintf( _("%s to %s"),_("English"),_("Dutch"))) .
- translate_lang_opt('en_US', 'fr_FR', 'en_fr',
- sprintf( _("%s to %s"),_("English"),_("French"))) .
- translate_lang_opt('en_US', 'de_DE', 'en_ge',
- sprintf( _("%s to %s"),_("English"),_("German"))) .
- translate_lang_opt('en_US', 'el_GR', 'en_el',
- sprintf( _("%s to %s"),_("English"),_("Greek"))) .
- translate_lang_opt('en_US', 'it_IT', 'en_it',
- sprintf( _("%s to %s"),_("English"),_("Italian"))) .
- translate_lang_opt('en_US', 'ja_JP', 'en_ja',
- sprintf( _("%s to %s"),_("English"),_("Japanese"))) .
- translate_lang_opt('en_US', 'ko_KR', 'en_ko',
- sprintf( _("%s to %s"),_("English"),_("Korean"))) .
- translate_lang_opt('en_US', 'pt*', 'en_pt',
- sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
- translate_lang_opt('en_US', 'ru_RU', 'en_ru',
- sprintf( _("%s to %s"),_("English"),_("Russian"))) .
- translate_lang_opt('en_US', 'es_ES', 'en_es',
- sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
- translate_lang_opt('zh_CN', '', 'zh_en',
- sprintf( _("%s to %s"),_("Simplified Chinese"),_("English"))) .
- translate_lang_opt('zh_TW', '', 'zt_en',
- sprintf( _("%s to %s"),_("Traditional Chinese"),_("English"))) .
- translate_lang_opt('nl_NL', '', 'nl_en',
- sprintf( _("%s to %s"),_("Dutch"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr_en',
- sprintf( _("%s to %s"),_("French"),_("English"))) .
- translate_lang_opt('de_DE', 'en_US', 'ge_en',
- sprintf( _("%s to %s"),_("German"),_("English"))) .
- translate_lang_opt('el_GR', '', 'el_en',
- sprintf( _("%s to %s"),_("Greek"),_("English"))) .
- translate_lang_opt('it_IT', '', 'it_en',
- sprintf( _("%s to %s"),_("Italian"),_("English"))) .
- translate_lang_opt('ja_JP', '', 'ja_en',
- sprintf( _("%s to %s"),_("Japanese"),_("English"))) .
- translate_lang_opt('ko_KR', '', 'ko_en',
- sprintf( _("%s to %s"),_("Korean"),_("English"))) .
- translate_lang_opt('pt*', '', 'pt_en',
- sprintf( _("%s to %s"),_("Portuguese"),_("English"))) .
- translate_lang_opt('ru_RU', '', 'ru_en',
- sprintf( _("%s to %s"),_("Russian"),_("English"))) .
- translate_lang_opt('es_ES', '', 'es_en',
- sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
- '</select>'.
- 'Dictionary.com: <input type="submit" value="'._("Translate").'" />';
-
- translate_table_end();
-}
-
-/**
- * otenet translation engine
- *
- * @param string $message text that has to be translated
+ * Calls user's translation preferences function
* @access private
*/
-function translate_form_otenet($message) {
- translate_new_form('http://systran.otenet.gr/cgi-bin/systran.cgi');
-?>
- <input type="hidden" name="doit" value="done" />
- <input type="hidden" name="partner" value="OTEnet-en" />
- <input type="hidden" name="urltext" value="<?php echo $message; ?>" />
- <select name="lp" size="1"><?php
- echo translate_lang_opt('en_US', 'el_GR', 'en_el',
- sprintf( _("%s to %s"),_("English"),_("Greek"))) .
- translate_lang_opt('el_GR', 'en_US', 'el_en',
- sprintf( _("%s to %s"),_("Greek"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr_el',
- sprintf( _("%s to %s"),_("French"),_("Greek"))) .
- translate_lang_opt('el_GR', 'fr_FR', 'el_fr',
- sprintf( _("%s to %s"),_("Greek"),_("French"))) .
- translate_lang_opt('#', '', '', '----------------') .
- translate_lang_opt('en_US', '', 'en_fr',
- sprintf( _("%s to %s"),_("English"),_("French"))) .
- translate_lang_opt('fr_FR', '', 'fr_en',
- sprintf( _("%s to %s"),_("French"),_("English"))) .
- translate_lang_opt('en_US', 'de_DE', 'en_de',
- sprintf( _("%s to %s"),_("English"),_("German"))) .
- translate_lang_opt('de_DE', '', 'de_en',
- sprintf( _("%s to %s"),_("German"),_("English"))) .
- translate_lang_opt('en_US', 'es_ES', 'en_es',
- sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
- translate_lang_opt('es_ES', '', 'es_en',
- sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
- translate_lang_opt('en_US', 'it_IT', 'en_it',
- sprintf( _("%s to %s"),_("English"),_("Italian"))) .
- translate_lang_opt('it_IT', '', 'it_en',
- sprintf( _("%s to %s"),_("Italian"),_("English"))) .
- translate_lang_opt('en_US', 'pt*', 'en_pt',
- sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
- translate_lang_opt('pt*', '', 'pt_en',
- sprintf( _("%s to %s"),_("Portuguese"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr_de',
- sprintf( _("%s to %s"),_("French"),_("German"))) .
- translate_lang_opt('de_DE', '', 'de_fr',
- sprintf( _("%s to %s"),_("German"),_("French"))) .
- translate_lang_opt('fr_FR', '', 'fr_es',
- sprintf( _("%s to %s"),_("French"),_("Spanish"))) .
- translate_lang_opt('es_ES', '', 'es_fr',
- sprintf( _("%s to %s"),_("Spanish"),_("French"))) .
- translate_lang_opt('fr_FR', 'nl_NL', 'fr_nl',
- sprintf( _("%s to %s"),_("French"),_("Dutch"))) .
- translate_lang_opt('nl_NL', '', 'nl_fr',
- sprintf( _("%s to %s"),_("Dutch"),_("French"))) ;
- echo '</select>'.
- 'OTEnet: <input type="submit" value="' . _("Translate") . '" />';
- translate_table_end();
-
+function translate_pref() {
+ include_once(SM_PATH . 'plugins/translate/functions.php');
+ translate_pref_function();
}
-
-/**
- * promt translation engine
- *
- * @param string $message text that has to be translated
- * @access private
- */
-function translate_form_promt($message) {
- translate_new_form('http://www.online-translator.com/text.asp#tr_form');
- echo '<input type="hidden" name="status" value="translate" />';
- echo '<input type="hidden" name="source" value="'.$message.'" />';
- echo _("Interface language")." : ";
- echo "<select size=\"1\" name=\"lang\">\n";
- echo '<option value="en">' . _("English") . "</option>\n";
- echo '<option value="ru">' . _("Russian") . "</option>\n";
- echo '<option value="de">' . _("German") . "</option>\n";
- echo '<option value="fr">' . _("French") . "</option>\n";
- echo '<option value="es">' . _("Spanish") . "</option>\n";
- echo "</select><br />\n";
- echo _("Translation direction")." : ";
- echo '<select size="1" id="direction" name="direction">';
- echo translate_lang_opt('en_US', 'ru_RU', 'er',
- sprintf( _("%s to %s"),_("English"),_("Russian"))) .
- translate_lang_opt('ru_RU', 'en_US', 're',
- sprintf( _("%s to %s"),_("Russian"),_("English"))) .
- translate_lang_opt('de_DE', '', 'gr',
- sprintf( _("%s to %s"),_("German"),_("Russian"))) .
- translate_lang_opt('ru_RU', 'de_DE', 'rg',
- sprintf( _("%s to %s"),_("Russian"),_("German"))) .
- translate_lang_opt('fr_FR', '', 'fr',
- sprintf( _("%s to %s"),_("French"),_("Russian"))) .
- translate_lang_opt('ru_RU', 'fr_FR', 'rf',
- sprintf( _("%s to %s"),_("Russian"),_("French"))) .
- translate_lang_opt('es_ES', '', 'sr',
- sprintf( _("%s to %s"),_("Spanish"),_("Russian"))) .
- translate_lang_opt('ru_RU', 'es_ES', 'rs',
- sprintf( _("%s to %s"),_("Russian"),_("Spanish"))) .
- translate_lang_opt('it_IT', '', 'ir',
- sprintf( _("%s to %s"),_("Italian"),_("Russian"))) .
- translate_lang_opt('en_US', '', 'eg',
- sprintf( _("%s to %s"),_("English"),_("German"))) .
- translate_lang_opt('de_DE', '', 'ge',
- sprintf( _("%s to %s"),_("German"),_("English"))) .
- translate_lang_opt('en_US', '', 'es',
- sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
- translate_lang_opt('es_ES', '', 'se',
- sprintf( _("%s to %s"),_("Spanish"),_("English"))) ;
- echo "</select><br />\n";
- echo "<input type=\"hidden\" name=\"template\" value=\"General\" />\n";
- echo 'PROMT: <input type="submit" value="' . _("Translate") . '" />';
-
- translate_table_end();
-}
-
-/**
- * google translation engine
- *
- * @param string $message text that has to be translated
- * @access private
- */
-function translate_form_google($message) {
- translate_new_form('http://www.google.com/translate_t');
-?>
- <input type="hidden" name="ie" value="Unknown" />
- <input type="hidden" name="oe" value="ASCII" />
- <input type="hidden" name="hl" value="en" />
- <input type="hidden" name="text" value="<?php echo $message; ?>" />
- <select name="langpair"><?php
- echo translate_lang_opt('en_US', 'de_DE', 'en|de',
- sprintf( _("%s to %s"),_("English"),_("German"))) .
- translate_lang_opt('en_US', 'es_ES', 'en|es',
- sprintf( _("%s to %s"),_("English"),_("Spanish"))) .
- translate_lang_opt('en_US', 'fr_FR', 'en|fr',
- sprintf( _("%s to %s"),_("English"),_("French"))) .
- translate_lang_opt('en_US', 'it_IT', 'en|it',
- sprintf( _("%s to %s"),_("English"),_("Italian"))) .
- translate_lang_opt('en_US', 'pt*', 'en|pt',
- sprintf( _("%s to %s"),_("English"),_("Portuguese"))) .
- translate_lang_opt('de_DE', 'en_US', 'de|en',
- sprintf( _("%s to %s"),_("German"),_("English"))) .
- translate_lang_opt('de_DE', '', 'de|fr',
- sprintf( _("%s to %s"),_("German"),_("French"))) .
- translate_lang_opt('es_ES', '', 'es|en',
- sprintf( _("%s to %s"),_("Spanish"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr|en',
- sprintf( _("%s to %s"),_("French"),_("English"))) .
- translate_lang_opt('fr_FR', '', 'fr|de',
- sprintf( _("%s to %s"),_("French"),_("German"))) .
- translate_lang_opt('it_IT', '', 'it|en',
- sprintf( _("%s to %s"),_("Italian"),_("English"))) .
- translate_lang_opt('pt*', '', 'pt|en',
- sprintf( _("%s to %s"),_("Portuguese"),_("English")));
- echo '</select>'.
- 'Google: <input type="submit" value="' . _("Translate") . '" />';
-
- translate_table_end();
-}
-
?>
\ No newline at end of file
projects / squirrelmail.git / commitdiff