123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170 |
- <?php
- /*
- * decode/cp10081.php
- * $Id$
- *
- * Copyright (c) 2003 The SquirrelMail Project Team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
- *
- * This file contains cp10081 (MacTurkish) decoding function that
- * is needed to read cp10081 encoded mails in non-cp10081 locale.
- *
- * Original data taken from:
- * ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/MAC/TURKISH.TXT
- *
- * Name: cp10081_MacTurkish to Unicode table
- * Unicode version: 2.0
- * Table version: 2.00
- * Table format: Format A
- * Date: 04/24/96
- * Authors: Lori Brownell <loribr@microsoft.com>
- * K.D. Chang <a-kchang@microsoft.com>
- */
- function charset_decode_cp10081 ($string) {
- global $default_charset;
- if (strtolower($default_charset) == 'x-mac-turkish')
- return $string;
- /* Only do the slow convert if there are 8-bit characters */
- /* avoid using 0xA0 (\240) in ereg ranges. RH73 does not like that */
- if (! ereg("[\200-\237]", $string) and ! ereg("[\241-\377]", $string) )
- return $string;
- $cp10081 = array(
- "\0x80" => 'Ä',
- "\0x81" => 'Å',
- "\0x82" => 'Ç',
- "\0x83" => 'É',
- "\0x84" => 'Ñ',
- "\0x85" => 'Ö',
- "\0x86" => 'Ü',
- "\0x87" => 'á',
- "\0x88" => 'à',
- "\0x89" => 'â',
- "\0x8A" => 'ä',
- "\0x8B" => 'ã',
- "\0x8C" => 'å',
- "\0x8D" => 'ç',
- "\0x8E" => 'é',
- "\0x8F" => 'è',
- "\0x90" => 'ê',
- "\0x91" => 'ë',
- "\0x92" => 'í',
- "\0x93" => 'ì',
- "\0x94" => 'î',
- "\0x95" => 'ï',
- "\0x96" => 'ñ',
- "\0x97" => 'ó',
- "\0x98" => 'ò',
- "\0x99" => 'ô',
- "\0x9A" => 'ö',
- "\0x9B" => 'õ',
- "\0x9C" => 'ú',
- "\0x9D" => 'ù',
- "\0x9E" => 'û',
- "\0x9F" => 'ü',
- "\0xA0" => '†',
- "\0xA1" => '°',
- "\0xA2" => '¢',
- "\0xA3" => '£',
- "\0xA4" => '§',
- "\0xA5" => '•',
- "\0xA6" => '¶',
- "\0xA7" => 'ß',
- "\0xA8" => '®',
- "\0xA9" => '©',
- "\0xAA" => '™',
- "\0xAB" => '´',
- "\0xAC" => '¨',
- "\0xAD" => '≠',
- "\0xAE" => 'Æ',
- "\0xAF" => 'Ø',
- "\0xB0" => '∞',
- "\0xB1" => '±',
- "\0xB2" => '≤',
- "\0xB3" => '≥',
- "\0xB4" => '¥',
- "\0xB5" => 'µ',
- "\0xB6" => '∂',
- "\0xB7" => '∑',
- "\0xB8" => '∏',
- "\0xB9" => 'π',
- "\0xBA" => '∫',
- "\0xBB" => 'ª',
- "\0xBC" => 'º',
- "\0xBD" => 'Ω',
- "\0xBE" => 'æ',
- "\0xBF" => 'ø',
- "\0xC0" => '¿',
- "\0xC1" => '¡',
- "\0xC2" => '¬',
- "\0xC3" => '√',
- "\0xC4" => 'ƒ',
- "\0xC5" => '≈',
- "\0xC6" => '∆',
- "\0xC7" => '«',
- "\0xC8" => '»',
- "\0xC9" => '…',
- "\0xCA" => ' ',
- "\0xCB" => 'À',
- "\0xCC" => 'Ã',
- "\0xCD" => 'Õ',
- "\0xCE" => 'Œ',
- "\0xCF" => 'œ',
- "\0xD0" => '–',
- "\0xD1" => '—',
- "\0xD2" => '“',
- "\0xD3" => '”',
- "\0xD4" => '‘',
- "\0xD5" => '’',
- "\0xD6" => '÷',
- "\0xD7" => '◊',
- "\0xD8" => 'ÿ',
- "\0xD9" => 'Ÿ',
- "\0xDA" => 'Ğ',
- "\0xDB" => 'ğ',
- "\0xDC" => 'İ',
- "\0xDD" => 'ı',
- "\0xDE" => 'Ş',
- "\0xDF" => 'ş',
- "\0xE0" => '‡',
- "\0xE1" => '·',
- "\0xE2" => '‚',
- "\0xE3" => '„',
- "\0xE4" => '‰',
- "\0xE5" => 'Â',
- "\0xE6" => 'Ê',
- "\0xE7" => 'Á',
- "\0xE8" => 'Ë',
- "\0xE9" => 'È',
- "\0xEA" => 'Í',
- "\0xEB" => 'Î',
- "\0xEC" => 'Ï',
- "\0xED" => 'Ì',
- "\0xEE" => 'Ó',
- "\0xEF" => 'Ô',
- "\0xF0" => '',
- "\0xF1" => 'Ò',
- "\0xF2" => 'Ú',
- "\0xF3" => 'Û',
- "\0xF4" => 'Ù',
- "\0xF5" => '',
- "\0xF6" => 'ˆ',
- "\0xF7" => '˜',
- "\0xF8" => '¯',
- "\0xF9" => '˘',
- "\0xFA" => '˙',
- "\0xFB" => '˚',
- "\0xFC" => '¸',
- "\0xFD" => '˝',
- "\0xFE" => '˛',
- "\0xFF" => 'ˇ'
- );
- $string = str_replace(array_keys($cp10081), array_values($cp10081), $string);
- return $string;
- }
- ?>
|