projects
/
squirrelmail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Happy New Year
[squirrelmail.git]
/
functions
/
decode
/
iso_8859_1.php
diff --git
a/functions/decode/iso_8859_1.php
b/functions/decode/iso_8859_1.php
index 6aea1b94ec9f2d50d1f17bf35d2a0eedbaed26af..027cac69df7b5609e2c078ba43f185f38fe5f8c7 100644
(file)
--- a/
functions/decode/iso_8859_1.php
+++ b/
functions/decode/iso_8859_1.php
@@
-1,13
+1,13
@@
<?php
<?php
+
/**
* decode/iso8859-1.php
*
/**
* decode/iso8859-1.php
*
- * Copyright (c) 2003-2005 The SquirrelMail Project Team
- * Licensed under the GNU GPL. For full terms see the file COPYING.
- *
* This file contains iso-8859-1 decoding function that is needed to read
* iso-8859-1 encoded mails in non-iso-8859-1 locale.
*
* This file contains iso-8859-1 decoding function that is needed to read
* iso-8859-1 encoded mails in non-iso-8859-1 locale.
*
+ * @copyright 2003-2018 The SquirrelMail Project Team
+ * @license http://opensource.org/licenses/gpl-license.php GNU Public License
* @version $Id$
* @package squirrelmail
* @subpackage decode
* @version $Id$
* @package squirrelmail
* @subpackage decode
@@
-23,13
+23,15
@@
function charset_decode_iso_8859_1 ($string) {
if (! sq_is8bit($string,'iso-8859-1'))
return $string;
if (! sq_is8bit($string,'iso-8859-1'))
return $string;
- $string = preg_replace("/([\201-\237])/e","'&#' . ord('\\1') . ';'",$string);
+ $string = preg_replace_callback("/([\201-\237])/",
+ create_function ('$matches', 'return \'&#\' . ord($matches[1]) . \';\';'),
+ $string);
/* I don't want to use 0xA0 (\240) in any ranges. RH73 may dislike it */
$string = str_replace("\240", ' ', $string);
/* I don't want to use 0xA0 (\240) in any ranges. RH73 may dislike it */
$string = str_replace("\240", ' ', $string);
- $string = preg_replace("/([\241-\377])/e","'&#' . ord('\\1') . ';'",$string);
+ $string = preg_replace_callback("/([\241-\377])/",
+ create_function ('$matches', 'return \'&#\' . ord($matches[1]) . \';\';'),
+ $string);
return $string;
}
return $string;
}
-
-?>
\ No newline at end of file