From 9be313d537855a3bfa02432127005087b78e52ba Mon Sep 17 00:00:00 2001
From: philippe_mingo <philippe_mingo@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Tue, 3 Sep 2002 06:52:43 +0000
Subject: [PATCH] "Tomas Kuliavas" <tokul@users.sourceforge.net>

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@3531 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 functions/i18n.php | 97 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 97 insertions(+)

diff --git a/functions/i18n.php b/functions/i18n.php
index 3a916eff..92deb52a 100644
--- a/functions/i18n.php
+++ b/functions/i18n.php
@@ -34,8 +34,12 @@ function charset_decode ($charset, $string) {
             $ret = charset_decode_iso_8859_1 ($string);
         } else if ($res[1] == '2') {
             $ret = charset_decode_iso_8859_2 ($string);
+        } else if ($res[1] == '4') {
+            $ret = charset_decode_iso_8859_4 ($string);
         } else if ($res[1] == '7') {
             $ret = charset_decode_iso_8859_7 ($string);
+        } else if ($res[1] == '13') {
+            $ret = charset_decode_iso_8859_13 ($string);
         } else if ($res[1] == '15') {
             $ret = charset_decode_iso_8859_15 ($string);
         } else {
@@ -403,6 +407,53 @@ function charset_decode_iso_8859_2 ($string) {
     return $string;
 }
 
+/* 
+   iso-8859-4 is Baltic codeset used in some email clients 
+   instead of iso-8859-13 in Lithuania 
+   only Lithuanian charactes are added.
+*/
+
+function charset_decode_iso_8859_4 ($string) {
+    // latin capital a with ogonek
+    $string = str_replace ("\241", '&#0260;', $string);
+    // latin capital c with caron
+    $string = str_replace ("\310", '&#0268;', $string);
+    // latin capital e with ogonek
+    $string = str_replace ("\312", '&#0280;', $string);
+    // latin capital e with dot above
+    $string = str_replace ("\314", '&#0278;', $string);
+    // latin capital i with ogonek
+    $string = str_replace ("\307", '&#0302;', $string);
+    // latin capital s with caron
+    $string = str_replace ("\251", '&#0352;', $string);
+    // latin capital u with ogonek
+    $string = str_replace ("\331", '&#0370;', $string);
+    // latin capital u with macron
+    $string = str_replace ("\336", '&#0362;', $string);
+    // latin capital z with caron
+    $string = str_replace ("\256", '&#0381;', $string);
+    // latin small a with ogonek
+    $string = str_replace ("\261", '&#0261;', $string);
+    // latin small c with caron
+    $string = str_replace ("\350", '&#0269;', $string);
+    // latin small e with ogonek
+    $string = str_replace ("\352", '&#0281;', $string);
+    // latin small e with dot above
+    $string = str_replace ("\354", '&#0279;', $string);
+    // latin small i with ogonek
+    $string = str_replace ("\347", '&#0303;', $string);
+    // latin small s with caron
+    $string = str_replace ("\271", '&#0353;', $string);
+    // latin small u with ogonek
+    $string = str_replace ("\371", '&#0371;', $string);
+    // latin small u with macron
+    $string = str_replace ("\376", '&#0363;', $string);
+    // latin small z with caron
+    $string = str_replace ("\276", '&#0382;', $string);
+
+    return (charset_decode_iso_8859_1($string));
+}
+
 /* iso-8859-7 is Greek. */
 function charset_decode_iso_8859_7 ($string) {
     global $default_charset;
@@ -464,6 +515,52 @@ function charset_decode_iso_8859_7 ($string) {
     return $string;
 }
 
+/*
+ iso-8859-13 codeset used in Lithuania
+ only Lithuanian charactes are added.
+*/
+
+function charset_decode_iso_8859_13 ($string) {
+    // latin capital a with ogonek
+    $string = str_replace ("\300", '&#0260;', $string);
+    // latin capital c with caron
+    $string = str_replace ("\310", '&#0268;', $string);
+    // latin capital e with ogonek
+    $string = str_replace ("\306", '&#0280;', $string);
+    // latin capital e with dot above
+    $string = str_replace ("\313", '&#0278;', $string);
+    // latin capital i with ogonek
+    $string = str_replace ("\301", '&#0302;', $string);
+    // latin capital s with caron
+    $string = str_replace ("\320", '&#0352;', $string);
+    // latin capital u with ogonek
+    $string = str_replace ("\330", '&#0370;', $string);
+    // latin capital u with macron
+    $string = str_replace ("\333", '&#0362;', $string);
+    // latin capital z with caron
+    $string = str_replace ("\336", '&#0381;', $string);
+    // latin small a with ogonek
+    $string = str_replace ("\340", '&#0261;', $string);
+    // latin small c with caron
+    $string = str_replace ("\350", '&#0269;', $string);
+    // latin small e with ogonek
+    $string = str_replace ("\346", '&#0281;', $string);
+    // latin small e with dot above
+    $string = str_replace ("\353", '&#0279;', $string);
+    // latin small i with ogonek
+    $string = str_replace ("\341", '&#0303;', $string);
+    // latin small s with caron
+    $string = str_replace ("\360", '&#0353;', $string);
+    // latin small u with ogonek
+    $string = str_replace ("\370", '&#0371;', $string);
+    // latin small u with macron
+    $string = str_replace ("\373", '&#0363;', $string);
+    // latin small z with caron
+    $string = str_replace ("\376", '&#0382;', $string);
+
+    return (charset_decode_iso_8859_1($string));
+}
+
 /*
  * iso-8859-15 is Latin 9 and has very much the same use as Latin 1
  * but has the Euro symbol and some characters needed for French.
-- 
2.25.1