6 * Copyright (c) 2003 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 * This file contains cp10006 (MacGreek) decoding function that
10 * is needed to read cp10006 encoded mails in non-cp10006 locale.
12 * Original data taken from:
13 * ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/MAC/GREEK.TXT
15 * Name: cp10006_MacGreek to Unicode table
16 * Unicode version: 2.0
18 * Table format: Format A
20 * Authors: Lori Brownell <loribr@microsoft.com>
21 * K.D. Chang <a-kchang@microsoft.com>
24 function charset_decode_cp10006 ($string) {
25 global $default_charset;
27 if (strtolower($default_charset) == 'x-mac-greek')
30 /* Only do the slow convert if there are 8-bit characters */
31 /* avoid using 0xA0 (\240) in ereg ranges. RH73 does not like that */
32 if (! ereg("[\200-\237]", $string) and ! ereg("[\241-\377]", $string) )
105 "\0xC5" => '≈',
109 "\0xC9" => '…',
116 "\0xD0" => '–',
117 "\0xD1" => '―',
118 "\0xD2" => '“',
119 "\0xD3" => '”',
120 "\0xD4" => '‘',
121 "\0xD5" => '’',
163 "\0xFF" => ''
166 $string = str_replace(array_keys($cp10006), array_values($cp10006), $string);