moving include to the top.
[squirrelmail.git] / functions / decode / iso_8859_6.php
1 <?php
2 /**
3 * decode/iso8859-6.php
4 *
5 * Copyright (c) 2003-2005 The SquirrelMail Project Team
6 * Licensed under the GNU GPL. For full terms see the file COPYING.
7 *
8 * This file contains iso-8859-6 decoding function that is needed to read
9 * iso-8859-6 encoded mails in non-iso-8859-6 locale.
10 *
11 * Original data taken from:
12 * ftp://ftp.unicode.org/Public/MAPPINGS/ISO8859/8859-6.TXT
13 *
14 * Name: ISO 8859-6:1999 to Unicode
15 * Unicode version: 3.0
16 * Table version: 1.0
17 * Table format: Format A
18 * Date: 1999 July 27
19 * Authors: Ken Whistler <kenw@sybase.com>
20 *
21 * Original copyright:
22 * Copyright (c) 1999 Unicode, Inc. All Rights reserved.
23 *
24 * This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
25 * No claims are made as to fitness for any particular purpose. No
26 * warranties of any kind are expressed or implied. The recipient
27 * agrees to determine applicability of information provided. If this
28 * file has been provided on optical media by Unicode, Inc., the sole
29 * remedy for any claim will be exchange of defective media within 90
30 * days of receipt.
31 *
32 * Unicode, Inc. hereby grants the right to freely use the information
33 * supplied in this file in the creation of products supporting the
34 * Unicode Standard, and to make copies of this file in any form for
35 * internal or external distribution as long as this notice remains
36 * attached.
37 *
38 * @version $Id$
39 * @package squirrelmail
40 * @subpackage decode
41 */
42
43 /**
44 * Decode iso8859-6 strings
45 * @param string $string Encoded string
46 * @return string $string Decoded string
47 */
48 function charset_decode_iso_8859_6 ($string) {
49 // don't do decoding when there are no 8bit symbols
50 if (! sq_is8bit($string,'iso-8859-6'))
51 return $string;
52
53 $iso8859_6 = array(
54 "\xA0" => '&#160;',
55 "\xA4" => '&#164;',
56 "\xAC" => '&#1548;',
57 "\xAD" => '&#173;',
58 "\xBB" => '&#1563;',
59 "\xBF" => '&#1567;',
60 "\xC1" => '&#1569;',
61 "\xC2" => '&#1570;',
62 "\xC3" => '&#1571;',
63 "\xC4" => '&#1572;',
64 "\xC5" => '&#1573;',
65 "\xC6" => '&#1574;',
66 "\xC7" => '&#1575;',
67 "\xC8" => '&#1576;',
68 "\xC9" => '&#1577;',
69 "\xCA" => '&#1578;',
70 "\xCB" => '&#1579;',
71 "\xCC" => '&#1580;',
72 "\xCD" => '&#1581;',
73 "\xCE" => '&#1582;',
74 "\xCF" => '&#1583;',
75 "\xD0" => '&#1584;',
76 "\xD1" => '&#1585;',
77 "\xD2" => '&#1586;',
78 "\xD3" => '&#1587;',
79 "\xD4" => '&#1588;',
80 "\xD5" => '&#1589;',
81 "\xD6" => '&#1590;',
82 "\xD7" => '&#1591;',
83 "\xD8" => '&#1592;',
84 "\xD9" => '&#1593;',
85 "\xDA" => '&#1594;',
86 "\xE0" => '&#1600;',
87 "\xE1" => '&#1601;',
88 "\xE2" => '&#1602;',
89 "\xE3" => '&#1603;',
90 "\xE4" => '&#1604;',
91 "\xE5" => '&#1605;',
92 "\xE6" => '&#1606;',
93 "\xE7" => '&#1607;',
94 "\xE8" => '&#1608;',
95 "\xE9" => '&#1609;',
96 "\xEA" => '&#1610;',
97 "\xEB" => '&#1611;',
98 "\xEC" => '&#1612;',
99 "\xED" => '&#1613;',
100 "\xEE" => '&#1614;',
101 "\xEF" => '&#1615;',
102 "\xF0" => '&#1616;',
103 "\xF1" => '&#1617;',
104 "\xF2" => '&#1618;'
105 );
106
107 $string = str_replace(array_keys($iso8859_6), array_values($iso8859_6), $string);
108
109 return $string;
110 }
111 ?>