X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=include%2Flanguages.php;h=8fd4014b3c843d50d774a31aef0ff54a6f6bdb03;hb=8b213268c9e6df48ff7d7addb1b74557982efff9;hp=342b9336af15c1cfeb299c036017d61004a64eb8;hpb=202bcbcc2b67c7c153db1b09b608b62beeba0496;p=squirrelmail.git diff --git a/include/languages.php b/include/languages.php index 342b9336..8fd4014b 100644 --- a/include/languages.php +++ b/include/languages.php @@ -9,7 +9,13 @@ * 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 + * Before 1.5.2 functions were stored in functions/i18n.php. Script is moved + * because it executes some code in order to detect functions supported by + * existing PHP installation and implements fallback functions when required + * functions are not available. Scripts in functions/ directory should not + * setup anything when they are loaded. + * + * @copyright 1999-2011 The SquirrelMail Project Team * @license http://opensource.org/licenses/gpl-license.php GNU Public License * @version $Id$ * @package squirrelmail @@ -17,20 +23,79 @@ */ +/** + * Wrapper for textdomain(), bindtextdomain() and + * bind_textdomain_codeset() primarily intended for + * plugins when changing into their own text domain + * and back again. + * + * Note that if plugins using this function have + * their translation files located in the SquirrelMail + * locale directory, the second argument is optional. + * + * @param string $domain_name The name of the text domain + * (usually the plugin name, or + * "squirrelmail") being switched to. + * @param string $directory The directory that contains + * all translations for the domain + * (OPTIONAL; default is SquirrelMail + * locale directory). + * + * @return string The name of the text domain that was set + * *BEFORE* it is changed herein - NOTE that + * this differs from PHP's textdomain() + * + * @since 1.4.10 and 1.5.2 + */ +function sq_change_text_domain($domain_name, $directory='') { + global $gettext_domain; + static $domains_already_seen = array(); + + $return_value = $gettext_domain; + + // empty domain defaults to "squirrelmail" + // + if (empty($domain_name)) $domain_name = 'squirrelmail'; + + // only need to call bindtextdomain() once + // + if (in_array($domain_name, $domains_already_seen)) { + sq_textdomain($domain_name); + return $return_value; + } + + $domains_already_seen[] = $domain_name; + + if (empty($directory)) $directory = SM_PATH . 'locale/'; + + sq_bindtextdomain($domain_name, $directory); + sq_textdomain($domain_name); + + return $return_value; +} + /** * 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 + * + * This also provides a bind_textdomain_codeset call to make sure the + * domain's encoding will not be overridden. + * + * @since 1.4.10 and 1.5.1 * @param string $domain gettext domain name - * @param string $dir directory that contains all translations + * @param string $dir directory that contains all translations (OPTIONAL; + * if not specified, defaults to SquirrelMail locale + * directory) * @return string path to translation directory */ -function sq_bindtextdomain($domain,$dir) { +function sq_bindtextdomain($domain,$dir='') { global $l10n, $gettext_flags, $sm_notAlias; + if (empty($dir)) $dir = SM_PATH . 'locale/'; + if ($gettext_flags==7) { // gettext extension without ngettext if (substr($dir, -1) != '/') $dir .= '/'; @@ -41,6 +106,19 @@ function sq_bindtextdomain($domain,$dir) { $dir=bindtextdomain($domain,$dir); + // set codeset in order to avoid gettext charset conversions + if (function_exists('bind_textdomain_codeset') + && isset($languages[$sm_notAlias]['CHARSET'])) { + + // Japanese translation uses different internal charset + if ($sm_notAlias == 'ja_JP') { + bind_textdomain_codeset ($domain_name, 'EUC-JP'); + } else { + bind_textdomain_codeset ($domain_name, $languages[$sm_notAlias]['CHARSET']); + } + + } + return $dir; } @@ -68,15 +146,15 @@ function sq_textdomain($domain) { * (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 + * @since 1.4.5 and 1.5.1 + * @see http://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)) { + if (is_string($locale)) { + // string with only one locale + $ret = setlocale($category,$locale); + } elseif (! check_php_version(4,3)) { + // older php version (second setlocale argument must be string) $ret=false; $index=0; while ( ! $ret && $index "utf") */ - $charset=preg_replace("/[-:.\/\\\]/",'_',$charset); + $charset=preg_replace("/[-:.\/\\\]/",'_', strtolower($charset)); // OE ks_c_5601_1987 > cp949 $charset=str_replace('ks_c_5601_1987','cp949',$charset); @@ -290,17 +384,25 @@ function fixcharset($charset) { * 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. + * @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. + * @param string $content_type The content type being served currently (OPTIONAL; + * if not specified, defaults to whatever the template + * set that is in use has defined). * @return int function execution error codes. + * */ -function set_up_language($sm_language, $do_search = false, $default = false) { +function set_up_language($sm_language, $do_search = false, $default = false, + $content_type = '') { static $SetupAlready = 0; - global $use_gettext, $languages, - $squirrelmail_language, $squirrelmail_default_language, $default_charset, - $sm_notAlias, $username, $data_dir; + global $use_gettext, $languages, $squirrelmail_language, + $squirrelmail_default_language, $default_charset, $sm_notAlias, + $username, $data_dir, $oTemplate; if ($SetupAlready) { return; @@ -309,11 +411,15 @@ function set_up_language($sm_language, $do_search = false, $default = false) { $SetupAlready = TRUE; sqgetGlobalVar('HTTP_ACCEPT_LANGUAGE', $accept_lang, SQ_SERVER); + // grab content type if needed + // + if (empty($content_type)) $content_type = $oTemplate->get_content_type(); + /** * If function is asked to detect preferred language - * OR squirrelmail default language is set to empty string + * OR SquirrelMail default language is set to empty string * AND - * squirrelmail language ($sm_language) is empty string + * 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 @@ -332,9 +438,9 @@ function set_up_language($sm_language, $do_search = false, $default = false) { /** * If language preference is not set OR script asks to use default language * AND - * default squirrelmail language is not set to empty string + * default SquirrelMail language is not set to empty string * THEN - * use default squirrelmail language value from configuration. + * use default SquirrelMail language value from configuration. */ if ((!$sm_language||$default) && ! empty($squirrelmail_default_language)) { @@ -365,16 +471,6 @@ function set_up_language($sm_language, $do_search = false, $default = false) { 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'] ); - } - } - // Use LOCALE key, if it is set. if (isset($languages[$sm_notAlias]['LOCALE'])){ $longlocale=$languages[$sm_notAlias]['LOCALE']; @@ -443,7 +539,7 @@ function set_up_language($sm_language, $do_search = false, $default = false) { $squirrelmail_language = $sm_notAlias; if ($squirrelmail_language == 'ja_JP') { - header ('Content-Type: text/html; charset=EUC-JP'); + $oTemplate->header ('Content-Type: ' . $content_type . '; charset=EUC-JP'); if (!function_exists('mb_internal_encoding')) { // Error messages can't be displayed here $error = 1; @@ -461,15 +557,15 @@ function set_up_language($sm_language, $do_search = false, $default = false) { mb_internal_encoding('EUC-JP'); mb_http_output('pass'); } elseif ($squirrelmail_language == 'en_US') { - header( 'Content-Type: text/html; charset=' . $default_charset ); + $oTemplate->header( 'Content-Type: ' . $content_type . '; charset=' . $default_charset ); } else { - header( 'Content-Type: text/html; charset=' . $languages[$sm_notAlias]['CHARSET'] ); + $oTemplate->header( 'Content-Type: ' . $content_type . '; charset=' . $languages[$sm_notAlias]['CHARSET'] ); } /** * mbstring.func_overload fix (#929644). * * php mbstring extension can replace standard string functions with their multibyte - * equivalents. See http://www.php.net/ref.mbstring#mbstring.overload. This feature + * equivalents. See http://php.net/ref.mbstring#mbstring.overload. This feature * was added in php v.4.2.0 * * Some SquirrelMail functions work with 8bit strings in bytes. If interface is forced @@ -491,11 +587,13 @@ function set_up_language($sm_language, $do_search = false, $default = false) { } /** - * Sets default_charset variable according to the one that is used by user's translations. + * Sets default_charset variable according to the one that is used by user's + * translations. * - * Function changes global $default_charset variable in order to be sure, that it - * contains charset used by user's translation. Sanity of $squirrelmail_language - * and $default_charset combination is also tested. + * Function changes global $default_charset variable in order to be sure, that + * it contains charset used by user's translation. Sanity of + * $squirrelmail_language and $default_charset combination provided in the + * SquirrelMail configuration is also tested. * * There can be a $default_charset setting in the * config.php file, but the user may have a different language @@ -601,8 +699,8 @@ function is_conversion_safe($input_charset) { switch ($default_charset) { case "windows-1251": if ( $input_charset == "iso-8859-5" || - $input_charset == "koi8-r" || - $input_charset == "koi8-u" ) { + $input_charset == "koi8-r" || + $input_charset == "koi8-u" ) { return true; } else { return false; @@ -948,7 +1046,7 @@ if (! sqgetGlobalVar('squirrelmail_language',$squirrelmail_language,SQ_COOKIE)) } /** - * Array specifies the available translations. + * This array specifies the available translations. * * Structure of array: * $languages['language']['variable'] = 'value' @@ -960,7 +1058,7 @@ if (! sqgetGlobalVar('squirrelmail_language',$squirrelmail_language,SQ_COOKIE)) * ALTNAME - Native translation name. Any 8bit symbols must be html encoded. * LOCALE - Full locale name (in xx_XX.charset format). It can use array with more than one locale name since 1.4.5 and 1.5.1 * DIR - Text direction. Used to define Right-to-Left languages. Possible values 'rtl' or 'ltr'. If undefined - defaults to 'ltr' - * XTRA_CODE - translation uses special functions. See doc/i18n.txt + * XTRA_CODE - translation uses special functions. See http://squirrelmail.org/docs/devel/devel-3.html * * Each 'language' definition requires NAME+CHARSET or ALIAS variables. * @@ -986,7 +1084,7 @@ if (is_dir(SM_PATH . 'locale') && $lang_dir = substr($lang_dir,0,-1); } if ($lang_dir != '..' && $lang_dir != '.' && $lang_dir != 'CVS' && - is_dir(SM_PATH.'locale/'.$lang_dir) && + $lang_dir != '.svn' && is_dir(SM_PATH.'locale/'.$lang_dir) && file_exists(SM_PATH.'locale/'.$lang_dir.'/setup.php')) { include_once(SM_PATH.'locale/'.$lang_dir.'/setup.php'); } @@ -1087,4 +1185,3 @@ elseif ($gettext_flags == 0) { } } } -?> \ No newline at end of file