<?php
+
/**
* decode/iso8859-4.php
- * $Id$
- *
- * Copyright (c) 2003-2004 The SquirrelMail Project Team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
*
* This file contains iso-8859-4 decoding function that is needed to read
* iso-8859-4 encoded mails in non-iso-8859-4 locale.
- *
+ *
* Original data taken from:
* ftp://ftp.unicode.org/Public/MAPPINGS/ISO8859/8859-4.TXT
*
* Authors: Ken Whistler <kenw@sybase.com>
*
* Original copyright:
- * Copyright (c) 1999 Unicode, Inc. All Rights reserved.
+ * Copyright (c) 1999 Unicode, Inc. All Rights reserved.
+ *
+ * This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
+ * No claims are made as to fitness for any particular purpose. No
+ * warranties of any kind are expressed or implied. The recipient
+ * agrees to determine applicability of information provided. If this
+ * file has been provided on optical media by Unicode, Inc., the sole
+ * remedy for any claim will be exchange of defective media within 90
+ * days of receipt.
*
- * This file is provided as-is by Unicode, Inc. (The Unicode Consortium).
- * No claims are made as to fitness for any particular purpose. No
- * warranties of any kind are expressed or implied. The recipient
- * agrees to determine applicability of information provided. If this
- * file has been provided on optical media by Unicode, Inc., the sole
- * remedy for any claim will be exchange of defective media within 90
- * days of receipt.
+ * Unicode, Inc. hereby grants the right to freely use the information
+ * supplied in this file in the creation of products supporting the
+ * Unicode Standard, and to make copies of this file in any form for
+ * internal or external distribution as long as this notice remains
+ * attached.
*
- * Unicode, Inc. hereby grants the right to freely use the information
- * supplied in this file in the creation of products supporting the
- * Unicode Standard, and to make copies of this file in any form for
- * internal or external distribution as long as this notice remains
- * attached.
+ * @copyright 2003-2021 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
+ * @version $Id$
* @package squirrelmail
* @subpackage decode
*/
* @return string $string Decoded string
*/
function charset_decode_iso_8859_4 ($string) {
- global $default_charset;
-
- if (strtolower($default_charset) == 'iso-8859-4')
- return $string;
-
- /* Only do the slow convert if there are 8-bit characters */
- /* there is no 0x80-0x9F letters in ISO8859-* */
- if ( ! ereg("[\241-\377]", $string) )
+ // don't do decoding when there are no 8bit symbols
+ if (! sq_is8bit($string,'iso-8859-4'))
return $string;
$iso8859_4 = array(
- "\xA0" => ' ',
- "\xA1" => 'Ą',
- "\xA2" => 'ĸ',
- "\xA3" => 'Ŗ',
- "\xA4" => '¤',
- "\xA5" => 'Ĩ',
- "\xA6" => 'Ļ',
- "\xA7" => '§',
- "\xA8" => '¨',
- "\xA9" => 'Š',
- "\xAA" => 'Ē',
- "\xAB" => 'Ģ',
- "\xAC" => 'Ŧ',
- "\xAD" => '­',
- "\xAE" => 'Ž',
- "\xAF" => '¯',
- "\xB0" => '°',
- "\xB1" => 'ą',
- "\xB2" => '˛',
- "\xB3" => 'ŗ',
- "\xB4" => '´',
- "\xB5" => 'ĩ',
- "\xB6" => 'ļ',
- "\xB7" => 'ˇ',
- "\xB8" => '¸',
- "\xB9" => 'š',
- "\xBA" => 'ē',
- "\xBB" => 'ģ',
- "\xBC" => 'ŧ',
- "\xBD" => 'Ŋ',
- "\xBE" => 'ž',
- "\xBF" => 'ŋ',
- "\xC0" => 'Ā',
- "\xC1" => 'Á',
- "\xC2" => 'Â',
- "\xC3" => 'Ã',
- "\xC4" => 'Ä',
- "\xC5" => 'Å',
- "\xC6" => 'Æ',
- "\xC7" => 'Į',
- "\xC8" => 'Č',
- "\xC9" => 'É',
- "\xCA" => 'Ę',
- "\xCB" => 'Ë',
- "\xCC" => 'Ė',
- "\xCD" => 'Í',
- "\xCE" => 'Î',
- "\xCF" => 'Ī',
- "\xD0" => 'Đ',
- "\xD1" => 'Ņ',
- "\xD2" => 'Ō',
- "\xD3" => 'Ķ',
- "\xD4" => 'Ô',
- "\xD5" => 'Õ',
- "\xD6" => 'Ö',
- "\xD7" => '×',
- "\xD8" => 'Ø',
- "\xD9" => 'Ų',
- "\xDA" => 'Ú',
- "\xDB" => 'Û',
- "\xDC" => 'Ü',
- "\xDD" => 'Ũ',
- "\xDE" => 'Ū',
- "\xDF" => 'ß',
- "\xE0" => 'ā',
- "\xE1" => 'á',
- "\xE2" => 'â',
- "\xE3" => 'ã',
- "\xE4" => 'ä',
- "\xE5" => 'å',
- "\xE6" => 'æ',
- "\xE7" => 'į',
- "\xE8" => 'č',
- "\xE9" => 'é',
- "\xEA" => 'ę',
- "\xEB" => 'ë',
- "\xEC" => 'ė',
- "\xED" => 'í',
- "\xEE" => 'î',
- "\xEF" => 'ī',
- "\xF0" => 'đ',
- "\xF1" => 'ņ',
- "\xF2" => 'ō',
- "\xF3" => 'ķ',
- "\xF4" => 'ô',
- "\xF5" => 'õ',
- "\xF6" => 'ö',
- "\xF7" => '÷',
- "\xF8" => 'ø',
- "\xF9" => 'ų',
- "\xFA" => 'ú',
- "\xFB" => 'û',
- "\xFC" => 'ü',
- "\xFD" => 'ũ',
- "\xFE" => 'ū',
- "\xFF" => '˙'
+ "\xA0" => ' ',
+ "\xA1" => 'Ą',
+ "\xA2" => 'ĸ',
+ "\xA3" => 'Ŗ',
+ "\xA4" => '¤',
+ "\xA5" => 'Ĩ',
+ "\xA6" => 'Ļ',
+ "\xA7" => '§',
+ "\xA8" => '¨',
+ "\xA9" => 'Š',
+ "\xAA" => 'Ē',
+ "\xAB" => 'Ģ',
+ "\xAC" => 'Ŧ',
+ "\xAD" => '­',
+ "\xAE" => 'Ž',
+ "\xAF" => '¯',
+ "\xB0" => '°',
+ "\xB1" => 'ą',
+ "\xB2" => '˛',
+ "\xB3" => 'ŗ',
+ "\xB4" => '´',
+ "\xB5" => 'ĩ',
+ "\xB6" => 'ļ',
+ "\xB7" => 'ˇ',
+ "\xB8" => '¸',
+ "\xB9" => 'š',
+ "\xBA" => 'ē',
+ "\xBB" => 'ģ',
+ "\xBC" => 'ŧ',
+ "\xBD" => 'Ŋ',
+ "\xBE" => 'ž',
+ "\xBF" => 'ŋ',
+ "\xC0" => 'Ā',
+ "\xC1" => 'Á',
+ "\xC2" => 'Â',
+ "\xC3" => 'Ã',
+ "\xC4" => 'Ä',
+ "\xC5" => 'Å',
+ "\xC6" => 'Æ',
+ "\xC7" => 'Į',
+ "\xC8" => 'Č',
+ "\xC9" => 'É',
+ "\xCA" => 'Ę',
+ "\xCB" => 'Ë',
+ "\xCC" => 'Ė',
+ "\xCD" => 'Í',
+ "\xCE" => 'Î',
+ "\xCF" => 'Ī',
+ "\xD0" => 'Đ',
+ "\xD1" => 'Ņ',
+ "\xD2" => 'Ō',
+ "\xD3" => 'Ķ',
+ "\xD4" => 'Ô',
+ "\xD5" => 'Õ',
+ "\xD6" => 'Ö',
+ "\xD7" => '×',
+ "\xD8" => 'Ø',
+ "\xD9" => 'Ų',
+ "\xDA" => 'Ú',
+ "\xDB" => 'Û',
+ "\xDC" => 'Ü',
+ "\xDD" => 'Ũ',
+ "\xDE" => 'Ū',
+ "\xDF" => 'ß',
+ "\xE0" => 'ā',
+ "\xE1" => 'á',
+ "\xE2" => 'â',
+ "\xE3" => 'ã',
+ "\xE4" => 'ä',
+ "\xE5" => 'å',
+ "\xE6" => 'æ',
+ "\xE7" => 'į',
+ "\xE8" => 'č',
+ "\xE9" => 'é',
+ "\xEA" => 'ę',
+ "\xEB" => 'ë',
+ "\xEC" => 'ė',
+ "\xED" => 'í',
+ "\xEE" => 'î',
+ "\xEF" => 'ī',
+ "\xF0" => 'đ',
+ "\xF1" => 'ņ',
+ "\xF2" => 'ō',
+ "\xF3" => 'ķ',
+ "\xF4" => 'ô',
+ "\xF5" => 'õ',
+ "\xF6" => 'ö',
+ "\xF7" => '÷',
+ "\xF8" => 'ø',
+ "\xF9" => 'ų',
+ "\xFA" => 'ú',
+ "\xFB" => 'û',
+ "\xFC" => 'ü',
+ "\xFD" => 'ũ',
+ "\xFE" => 'ū',
+ "\xFF" => '˙'
);
$string = str_replace(array_keys($iso8859_4), array_values($iso8859_4), $string);
return $string;
}
-
-?>