<?php // -*- mode:php; tab-width:4; indent-tabs-mode:t; c-basic-offset:4; -*-
#CMS - CMS Made Simple
#(c)2004-2008 by Ted Kulp (ted@cmsmadesimple.org)
#This project's homepage is: http://cmsmadesimple.org
#
#This program is free software; you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation; either version 2 of the License, or
#(at your option) any later version.
#
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#$Id: class.cms_language.php 3807 2007-03-05 03:05:39Z wishy $
 
/**
 * Methods for handling language and translation functions.
 *
 * @author Ted Kulp
 * @since 2.0
 * @version $Revision: 3807 $
 * @modifiedby $LastChangedBy: wishy $
 * @lastmodified $Date: 2007-03-04 20:05:39 -0700 (Sun, 04 Mar 2007) $
 * @license GPL
 **/
class CmsLanguage extends CmsObject
{
  private static $nls = null;
  private static $lang = array();
  private static $current_language = null;
 
  function __construct()
  {
    parent::__construct();
  }
  
  public static function translate($string, $params = array(), $module = 'core', $current_language = '')
  {
    if ($string == null || $string == '')
      return '';
 
    if (self::$nls == null)
    {
      self::$nls = CmsCache::get_instance()->call(array('CmsLanguage', 'load_nls_files'));
    }
    
    $current_language = $current_language != '' ? $current_language : CmsLanguage::get_current_language();
    
    if (!array_key_exists($module, self::$lang) || !array_key_exists($current_language, self::$lang[$module]))
    {
      CmsLanguage::load_lang_file($module, $current_language);
    }
 
    $result = null;
    
    if (array_key_exists($string, self::$lang[$module][$current_language]))
    {
      $result = self::$lang[$module][$current_language][$string];
    }
    else
    {
      //Send event here
      CmsEventOperations::send_event('Core', 'MissingTranslation', array('module' => $module, 'language' => $current_language, 'string' => $string, 'hash' => self::create_bt_hash(debug_backtrace())));
      $result = $string;
    }
 
    if (count($params) > 0)
    {
      $result = vsprintf($result, $params);
    }
    
    return $result;
  }
  
  public static function create_bt_hash($backtrace)
  {
    if (count($backtrace) > 1)
    {
      $num = 1;
      #if (($backtrace[$num]["function"] == '_' || $backtrace[$num]["function"] == '__' || $backtrace[$num]["function"] == 'call_user_func_array') && count($backtrace) > 2)
      #  $num = 2;
      #print_r($string, $backtrace[$num]["line"] . basename($backtrace[$num]["file"]) . $backtrace[$num]["function"] . '<br />');
      return md5($backtrace[$num]["line"] . basename($backtrace[$num]["file"]));
    }
    
    return '';
  }
  
  /**
   * Returns a list of all the registered languages in the system.  This does not necessarily
   * mean that the language file actually exists in the system, but it will be tried on all
   * translation calls before reverting back to the default language.
   *
   * @param boolean If you want to include the english translation of the language in the value
   * @return array Key/Value pairs of language id (en_US) and native names (English)
   * @author Ted Kulp
   **/
  public static function get_language_list($show_english = false)
  {
    if (self::$nls == null)
    {
      self::$nls = CmsCache::get_instance()->call(array('CmsLanguage', 'load_nls_files'));
    }
    
    $result = array();
    
    //asort(self::$nls['language']);
    
    foreach (self::$nls["language"] as $key=>$val)
    {
      $result[$key] = $val . (isset(self::$nls["englishlang"][$key]) && $show_english ? ' ('.self::$nls["englishlang"][$key].')' : '');
    }
    
    return $result;
  }
  
  public static function get_flag_image($language)
  {
    if (self::$nls == null)
    {
      self::$nls = CmsCache::get_instance()->call(array('CmsLanguage', 'load_nls_files'));
    }
    
    if (isset(self::$nls['flag_image'][$language]))
    {
      return 'images/lang/' . self::$nls['flag_image'][$language];
    }
    else
    {
      return '';
    }
  }
  
  private static function load_lang_file($module, $language)
  {
    $file = cms_join_path(ROOT_DIR, 'tmp', 'translations', $module . '.' . $language . '.xml');
    if (is_file($file))
    {
      //New parsing code
      $xml = simplexml_load_file($file);
      foreach ($xml as $one_entry)
      {
        self::$lang[$module][$language][(string)$one_entry->st] = (string)$one_entry->tr;
      }
    }
    else
    {
      $lang = array();
 
      if ($module == 'core')
      {
          $file = cms_join_path(ROOT_DIR, 'admin', 'lang', 'ext', $language, 'admin.inc.php');
        if (!is_file($file))
        {
          $file = cms_join_path(ROOT_DIR, 'admin', 'lang', $language, 'admin.inc.php');
        }
      }
      else
      {
          $file = cms_join_path(ROOT_DIR, 'modules', $module, 'lang', 'ext', $language . '.php');
        if (!is_file($file))
        {
          $file = cms_join_path(ROOT_DIR, 'modules', $module, 'lang', $language . '.php');
          if (!is_file($file))
          {
            $file = cms_join_path(ROOT_DIR, 'modules', $module, 'lang', 'ext', $language . '.php');            
          }
        }
      }
      
        if (is_file($file) && strlen($language) == 5 && strpos($language, ".") === false)
        {
        CmsProfiler::get_instance()->mark('Load:' . $file);
            include ($file);
        if (isset($lang['admin']) && is_array($lang['admin']) && count($lang['admin'] > 1))
        {
          $lang = $lang['admin'];
        }
        }
 
      self::$lang[$module][$language] =& $lang;
    }
  }
  
  public static function load_nls_files()
  {
    $nls = array();
    
    $xml = simplexml_load_file(cms_join_path(ROOT_DIR, 'tmp', 'translations', 'languages.xml'));
    
    foreach ($xml as $onelang)
    {
      $code = (string)$onelang->code;
      $nls['language'][$code] = (string)$onelang->native_name;
      $nls['englishlang'][$code] = (string)$onelang->english_name;
      $nls['flag_image'][$code] = (string)$onelang->flag_image;
      
      foreach ($onelang->aliases as $onealias)
      {
        foreach ($onealias->alias as $aliascode)
        {
          $nls['alias'][(string)$aliascode] = $code;  
        }
      }
    }
    
    return $nls;
  }
  
  private static function get_current_language()
  {
    #Check to see if there is already a language in use...
    if (self::$current_language == null)
    {
      $current_language = '';
    
      //See if it's in a cookie or posted.
      if (isset($_POST["default_cms_lang"]))
      {
        $current_language = $_POST["default_cms_lang"];
        if ($current_language == '')
        {
          setcookie("cms_language", '', time() - 3600);
        }
        else
        {
          setcookie("cms_language", $_POST["change_cms_lang"]);
        }
      }
      else if (isset($_SESSION['login_cms_language']))
      {
        debug_buffer('Setting language to: ' . $_SESSION['login_cms_language']);
        $current_language = $_SESSION['login_cms_language'];
        setcookie('cms_language', $_SESSION['login_cms_language']);
        unset($_SESSION['login_cms_language']);
      }
      else if (isset($_COOKIE["cms_language"]))
      {
        $current_language = $_COOKIE["cms_language"];
      }
      
      if ($current_language == '0')
        $current_language = '';
      
      //Anything yet?
      if ($current_language == '')
      {
        //Do we have a default locale in the config file?
        $config = cms_config();
        if (isset($config['locale']) && $config['locale'] != '')
        {
          $current_language = $config['locale'];
        }
        else
        {
          //No, take a stab at figuring out the default language...
          //Figure out default language and set it if it exists
          if (isset($_SERVER["HTTP_ACCEPT_LANGUAGE"])) 
          {
            $alllang = $_SERVER["HTTP_ACCEPT_LANGUAGE"];
            if (strpos($alllang, ";") !== FALSE)
              $alllang = substr($alllang,0,strpos($alllang, ";"));
            $langs = explode(",", $alllang);
 
            foreach ($langs as $onelang)
            {
              #Check to see if lang exists...
              if (isset(self::$nls['language'][$onelang]))
              {
                $current_language = $onelang;
                setcookie("cms_language", $onelang);
                break;
              }
              #Check to see if alias exists...
              if (isset(self::$nls['alias'][$onelang]))
              {
                $alias = self::$nls['alias'][$onelang];
                if (isset(self::$nls['language'][$alias]))
                {
                  $current_language = $alias;
                  setcookie("cms_language", $alias);
                  break;
                }
              }
            }
          }
        }
      }
      
      self::$current_language = ($current_language != '' ? $current_language : 'en_US');
    }
    
    return self::$current_language;
  }
}
 
# vim:ts=4 sw=4 noet
?>