- ** i18n.php
- **
- ** This file contains variuos functions that are needed to do
- ** internationalization of SquirrelMail.
- **
- ** Internally the output character set is used. Other characters are
- ** encoded using Unicode entities according to HTML 4.0.
- **
- **/
-
- $i18n_php = true;
-
- // This array specifies the available languages.
- $languages["en"]["NAME"] = "English";
- $languages["en"]["CHARSET"] = "iso-8859-1";
- $languages["no"]["NAME"] = "Norwegian (Bokmål)";
- $languages["no"]["CHARSET"] = "iso-8859-1";
- $languages["no_NO_ny"]["NAME"] = "Norwegian (Nynorsk)";
- $languages["no_NO_ny"]["CHARSET"] = "iso-8859-1";
- $languages["de"]["NAME"] = "Deutsch";
- $languages["de"]["CHARSET"] = "iso-8859-1";
- $languages["ru"]["NAME"] = "Russian KOI8-R";
- $languages["ru"]["CHARSET"] = "koi8-r";
- $languages["pl"]["NAME"] = "Polish";
- $languages["pl"]["CHARSET"] = "iso-8859-2";
- $languages["sv"]["NAME"] = "Swedish";
- $languages["sv"]["CHARSET"] = "iso-8859-1";
- $languages["nl"]["NAME"] = "Dutch";
- $languages["nl"]["CHARSET"] = "iso-8859-1";
- $languages["pt_BR"]["NAME"] = "Portuguese (Brazil)";
- $languages["pt_BR"]["CHARSET"] = "iso-8859-1";
- $languages["fr"]["NAME"] = "French";
- $languages["fr"]["CHARSET"] = "iso-8859-1";
- $languages["it"]["NAME"] = "Italian";
- $languages["it"]["CHARSET"] = "iso-8859-1";
- $languages["cs"]["NAME"] = "Czech";
- $languages["cs"]["CHARSET"] = "iso-8859-2";
- $languages["es"]["NAME"] = "Spanish";
- $languages["es"]["CHARSET"] = "iso-8859-1";
- $languages["ko"]["NAME"] = "Korean";
- $languages["ko"]["CHARSET"] = "euc-KR";
- $languages["ca"]["NAME"] = "Catalan";
- $languages["ca"]["CHARSET"] = "iso-8859-1";
- $languages["sr"]["NAME"] = "Serbian";
- $languages["sr"]["CHARSET"] = "iso-8859-2";
-
- // Decodes a string to the internal encoding from the given charset
- function charset_decode ($charset, $string) {
- global $debug_mime;
-
- // All HTML special characters are 7 bit and can be replaced first
- $string = htmlspecialchars ($string);
-
- $charset = strtolower($charset);
-
- if ($debug_mime) $string = $charset.":".$string;
-
- if (ereg("iso-8859-([[:digit:]]+)", $charset, $res)) {
- if ($res[1] == "1")
- return charset_decode_iso_8859_1 ($string);
- else if ($res[1] == "2")
- return charset_decode_iso_8859_2 ($string);
- else if ($res[1] == "7")
- return charset_decode_iso_8859_7 ($string);
- else if ($res[1] == "15")
- return charset_decode_iso_8859_15 ($string);
- else
- return charset_decode_iso_8859_default ($string);
- } else if ($charset == "ns_4551-1") {
- return charset_decode_ns_4551_1 ($string);
- } else if ($charset == "koi8-r") {
- return charset_decode_koi8r ($string);
- } else
- return "$string";
- }
-
- // iso-8859-1 is the same as Latin 1 and is normally used
- // in western europe.
- function charset_decode_iso_8859_1 ($string) {
- global $default_charset;
-
- if (strtolower($default_charset) == "iso-8859-1") {
- return $string;
- } else {
- // Only do the slow convert if there are 8-bit characters
- if (ereg("[\200-\377]", $string)) {
- $string = str_replace("\201", "", $string);
- $string = str_replace("\202", "‚", $string);
- $string = str_replace("\203", "ƒ", $string);
- $string = str_replace("\204", "„", $string);
- $string = str_replace("\205", "…", $string);
- $string = str_replace("\206", "†", $string);
- $string = str_replace("\207", "‡", $string);
- $string = str_replace("\210", "ˆ", $string);
- $string = str_replace("\211", "‰", $string);
- $string = str_replace("\212", "Š", $string);
- $string = str_replace("\213", "‹", $string);
- $string = str_replace("\214", "Œ", $string);
- $string = str_replace("\215", "", $string);
- $string = str_replace("\216", "Ž", $string);
- $string = str_replace("\217", "", $string);
- $string = str_replace("\220", "", $string);
- $string = str_replace("\221", "‘", $string);
- $string = str_replace("\222", "’", $string);
- $string = str_replace("\223", "“", $string);
- $string = str_replace("\224", "”", $string);
- $string = str_replace("\225", "•", $string);
- $string = str_replace("\226", "–", $string);
- $string = str_replace("\227", "—", $string);
- $string = str_replace("\230", "˜", $string);
- $string = str_replace("\231", "™", $string);
- $string = str_replace("\232", "š", $string);
- $string = str_replace("\233", "›", $string);
- $string = str_replace("\234", "œ", $string);
- $string = str_replace("\235", "", $string);
- $string = str_replace("\236", "ž", $string);
- $string = str_replace("\237", "Ÿ", $string);
- $string = str_replace("\240", " ", $string);
- $string = str_replace("\241", "¡", $string);
- $string = str_replace("\242", "¢", $string);
- $string = str_replace("\243", "£", $string);
- $string = str_replace("\244", "¤", $string);
- $string = str_replace("\245", "¥", $string);
- $string = str_replace("\246", "¦", $string);
- $string = str_replace("\247", "§", $string);
- $string = str_replace("\250", "¨", $string);
- $string = str_replace("\251", "©", $string);
- $string = str_replace("\252", "ª", $string);
- $string = str_replace("\253", "«", $string);
- $string = str_replace("\254", "¬", $string);
- $string = str_replace("\255", "­", $string);
- $string = str_replace("\256", "®", $string);
- $string = str_replace("\257", "¯", $string);
- $string = str_replace("\260", "°", $string);
- $string = str_replace("\261", "±", $string);
- $string = str_replace("\262", "²", $string);
- $string = str_replace("\263", "³", $string);
- $string = str_replace("\264", "´", $string);
- $string = str_replace("\265", "µ", $string);
- $string = str_replace("\266", "¶", $string);
- $string = str_replace("\267", "·", $string);
- $string = str_replace("\270", "¸", $string);
- $string = str_replace("\271", "¹", $string);
- $string = str_replace("\272", "º", $string);
- $string = str_replace("\273", "»", $string);
- $string = str_replace("\274", "¼", $string);
- $string = str_replace("\275", "½", $string);
- $string = str_replace("\276", "¾", $string);
- $string = str_replace("\277", "¿", $string);
- $string = str_replace("\300", "À", $string);
- $string = str_replace("\301", "Á", $string);
- $string = str_replace("\302", "Â", $string);
- $string = str_replace("\303", "Ã", $string);
- $string = str_replace("\304", "Ä", $string);
- $string = str_replace("\305", "Å", $string);
- $string = str_replace("\306", "Æ", $string);
- $string = str_replace("\307", "Ç", $string);
- $string = str_replace("\310", "È", $string);
- $string = str_replace("\311", "É", $string);
- $string = str_replace("\312", "Ê", $string);
- $string = str_replace("\313", "Ë", $string);
- $string = str_replace("\314", "Ì", $string);
- $string = str_replace("\315", "Í", $string);
- $string = str_replace("\316", "Î", $string);
- $string = str_replace("\317", "Ï", $string);
- $string = str_replace("\320", "Ð", $string);
- $string = str_replace("\321", "Ñ", $string);
- $string = str_replace("\322", "Ò", $string);
- $string = str_replace("\323", "Ó", $string);
- $string = str_replace("\324", "Ô", $string);
- $string = str_replace("\325", "Õ", $string);
- $string = str_replace("\326", "Ö", $string);
- $string = str_replace("\327", "×", $string);
- $string = str_replace("\330", "Ø", $string);
- $string = str_replace("\331", "Ù", $string);
- $string = str_replace("\332", "Ú", $string);
- $string = str_replace("\333", "Û", $string);
- $string = str_replace("\334", "Ü", $string);
- $string = str_replace("\335", "Ý", $string);
- $string = str_replace("\336", "Þ", $string);
- $string = str_replace("\337", "ß", $string);
- $string = str_replace("\340", "à", $string);
- $string = str_replace("\341", "á", $string);
- $string = str_replace("\342", "â", $string);
- $string = str_replace("\343", "ã", $string);
- $string = str_replace("\344", "ä", $string);
- $string = str_replace("\345", "å", $string);
- $string = str_replace("\346", "æ", $string);
- $string = str_replace("\347", "ç", $string);
- $string = str_replace("\350", "è", $string);
- $string = str_replace("\351", "é", $string);
- $string = str_replace("\352", "ê", $string);
- $string = str_replace("\353", "ë", $string);
- $string = str_replace("\354", "ì", $string);
- $string = str_replace("\355", "í", $string);
- $string = str_replace("\356", "î", $string);
- $string = str_replace("\357", "ï", $string);
- $string = str_replace("\360", "ð", $string);
- $string = str_replace("\361", "ñ", $string);
- $string = str_replace("\362", "ò", $string);
- $string = str_replace("\363", "ó", $string);
- $string = str_replace("\364", "ô", $string);
- $string = str_replace("\365", "õ", $string);
- $string = str_replace("\366", "ö", $string);
- $string = str_replace("\367", "÷", $string);
- $string = str_replace("\370", "ø", $string);
- $string = str_replace("\371", "ù", $string);
- $string = str_replace("\372", "ú", $string);
- $string = str_replace("\373", "û", $string);
- $string = str_replace("\374", "ü", $string);
- $string = str_replace("\375", "ý", $string);
- $string = str_replace("\376", "þ", $string);
- $string = str_replace("\377", "ÿ", $string);
- }
- }
-
- return ($string);
- }
-
- // iso-8859-2 is used for some eastern European languages
- function charset_decode_iso_8859_2 ($string) {
- global $default_charset;
-
- if (strtolower($default_charset) == "iso-8859-2") {
- return $string;
- } else {
- // Only do the slow convert if there are 8-bit characters
- if (ereg("[\200-\377]", $string)) {
- // NO-BREAK SPACE
- $string = str_replace("\240", " ", $string);
- // LATIN CAPITAL LETTER A WITH OGONEK
- $string = str_replace("\241", "Ą", $string);
- // BREVE
- $string = str_replace("\242", "˘", $string);
- // LATIN CAPITAL LETTER L WITH STROKE
- $string = str_replace("\243", "Ł", $string);
- // CURRENCY SIGN
- $string = str_replace("\244", "¤", $string);
- // LATIN CAPITAL LETTER L WITH CARON
- $string = str_replace("\245", "Ľ", $string);
- // LATIN CAPITAL LETTER S WITH ACUTE
- $string = str_replace("\246", "Ś", $string);
- // SECTION SIGN
- $string = str_replace("\247", "§", $string);
- // DIAERESIS
- $string = str_replace("\250", "¨", $string);
- // LATIN CAPITAL LETTER S WITH CARON
- $string = str_replace("\251", "Š", $string);
- // LATIN CAPITAL LETTER S WITH CEDILLA
- $string = str_replace("\252", "Ş", $string);
- // LATIN CAPITAL LETTER T WITH CARON
- $string = str_replace("\253", "Ť", $string);
- // LATIN CAPITAL LETTER Z WITH ACUTE
- $string = str_replace("\254", "Ź", $string);
- // SOFT HYPHEN
- $string = str_replace("\255", "­", $string);
- // LATIN CAPITAL LETTER Z WITH CARON
- $string = str_replace("\256", "Ž", $string);
- // LATIN CAPITAL LETTER Z WITH DOT ABOVE
- $string = str_replace("\257", "Ż", $string);
- // DEGREE SIGN
- $string = str_replace("\260", "°", $string);
- // LATIN SMALL LETTER A WITH OGONEK
- $string = str_replace("\261", "ą", $string);
- // OGONEK
- $string = str_replace("\262", "˛", $string);
- // LATIN SMALL LETTER L WITH STROKE
- $string = str_replace("\263", "ł", $string);
- // ACUTE ACCENT
- $string = str_replace("\264", "´", $string);
- // LATIN SMALL LETTER L WITH CARON
- $string = str_replace("\265", "ľ", $string);
- // LATIN SMALL LETTER S WITH ACUTE
- $string = str_replace("\266", "ś", $string);
- // CARON
- $string = str_replace("\267", "ˇ", $string);
- // CEDILLA
- $string = str_replace("\270", "¸", $string);
- // LATIN SMALL LETTER S WITH CARON
- $string = str_replace("\271", "š", $string);
- // LATIN SMALL LETTER S WITH CEDILLA
- $string = str_replace("\272", "ş", $string);
- // LATIN SMALL LETTER T WITH CARON
- $string = str_replace("\273", "ť", $string);
- // LATIN SMALL LETTER Z WITH ACUTE
- $string = str_replace("\274", "ź", $string);
- // DOUBLE ACUTE ACCENT
- $string = str_replace("\275", "˝", $string);
- // LATIN SMALL LETTER Z WITH CARON
- $string = str_replace("\276", "ž", $string);
- // LATIN SMALL LETTER Z WITH DOT ABOVE
- $string = str_replace("\277", "ż", $string);
- // LATIN CAPITAL LETTER R WITH ACUTE
- $string = str_replace("\300", "Ŕ", $string);
- // LATIN CAPITAL LETTER A WITH ACUTE
- $string = str_replace("\301", "Á", $string);
- // LATIN CAPITAL LETTER A WITH CIRCUMFLEX
- $string = str_replace("\302", "Â", $string);
- // LATIN CAPITAL LETTER A WITH BREVE
- $string = str_replace("\303", "Ă", $string);
- // LATIN CAPITAL LETTER A WITH DIAERESIS
- $string = str_replace("\304", "Ä", $string);
- // LATIN CAPITAL LETTER L WITH ACUTE
- $string = str_replace("\305", "Ĺ", $string);
- // LATIN CAPITAL LETTER C WITH ACUTE
- $string = str_replace("\306", "Ć", $string);
- // LATIN CAPITAL LETTER C WITH CEDILLA
- $string = str_replace("\307", "Ç", $string);
- // LATIN CAPITAL LETTER C WITH CARON
- $string = str_replace("\310", "Č", $string);
- // LATIN CAPITAL LETTER E WITH ACUTE
- $string = str_replace("\311", "É", $string);
- // LATIN CAPITAL LETTER E WITH OGONEK
- $string = str_replace("\312", "Ę", $string);
- // LATIN CAPITAL LETTER E WITH DIAERESIS
- $string = str_replace("\313", "Ë", $string);
- // LATIN CAPITAL LETTER E WITH CARON
- $string = str_replace("\314", "Ě", $string);
- // LATIN CAPITAL LETTER I WITH ACUTE
- $string = str_replace("\315", "Í", $string);
- // LATIN CAPITAL LETTER I WITH CIRCUMFLEX
- $string = str_replace("\316", "Î", $string);
- // LATIN CAPITAL LETTER D WITH CARON
- $string = str_replace("\317", "Ď", $string);
- // LATIN CAPITAL LETTER D WITH STROKE
- $string = str_replace("\320", "Đ", $string);
- // LATIN CAPITAL LETTER N WITH ACUTE
- $string = str_replace("\321", "Ń", $string);
- // LATIN CAPITAL LETTER N WITH CARON
- $string = str_replace("\322", "Ň", $string);
- // LATIN CAPITAL LETTER O WITH ACUTE
- $string = str_replace("\323", "Ó", $string);
- // LATIN CAPITAL LETTER O WITH CIRCUMFLEX
- $string = str_replace("\324", "Ô", $string);
- // LATIN CAPITAL LETTER O WITH DOUBLE ACUTE
- $string = str_replace("\325", "Ő", $string);
- // LATIN CAPITAL LETTER O WITH DIAERESIS
- $string = str_replace("\326", "Ö", $string);
- // MULTIPLICATION SIGN
- $string = str_replace("\327", "×", $string);
- // LATIN CAPITAL LETTER R WITH CARON
- $string = str_replace("\330", "Ř", $string);
- // LATIN CAPITAL LETTER U WITH RING ABOVE
- $string = str_replace("\331", "Ů", $string);
- // LATIN CAPITAL LETTER U WITH ACUTE
- $string = str_replace("\332", "Ú", $string);
- // LATIN CAPITAL LETTER U WITH DOUBLE ACUTE
- $string = str_replace("\333", "Ű", $string);
- // LATIN CAPITAL LETTER U WITH DIAERESIS
- $string = str_replace("\334", "Ü", $string);
- // LATIN CAPITAL LETTER Y WITH ACUTE
- $string = str_replace("\335", "Ý", $string);
- // LATIN CAPITAL LETTER T WITH CEDILLA
- $string = str_replace("\336", "Ţ", $string);
- // LATIN SMALL LETTER SHARP S
- $string = str_replace("\337", "ß", $string);
- // LATIN SMALL LETTER R WITH ACUTE
- $string = str_replace("\340", "ŕ", $string);
- // LATIN SMALL LETTER A WITH ACUTE
- $string = str_replace("\341", "á", $string);
- // LATIN SMALL LETTER A WITH CIRCUMFLEX
- $string = str_replace("\342", "â", $string);
- // LATIN SMALL LETTER A WITH BREVE
- $string = str_replace("\343", "ă", $string);
- // LATIN SMALL LETTER A WITH DIAERESIS
- $string = str_replace("\344", "ä", $string);
- // LATIN SMALL LETTER L WITH ACUTE
- $string = str_replace("\345", "ĺ", $string);
- // LATIN SMALL LETTER C WITH ACUTE
- $string = str_replace("\346", "ć", $string);
- // LATIN SMALL LETTER C WITH CEDILLA
- $string = str_replace("\347", "ç", $string);
- // LATIN SMALL LETTER C WITH CARON
- $string = str_replace("\350", "č", $string);
- // LATIN SMALL LETTER E WITH ACUTE
- $string = str_replace("\351", "é", $string);
- // LATIN SMALL LETTER E WITH OGONEK
- $string = str_replace("\352", "ę", $string);
- // LATIN SMALL LETTER E WITH DIAERESIS
- $string = str_replace("\353", "ë", $string);
- // LATIN SMALL LETTER E WITH CARON
- $string = str_replace("\354", "ě", $string);
- // LATIN SMALL LETTER I WITH ACUTE
- $string = str_replace("\355", "í", $string);
- // LATIN SMALL LETTER I WITH CIRCUMFLEX
- $string = str_replace("\356", "î", $string);
- // LATIN SMALL LETTER D WITH CARON
- $string = str_replace("\357", "ď", $string);
- // LATIN SMALL LETTER D WITH STROKE
- $string = str_replace("\360", "đ", $string);
- // LATIN SMALL LETTER N WITH ACUTE
- $string = str_replace("\361", "ń", $string);
- // LATIN SMALL LETTER N WITH CARON
- $string = str_replace("\362", "ň", $string);
- // LATIN SMALL LETTER O WITH ACUTE
- $string = str_replace("\363", "ó", $string);
- // LATIN SMALL LETTER O WITH CIRCUMFLEX
- $string = str_replace("\364", "ô", $string);
- // LATIN SMALL LETTER O WITH DOUBLE ACUTE
- $string = str_replace("\365", "ő", $string);
- // LATIN SMALL LETTER O WITH DIAERESIS
- $string = str_replace("\366", "ö", $string);
- // DIVISION SIGN
- $string = str_replace("\367", "÷", $string);
- // LATIN SMALL LETTER R WITH CARON
- $string = str_replace("\370", "ř", $string);
- // LATIN SMALL LETTER U WITH RING ABOVE
- $string = str_replace("\371", "ů", $string);
- // LATIN SMALL LETTER U WITH ACUTE
- $string = str_replace("\372", "ú", $string);
- // LATIN SMALL LETTER U WITH DOUBLE ACUTE
- $string = str_replace("\373", "ű", $string);
- // LATIN SMALL LETTER U WITH DIAERESIS
- $string = str_replace("\374", "ü", $string);
- // LATIN SMALL LETTER Y WITH ACUTE
- $string = str_replace("\375", "ý", $string);
- // LATIN SMALL LETTER T WITH CEDILLA
- $string = str_replace("\376", "ţ", $string);
- // DOT ABOVE
- $string = str_replace("\377", "˙", $string);
- }
- }
- return $string;
- }
-
- // iso-8859-7 is Greek.
- function charset_decode_iso_8859_7 ($string) {
- global $default_charset;
-
- if (strtolower($default_charset) == "iso-8859-7") {
- return $string;
- } else {
- // Only do the slow convert if there are 8-bit characters
- if (ereg("[\200-\377]", $string)) {
- // Some diverse characters in the beginning
- $string = str_replace("\240", " ", $string);
- $string = str_replace("\241", "‘", $string);
- $string = str_replace("\242", "’", $string);
- $string = str_replace("\243", "£", $string);
- $string = str_replace("\246", "¦", $string);
- $string = str_replace("\247", "§", $string);
- $string = str_replace("\250", "¨", $string);
- $string = str_replace("\251", "©", $string);
- $string = str_replace("\253", "«", $string);
- $string = str_replace("\254", "¬", $string);
- $string = str_replace("\255", "­", $string);
- $string = str_replace("\257", "―", $string);
- $string = str_replace("\260", "°", $string);
- $string = str_replace("\261", "±", $string);
- $string = str_replace("\262", "²", $string);
- $string = str_replace("\263", "³", $string);
-
- // Horizontal bar (parentheki pavla)
- $string = str_replace ("\257", "―", $string);
-
- // ISO-8859-7 characters from 11/04 (0xB4) to 11/06 (0xB6)
- // These are Unicode 900-902
- while (ereg("([\264-\266])", $string, $res)) {
- $replace = "&#" . (ord($res[1])+720) . ";";
- $string = str_replace($res[1], $replace, $string);
+ * SquirrelMail internationalization functions
+ *
+ * This file contains variuos functions that are needed to do
+ * internationalization of SquirrelMail.
+ *
+ * Internally the output character set is used. Other characters are
+ * encoded using Unicode entities according to HTML 4.0.
+ *
+ * @copyright © 1999-2006 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
+ * @version $Id$
+ * @package squirrelmail
+ * @subpackage i18n
+ */
+
+/** @ignore */
+if (! defined('SM_PATH')) define('SM_PATH','../');
+
+/** Everything uses global.php... */
+require_once(SM_PATH . 'functions/global.php');
+
+/**
+ * Gettext bindtextdomain wrapper.
+ *
+ * Wrapper solves differences between php versions in order to provide
+ * ngettext support. Should be used if translation uses ngettext
+ * functions.
+ * @since 1.5.1
+ * @param string $domain gettext domain name
+ * @param string $dir directory that contains all translations
+ * @return string path to translation directory
+ */
+function sq_bindtextdomain($domain,$dir) {
+ global $l10n, $gettext_flags, $sm_notAlias;
+
+ if ($gettext_flags==7) {
+ // gettext extension without ngettext
+ if (substr($dir, -1) != '/') $dir .= '/';
+ $mofile=$dir . $sm_notAlias . '/LC_MESSAGES/' . $domain . '.mo';
+ $input = new FileReader($mofile);
+ $l10n[$domain] = new gettext_reader($input);
+ }
+
+ $dir=bindtextdomain($domain,$dir);
+
+ return $dir;
+}
+
+/**
+ * Gettext textdomain wrapper.
+ * Makes sure that gettext_domain global is modified.
+ * @since 1.5.1
+ * @param string $name gettext domain name
+ * @return string gettext domain name
+ */
+function sq_textdomain($domain) {
+ global $gettext_domain;
+ $gettext_domain=textdomain($domain);
+ return $gettext_domain;
+}
+
+/**
+ * php setlocale function wrapper
+ *
+ * From php 4.3.0 it is possible to use arrays in order to set locale.
+ * php gettext extension works only when locale is set. This wrapper
+ * function allows to use more than one locale name.
+ *
+ * @param int $category locale category name. Use php named constants
+ * (LC_ALL, LC_COLLATE, LC_CTYPE, LC_MONETARY, LC_NUMERIC, LC_TIME)
+ * @param mixed $locale option contains array with possible locales or string with one locale
+ * @return string name of set locale or false, if all locales fail.
+ * @since 1.5.1 and 1.4.5
+ * @see http://www.php.net/setlocale
+ */
+function sq_setlocale($category,$locale) {
+ // string with only one locale
+ if (is_string($locale))
+ return setlocale($category,$locale);
+
+ if (! check_php_version(4,3)) {
+ $ret=false;
+ $index=0;
+ while ( ! $ret && $index<count($locale)) {
+ $ret=setlocale($category,$locale[$index]);
+ $index++;
+ }
+ } else {
+ // php 4.3.0 or better, use entire array
+ $ret=setlocale($category,$locale);
+ }
+ return $ret;
+}
+
+/**
+ * Converts string from given charset to charset, that can be displayed by user translation.
+ *
+ * Function by default returns html encoded strings, if translation uses different encoding.
+ * If Japanese translation is used - function returns string converted to euc-jp
+ * If iconv or recode functions are enabled and translation uses utf-8 - function returns utf-8 encoded string.
+ * If $charset is not supported - function returns unconverted string.
+ *
+ * sanitizing of html tags is also done by this function.
+ *
+ * @param string $charset
+ * @param string $string Text to be decoded
+ * @param boolean $force_decode converts string to html without $charset!=$default_charset check.
+ * Argument is available since 1.5.1 and 1.4.5.
+ * @param boolean $save_html disables htmlspecialchars() in order to preserve
+ * html formating. Use with care. Available since 1.5.1
+ * @return string decoded string
+ */
+function charset_decode ($charset, $string, $force_decode=false, $save_html=false) {
+ global $languages, $squirrelmail_language, $default_charset;
+ global $use_php_recode, $use_php_iconv, $aggressive_decoding;
+
+ if (isset($languages[$squirrelmail_language]['XTRA_CODE']) &&
+ function_exists($languages[$squirrelmail_language]['XTRA_CODE'] . '_decode')) {
+ $string = call_user_func($languages[$squirrelmail_language]['XTRA_CODE'] . '_decode', $string);
+ }
+
+ $charset = strtolower($charset);
+
+ set_my_charset();
+
+ // Variables that allow to use functions without function_exist() calls
+ if (! isset($use_php_recode) || $use_php_recode=="" ) {
+ $use_php_recode=false; }
+ if (! isset($use_php_iconv) || $use_php_iconv=="" ) {
+ $use_php_iconv=false; }
+
+ // Don't do conversion if charset is the same.
+ if ( ! $force_decode && $charset == strtolower($default_charset) )
+ return ($save_html ? $string : htmlspecialchars($string));
+
+ // catch iso-8859-8-i thing
+ if ( $charset == "iso-8859-8-i" )
+ $charset = "iso-8859-8";
+
+ /*
+ * Recode converts html special characters automatically if you use
+ * 'charset..html' decoding. There is no documented way to put -d option
+ * into php recode function call.
+ */
+ if ( $use_php_recode ) {
+ if ( $default_charset == "utf-8" ) {
+ // other charsets can be converted to utf-8 without loss.
+ // and output string is smaller
+ $string = recode_string($charset . "..utf-8",$string);
+ return ($save_html ? $string : htmlspecialchars($string));
+ } else {
+ $string = recode_string($charset . "..html",$string);
+ // recode does not convert single quote, htmlspecialchars does.
+ $string = str_replace("'", ''', $string);
+ // undo html specialchars
+ if ($save_html)
+ $string=str_replace(array('&','"','<','>'),
+ array('&','"','<','>'),$string);
+ return $string;
+ }
+ }
+
+ // iconv functions does not have html target and can be used only with utf-8
+ if ( $use_php_iconv && $default_charset=='utf-8') {
+ $string = iconv($charset,$default_charset,$string);
+ return ($save_html ? $string : htmlspecialchars($string));
+ }
+
+ // If we don't use recode and iconv, we'll do it old way.
+
+ /* All HTML special characters are 7 bit and can be replaced first */
+ if (! $save_html) $string = htmlspecialchars ($string);
+
+ /* controls cpu and memory intensive decoding cycles */
+ if (! isset($aggressive_decoding) || $aggressive_decoding=="" ) {
+ $aggressive_decoding=false; }
+
+ $decode=fixcharset($charset);
+ $decodefile=SM_PATH . 'functions/decode/' . $decode . '.php';
+ if (file_exists($decodefile)) {
+ include_once($decodefile);
+ // send $save_html argument to decoding function. needed for iso-2022-xx decoding.
+ $ret = call_user_func('charset_decode_'.$decode, $string, $save_html);
+ } else {
+ $ret = $string;
+ }
+ return( $ret );
+}
+
+/**
+ * Converts html string to given charset
+ * @since 1.5.1 and 1.4.4
+ * @param string $string
+ * @param string $charset
+ * @param boolean $htmlencode keep htmlspecialchars encoding
+ * @param string
+ */
+function charset_encode($string,$charset,$htmlencode=true) {
+ global $default_charset;
+
+ $encode=fixcharset($charset);
+ $encodefile=SM_PATH . 'functions/encode/' . $encode . '.php';
+ if (file_exists($encodefile)) {
+ include_once($encodefile);
+ $ret = call_user_func('charset_encode_'.$encode, $string);
+ } elseif(file_exists(SM_PATH . 'functions/encode/us_ascii.php')) {
+ // function replaces all 8bit html entities with question marks.
+ // it is used when other encoding functions are unavailable
+ include_once(SM_PATH . 'functions/encode/us_ascii.php');
+ $ret = charset_encode_us_ascii($string);
+ } else {
+ /**
+ * fix for yahoo users that remove all us-ascii related things
+ */
+ $ret = $string;
+ }
+
+ /**
+ * Undo html special chars, some places (like compose form) have
+ * own sanitizing functions and don't need html symbols.
+ * Undo chars only after encoding in order to prevent conversion of
+ * html entities in plain text emails.
+ */
+ if (! $htmlencode ) {
+ $ret = str_replace(array('&','>','<','"'),array('&','>','<','"'),$ret);
+ }
+ return( $ret );
+}
+
+/**
+ * Combined decoding and encoding functions
+ *
+ * If conversion is done to charset different that utf-8, unsupported symbols
+ * will be replaced with question marks.
+ * @since 1.5.1 and 1.4.4
+ * @param string $in_charset initial charset
+ * @param string $string string that has to be converted
+ * @param string $out_charset final charset
+ * @param boolean $htmlencode keep htmlspecialchars encoding
+ * @return string converted string
+ */
+function charset_convert($in_charset,$string,$out_charset,$htmlencode=true) {
+ $string=charset_decode($in_charset,$string,true);
+ $string=charset_encode($string,$out_charset,$htmlencode);
+ return $string;
+}
+
+/**
+ * Makes charset name suitable for decoding cycles
+ *
+ * @since 1.5.0 and 1.4.4
+ * @param string $charset Name of charset
+ * @return string $charset Adjusted name of charset
+ */
+function fixcharset($charset) {
+ /* remove minus and characters that might be used in paths from charset
+ * name in order to be able to use it in function names and include calls.
+ */
+ $charset=preg_replace("/[-:.\/\\\]/",'_',$charset);
+
+ // OE ks_c_5601_1987 > cp949
+ $charset=str_replace('ks_c_5601_1987','cp949',$charset);
+ // Moz x-euc-tw > euc-tw
+ $charset=str_replace('x_euc','euc',$charset);
+ // Moz x-windows-949 > cp949
+ $charset=str_replace('x_windows_','cp',$charset);
+
+ // windows-125x and cp125x charsets
+ $charset=str_replace('windows_','cp',$charset);
+
+ // ibm > cp
+ $charset=str_replace('ibm','cp',$charset);
+
+ // iso-8859-8-i -> iso-8859-8
+ // use same cycle until I'll find differences
+ $charset=str_replace('iso_8859_8_i','iso_8859_8',$charset);
+
+ return $charset;
+}
+
+/**
+ * Set up the language to be output
+ * if $do_search is true, then scan the browser information
+ * for a possible language that we know
+ *
+ * Function sets system locale environment (LC_ALL, LANG, LANGUAGE),
+ * gettext translation bindings and html header information.
+ *
+ * Function returns error codes, if there is some fatal error.
+ * 0 = no error,
+ * 1 = mbstring support is not present,
+ * 2 = mbstring support is not present, user's translation reverted to en_US.
+ *
+ * @param string $sm_language translation used by user's interface
+ * @param bool $do_search use browser's preferred language detection functions. Defaults to false.
+ * @param bool $default set $sm_language to $squirrelmail_default_language if language detection fails or language is not set. Defaults to false.
+ * @return int function execution error codes.
+ */
+function set_up_language($sm_language, $do_search = false, $default = false) {
+
+ static $SetupAlready = 0;
+ global $use_gettext, $languages,
+ $squirrelmail_language, $squirrelmail_default_language, $default_charset,
+ $sm_notAlias, $username, $data_dir;
+
+ if ($SetupAlready) {
+ return;
+ }
+
+ $SetupAlready = TRUE;
+ sqgetGlobalVar('HTTP_ACCEPT_LANGUAGE', $accept_lang, SQ_SERVER);
+
+ /**
+ * If function is asked to detect preferred language
+ * OR squirrelmail default language is set to empty string
+ * AND
+ * squirrelmail language ($sm_language) is empty string
+ * (not set in user's prefs and no cookie with language info)
+ * AND
+ * browser provides list of preferred languages
+ * THEN
+ * get preferred language from HTTP_ACCEPT_LANGUAGE header
+ */
+ if (($do_search || empty($squirrelmail_default_language)) &&
+ ! $sm_language &&
+ isset($accept_lang)) {
+ // TODO: use more than one language, if first language is not available
+ // FIXME: function assumes that string contains two or more characters.
+ // FIXME: some languages use 5 chars
+ $sm_language = substr($accept_lang, 0, 2);
+ }
+
+ /**
+ * If language preference is not set OR script asks to use default language
+ * AND
+ * default squirrelmail language is not set to empty string
+ * THEN
+ * use default squirrelmail language value from configuration.
+ */
+ if ((!$sm_language||$default) &&
+ ! empty($squirrelmail_default_language)) {
+ $squirrelmail_language = $squirrelmail_default_language;
+ $sm_language = $squirrelmail_default_language;
+ }
+
+ /** provide failsafe language when detection fails */
+ if (! $sm_language) $sm_language='en_US';
+
+ $sm_notAlias = $sm_language;
+
+ // Catching removed translation
+ // System reverts to English translation if user prefs contain translation
+ // that is not available in $languages array
+ if (!isset($languages[$sm_notAlias])) {
+ $sm_notAlias="en_US";
+ }
+
+ while (isset($languages[$sm_notAlias]['ALIAS'])) {
+ $sm_notAlias = $languages[$sm_notAlias]['ALIAS'];
+ }
+
+ if ( isset($sm_language) &&
+ $use_gettext &&
+ $sm_language != '' &&
+ isset($languages[$sm_notAlias]['CHARSET']) ) {
+ sq_bindtextdomain( 'squirrelmail', SM_PATH . 'locale/' );
+ sq_textdomain( 'squirrelmail' );
+
+ // set codeset in order to avoid gettext charset conversions
+ if (function_exists('bind_textdomain_codeset')) {
+ // Japanese translation uses different internal charset
+ if ($sm_notAlias == 'ja_JP') {
+ bind_textdomain_codeset ('squirrelmail', 'EUC-JP');
+ } else {
+ bind_textdomain_codeset ('squirrelmail', $languages[$sm_notAlias]['CHARSET'] );