Fix bugs introduced with latest changes

2 files changed, 30 insertions, 15 deletions

diff --git a/program/include/main.inc b/program/include/main.inc
index 9aa274f27..f938174d6 100644
--- a/program/include/main.inc
+++ b/program/include/main.inc
@@ -472,19 +472,11 @@ function rcmail_set_locale($lang)
   static $s_mbstring_loaded = NULL;
   
   // settings for mbstring module (by Tadashi Jokagi)
-  if (is_null($s_mbstring_loaded) && ($s_mbstring_loaded = extension_loaded("mbstring")))
-  {
-    $MBSTRING = array();
-    foreach (mb_list_encodings() as $charset)
-      $MBSTRING[strtoupper($charset)] = strtoupper($charset);
-    
-    // add some alias charsets
-    $MBSTRING['UTF-7'] = "UTF7-IMAP";
-    $MBSTRING['WINDOWS-1257'] = "ISO-8859-13";
-  }
-  else if (is_null($s_mbstring_loaded))
+  if (is_null($s_mbstring_loaded)) 
+    $MBSTRING = $s_mbstring_loaded = extension_loaded("mbstring"); 
+  else
     $MBSTRING = $s_mbstring_loaded = FALSE;
-    
+  
   if ($MBSTRING)
     mb_internal_encoding(RCMAIL_CHARSET);
 
@@ -1057,7 +1049,6 @@ function rcmail_message_cache_gc()
 function rcube_charset_convert($str, $from, $to=NULL)
   {
   global $MBSTRING;
-  static $mb_encodings;
 
   $from = strtoupper($from);
   $to = $to==NULL ? strtoupper(RCMAIL_CHARSET) : strtoupper($to);
@@ -1070,10 +1061,13 @@ function rcube_charset_convert($str, $from, $to=NULL)
     return iconv($from, $to . "//IGNORE", $str);
 
   // convert charset using mbstring module  
-  if ($MBSTRING && ($mbfrom = $MBSTRING[$from]) && ($mbto = $MBSTRING[$to]))
+  if ($MBSTRING)
     {
+    $to = $to=="UTF-7" ? "UTF7-IMAP" : $to; 
+    $from = $from=="UTF-7" ? "UTF7-IMAP": $from;
+    
     // return if convert succeeded
-    if (($out = mb_convert_encoding($str, $mbto, $mbfrom)) != '')
+    if (($out = mb_convert_encoding($str, $to, $from)) != '')
       return $out;
     }
 
diff --git a/program/include/rcube_shared.inc b/program/include/rcube_shared.inc
index acf98c938..eeca2b57a 100644
--- a/program/include/rcube_shared.inc
+++ b/program/include/rcube_shared.inc
@@ -523,6 +523,27 @@ function rc_strrpos($haystack, $needle, $offset=0)
 
 
 /**
+ * Read a specific HTTP request header
+ *
+ * @param string Header name
+ * @return string Header value or null if not available
+ */
+function rc_request_header($name)
+{
+  if (function_exists('getallheaders'))
+  {
+    $hdrs = getallheaders();
+    return $hdrs[$name];
+  }
+  else
+  {
+    $key = "HTTP_" . strtoupper(strtr($name, "-", "_"));
+    return $_SERVER[$key];
+  }
+}
+
+
+/**
  * Replace the middle part of a string with ...
  * if it is longer than the allowed length
  *