1 files changed, 136 insertions, 0 deletions
diff --git a/includes/language.inc b/includes/language.inc
new file mode 100644
index 000000000..d145fd7f7
--- /dev/null
+++ b/includes/language.inc
@@ -0,0 +1,136 @@
+<?php
+// $Id$
+
+/**
+ * @file
+ * Multiple language handling functionality.
+ */
+
+/**
+ *  Choose a language for the page, based on language negotiation settings.
+ */
+function language_initialize() {
+  global $user;
+  
+  $mode = variable_get('language_negotiation', LANGUAGE_NEGOTIATION_NONE);
+  switch($mode) {
+    case LANGUAGE_NEGOTIATION_NONE:
+      return language_default();
+    
+    case LANGUAGE_NEGOTIATION_DOMAIN:
+      $languages = language_list();
+      foreach($languages as $language) {
+        $parts = parse_url($language->domain);
+        if ($_SERVER['SERVER_NAME'] == $parts['host']) {
+          return $language;
+        }
+      }
+      return language_default();
+    
+    case LANGUAGE_NEGOTIATION_PATH_DEFAULT:
+    case LANGUAGE_NEGOTIATION_PATH:
+      $languages = language_list('prefix');
+      $args = explode('/', $_GET['q']);
+      $language = array_shift($args);
+      if (isset($languages[$language])) {
+        $_GET['q'] = implode('/', $args);
+        return $languages[$language];
+      }
+      elseif ($mode == LANGUAGE_NEGOTIATION_PATH_DEFAULT) {
+        return language_default();
+      }
+      break;
+  }
+  
+  // User language.
+  $languages = language_list();
+  if ($user->uid && isset($languages[$user->language])) {
+    return $languages[$user->language];
+  }
+  
+  // Browser accept-language parsing.
+  if ($language = language_from_browser()) {
+    return $language;
+  }
+  
+  // Fall back on the default if everything else fails.
+  return language_default();
+}
+
+/**
+ * Indetify language from the Accept-language HTTP header we got.
+ */
+function language_from_browser() {
+  // Specified by the user via the browser's Accept Language setting
+  // Samples: "hu, en-us;q=0.66, en;q=0.33", "hu,en-us;q=0.5"
+  $browser_langs = array();
+
+  if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
+    $browser_accept = explode(",", $_SERVER['HTTP_ACCEPT_LANGUAGE']);
+    for ($i = 0; $i < count($browser_accept); $i++) {
+      // The language part is either a code or a code with a quality.
+      // We cannot do anything with a * code, so it is skipped.
+      // If the quality is missing, it is assumed to be 1 according to the RFC.
+      if (preg_match("!([a-z-]+)(;q=([0-9\\.]+))?!", trim($browser_accept[$i]), $found)) {
+        $browser_langs[$found[1]] = (isset($found[3]) ? (float) $found[3] : 1.0);
+      }
+    }
+  }
+ 
+  // Order the codes by quality
+  arsort($browser_langs);
+
+  // Try to find the first preferred language we have
+  $languages = language_list('enabled');
+  foreach ($browser_langs as $langcode => $q) {
+    if (isset($languages['1'][$langcode])) {
+      return $languages['1'][$langcode];
+    }
+  }
+}
+
+/**
+ * Rewrite URL's with language based prefix. Parameters are the same
+ * as those of the url() function.
+ */
+function language_url_rewrite(&$path, &$options) {
+  global $language;
+
+  // Only modify relative (insite) URLs.
+  if (!$options['absolute']) {
+
+    // Language can be passed as an option, or we go for current language.
+    $path_language = isset($options['language']) ? $options['language'] : $language;
+    switch(variable_get('language_negotiation', LANGUAGE_NEGOTIATION_NONE)) {
+
+      case LANGUAGE_NEGOTIATION_NONE:
+        break;
+
+      case LANGUAGE_NEGOTIATION_DOMAIN:
+        if ($rewritelang->domain) {
+          $options['absolute'] = TRUE;
+          $path = $path_language->domain .'/'. $path;
+        }
+        break;
+
+      case LANGUAGE_NEGOTIATION_PATH_DEFAULT:
+        $default = language_default();
+        if ($path_language->language == $default->language) {
+          break;
+        }
+        // Intentionally no break here.
+
+      case LANGUAGE_NEGOTIATION_PATH:
+        if (isset($path_language->prefix) && $path_language->prefix) {        
+          // Get alias if not already aliased.
+          if (!$options['alias']) {
+            $path = drupal_get_path_alias($path, $path_language->language);
+            $options['alias'] = TRUE;
+          }   
+          $path = empty($path) ? $path_language->prefix : $path_language->prefix .'/'. $path;
+        }
+        break;
+
+    }
+  }
+}