dumping translate plugin changes into cvs.
authortokul <tokul@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Fri, 15 Oct 2004 10:59:14 +0000 (10:59 +0000)
committertokul <tokul@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Fri, 15 Oct 2004 10:59:14 +0000 (10:59 +0000)
* moved all functions to functions.php
* added site configuration options
* added custom translation engine options
translation engines still need some updates that will be added later

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@8185 7612ce4b-ef26-0410-bec9-ea0150e637f0

plugins/translate/README
plugins/translate/config_default.php [new file with mode: 0644]
plugins/translate/functions.php [new file with mode: 0644]
plugins/translate/index.php
plugins/translate/options.php
plugins/translate/setup.php

index 0fc6e7c..fc27157 100644 (file)
@@ -58,6 +58,7 @@ Questions/comments/flames/etc can be sent to the Squirrelmail Plugins list
 
 Changes
 =======
+  * Plugin included into squirrelmail distribution
 1.3 -> 1.4
   * Modified to use new option page hook.
     Paul Joseph Thompson <captbunzo@squirrelmail.org>
diff --git a/plugins/translate/config_default.php b/plugins/translate/config_default.php
new file mode 100644 (file)
index 0000000..97edc21
--- /dev/null
@@ -0,0 +1,95 @@
+<?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
diff --git a/plugins/translate/functions.php b/plugins/translate/functions.php
new file mode 100644 (file)
index 0000000..2c3a96b
--- /dev/null
@@ -0,0 +1,827 @@
+<?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[' '] = '&nbsp;';
+    $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
index 4e27ca0..9befff8 100644 (file)
@@ -1,19 +1,16 @@
 <?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();
 ?>
index f8e2c53..faaff93 100644 (file)
@@ -1,5 +1,4 @@
 <?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';
@@ -72,41 +69,13 @@ if ($translate_location == '') {
 $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";
     }?>
 
@@ -114,37 +83,7 @@ function ShowTrad( $tit, $com, $url ) {
 
    <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>
@@ -156,34 +95,25 @@ function ShowTrad( $tit, $com, $url ) {
              _("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"';
index 7ba5dd8..072a19b 100644 (file)
@@ -2,6 +2,11 @@
 /**
  * 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
@@ -29,657 +34,44 @@ function squirrelmail_plugin_init_translate() {
   $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[' '] = '&nbsp;';
-    $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