[squirrelmail.git] / functions / encode / koi8_r.php

<?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-2012 The SquirrelMail Project Team
 * @license http://opensource.org/licenses/gpl-license.php GNU Public License
 * @version $Id$
 * @package squirrelmail
 * @subpackage encode
 */

/**
 * Converts string to koi8-r
 * @param string $string text with numeric unicode entities
 * @return string koi8-r encoded text
 */
function charset_encode_koi8_r ($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","unicodetokoi8r('\\1')",$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.
 * Don't use it or make sure, that functions/encode/koi8_r.php is
 * included.
 *
 * @param int $var decimal unicode value
 * @return string koi8-r character
 */
function unicodetokoi8r($var) {

    $koi8rchars=array('160' => "\x9A",
                      '169' => "\xBF",
                      '176' => "\x9C",
                      '178' => "\x9D",
                      '183' => "\x9E",
                      '247' => "\x9F",
                      '1025' => "\xB3",
                      '1040' => "\xE1",
                      '1041' => "\xE2",
                      '1042' => "\xF7",
                      '1043' => "\xE7",
                      '1044' => "\xE4",
                      '1045' => "\xE5",
                      '1046' => "\xF6",
                      '1047' => "\xFA",
                      '1048' => "\xE9",
                      '1049' => "\xEA",
                      '1050' => "\xEB",
                      '1051' => "\xEC",
                      '1052' => "\xED",
                      '1053' => "\xEE",
                      '1054' => "\xEF",
                      '1055' => "\xF0",
                      '1056' => "\xF2",
                      '1057' => "\xF3",
                      '1058' => "\xF4",
                      '1059' => "\xF5",
                      '1060' => "\xE6",
                      '1061' => "\xE8",
                      '1062' => "\xE3",
                      '1063' => "\xFE",
                      '1064' => "\xFB",
                      '1065' => "\xFD",
                      '1066' => "\xFF",
                      '1067' => "\xF9",
                      '1068' => "\xF8",
                      '1069' => "\xFC",
                      '1070' => "\xE0",
                      '1071' => "\xF1",
                      '1072' => "\xC1",
                      '1073' => "\xC2",
                      '1074' => "\xD7",
                      '1075' => "\xC7",
                      '1076' => "\xC4",
                      '1077' => "\xC5",
                      '1078' => "\xD6",
                      '1079' => "\xDA",
                      '1080' => "\xC9",
                      '1081' => "\xCA",
                      '1082' => "\xCB",
                      '1083' => "\xCC",
                      '1084' => "\xCD",
                      '1085' => "\xCE",
                      '1086' => "\xCF",
                      '1087' => "\xD0",
                      '1088' => "\xD2",
                      '1089' => "\xD3",
                      '1090' => "\xD4",
                      '1091' => "\xD5",
                      '1092' => "\xC6",
                      '1093' => "\xC8",
                      '1094' => "\xC3",
                      '1095' => "\xDE",
                      '1096' => "\xDB",
                      '1097' => "\xDD",
                      '1098' => "\xDF",
                      '1099' => "\xD9",
                      '1100' => "\xD8",
                      '1101' => "\xDC",
                      '1102' => "\xC0",
                      '1103' => "\xD1",
                      '1105' => "\xA3",
                      '8729' => "\x95",
                      '8730' => "\x96",
                      '8776' => "\x97",
                      '8804' => "\x98",
                      '8805' => "\x99",
                      '8992' => "\x93",
                      '8993' => "\x9B",
                      '9472' => "\x80",
                      '9474' => "\x81",
                      '9484' => "\x82",
                      '9488' => "\x83",
                      '9492' => "\x84",
                      '9496' => "\x85",
                      '9500' => "\x86",
                      '9508' => "\x87",
                      '9516' => "\x88",
                      '9524' => "\x89",
                      '9532' => "\x8A",
                      '9552' => "\xA0",
                      '9553' => "\xA1",
                      '9554' => "\xA2",
                      '9555' => "\xA4",
                      '9556' => "\xA5",
                      '9557' => "\xA6",
                      '9558' => "\xA7",
                      '9559' => "\xA8",
                      '9560' => "\xA9",
                      '9561' => "\xAA",
                      '9562' => "\xAB",
                      '9563' => "\xAC",
                      '9564' => "\xAD",
                      '9565' => "\xAE",
                      '9566' => "\xAF",
                      '9567' => "\xB0",
                      '9568' => "\xB1",
                      '9569' => "\xB2",
                      '9570' => "\xB4",
                      '9571' => "\xB5",
                      '9572' => "\xB6",
                      '9573' => "\xB7",
                      '9574' => "\xB8",
                      '9575' => "\xB9",
                      '9576' => "\xBA",
                      '9577' => "\xBB",
                      '9578' => "\xBC",
                      '9579' => "\xBD",
                      '9580' => "\xBE",
                      '9600' => "\x8B",
                      '9604' => "\x8C",
                      '9608' => "\x8D",
                      '9612' => "\x8E",
                      '9616' => "\x8F",
                      '9617' => "\x90",
                      '9618' => "\x91",
                      '9619' => "\x92",
                      '9632' => "\x94");

    if (array_key_exists($var,$koi8rchars)) {
        $ret=$koi8rchars[$var];
    } else {
        $ret='?';
    }
    return $ret;
}
Commit	Line	Data
9911dc64	1	<?php
4b4abf93	2
9911dc64	3	/**
	4	* koi8-r encoding functions
	5	*
	6	* takes a string of unicode entities and converts it to a koi8-r encoded string
	7	* Unsupported characters are replaced with ?.
	8	*
c0d96801	9	* @copyright 2004-2012 The SquirrelMail Project Team
4b4abf93	10	* @license http://opensource.org/licenses/gpl-license.php GNU Public License
9911dc64	11	* @version $Id$
9911dc64	12	* @package squirrelmail
	13	* @subpackage encode
	14	*/
	15
	16	/**
	17	* Converts string to koi8-r
	18	* @param string $string text with numeric unicode entities
	19	* @return string koi8-r encoded text
	20	*/
	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;
	24
	25	$string=preg_replace("/&#([0-9]+);/e","unicodetokoi8r('\\1')",$string);
91e0dccc	26
9911dc64	27	return $string;
	28	}
	29
	30	/**
	31	* Return koi8-r symbol when unicode character number is provided
91e0dccc	32	*
91e0dccc	33	* This function is used internally by charset_encode_koi8_r
598294a7	34	* function. It might be unavailable to other SquirrelMail functions.
91e0dccc	35	* Don't use it or make sure, that functions/encode/koi8_r.php is
91e0dccc	36	* included.
9911dc64	37	*
	38	* @param int $var decimal unicode value
	39	* @return string koi8-r character
	40	*/
	41	function unicodetokoi8r($var) {
	42
	43	$koi8rchars=array('160' => "\x9A",
	44	'169' => "\xBF",
	45	'176' => "\x9C",
	46	'178' => "\x9D",
	47	'183' => "\x9E",
	48	'247' => "\x9F",
	49	'1025' => "\xB3",
	50	'1040' => "\xE1",
	51	'1041' => "\xE2",
	52	'1042' => "\xF7",
	53	'1043' => "\xE7",
	54	'1044' => "\xE4",
	55	'1045' => "\xE5",
	56	'1046' => "\xF6",
	57	'1047' => "\xFA",
	58	'1048' => "\xE9",
	59	'1049' => "\xEA",
	60	'1050' => "\xEB",
	61	'1051' => "\xEC",
	62	'1052' => "\xED",
	63	'1053' => "\xEE",
	64	'1054' => "\xEF",
	65	'1055' => "\xF0",
	66	'1056' => "\xF2",
	67	'1057' => "\xF3",
	68	'1058' => "\xF4",
	69	'1059' => "\xF5",
	70	'1060' => "\xE6",
	71	'1061' => "\xE8",
	72	'1062' => "\xE3",
	73	'1063' => "\xFE",
	74	'1064' => "\xFB",
	75	'1065' => "\xFD",
	76	'1066' => "\xFF",
	77	'1067' => "\xF9",
	78	'1068' => "\xF8",
	79	'1069' => "\xFC",
	80	'1070' => "\xE0",
	81	'1071' => "\xF1",
	82	'1072' => "\xC1",
	83	'1073' => "\xC2",
	84	'1074' => "\xD7",
	85	'1075' => "\xC7",
	86	'1076' => "\xC4",
	87	'1077' => "\xC5",
	88	'1078' => "\xD6",
	89	'1079' => "\xDA",
	90	'1080' => "\xC9",
	91	'1081' => "\xCA",
	92	'1082' => "\xCB",
	93	'1083' => "\xCC",
	94	'1084' => "\xCD",
	95	'1085' => "\xCE",
	96	'1086' => "\xCF",
	97	'1087' => "\xD0",
	98	'1088' => "\xD2",
	99	'1089' => "\xD3",
	100	'1090' => "\xD4",
101	'1091' => "\xD5",
102	'1092' => "\xC6",
103	'1093' => "\xC8",
104	'1094' => "\xC3",
105	'1095' => "\xDE",
106	'1096' => "\xDB",
107	'1097' => "\xDD",
108	'1098' => "\xDF",
109	'1099' => "\xD9",
110	'1100' => "\xD8",
111	'1101' => "\xDC",
112	'1102' => "\xC0",
113	'1103' => "\xD1",
114	'1105' => "\xA3",
115	'8729' => "\x95",
116	'8730' => "\x96",
117	'8776' => "\x97",
118	'8804' => "\x98",
119	'8805' => "\x99",
120	'8992' => "\x93",
121	'8993' => "\x9B",
122	'9472' => "\x80",
123	'9474' => "\x81",
124	'9484' => "\x82",
125	'9488' => "\x83",
126	'9492' => "\x84",
127	'9496' => "\x85",
128	'9500' => "\x86",
129	'9508' => "\x87",
130	'9516' => "\x88",
131	'9524' => "\x89",
132	'9532' => "\x8A",
133	'9552' => "\xA0",
134	'9553' => "\xA1",
135	'9554' => "\xA2",
136	'9555' => "\xA4",
137	'9556' => "\xA5",
138	'9557' => "\xA6",
139	'9558' => "\xA7",
140	'9559' => "\xA8",
141	'9560' => "\xA9",
142	'9561' => "\xAA",
143	'9562' => "\xAB",
144	'9563' => "\xAC",
145	'9564' => "\xAD",
146	'9565' => "\xAE",
147	'9566' => "\xAF",
148	'9567' => "\xB0",
149	'9568' => "\xB1",
150	'9569' => "\xB2",
151	'9570' => "\xB4",
152	'9571' => "\xB5",
153	'9572' => "\xB6",
154	'9573' => "\xB7",
155	'9574' => "\xB8",
156	'9575' => "\xB9",
157	'9576' => "\xBA",
158	'9577' => "\xBB",
159	'9578' => "\xBC",
160	'9579' => "\xBD",
161	'9580' => "\xBE",
162	'9600' => "\x8B",
163	'9604' => "\x8C",
164	'9608' => "\x8D",
165	'9612' => "\x8E",
166	'9616' => "\x8F",
167	'9617' => "\x90",
168	'9618' => "\x91",
169	'9619' => "\x92",
170	'9632' => "\x94");
171
172	if (array_key_exists($var,$koi8rchars)) {
173	$ret=$koi8rchars[$var];
174	} else {
175	$ret='?';
176	}
177	return $ret;
178	}