<?php
+
/**
* koi8-r encoding functions
*
* takes a string of unicode entities and converts it to a koi8-r encoded string
* Unsupported characters are replaced with ?.
*
+ * @copyright 2004-2021 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
* @version $Id$
- * @copyright Copyright © 2004-2005 The SquirrelMail Project Team
* @package squirrelmail
* @subpackage encode
*/
// don't run encoding function, if there is no encoded characters
if (! preg_match("'&#[0-9]+;'",$string) ) return $string;
- $string=preg_replace("/&#([0-9]+);/e","unicodetokoi8r('\\1')",$string);
- // $string=preg_replace("/&#[xX]([0-9A-F]+);/e","unicodetokoi8r(hexdec('\\1'))",$string);
+ $string=preg_replace_callback("/&#([0-9]+);/",'unicodetokoi8r',$string);
return $string;
}
* Return koi8-r symbol when unicode character number is provided
*
* This function is used internally by charset_encode_koi8_r
- * function. It might be unavailable to other squirrelmail functions.
+ * function. It might be unavailable to other SquirrelMail functions.
* Don't use it or make sure, that functions/encode/koi8_r.php is
* included.
*
- * @param int $var decimal unicode value
+ * @param array $matches array with first element a decimal unicode value
* @return string koi8-r character
*/
-function unicodetokoi8r($var) {
+function unicodetokoi8r($matches) {
+ $var = $matches[1];
$koi8rchars=array('160' => "\x9A",
'169' => "\xBF",
}
return $ret;
}
-?>
\ No newline at end of file