Translated using Weblate (Finnish)

[jirafeau.git] / lib / lang.php

diff --git a/lib/lang.php b/lib/lang.php
old mode 100755 (executable)
new mode 100644 (file)
index fd67e2d..b1b6198
--- a/lib/lang.php
+++ b/lib/lang.php
@@ -1,7 +1,7 @@
 <?php\r
 /*\r
  *  Jirafeau, your web file repository\r
- *  Copyright (C) 2012  Jerome Jutteau <j.jutteau@gmail.com>\r
+ *  Copyright (C) 2015  Jerome Jutteau <j.jutteau@gmail.com>\r
  *\r
  *  This program is free software: you can redistribute it and/or modify\r
  *  it under the terms of the GNU Affero General Public License as\r
@@ -17,10 +17,50 @@
  *  along with this program.  If not, see <http://www.gnu.org/licenses/>.\r
  */\r
 \r
-// Translation (TODO)\r
-function _($text)\r
+ global $languages_list;\r
+ $languages_list = array ('auto' => 'Automatic',\r
+                          'de' => 'Deutsch',\r
+                          'en' => 'English',\r
+                          'fr' => 'Français',\r
+                          'it' => 'Italiano');\r
+\r
+/* Translation */\r
+function t ($text)\r
 {\r
-    return ("$text");\r
+    $cfg = $GLOBALS['cfg'];\r
+    $languages_list = $GLOBALS['languages_list'];\r
+\r
+    /* Detect user's langage if we are in automatic mode. */\r
+    if (strcmp ($cfg['lang'], 'auto') == 0)\r
+        $l = substr ($_SERVER['HTTP_ACCEPT_LANGUAGE'], 0, 2);\r
+    else\r
+        $l = $cfg['lang'];\r
+\r
+    /* Is the langage in the list ? */\r
+    $found = false;\r
+    foreach ($languages_list as $key => $v)\r
+        if (strcmp ($l, $key) == 0)\r
+            $found = true;\r
+\r
+    /* Don't translate english. */\r
+    if (!($found && strcmp ($l, "en")))\r
+        return $text;\r
+\r
+    /* Open translation file. */\r
+    $trans_j = file_get_contents (JIRAFEAU_ROOT . "lib/locales/$l.json");\r
+    if ($trans_j === FALSE)\r
+        return $text;\r
+\r
+    /* Decode JSON. */\r
+    $trans = json_decode ($trans_j, true);\r
+    if ($trans === NULL)\r
+        return $text;\r
+\r
+    /* Try to find translation. */\r
+    if (!array_key_exists ($text, $trans))\r
+        return $text;\r
+\r
+    return $trans[$text];\r
 }\r
 \r
-?>
\ No newline at end of file
+?>\r