X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=functions%2Fi18n.php;h=31363c16c477b5ac4aa38446bdf2f8c694f62d31;hp=a0fab905fbb2f54951277eaf1f8b2f9888746f11;hb=b85a457521c8bdee1eaf611015eeb661b3310c6f;hpb=cc3326ef4417c0e37e9690c4568b6a3ae61fdc44 diff --git a/functions/i18n.php b/functions/i18n.php index a0fab905..31363c16 100644 --- a/functions/i18n.php +++ b/functions/i18n.php @@ -17,22 +17,29 @@ /* Decodes a string to the internal encoding from the given charset */ function charset_decode ($charset, $string) { - global $debug_mime; + global $languages, $squirrelmail_language; + + if (isset($languages[$squirrelmail_language]['XTRA_CODE']) && + function_exists($languages[$squirrelmail_language]['XTRA_CODE'])) { + $string = $languages[$squirrelmail_language]['XTRA_CODE']('decode', $string); + } /* 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') { $ret = charset_decode_iso_8859_1 ($string); } else if ($res[1] == '2') { $ret = charset_decode_iso_8859_2 ($string); + } else if ($res[1] == '4') { + $ret = charset_decode_iso_8859_4 ($string); } else if ($res[1] == '7') { $ret = charset_decode_iso_8859_7 ($string); + } else if ($res[1] == '13') { + $ret = charset_decode_iso_8859_13 ($string); } else if ($res[1] == '15') { $ret = charset_decode_iso_8859_15 ($string); } else { @@ -400,6 +407,53 @@ function charset_decode_iso_8859_2 ($string) { return $string; } +/* + iso-8859-4 is Baltic codeset used in some email clients + instead of iso-8859-13 in Lithuania + only Lithuanian charactes are added. +*/ + +function charset_decode_iso_8859_4 ($string) { + // latin capital a with ogonek + $string = str_replace ("\241", 'Ą', $string); + // latin capital c with caron + $string = str_replace ("\310", 'Č', $string); + // latin capital e with ogonek + $string = str_replace ("\312", 'Ę', $string); + // latin capital e with dot above + $string = str_replace ("\314", 'Ė', $string); + // latin capital i with ogonek + $string = str_replace ("\307", 'Į', $string); + // latin capital s with caron + $string = str_replace ("\251", 'Š', $string); + // latin capital u with ogonek + $string = str_replace ("\331", 'Ų', $string); + // latin capital u with macron + $string = str_replace ("\336", 'Ū', $string); + // latin capital z with caron + $string = str_replace ("\256", 'Ž', $string); + // latin small a with ogonek + $string = str_replace ("\261", 'ą', $string); + // latin small c with caron + $string = str_replace ("\350", 'č', $string); + // latin small e with ogonek + $string = str_replace ("\352", 'ę', $string); + // latin small e with dot above + $string = str_replace ("\354", 'ė', $string); + // latin small i with ogonek + $string = str_replace ("\347", 'į', $string); + // latin small s with caron + $string = str_replace ("\271", 'š', $string); + // latin small u with ogonek + $string = str_replace ("\371", 'ų', $string); + // latin small u with macron + $string = str_replace ("\376", 'ū', $string); + // latin small z with caron + $string = str_replace ("\276", 'ž', $string); + + return (charset_decode_iso_8859_1($string)); +} + /* iso-8859-7 is Greek. */ function charset_decode_iso_8859_7 ($string) { global $default_charset; @@ -438,11 +492,8 @@ function charset_decode_iso_8859_7 ($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); - } - + $string = preg_replace("/([\264-\266])/e","'&#' . (ord('\\1')+720);",$string); + /* 11/07 (0xB7) Middle dot is the same in iso-8859-1 */ $string = str_replace("\267", '·', $string); @@ -450,10 +501,7 @@ function charset_decode_iso_8859_7 ($string) { * ISO-8859-7 characters from 11/08 (0xB8) to 11/10 (0xBA) * These are Unicode 900-902 */ - while (ereg("([\270-\272])", $string, $res)) { - $replace = '&#' . (ord($res[1])+720) . ";"; - $string = str_replace($res[1], $replace, $string); - } + $string = preg_replace("/([\270-\272])/e","'&#' . (ord('\\1')+720);",$string); /* * 11/11 (0xBB) Right angle quotation mark is the same as in @@ -462,14 +510,57 @@ function charset_decode_iso_8859_7 ($string) { $string = str_replace("\273", '»', $string); /* And now the rest of the charset */ - while (ereg("([\274-\376])", $string, $res)) { - $replace = '&#' . (ord($res[1])+720) . ';'; - $string = str_replace($res[1], $replace, $string); - } + $string = preg_replace("/([\274-\376])/e","'&#'.(ord('\\1')+720);",$string); return $string; } +/* + iso-8859-13 codeset used in Lithuania + only Lithuanian charactes are added. +*/ + +function charset_decode_iso_8859_13 ($string) { + // latin capital a with ogonek + $string = str_replace ("\300", 'Ą', $string); + // latin capital c with caron + $string = str_replace ("\310", 'Č', $string); + // latin capital e with ogonek + $string = str_replace ("\306", 'Ę', $string); + // latin capital e with dot above + $string = str_replace ("\313", 'Ė', $string); + // latin capital i with ogonek + $string = str_replace ("\301", 'Į', $string); + // latin capital s with caron + $string = str_replace ("\320", 'Š', $string); + // latin capital u with ogonek + $string = str_replace ("\330", 'Ų', $string); + // latin capital u with macron + $string = str_replace ("\333", 'Ū', $string); + // latin capital z with caron + $string = str_replace ("\336", 'Ž', $string); + // latin small a with ogonek + $string = str_replace ("\340", 'ą', $string); + // latin small c with caron + $string = str_replace ("\350", 'č', $string); + // latin small e with ogonek + $string = str_replace ("\346", 'ę', $string); + // latin small e with dot above + $string = str_replace ("\353", 'ė', $string); + // latin small i with ogonek + $string = str_replace ("\341", 'į', $string); + // latin small s with caron + $string = str_replace ("\360", 'š', $string); + // latin small u with ogonek + $string = str_replace ("\370", 'ų', $string); + // latin small u with macron + $string = str_replace ("\373", 'ū', $string); + // latin small z with caron + $string = str_replace ("\376", 'ž', $string); + + return (charset_decode_iso_8859_1($string)); +} + /* * iso-8859-15 is Latin 9 and has very much the same use as Latin 1 * but has the Euro symbol and some characters needed for French. @@ -478,7 +569,7 @@ function charset_decode_iso_8859_15 ($string) { // Euro sign $string = str_replace ("\244", '€', $string); // Latin capital letter S with caron - $string = str_replace ("\244", 'Š', $string); + $string = str_replace ("\246", 'Š', $string); // Latin small letter s with caron $string = str_replace ("\250", 'š', $string); // Latin capital letter Z with caron @@ -495,7 +586,7 @@ function charset_decode_iso_8859_15 ($string) { return (charset_decode_iso_8859_1($string)); } -/* ISO-8859-15 is Cyrillic */ +/* ISO-8859-5 is Cyrillic */ function charset_decode_iso_8859_5 ($string) { // Convert to KOI8-R, then return this decoded. $string = convert_cyr_string($string, 'i', 'k'); @@ -685,6 +776,7 @@ function charset_decode_koi8r ($string) { return $string; } + /* * Set up the language to be output * if $do_search is true, then scan the browser information @@ -693,41 +785,54 @@ function charset_decode_koi8r ($string) { function set_up_language($sm_language, $do_search = false) { static $SetupAlready = 0; - global $HTTP_ACCEPT_LANGUAGE, $use_gettext, $languages, + global $use_gettext, $languages, $squirrelmail_language, $squirrelmail_default_language, $sm_notAlias; if ($SetupAlready) { return; } + $SetupAlready = TRUE; - $SetupAlready = 1; - - $charset_headers_sent = FALSE; - - if ($do_search && ! $sm_language && isset($HTTP_ACCEPT_LANGUAGE)) { - $sm_language = substr($HTTP_ACCEPT_LANGUAGE, 0, 2); + if ($do_search && ! $sm_language && isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) { + $sm_language = substr($_SERVER['HTTP_ACCEPT_LANGUAGE'], 0, 2); } + if (!$sm_language && isset($squirrelmail_default_language)) { $squirrelmail_language = $squirrelmail_default_language; + $sm_language = $squirrelmail_default_language; } $sm_notAlias = $sm_language; 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'])) { - if ((ini_get('safe_mode') == FALSE) && (getenv('LC_ALL') != $sm_language)) { - putenv('LC_ALL=' . $sm_notAlias); + if ( isset($sm_language) && + $use_gettext && + $sm_language != '' && + isset($languages[$sm_notAlias]['CHARSET']) ) { + bindtextdomain( 'squirrelmail', '../locale/' ); + textdomain( 'squirrelmail' ); + if ( !ini_get('safe_mode') && + getenv( 'LC_ALL' ) != $sm_notAlias ) { + putenv( "LC_ALL=$sm_notAlias" ); + putenv( "LANG=$sm_notAlias" ); + putenv( "LANGUAGE=$sm_notAlias" ); } - setlocale('LC_ALL', $sm_notAlias); - bindtextdomain('squirrelmail', '../locale/'); - textdomain('squirrelmail'); - header ('Content-Type: text/html; charset=' . $languages[$sm_notAlias]['CHARSET']); + setlocale(LC_ALL, $sm_notAlias); + $squirrelmail_language = $sm_notAlias; + if ($squirrelmail_language == 'ja_JP' && function_exists('mb_detect_encoding') ) { + header ('Content-Type: text/html; charset=EUC-JP'); + if (!function_exists('mb_internal_encoding')) { + echo _("You need to have php4 installed with the multibyte string function enabled (using configure option --with-mbstring)."); + } + mb_internal_encoding('EUC-JP'); + mb_http_output('pass'); + } else { + header( 'Content-Type: text/html; charset=' . $languages[$sm_notAlias]['CHARSET'] ); } } +} function set_my_charset(){ @@ -741,156 +846,180 @@ function set_my_charset(){ * message blindly with the system-wide $default_charset. */ global $data_dir, $username, $default_charset, $languages; + $my_language = getPref($data_dir, $username, 'language'); - if (!$my_language) return; + if (!$my_language) { + return; + } while (isset($languages[$my_language]['ALIAS'])) { $my_language = $languages[$my_language]['ALIAS']; } - $my_charset=$languages[$my_language]['CHARSET']; + $my_charset = $languages[$my_language]['CHARSET']; if ($my_charset) { $default_charset = $my_charset; } } - /* ------------------------------ main --------------------------- */ -global $squirrelmail_language, $languages; +global $squirrelmail_language, $languages, $use_gettext; + if (! isset($squirrelmail_language)) { $squirrelmail_language = ''; } /* This array specifies the available languages. */ -$languages['ca']['NAME'] = 'Catalan'; -$languages['ca']['CHARSET'] = 'iso-8859-1'; -$languages['ca_CA']['ALIAS'] = 'ca'; - -/* PLEASE DON'T TOUCH!!! - * Correct locale name, which should be set by setlocale and/or putenv('LC_ALL='...) - * is 'cs_CZ' and NOT 'cs', this applies to all locale names, look into docs, if you - * don't believe me. Ondrej Sury, czech and slovak translator. - */ + +// The glibc locale is ca_ES. + +$languages['ca_ES']['NAME'] = 'Catalan'; +$languages['ca_ES']['CHARSET'] = 'iso-8859-1'; +$languages['ca']['ALIAS'] = 'ca_ES'; + $languages['cs_CZ']['NAME'] = 'Czech'; $languages['cs_CZ']['CHARSET'] = 'iso-8859-2'; $languages['cs']['ALIAS'] = 'cs_CZ'; -$languages['cz']['ALIAS'] = 'cs_CZ'; // set up by some ancient versions of IE -$languages['da']['NAME'] = 'Danish'; -$languages['da']['CHARSET'] = 'iso-8859-1'; -$languages['da_DA']['ALIAS'] = 'da'; +// Danish locale is da_DK. + +$languages['da_DK']['NAME'] = 'Danish'; +$languages['da_DK']['CHARSET'] = 'iso-8859-1'; +$languages['da']['ALIAS'] = 'da_DK'; -$languages['de']['NAME'] = 'Deutsch'; -$languages['de']['CHARSET'] = 'iso-8859-1'; -$languages['de_DE']['ALIAS'] = 'de'; +$languages['de_DE']['NAME'] = 'Deutsch'; +$languages['de_DE']['CHARSET'] = 'iso-8859-1'; +$languages['de']['ALIAS'] = 'de_DE'; -$languages['en']['NAME'] = 'English'; -$languages['en']['CHARSET'] = 'iso-8859-1'; -$languages['en_EN']['ALIAS'] = 'en'; +// There is no en_EN! There is en_US, en_BR, en_AU, and so forth, +// but who cares about !US, right? Right? :) -$languages['es']['NAME'] = 'Spanish'; -$languages['es']['CHARSET'] = 'iso-8859-1'; -$languages['es_ES']['ALIAS'] = 'es'; +$languages['en_US']['NAME'] = 'English'; +$languages['en_US']['CHARSET'] = 'iso-8859-1'; +$languages['en']['ALIAS'] = 'en_US'; -$languages['et']['NAME'] = 'Estonian'; -$languages['et']['CHARSET'] = 'iso-8859-15'; -$languages['et_EE']['ALIAS'] = 'et'; +$languages['es_ES']['NAME'] = 'Spanish'; +$languages['es_ES']['CHARSET'] = 'iso-8859-1'; +$languages['es']['ALIAS'] = 'es_ES'; -$languages['fi']['NAME'] = 'Finnish'; -$languages['fi']['CHARSET'] = 'iso-8859-1'; -$languages['fi_FI']['ALIAS'] = 'fi'; +$languages['et_EE']['NAME'] = 'Estonian'; +$languages['et_EE']['CHARSET'] = 'iso-8859-15'; +$languages['et']['ALIAS'] = 'et_EE'; -$languages['fr']['NAME'] = 'French'; -$languages['fr']['CHARSET'] = 'iso-8859-1'; -$languages['fr_FR']['ALIAS'] = 'fr'; +$languages['fi_FI']['NAME'] = 'Finnish'; +$languages['fi_FI']['CHARSET'] = 'iso-8859-1'; +$languages['fi']['ALIAS'] = 'fi_FI'; -$languages['hr']['NAME'] = 'Croatian'; -$languages['hr']['CHARSET'] = 'iso-8859-2'; -$languages['hr_HR']['ALIAS'] = 'hr'; +$languages['fr_FR']['NAME'] = 'French'; +$languages['fr_FR']['CHARSET'] = 'iso-8859-1'; +$languages['fr']['ALIAS'] = 'fr_FR'; -$languages['hu']['NAME'] = 'Hungarian'; -$languages['hu']['CHARSET'] = 'iso-8859-2'; -$languages['hu_HU']['ALIAS'] = 'hu'; +$languages['hr_HR']['NAME'] = 'Croatian'; +$languages['hr_HR']['CHARSET'] = 'iso-8859-2'; +$languages['hr']['ALIAS'] = 'hr_HR'; -$languages['id']['NAME'] = 'Indonesian'; -$languages['id']['CHARSET'] = 'iso-8859-1'; -$languages['id_ID']['ALIAS'] = 'id'; +$languages['hu_HU']['NAME'] = 'Hungarian'; +$languages['hu_HU']['CHARSET'] = 'iso-8859-2'; +$languages['hu']['ALIAS'] = 'hu_HU'; -$languages['is']['NAME'] = 'Icelandic'; -$languages['is']['CHARSET'] = 'iso-8859-1'; -$languages['is_IS']['ALIAS'] = 'is'; +$languages['id_ID']['NAME'] = 'Indonesian'; +$languages['id_ID']['CHARSET'] = 'iso-8859-1'; +$languages['id']['ALIAS'] = 'id_ID'; -$languages['it']['NAME'] = 'Italian'; -$languages['it']['CHARSET'] = 'iso-8859-1'; -$languages['it_IT']['ALIAS'] = 'it'; +$languages['is_IS']['NAME'] = 'Icelandic'; +$languages['is_IS']['CHARSET'] = 'iso-8859-1'; +$languages['is']['ALIAS'] = 'is_IS'; -$languages['ko']['NAME'] = 'Korean'; -$languages['ko']['CHARSET'] = 'euc-KR'; -$languages['ko_KO']['ALIAS'] = 'ko'; +$languages['it_IT']['NAME'] = 'Italian'; +$languages['it_IT']['CHARSET'] = 'iso-8859-1'; +$languages['it']['ALIAS'] = 'it_IT'; -$languages['nl']['NAME'] = 'Dutch'; -$languages['nl']['CHARSET'] = 'iso-8859-1'; -$languages['nl_NL']['ALIAS'] = 'nl'; +$languages['ja_JP']['NAME'] = 'Japanese'; +$languages['ja_JP']['CHARSET'] = 'iso-2022-jp'; +$languages['ja_JP']['XTRA_CODE'] = 'japanese_charset_xtra'; +$languages['ja']['ALIAS'] = 'ja_JP'; -$languages['no']['NAME'] = 'Norwegian (Bokmål)'; -$languages['no']['CHARSET'] = 'iso-8859-1'; -$languages['no_NO']['ALIAS'] = 'no'; -$languages['no_NO_ny']['NAME'] = 'Norwegian (Nynorsk)'; -$languages['no_NO_ny']['CHARSET'] = 'iso-8859-1'; +$languages['ko_KR']['NAME'] = 'Korean'; +$languages['ko_KR']['CHARSET'] = 'euc-KR'; +$languages['ko_KR']['XTRA_CODE'] = 'korean_charset_xtra'; +$languages['ko']['ALIAS'] = 'ko_KR'; -$languages['pl']['NAME'] = 'Polish'; -$languages['pl']['CHARSET'] = 'iso-8859-2'; -$languages['pl_PL']['ALIAS'] = 'pl'; +$languages['nl_NL']['NAME'] = 'Dutch'; +$languages['nl_NL']['CHARSET'] = 'iso-8859-1'; +$languages['nl']['ALIAS'] = 'nl_NL'; -$languages['pt']['NAME'] = 'Portuguese (Portugal)'; -$languages['pt']['CHARSET'] = 'iso-8859-1'; +$languages['no_NO']['NAME'] = 'Norwegian (Bokmål)'; +$languages['no_NO']['CHARSET'] = 'iso-8859-1'; +$languages['no']['ALIAS'] = 'no_NO'; +$languages['nn_NO']['NAME'] = 'Norwegian (Nynorsk)'; +$languages['nn_NO']['CHARSET'] = 'iso-8859-1'; + +$languages['pl_PL']['NAME'] = 'Polish'; +$languages['pl_PL']['CHARSET'] = 'iso-8859-2'; +$languages['pl']['ALIAS'] = 'pl_PL'; + +$languages['pt_PT']['NAME'] = 'Portuguese (Portugal)'; +$languages['pt_PT']['CHARSET'] = 'iso-8859-1'; $languages['pt_BR']['NAME'] = 'Portuguese (Brazil)'; $languages['pt_BR']['CHARSET'] = 'iso-8859-1'; -$languages['pt_PT']['ALIAS'] = 'pt'; +$languages['pt']['ALIAS'] = 'pt_PT'; + +$languages['ru_RU']['NAME'] = 'Russian'; +$languages['ru_RU']['CHARSET'] = 'koi8-r'; +$languages['ru']['ALIAS'] = 'ru_RU'; -$languages['ru']['NAME'] = 'Russian KOI8-R'; -$languages['ru']['CHARSET'] = 'koi8-r'; -$languages['ru_RU']['ALIAS'] = 'ru'; +$languages['sr_YU']['NAME'] = 'Serbian'; +$languages['sr_YU']['CHARSET'] = 'iso-8859-2'; +$languages['sr']['ALIAS'] = 'sr_YU'; -$languages['sr']['NAME'] = 'Serbian'; -$languages['sr']['CHARSET'] = 'iso-8859-2'; -$languages['sr_SR']['ALIAS'] = 'sr'; +$languages['sv_SE']['NAME'] = 'Swedish'; +$languages['sv_SE']['CHARSET'] = 'iso-8859-1'; +$languages['sv']['ALIAS'] = 'sv_SE'; -$languages['sv']['NAME'] = 'Swedish'; -$languages['sv']['CHARSET'] = 'iso-8859-1'; -$languages['sv_SV']['ALIAS'] = 'sv'; +$languages['tr_TR']['NAME'] = 'Turkish'; +$languages['tr_TR']['CHARSET'] = 'iso-8859-9'; +$languages['tr']['ALIAS'] = 'tr_TR'; -$languages['tr']['NAME'] = 'Turkish'; -$languages['tr']['CHARSET'] = 'iso-8859-9'; -$languages['tr_TR']['ALIAS'] = 'tr'; +$languages['zh_TW']['NAME'] = 'Taiwan'; +$languages['zh_TW']['CHARSET'] = 'big5'; +$languages['tw']['ALIAS'] = 'zh_TW'; -$languages['tw']['NAME'] = 'Taiwan'; -$languages['tw']['CHARSET'] = 'big5'; -$languages['tw_TW']['ALIAS'] = 'tw'; +$languages['zh_TW']['NAME'] = 'Chinese'; +$languages['zh_TW']['CHARSET'] = 'gb2312'; +$languages['tw']['ALIAS'] = 'zh_CN'; $languages['sk_SK']['NAME'] = 'Slovak'; $languages['sk_SK']['CHARSET'] = 'iso-8859-2'; $languages['sk']['ALIAS'] = 'sk_SK'; -$languages['ro']['NAME'] = 'Romanian'; -$languages['ro']['CHARSET'] = 'iso-8859-2'; -$languages['ro_RO']['ALIAS'] = 'ro'; +$languages['ro_RO']['NAME'] = 'Romanian'; +$languages['ro_RO']['CHARSET'] = 'iso-8859-2'; +$languages['ro']['ALIAS'] = 'ro_RO'; -$languages['th']['NAME'] = 'Thai'; -$languages['th']['CHARSET'] = 'tis-620'; +$languages['th_TH']['NAME'] = 'Thai'; +$languages['th_TH']['CHARSET'] = 'tis-620'; +$languages['th']['ALIAS'] = 'th_TH'; -$languages['lt']['NAME'] = 'Lithuanian'; -$languages['lt']['CHARSET'] = 'iso-8859-13'; -$languages['lt_LT']['ALIAS'] = 'lt'; +$languages['lt_LT']['NAME'] = 'Lithuanian'; +$languages['lt_LT']['CHARSET'] = 'iso-8859-13'; +$languages['lt']['ALIAS'] = 'lt_LT'; -$languages['sl']['NAME'] = 'Slovenian'; -$languages['sl']['CHARSET'] = 'iso-8859-2'; +$languages['sl_SI']['NAME'] = 'Slovenian'; +$languages['sl_SI']['CHARSET'] = 'iso-8859-2'; +$languages['sl']['ALIAS'] = 'sl_SI'; -$languages['bg']['NAME'] = 'Bulgarian'; -$languages['bg']['CHARSET'] = 'windows-1251'; +$languages['bg_BG']['NAME'] = 'Bulgarian'; +$languages['bg_BG']['CHARSET'] = 'windows-1251'; +$languages['bg']['ALIAS'] = 'bg_BG'; -global $use_gettext; +// Right to left languages -// Detect whether gettext is installed. +$languages['he_HE']['NAME'] = 'Hebrew'; +$languages['he_HE']['CHARSET'] = 'windows-1255'; +$languages['he_HE']['DIR'] = 'rtl'; +$languages['he']['ALIAS'] = 'he_HE'; + + +/* Detect whether gettext is installed. */ $gettext_flags = 0; if (function_exists('_')) { $gettext_flags += 1; @@ -902,16 +1031,16 @@ if (function_exists('textdomain')) { $gettext_flags += 4; } -// If gettext is fully loaded, cool +/* If gettext is fully loaded, cool */ if ($gettext_flags == 7) { $use_gettext = true; } -// If we can fake gettext, try that +/* If we can fake gettext, try that */ elseif ($gettext_flags == 0) { $use_gettext = true; - include_once('../functions/gettext.php'); + include_once(SM_PATH . 'functions/gettext.php'); } else { - // Uh-ho. A weird install + /* Uh-ho. A weird install */ if (! $gettext_flags & 1) { function _($str) { return $str; @@ -930,4 +1059,111 @@ elseif ($gettext_flags == 0) { } +/* + * Japanese charset extra function + * + */ +function japanese_charset_xtra() { + $ret = func_get_arg(1); /* default return value */ + if (function_exists('mb_detect_encoding')) { + switch (func_get_arg(0)) { /* action */ + case 'decode': + $detect_encoding = mb_detect_encoding($ret); + if ($detect_encoding == 'JIS' || + $detect_encoding == 'EUC-JP' || + $detect_encoding == 'SJIS') { + + $ret = mb_convert_encoding($ret, 'EUC-JP', 'AUTO'); + } + break; + case 'encode': + $detect_encoding = mb_detect_encoding($ret); + if ($detect_encoding == 'JIS' || + $detect_encoding == 'EUC-JP' || + $detect_encoding == 'SJIS') { + + $ret = mb_convert_encoding($ret, 'JIS', 'AUTO'); + } + break; + case 'strimwidth': + $width = func_get_arg(2); + $ret = mb_strimwidth($ret, 0, $width, '...'); + break; + case 'encodeheader': + $result = ''; + if (strlen($ret) > 0) { + $tmpstr = mb_substr($ret, 0, 1); + $prevcsize = strlen($tmpstr); + for ($i = 1; $i < mb_strlen($ret); $i++) { + $tmp = mb_substr($ret, $i, 1); + if (strlen($tmp) == $prevcsize) { + $tmpstr .= $tmp; + } else { + if ($prevcsize == 1) { + $result .= $tmpstr; + } else { + $result .= mb_encode_mimeheader($tmpstr); + } + $tmpstr = $tmp; + $prevcsize = strlen($tmp); + } + } + if (strlen($tmpstr)) { + if (strlen(mb_substr($tmpstr, 0, 1)) == 1) + $result .= $tmpstr; + else + $result .= mb_encode_mimeheader($tmpstr); + } + } + $ret = $result; + //$ret = mb_encode_mimeheader($ret); + break; + case 'decodeheader': + $ret = str_replace("\t", "", $ret); + if (eregi('=\\?([^?]+)\\?(q|b)\\?([^?]+)\\?=', $ret)) + $ret = mb_decode_mimeheader($ret); + $ret = mb_convert_encoding($ret, 'EUC-JP', 'AUTO'); + break; + case 'downloadfilename': + $useragent = func_get_arg(2); + if (strstr($useragent, 'Windows') !== false || + strstr($useragent, 'Mac_') !== false) { + $ret = mb_convert_encoding($ret, 'SJIS', 'AUTO'); + } else { + $ret = mb_convert_encoding($ret, 'EUC-JP', 'AUTO'); +} + break; + } + } + return $ret; +} + + +/* + * Korean charset extra function + * Hangul(Korean Character) Attached File Name Fix. + */ +function korean_charset_xtra() { + + $ret = func_get_arg(1); /* default return value */ + if (func_get_arg(0) == 'downloadfilename') { /* action */ + $ret = str_replace("\x0D\x0A", '', $ret); /* Hanmail's CR/LF Clear */ + for ($i=0;$i= "\xA1" && $ret[$i] <= "\xFE") { /* 0xA1 - 0XFE are Valid */ + $i++; + continue; + } else if (($ret[$i] >= 'a' && $ret[$i] <= 'z') || /* From Original ereg_replace in download.php */ + ($ret[$i] >= 'A' && $ret[$i] <= 'Z') || + ($ret[$i] == '.') || ($ret[$i] == '-')) { + continue; + } else { + $ret[$i] = '_'; + } + } + + } + + return $ret; +} + ?>