1189 lines
40 KiB
PHP
1189 lines
40 KiB
PHP
<?php
|
|
|
|
/**
|
|
* 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.
|
|
*
|
|
* 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-2025 The SquirrelMail Project Team
|
|
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
|
|
* @version $Id$
|
|
* @package squirrelmail
|
|
* @subpackage i18n
|
|
*/
|
|
|
|
|
|
/**
|
|
* 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.
|
|
*
|
|
* 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 (OPTIONAL;
|
|
* if not specified, defaults to SquirrelMail locale
|
|
* directory)
|
|
* @return string path to translation directory
|
|
*/
|
|
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 .= '/';
|
|
$mofile=$dir . $sm_notAlias . '/LC_MESSAGES/' . $domain . '.mo';
|
|
$input = new FileReader($mofile);
|
|
$l10n[$domain] = new gettext_reader($input);
|
|
}
|
|
|
|
$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;
|
|
}
|
|
|
|
/**
|
|
* 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.4.5 and 1.5.1
|
|
* @see http://php.net/setlocale
|
|
*/
|
|
function sq_setlocale($category,$locale) {
|
|
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<count($locale)) {
|
|
$ret=setlocale($category,$locale[$index]);
|
|
$index++;
|
|
}
|
|
} else {
|
|
// php 4.3.0 or better, use entire array
|
|
$ret=setlocale($category,$locale);
|
|
}
|
|
|
|
/* safety checks */
|
|
if (preg_match("/^.*\/.*\/.*\/.*\/.*\/.*$/",$ret)) {
|
|
/**
|
|
* Welcome to We-Don't-Follow-Own-Fine-Manual department
|
|
* OpenBSD 3.8, 3.9-current and maybe later versions
|
|
* return invalid response to setlocale command.
|
|
* SM bug report #1427512.
|
|
*/
|
|
$ret = false;
|
|
}
|
|
return $ret;
|
|
}
|
|
|
|
/**
|
|
* Converts a string from the given $charset to a character set that
|
|
* can be displayed by the current user interface language (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 The charset of the incoming string
|
|
* @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.4.5 and 1.5.1.
|
|
* @param boolean $save_html disables sm_encode_html_special_chars() in order to preserve
|
|
* html formating. Use with care. Available since 1.4.6 and 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 : sm_encode_html_special_chars($string, ENT_COMPAT, $charset));
|
|
|
|
// 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 : sm_encode_html_special_chars($string, ENT_COMPAT, $charset));
|
|
} else {
|
|
$string = recode_string($charset . "..html",$string);
|
|
// recode does not convert single quote, sm_encode_html_special_chars 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 : sm_encode_html_special_chars($string, ENT_COMPAT, $charset));
|
|
}
|
|
|
|
// 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 = sm_encode_html_special_chars ($string, ENT_COMPAT, $charset);
|
|
|
|
/* 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 ($decode != 'index' && 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.4.4 and 1.5.1
|
|
* @param string $string
|
|
* @param string $charset
|
|
* @param boolean $htmlencode keep sm_encode_html_special_chars encoding
|
|
* @return string
|
|
*/
|
|
function charset_encode($string,$charset,$htmlencode=true) {
|
|
global $default_charset;
|
|
|
|
$encode=fixcharset($charset);
|
|
$encodefile=SM_PATH . 'functions/encode/' . $encode . '.php';
|
|
if ($encode != 'index' && 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.4.4 and 1.5.1
|
|
* @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 sm_encode_html_special_chars encoding
|
|
* @return string converted string
|
|
*/
|
|
function charset_convert($in_charset,$string,$out_charset,$htmlencode=true) {
|
|
$string=charset_decode($in_charset,$string,true);
|
|
$string=sqi18n_convert_entities($string);
|
|
$string=charset_encode($string,$out_charset,$htmlencode);
|
|
return $string;
|
|
}
|
|
|
|
/**
|
|
* Makes charset name suitable for decoding cycles
|
|
*
|
|
* ks_c_5601_1987, x-euc-* and x-windows-* charsets are supported
|
|
* since 1.4.6 and 1.5.1.
|
|
*
|
|
* @since 1.4.4 and 1.5.0
|
|
* @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.
|
|
* Also make sure it's in lower case (ala "UTF" --> "utf")
|
|
*/
|
|
$charset=preg_replace("/[-:.\/\\\]/",'_', strtolower($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.
|
|
* @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,
|
|
$content_type = '') {
|
|
|
|
static $SetupAlready = 0;
|
|
global $use_gettext, $languages, $squirrelmail_language,
|
|
$squirrelmail_default_language, $default_charset, $sm_notAlias,
|
|
$username, $data_dir, $oTemplate;
|
|
|
|
if ($SetupAlready) {
|
|
return;
|
|
}
|
|
|
|
$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
|
|
* 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' );
|
|
|
|
// Use LOCALE key, if it is set.
|
|
if (isset($languages[$sm_notAlias]['LOCALE'])){
|
|
$longlocale=$languages[$sm_notAlias]['LOCALE'];
|
|
} else {
|
|
$longlocale=$sm_notAlias;
|
|
}
|
|
|
|
// try setting locale
|
|
$retlocale=sq_setlocale(LC_ALL, $longlocale);
|
|
|
|
// check if locale is set and assign that locale to $longlocale
|
|
// in order to use it in putenv calls.
|
|
if (! is_bool($retlocale)) {
|
|
$longlocale=$retlocale;
|
|
} elseif (is_array($longlocale)) {
|
|
// setting of all locales failed.
|
|
// we need string instead of array used in LOCALE key.
|
|
$longlocale=$sm_notAlias;
|
|
}
|
|
|
|
if ( !((bool)ini_get('safe_mode')) &&
|
|
getenv( 'LC_ALL' ) != $longlocale ) {
|
|
putenv( "LC_ALL=$longlocale" );
|
|
putenv( "LANG=$longlocale" );
|
|
putenv( "LANGUAGE=$longlocale" );
|
|
putenv( "LC_NUMERIC=C" );
|
|
if ($sm_notAlias=='tr_TR') putenv( "LC_CTYPE=C" );
|
|
}
|
|
// Workaround for plugins that use numbers with floating point
|
|
// It might be removed if plugins use correct decimal delimiters
|
|
// according to locale settings.
|
|
setlocale(LC_NUMERIC, 'C');
|
|
// Workaround for specific Turkish strtolower/strtoupper rules.
|
|
// Many functions expect English conversion rules.
|
|
if ($sm_notAlias=='tr_TR') setlocale(LC_CTYPE,'C');
|
|
|
|
/**
|
|
* Set text direction/alignment variables
|
|
* When language environment is setup, scripts can use these globals
|
|
* without accessing $languages directly and making checks for optional
|
|
* array key.
|
|
*/
|
|
global $text_direction, $left_align, $right_align;
|
|
if (isset($languages[$sm_notAlias]['DIR']) &&
|
|
$languages[$sm_notAlias]['DIR'] == 'rtl') {
|
|
/**
|
|
* Text direction
|
|
* @global string $text_direction
|
|
*/
|
|
$text_direction='rtl';
|
|
/**
|
|
* Left alignment
|
|
* @global string $left_align
|
|
*/
|
|
$left_align='right';
|
|
/**
|
|
* Right alignment
|
|
* @global string $right_align
|
|
*/
|
|
$right_align='left';
|
|
} else {
|
|
$text_direction='ltr';
|
|
$left_align='left';
|
|
$right_align='right';
|
|
}
|
|
|
|
$squirrelmail_language = $sm_notAlias;
|
|
if ($squirrelmail_language == 'ja_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;
|
|
// Revert to English if possible.
|
|
if (function_exists('setPref') && $username!='' && $data_dir!="") {
|
|
setPref($data_dir, $username, 'language', "en_US");
|
|
$error = 2;
|
|
}
|
|
// stop further execution in order not to get php errors on mb_internal_encoding().
|
|
return $error;
|
|
}
|
|
if (function_exists('mb_language')) {
|
|
mb_language('Japanese');
|
|
}
|
|
mb_internal_encoding('EUC-JP');
|
|
mb_http_output('pass');
|
|
} elseif ($squirrelmail_language == 'en_US') {
|
|
$oTemplate->header( 'Content-Type: ' . $content_type . '; charset=' . $default_charset );
|
|
} else {
|
|
$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://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
|
|
* to use mbstring functions and mbstring internal encoding is set to multibyte charset,
|
|
* interface can't trust regular string functions. Due to mbstring overloading design
|
|
* limits php scripts can't control this setting.
|
|
*
|
|
* This hack should fix some issues related to 8bit strings in passwords. Correct fix is
|
|
* to disable mbstring overloading. Japanese translation uses different internal encoding.
|
|
*/
|
|
if ($squirrelmail_language != 'ja_JP' &&
|
|
function_exists('mb_internal_encoding') &&
|
|
check_php_version(4,2,0) &&
|
|
(int)ini_get('mbstring.func_overload')!=0) {
|
|
mb_internal_encoding('pass');
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/**
|
|
* 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 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
|
|
* selected for a user interface. This function checks the
|
|
* language selected by the user and tags the outgoing messages
|
|
* with the appropriate charset corresponding to the language
|
|
* selection. This is "more right" (tm), than just stamping the
|
|
* message blindly with the system-wide $default_charset.
|
|
*/
|
|
function set_my_charset(){
|
|
global $data_dir, $username, $default_charset, $languages, $squirrelmail_language;
|
|
|
|
$my_language = getPref($data_dir, $username, 'language');
|
|
if (!$my_language) {
|
|
$my_language = $squirrelmail_language ;
|
|
}
|
|
// Catch removed translation
|
|
if (!isset($languages[$my_language])) {
|
|
$my_language="en_US";
|
|
}
|
|
while (isset($languages[$my_language]['ALIAS'])) {
|
|
$my_language = $languages[$my_language]['ALIAS'];
|
|
}
|
|
$my_charset = $languages[$my_language]['CHARSET'];
|
|
if ($my_language!='en_US') {
|
|
$default_charset = $my_charset;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Replaces non-braking spaces inserted by some browsers with regular space
|
|
*
|
|
* This function can be used to replace non-braking space symbols
|
|
* that are inserted in forms by some browsers instead of normal
|
|
* space symbol.
|
|
*
|
|
* @param string $string Text that needs to be cleaned
|
|
* @param string $charset Charset used in text
|
|
* @return string Cleaned text
|
|
*/
|
|
function cleanup_nbsp($string,$charset) {
|
|
|
|
// reduce number of case statements
|
|
if (stristr('iso-8859-',substr($charset,0,9))){
|
|
$output_charset="iso-8859-x";
|
|
}
|
|
if (stristr('windows-125',substr($charset,0,11))){
|
|
$output_charset="cp125x";
|
|
}
|
|
if (stristr('koi8',substr($charset,0,4))){
|
|
$output_charset="koi8-x";
|
|
}
|
|
if (! isset($output_charset)){
|
|
$output_charset=strtolower($charset);
|
|
}
|
|
|
|
// where is non-braking space symbol
|
|
switch($output_charset):
|
|
case "iso-8859-x":
|
|
case "cp125x":
|
|
case "iso-2022-jp":
|
|
$nbsp="\xA0";
|
|
break;
|
|
case "koi8-x":
|
|
$nbsp="\x9A";
|
|
break;
|
|
case "utf-8":
|
|
$nbsp="\xC2\xA0";
|
|
break;
|
|
default:
|
|
// don't change string if charset is unmatched
|
|
return $string;
|
|
endswitch;
|
|
|
|
// return space instead of non-braking space.
|
|
return str_replace($nbsp,' ',$string);
|
|
}
|
|
|
|
/**
|
|
* Function informs if it is safe to convert given charset to the one that is used by user.
|
|
*
|
|
* It is safe to use conversion only if user uses utf-8 encoding and when
|
|
* converted charset is similar to the one that is used by user.
|
|
*
|
|
* @param string $input_charset Charset of text that needs to be converted
|
|
* @return bool is it possible to convert to user's charset
|
|
*/
|
|
function is_conversion_safe($input_charset) {
|
|
global $languages, $sm_notAlias, $default_charset, $lossy_encoding;
|
|
|
|
if (isset($lossy_encoding) && $lossy_encoding )
|
|
return true;
|
|
|
|
// convert to lower case
|
|
$input_charset = strtolower($input_charset);
|
|
|
|
// Is user's locale Unicode based ?
|
|
if ( $default_charset == "utf-8" ) {
|
|
return true;
|
|
}
|
|
|
|
// Charsets that are similar
|
|
switch ($default_charset) {
|
|
case "windows-1251":
|
|
if ( $input_charset == "iso-8859-5" ||
|
|
$input_charset == "koi8-r" ||
|
|
$input_charset == "koi8-u" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
case "windows-1257":
|
|
if ( $input_charset == "iso-8859-13" ||
|
|
$input_charset == "iso-8859-4" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
case "iso-8859-4":
|
|
if ( $input_charset == "iso-8859-13" ||
|
|
$input_charset == "windows-1257" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
case "iso-8859-5":
|
|
if ( $input_charset == "windows-1251" ||
|
|
$input_charset == "koi8-r" ||
|
|
$input_charset == "koi8-u" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
case "iso-8859-13":
|
|
if ( $input_charset == "iso-8859-4" ||
|
|
$input_charset == "windows-1257" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
case "koi8-r":
|
|
if ( $input_charset == "windows-1251" ||
|
|
$input_charset == "iso-8859-5" ||
|
|
$input_charset == "koi8-u" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
case "koi8-u":
|
|
if ( $input_charset == "windows-1251" ||
|
|
$input_charset == "iso-8859-5" ||
|
|
$input_charset == "koi8-r" ) {
|
|
return true;
|
|
} else {
|
|
return false;
|
|
}
|
|
default:
|
|
return false;
|
|
}
|
|
}
|
|
|
|
/**
|
|
* Converts html character entities to numeric entities
|
|
*
|
|
* SquirrelMail encoding functions work only with numeric entities.
|
|
* This function fixes issues with decoding functions that might convert
|
|
* some symbols to character entities. Issue is specific to PHP recode
|
|
* extension decoding. Function is used internally in charset_convert()
|
|
* function.
|
|
* @param string $str string that might contain html character entities
|
|
* @return string string with character entities converted to decimals.
|
|
* @since 1.5.2
|
|
*/
|
|
function sqi18n_convert_entities($str) {
|
|
|
|
$entities = array(
|
|
// Latin 1
|
|
' ' => ' ',
|
|
'¡' => '¡',
|
|
'¢' => '¢',
|
|
'£' => '£',
|
|
'¤' => '¤',
|
|
'¥' => '¥',
|
|
'¦' => '¦',
|
|
'§' => '§',
|
|
'¨' => '¨',
|
|
'©' => '©',
|
|
'ª' => 'ª',
|
|
'«' => '«',
|
|
'¬' => '¬',
|
|
'­' => '­',
|
|
'®' => '®',
|
|
'¯' => '¯',
|
|
'°' => '°',
|
|
'±' => '±',
|
|
'²' => '²',
|
|
'³' => '³',
|
|
'´' => '´',
|
|
'µ' => 'µ',
|
|
'¶' => '¶',
|
|
'·' => '·',
|
|
'¸' => '¸',
|
|
'¹' => '¹',
|
|
'º' => 'º',
|
|
'»' => '»',
|
|
'¼' => '¼',
|
|
'½' => '½',
|
|
'¾' => '¾',
|
|
'¿' => '¿',
|
|
'À' => 'À',
|
|
'Á' => 'Á',
|
|
'Â' => 'Â',
|
|
'Ã' => 'Ã',
|
|
'Ä' => 'Ä',
|
|
'Å' => 'Å',
|
|
'Æ' => 'Æ',
|
|
'Ç' => 'Ç',
|
|
'È' => 'È',
|
|
'É' => 'É',
|
|
'Ê' => 'Ê',
|
|
'Ë' => 'Ë',
|
|
'Ì' => 'Ì',
|
|
'Í' => 'Í',
|
|
'Î' => 'Î',
|
|
'Ï' => 'Ï',
|
|
'Ð' => 'Ð',
|
|
'Ñ' => 'Ñ',
|
|
'Ò' => 'Ò',
|
|
'Ó' => 'Ó',
|
|
'Ô' => 'Ô',
|
|
'Õ' => 'Õ',
|
|
'Ö' => 'Ö',
|
|
'×' => '×',
|
|
'Ø' => 'Ø',
|
|
'Ù' => 'Ù',
|
|
'Ú' => 'Ú',
|
|
'Û' => 'Û',
|
|
'Ü' => 'Ü',
|
|
'Ý' => 'Ý',
|
|
'Þ' => 'Þ',
|
|
'ß' => 'ß',
|
|
'à' => 'à',
|
|
'á' => 'á',
|
|
'â' => 'â',
|
|
'ã' => 'ã',
|
|
'ä' => 'ä',
|
|
'å' => 'å',
|
|
'æ' => 'æ',
|
|
'ç' => 'ç',
|
|
'è' => 'è',
|
|
'é' => 'é',
|
|
'ê' => 'ê',
|
|
'ë' => 'ë',
|
|
'ì' => 'ì',
|
|
'í' => 'í',
|
|
'î' => 'î',
|
|
'ï' => 'ï',
|
|
'ð' => 'ð',
|
|
'ñ' => 'ñ',
|
|
'ò' => 'ò',
|
|
'ó' => 'ó',
|
|
'ô' => 'ô',
|
|
'õ' => 'õ',
|
|
'ö' => 'ö',
|
|
'÷' => '÷',
|
|
'ø' => 'ø',
|
|
'ù' => 'ù',
|
|
'ú' => 'ú',
|
|
'û' => 'û',
|
|
'ü' => 'ü',
|
|
'ý' => 'ý',
|
|
'þ' => 'þ',
|
|
'ÿ' => 'ÿ',
|
|
// Latin Extended-A
|
|
'Œ' => 'Œ',
|
|
'œ' => 'œ',
|
|
'Š' => 'Š',
|
|
'š' => 'š',
|
|
'Ÿ' => 'Ÿ',
|
|
// Spacing Modifier Letters
|
|
'ˆ' => 'ˆ',
|
|
'˜' => '˜',
|
|
// General Punctuation
|
|
' ' => ' ',
|
|
' ' => ' ',
|
|
' ' => ' ',
|
|
'‌' => '‌',
|
|
'‍' => '‍',
|
|
'‎' => '‎',
|
|
'‏' => '‏',
|
|
'–' => '–',
|
|
'—' => '—',
|
|
'‘' => '‘',
|
|
'’' => '’',
|
|
'‚' => '‚',
|
|
'“' => '“',
|
|
'”' => '”',
|
|
'„' => '„',
|
|
'†' => '†',
|
|
'‡' => '‡',
|
|
'‰' => '‰',
|
|
'‹' => '‹',
|
|
'›' => '›',
|
|
'€' => '€',
|
|
// Latin Extended-B
|
|
'ƒ' => 'ƒ',
|
|
// Greek
|
|
'Α' => 'Α',
|
|
'Β' => 'Β',
|
|
'Γ' => 'Γ',
|
|
'Δ' => 'Δ',
|
|
'Ε' => 'Ε',
|
|
'Ζ' => 'Ζ',
|
|
'Η' => 'Η',
|
|
'Θ' => 'Θ',
|
|
'Ι' => 'Ι',
|
|
'Κ' => 'Κ',
|
|
'Λ' => 'Λ',
|
|
'Μ' => 'Μ',
|
|
'Ν' => 'Ν',
|
|
'Ξ' => 'Ξ',
|
|
'Ο' => 'Ο',
|
|
'Π' => 'Π',
|
|
'Ρ' => 'Ρ',
|
|
'Σ' => 'Σ',
|
|
'Τ' => 'Τ',
|
|
'Υ' => 'Υ',
|
|
'Φ' => 'Φ',
|
|
'Χ' => 'Χ',
|
|
'Ψ' => 'Ψ',
|
|
'Ω' => 'Ω',
|
|
'α' => 'α',
|
|
'β' => 'β',
|
|
'γ' => 'γ',
|
|
'δ' => 'δ',
|
|
'ε' => 'ε',
|
|
'ζ' => 'ζ',
|
|
'η' => 'η',
|
|
'θ' => 'θ',
|
|
'ι' => 'ι',
|
|
'κ' => 'κ',
|
|
'λ' => 'λ',
|
|
'μ' => 'μ',
|
|
'ν' => 'ν',
|
|
'ξ' => 'ξ',
|
|
'ο' => 'ο',
|
|
'π' => 'π',
|
|
'ρ' => 'ρ',
|
|
'ς' => 'ς',
|
|
'σ' => 'σ',
|
|
'τ' => 'τ',
|
|
'υ' => 'υ',
|
|
'φ' => 'φ',
|
|
'χ' => 'χ',
|
|
'ψ' => 'ψ',
|
|
'ω' => 'ω',
|
|
'ϑ' => 'ϑ',
|
|
'ϒ' => 'ϒ',
|
|
'ϖ' => 'ϖ',
|
|
// General Punctuation
|
|
'•' => '•',
|
|
'…' => '…',
|
|
'′' => '′',
|
|
'″' => '″',
|
|
'‾' => '‾',
|
|
'⁄' => '⁄',
|
|
// Letterlike Symbols
|
|
'℘' => '℘',
|
|
'ℑ' => 'ℑ',
|
|
'ℜ' => 'ℜ',
|
|
'™' => '™',
|
|
'ℵ' => 'ℵ',
|
|
// Arrows
|
|
'←' => '←',
|
|
'↑' => '↑',
|
|
'→' => '→',
|
|
'↓' => '↓',
|
|
'↔' => '↔',
|
|
'↵' => '↵',
|
|
'⇐' => '⇐',
|
|
'⇑' => '⇑',
|
|
'⇒' => '⇒',
|
|
'⇓' => '⇓',
|
|
'⇔' => '⇔',
|
|
// Mathematical Operators
|
|
'∀' => '∀',
|
|
'∂' => '∂',
|
|
'∃' => '∃',
|
|
'∅' => '∅',
|
|
'∇' => '∇',
|
|
'∈' => '∈',
|
|
'∉' => '∉',
|
|
'∋' => '∋',
|
|
'∏' => '∏',
|
|
'∑' => '∑',
|
|
'−' => '−',
|
|
'∗' => '∗',
|
|
'√' => '√',
|
|
'∝' => '∝',
|
|
'∞' => '∞',
|
|
'∠' => '∠',
|
|
'∧' => '∧',
|
|
'∨' => '∨',
|
|
'∩' => '∩',
|
|
'∪' => '∪',
|
|
'∫' => '∫',
|
|
'∴' => '∴',
|
|
'∼' => '∼',
|
|
'≅' => '≅',
|
|
'≈' => '≈',
|
|
'≠' => '≠',
|
|
'≡' => '≡',
|
|
'≤' => '≤',
|
|
'≥' => '≥',
|
|
'⊂' => '⊂',
|
|
'⊃' => '⊃',
|
|
'⊄' => '⊄',
|
|
'⊆' => '⊆',
|
|
'⊇' => '⊇',
|
|
'⊕' => '⊕',
|
|
'⊗' => '⊗',
|
|
'⊥' => '⊥',
|
|
'⋅' => '⋅',
|
|
// Miscellaneous Technical
|
|
'⌈' => '⌈',
|
|
'⌉' => '⌉',
|
|
'⌊' => '⌊',
|
|
'⌋' => '⌋',
|
|
'⟨' => '〈',
|
|
'⟩' => '〉',
|
|
// Geometric Shapes
|
|
'◊' => '◊',
|
|
// Miscellaneous Symbols
|
|
'♠' => '♠',
|
|
'♣' => '♣',
|
|
'♥' => '♥',
|
|
'♦' => '♦');
|
|
|
|
$str = str_replace(array_keys($entities), array_values($entities), $str);
|
|
|
|
return $str;
|
|
}
|
|
|
|
/* ------------------------------ main --------------------------- */
|
|
|
|
global $squirrelmail_language, $languages, $use_gettext;
|
|
|
|
if (! sqgetGlobalVar('squirrelmail_language',$squirrelmail_language,SQ_COOKIE)) {
|
|
$squirrelmail_language = '';
|
|
}
|
|
|
|
/**
|
|
* This array specifies the available translations.
|
|
*
|
|
* Structure of array:
|
|
* $languages['language']['variable'] = 'value'
|
|
*
|
|
* Possible 'variable' names:
|
|
* NAME - Translation name in English
|
|
* CHARSET - Encoding used by translation
|
|
* ALIAS - used when 'language' is only short name and 'value' should provide long language name
|
|
* 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 http://squirrelmail.org/docs/devel/devel-3.html
|
|
*
|
|
* Each 'language' definition requires NAME+CHARSET or ALIAS variables.
|
|
*
|
|
* @name $languages
|
|
* @global array $languages
|
|
*/
|
|
$languages['en_US']['NAME'] = 'English';
|
|
$languages['en_US']['CHARSET'] = 'iso-8859-1';
|
|
$languages['en_US']['LOCALE'] = 'en_US.ISO8859-1';
|
|
$languages['en']['ALIAS'] = 'en_US';
|
|
|
|
/**
|
|
* Automatic translation loading from setup.php files.
|
|
* Solution for bug. 1240889.
|
|
* setup.php file can contain $languages array entries and XTRA_CODE functions.
|
|
*/
|
|
if (is_dir(SM_PATH . 'locale') &&
|
|
is_readable(SM_PATH . 'locale')) {
|
|
$localedir = dir(SM_PATH . 'locale');
|
|
while($lang_dir=$localedir->read()) {
|
|
// remove trailing slash, if present
|
|
if (substr($lang_dir,-1)=='/') {
|
|
$lang_dir = substr($lang_dir,0,-1);
|
|
}
|
|
if ($lang_dir != '..' && $lang_dir != '.' && $lang_dir != 'CVS' &&
|
|
$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');
|
|
}
|
|
}
|
|
$localedir->close();
|
|
}
|
|
|
|
/* Detect whether gettext is installed. */
|
|
$gettext_flags = 0;
|
|
if (function_exists('_')) {
|
|
$gettext_flags += 1;
|
|
}
|
|
if (function_exists('bindtextdomain')) {
|
|
$gettext_flags += 2;
|
|
}
|
|
if (function_exists('textdomain')) {
|
|
$gettext_flags += 4;
|
|
}
|
|
if (function_exists('ngettext')) {
|
|
$gettext_flags += 8;
|
|
}
|
|
|
|
/* If gettext is fully loaded, cool */
|
|
if ($gettext_flags == 15) {
|
|
$use_gettext = true;
|
|
}
|
|
|
|
/* If ngettext support is missing, load it */
|
|
elseif ($gettext_flags == 7) {
|
|
$use_gettext = true;
|
|
// load internal ngettext functions
|
|
include_once(SM_PATH . 'class/l10n.class.php');
|
|
include_once(SM_PATH . 'functions/ngettext.php');
|
|
}
|
|
|
|
/* If we can fake gettext, try that */
|
|
elseif ($gettext_flags == 0) {
|
|
$use_gettext = true;
|
|
include_once(SM_PATH . 'functions/gettext.php');
|
|
} else {
|
|
/* Uh-ho. A weird install */
|
|
if (! $gettext_flags & 1) {
|
|
/**
|
|
* Function is used as replacement in broken installs
|
|
* @ignore
|
|
*/
|
|
function _($str) {
|
|
return $str;
|
|
}
|
|
}
|
|
if (! $gettext_flags & 2) {
|
|
/**
|
|
* Function is used as replacement in broken installs
|
|
* @ignore
|
|
*/
|
|
function bindtextdomain() {
|
|
return;
|
|
}
|
|
}
|
|
if (! $gettext_flags & 4) {
|
|
/**
|
|
* Function is used as replacemet in broken installs
|
|
* @ignore
|
|
*/
|
|
function textdomain() {
|
|
return;
|
|
}
|
|
}
|
|
if (! $gettext_flags & 8) {
|
|
/**
|
|
* Function is used as replacemet in broken installs
|
|
* @ignore
|
|
*/
|
|
function ngettext($str,$str2,$number) {
|
|
if ($number>1) {
|
|
return $str2;
|
|
} else {
|
|
return $str;
|
|
}
|
|
}
|
|
}
|
|
if (! function_exists('dgettext')) {
|
|
/**
|
|
* Replacement for broken setups.
|
|
* @ignore
|
|
*/
|
|
function dgettext($domain,$str) {
|
|
return $str;
|
|
}
|
|
}
|
|
if (! function_exists('dngettext')) {
|
|
/**
|
|
* Replacement for broken setups
|
|
* @ignore
|
|
*/
|
|
function dngettext($domain,$str1,$strn,$number) {
|
|
return ($number==1 ? $str1 : $strn);
|
|
}
|
|
}
|
|
}
|