|
|
@@ -0,0 +1,146 @@
|
|
|
+<?php
|
|
|
+/**
|
|
|
+ * iso-8859-15 encoding functions
|
|
|
+ *
|
|
|
+ * takes a string of unicode entities and converts it to a iso-8859-15 encoded string
|
|
|
+ * Unsupported characters are replaced with ?.
|
|
|
+ *
|
|
|
+ * @version $Id$
|
|
|
+ * @copyright Copyright © SquirrelMail Development Team, 2004
|
|
|
+ * @package squirrelmail
|
|
|
+ * @subpackage encode
|
|
|
+ */
|
|
|
+
|
|
|
+/**
|
|
|
+ * Converts string to iso-8859-15
|
|
|
+ * @param string $string text with numeric unicode entities
|
|
|
+ * @return string iso-8859-15 encoded text
|
|
|
+ */
|
|
|
+function charset_encode_iso_8859_15 ($string) {
|
|
|
+ // 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","unicodetoiso885915('\\1')",$string);
|
|
|
+ // $string=preg_replace("/&#[xX]([0-9A-F]+);/e","unicodetoiso885915(hexdec('\\1'))",$string);
|
|
|
+
|
|
|
+ return $string;
|
|
|
+}
|
|
|
+
|
|
|
+/**
|
|
|
+ * Return iso-8859-15 symbol when unicode character number is provided
|
|
|
+ *
|
|
|
+ * This function is used internally by charset_encode_iso_8859_15
|
|
|
+ * function. It might be unavailable to other squirrelmail functions.
|
|
|
+ * Don't use it or make sure, that functions/encode/iso_8859_15.php is
|
|
|
+ * included.
|
|
|
+ *
|
|
|
+ * @param int $var decimal unicode value
|
|
|
+ * @return string iso-8859-15 character
|
|
|
+ */
|
|
|
+function unicodetoiso885915($var) {
|
|
|
+
|
|
|
+ $iso885915chars=array('160' => "\xA0",
|
|
|
+ '161' => "\xA1",
|
|
|
+ '162' => "\xA2",
|
|
|
+ '163' => "\xA3",
|
|
|
+ '165' => "\xA5",
|
|
|
+ '167' => "\xA7",
|
|
|
+ '169' => "\xA9",
|
|
|
+ '170' => "\xAA",
|
|
|
+ '171' => "\xAB",
|
|
|
+ '172' => "\xAC",
|
|
|
+ '173' => "\xAD",
|
|
|
+ '174' => "\xAE",
|
|
|
+ '175' => "\xAF",
|
|
|
+ '176' => "\xB0",
|
|
|
+ '177' => "\xB1",
|
|
|
+ '178' => "\xB2",
|
|
|
+ '179' => "\xB3",
|
|
|
+ '181' => "\xB5",
|
|
|
+ '182' => "\xB6",
|
|
|
+ '183' => "\xB7",
|
|
|
+ '185' => "\xB9",
|
|
|
+ '186' => "\xBA",
|
|
|
+ '187' => "\xBB",
|
|
|
+ '191' => "\xBF",
|
|
|
+ '192' => "\xC0",
|
|
|
+ '193' => "\xC1",
|
|
|
+ '194' => "\xC2",
|
|
|
+ '195' => "\xC3",
|
|
|
+ '196' => "\xC4",
|
|
|
+ '197' => "\xC5",
|
|
|
+ '198' => "\xC6",
|
|
|
+ '199' => "\xC7",
|
|
|
+ '200' => "\xC8",
|
|
|
+ '201' => "\xC9",
|
|
|
+ '202' => "\xCA",
|
|
|
+ '203' => "\xCB",
|
|
|
+ '204' => "\xCC",
|
|
|
+ '205' => "\xCD",
|
|
|
+ '206' => "\xCE",
|
|
|
+ '207' => "\xCF",
|
|
|
+ '208' => "\xD0",
|
|
|
+ '209' => "\xD1",
|
|
|
+ '210' => "\xD2",
|
|
|
+ '211' => "\xD3",
|
|
|
+ '212' => "\xD4",
|
|
|
+ '213' => "\xD5",
|
|
|
+ '214' => "\xD6",
|
|
|
+ '215' => "\xD7",
|
|
|
+ '216' => "\xD8",
|
|
|
+ '217' => "\xD9",
|
|
|
+ '218' => "\xDA",
|
|
|
+ '219' => "\xDB",
|
|
|
+ '220' => "\xDC",
|
|
|
+ '221' => "\xDD",
|
|
|
+ '222' => "\xDE",
|
|
|
+ '223' => "\xDF",
|
|
|
+ '224' => "\xE0",
|
|
|
+ '225' => "\xE1",
|
|
|
+ '226' => "\xE2",
|
|
|
+ '227' => "\xE3",
|
|
|
+ '228' => "\xE4",
|
|
|
+ '229' => "\xE5",
|
|
|
+ '230' => "\xE6",
|
|
|
+ '231' => "\xE7",
|
|
|
+ '232' => "\xE8",
|
|
|
+ '233' => "\xE9",
|
|
|
+ '234' => "\xEA",
|
|
|
+ '235' => "\xEB",
|
|
|
+ '236' => "\xEC",
|
|
|
+ '237' => "\xED",
|
|
|
+ '238' => "\xEE",
|
|
|
+ '239' => "\xEF",
|
|
|
+ '240' => "\xF0",
|
|
|
+ '241' => "\xF1",
|
|
|
+ '242' => "\xF2",
|
|
|
+ '243' => "\xF3",
|
|
|
+ '244' => "\xF4",
|
|
|
+ '245' => "\xF5",
|
|
|
+ '246' => "\xF6",
|
|
|
+ '247' => "\xF7",
|
|
|
+ '248' => "\xF8",
|
|
|
+ '249' => "\xF9",
|
|
|
+ '250' => "\xFA",
|
|
|
+ '251' => "\xFB",
|
|
|
+ '252' => "\xFC",
|
|
|
+ '253' => "\xFD",
|
|
|
+ '254' => "\xFE",
|
|
|
+ '255' => "\xFF",
|
|
|
+ '338' => "\xBC",
|
|
|
+ '339' => "\xBD",
|
|
|
+ '352' => "\xA6",
|
|
|
+ '353' => "\xA8",
|
|
|
+ '376' => "\xBE",
|
|
|
+ '381' => "\xB4",
|
|
|
+ '382' => "\xB8",
|
|
|
+ '8364' => "\xA4");
|
|
|
+
|
|
|
+ if (array_key_exists($var,$iso885915chars)) {
|
|
|
+ $ret=$iso885915chars[$var];
|
|
|
+ } else {
|
|
|
+ $ret='?';
|
|
|
+ }
|
|
|
+ return $ret;
|
|
|
+}
|
|
|
+?>
|
tokul