4 * koi8-r encoding functions
6 * takes a string of unicode entities and converts it to a koi8-r encoded string
7 * Unsupported characters are replaced with ?.
9 * @copyright 2004-2018 The SquirrelMail Project Team
10 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
12 * @package squirrelmail
17 * Converts string to koi8-r
18 * @param string $string text with numeric unicode entities
19 * @return string koi8-r encoded text
21 function charset_encode_koi8_r ($string) {
22 // don't run encoding function, if there is no encoded characters
23 if (! preg_match("'&#[0-9]+;'",$string) ) return $string;
25 $string=preg_replace_callback("/&#([0-9]+);/",'unicodetokoi8r',$string);
31 * Return koi8-r symbol when unicode character number is provided
33 * This function is used internally by charset_encode_koi8_r
34 * function. It might be unavailable to other SquirrelMail functions.
35 * Don't use it or make sure, that functions/encode/koi8_r.php is
38 * @param array $matches array with first element a decimal unicode value
39 * @return string koi8-r character
41 function unicodetokoi8r($matches) {
44 $koi8rchars=array('160' => "\x9A",
173 if (array_key_exists($var,$koi8rchars)) {
174 $ret=$koi8rchars[$var];