Mambo > Projects > Mambo CMS > SVN

Diff of /mambo/branches/4.6/includes/core.classes.php

-revision 529, Sat May 20 21:01:36 2006 UTC
+revision 1396, Tue Nov 13 09:59:41 2007 UTC
 Line 1
  <?php
+ /**
+ * @package Mambo
+ * @author Mambo Foundation Inc see README.php
+ * @copyright Mambo Foundation Inc.
+ * See COPYRIGHT.php for copyright notices and details.
+ * @license GNU/GPL Version 2, see LICENSE.php
+ * Mambo 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; version 2 of the License.
+ */
  /**
  * Mambo basic error object
-Line 10
+Line 18
  define ('_MOS_ERROR_SEVERE', 2);
  define ('_MOS_ERROR_FATAL', 3);
+ /**
+  * Enter description here...
+  *
+  */
  class mosError {
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $text = '';
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $level = 0;
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $text
+      * @param unknown_type $level
+      * @return mosError
+      */
      function mosError ($text='', $level=_MOS_ERROR_INFORM) {
          $this->text = $text;
          $this->level = $level;
-Line 24
+Line 53
  * Mambo group of errors for some particular operation
  */
  class mosErrorSet {
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $errors = array();
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $maxlevel = 0;
      // Parameter is an error object
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $error
+      */
      function addError ($error) {
          $this->errors[] = $error;
          if ($error->level > $this->maxlevel) $this->maxlevel = $error->level;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $text
+      * @param unknown_type $level
+      */
      function addErrorDetails ($text='', $level=_MOS_ERROR_INFORM) {
          $error = new mosError($text, $level);
          $this->addError($error);
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function &getErrors () {
          return $this->errors;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function getMaxLevel () {
          return $this->maxlevel;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function getCount () {
          return count($this->errors);
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $errorset
+      */
      function mergeAnother ($errorset) {
          $this->errors = array_merge($this->errors, $errorset->errors);
      }
-Line 57
+Line 127
  }
+ /* This is the new error handler to store errors in the database
+ class mosErrorHandler {
+ var $types = array (
+ E_STRICT => 'Strict check',
+ E_USER_WARNING => 'User Warning',
+ E_USER_NOTICE => 'User Notice',
+ E_WARNING => 'Warning',
+ E_NOTICE => 'Notice',
+ E_CORE_WARNING => 'Core Warning',
+ E_COMPILE_WARNING => 'Compile Warning',
+ E_USER_ERROR => 'User Error',
+ E_ERROR => 'Error',
+ E_PARSE => 'Parse error',
+ E_CORE_ERROR => 'Core Error',
+ E_COMPILE_ERROR => 'Compile Error'
+ );
+ function mosErrorHandler () {
+ set_error_handler(array(&$this, 'handler'));
+ }
+ function handler ($errno, $errstr, $errfile, $errline, $errcontext) {
+ if ($errno = E_STRICT) return;
+ $string = $this->types[$errno].': '.$errstr.' in '.$errfile.' at '.$errline;
+ $database =& mamboDatabase::getInstance();
+ if (eregi('^(sql)$', $errstr)) {
+ $extra = $database->getErrorMsg();
+ }
+ if (function_exists('debug_backtrace')) {
+ foreach(debug_backtrace() as $back) {
+ if (@$back['file']) {
+ $extra .= "\n".$back['file'].':'.$back['line'];
+ }
+ }
+ }
+ $database->setQuery("DELETE FROM #__errors WHERE file=$errfile AND line=$errline AND number=$errno");
+ $database->query();
+ $database->setQuery("INSERT INTO #__errors VALUES (0, $errno, '$errfile', $errline, '$string', '$extra')");
+ $database->query();
+ }
+ }
+ */
+ /**
+  * Enter description here...
+  *
+  */
  class mamboCore {
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $rootPath = '';
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $Itemid = 0;
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $option = '';
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $subdirectory;
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $current_user = null;
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $do_gzip_compress = false;
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $init_errorlevel = 0;
+     /**
+      * Enter description here...
+      *
+      * @return mamboCore
+      */
      function mamboCore () {
          global $adminside;
          $this->init_errorlevel = error_reporting(0);
-         $this->rootPath = str_replace('\\', '/', realpath('../'));
+         //$this->rootPath = str_replace('\\', '/', realpath(str_replace('includes', '', dirname(__FILE__))));
+         $this->rootPath = str_replace('\\', '/',str_replace('includes', '', dirname(__FILE__)));
          $this->checkConfig();
          $this->Itemid = mosGetParam($_REQUEST, 'Itemid', 0);
          $this->getConfig();
-Line 79
+Line 237
          else error_reporting($this->init_errorlevel);
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function &getMamboCore () {
          static $instance;
          if (!is_object($instance)) $instance = new mamboCore();
          return $instance;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function rootPath () {
-         if (realpath($this->rootPath) === false) die ('Invalid program load path');
+         //if (realpath($this->rootPath) === false) die ('Invalid program load path');
+         if (file_exists($this->rootPath) === false) die ('Invalid program load path');
          return $this->rootPath;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $property
+      * @return unknown
+      */
      function get ($property) {
          $config =& mamboCore::getMamboCore();
          if ($property == 'mosConfig_absolute_path') {
-             if (realpath($config->mosConfig_absolute_path) === false) die ('Invalid program load path');
+             //if (realpath($config->mosConfig_absolute_path) === false) die ('Invalid program load path');
+             if (file_exists($config->mosConfig_absolute_path) === false) die ('Invalid program load path');
              else return $config->rootPath;
          }
          if (isset($config->$property)) return $config->$property;
-Line 101
+Line 277
          return null;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $property
+      * @return unknown
+      */
      function is_set ($property) {
          $config =& mamboCore::getMamboCore();
          return isset($config->$property);
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $property
+      * @param unknown_type $value
+      * @return unknown
+      */
      function set ($property, $value) {
          $config =& mamboCore::getMamboCore();
          $config->$property = $value;
-Line 113
+Line 302
          return $value;
      }
+     /**
+      * Enter description here...
+      *
+      */
      function checkConfig () {
          // checks for configuration file, if none found loads installation page
          if (!file_exists($this->rootPath.'/configuration.php') OR filesize($this->rootPath.'/configuration.php') < 10 ) {
-Line 121
+Line 314
          }
      }
+     /**
+      * Enter description here...
+      *
+      */
      function getConfig () {
          global $adminside;
          $code = '';
          $f = @fopen($this->rootPath.'/configuration.php','rb');
          if ($f) {
              while ($f AND !feof($f)) {
-                 $line = fgets($f, 256);
+                 $line = fgets($f);
-                 $altered = str_replace('$', '$this->', $line);
+                 $altered = preg_replace('/^\$/', '$this->', $line);
                  if ($altered != $line) $code .= $altered;
              }
          }
          else {
-             header( 'Location: installation/index.php' );
+             #header( 'Location: installation/index.php' );
              exit();
          }
          fclose($f);
          eval($code);
-         if (isset($_SERVER['DOCUMENT_ROOT']) AND strlen($_SERVER['DOCUMENT_ROOT'])) $docroot = str_replace('\\', '/', str_replace('\\\\', '\\', $_SERVER['DOCUMENT_ROOT']));
-         else {
+         /*if (isset($_SERVER['DOCUMENT_ROOT']) AND strlen($_SERVER['DOCUMENT_ROOT'])) {
+             $docroot = str_replace('\\', '/', str_replace('\\\\', '\\', $_SERVER['DOCUMENT_ROOT']));
+         }
+         else {*/
              // Find information about where execution started
              $origin = array_pop(debug_backtrace());
              // Find the PHP script at the start, with a fix for Windows slashes
              $absolutepath = str_replace('\\', '/', $origin['file']);
              $localpath = $_SERVER['PHP_SELF'];
              $docroot = substr($absolutepath,0,strpos($absolutepath,$localpath));
-         }
+         /*}*/
-         $mamboroot = str_replace('\\', '/', dirname(__FILE__));
+         $mamboroot = str_replace('\\', '/', rtrim($this->rootPath, '\/'));
          $this->subdirectory = substr($mamboroot, strlen($docroot));
          $scheme = isset($_SERVER['HTTP_SCHEME']) ? $_SERVER['HTTP_SCHEME'] : ((isset($_SERVER['HTTPS']) AND strtolower($_SERVER['HTTPS'] != 'off')) ? 'https' : 'http');
          if (isset($_SERVER['HTTP_HOST'])) {
              $withport = explode(':', $_SERVER['HTTP_HOST']);
-Line 163
+Line 365
          }
          else $port = '';
          $afterscheme = '://'.$servername.$port.$this->subdirectory;
-         $this->mosConfig_live_site = $this->mosConfig_secure_site = $scheme.$afterscheme;
+         //$this->mosConfig_live_site = $this->mosConfig_secure_site = $scheme.$afterscheme;
          $this->mosConfig_unsecure_site = 'http'.$afterscheme;
          $this->mosConfig_absolute_path = $this->rootPath;
          preg_match_all('/\$this\-\>([A-Za-z_][A-Za-z0-9_]*)/', $code, $matches);
-Line 172
+Line 374
              $this->mosConfig_register_globals = 0;
              $GLOBALS['mosConfig_register_globals'] = 0;
          }
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function getFavIcon () {
          // favourites icon
          if (!isset($this->mosConfig_favicon)) $this->mosConfig_favicon = 'favicon.ico';
-Line 181
+Line 389
          return $this->mosConfig_live_site.'/images/'.$this->mosConfig_favicon;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $user
+      * @param unknown_type $database
+      */
      function offlineCheck (&$user, &$database) {
-         if ($this->mosConfig_offline OR file_exists($this->rootPath.'/installation/index.php')) {
+     global $adminside;
+         if (($this->mosConfig_offline && !$adminside) OR file_exists($this->rootPath.'/installation/index.php')) {
              require_once($this->rootPath().'/administrator/includes/admin.php');
              session_name(md5($this->mosConfig_live_site));
              session_start();
-Line 195
+Line 410
          }
      }
+     /**
+      * Enter description here...
+      *
+      */
      function fixLanguage () {
          require_once($this->mosConfig_absolute_path.'/includes/phpgettext/phpgettext.class.php');
          require_once($this->mosConfig_absolute_path.'/includes/phpgettext/error.php');
          require_once($this->mosConfig_absolute_path.'/includes/mambofunc.php');
          require_once($this->mosConfig_absolute_path.'/includes/mambolanguage.class.php');
-         error_reporting(E_ALL)        ;
+         if (!mosGetParam($_REQUEST, 'lang'));
+         else $this->mosConfig_locale = mosGetParam($_REQUEST, 'lang', $this->mosConfig_locale);
+         $language =& new mamboLanguage($this->mosConfig_locale, $this->rootPath.'/language/');
+         $languages = $language->getLanguages();
+         $charset = $language->get('charset');
+         $dateformat = $language->get('dateformat');
+         $this->mosConfig_lang = $language->get('lang');
+         $this->current_language = $language;
+         if (!defined('_ISO')) DEFINE('_ISO','charset='.$charset);
+                 header('Content-type: text/html; '._ISO);
+         if (!defined('_DATE_FORMAT_LC')) DEFINE('_DATE_FORMAT_LC', $dateformat); //Uses PHP's strftime Command Format
+         if (!defined('_DATE_FORMAT_LC2')) DEFINE('_DATE_FORMAT_LC2', $dateformat);
+         #error_reporting(E_ALL)        ;
          ##########  DEPRECATED ############
          if (isset($this->mosConfig_lang) AND $this->mosConfig_lang);
          else $this->set('mosConfig_lang', 'english');
          $language_file = "$this->mosConfig_absolute_path/language/$this->mosConfig_lang.php";
          if (file_exists($language_file)) require_once ($language_file);
+         else require_once ("$this->mosConfig_absolute_path/language/english.php");
          ###################################
-         $this->mosConfig_lang = mosGetParam($_POST, 'setLanguage', $this->mosConfig_lang);
-         $language =& mamboLanguage::getInstance($this->mosConfig_lang, $this->rootPath.'/language/');
-         $languages = $language->getLanguages();
-         $charset = $language->get('charset');
-         $dateformat = $language->get('dateformat');
-         $this->current_language = $language;
-         if (!defined('_ISO')) DEFINE('_ISO','charset='.$charset);
-         if (!defined('_DATE_FORMAT_LC')) DEFINE('_DATE_FORMAT_LC', $dateformat); //Uses PHP's strftime Command Format
-         if (!defined('_DATE_FORMAT_LC2')) DEFINE('_DATE_FORMAT_LC2', $dateformat);
-         $gettext =& phpgettext();
-         $gettext->debug       = $this->mosConfig_locale_debug;
-         $gettext->has_gettext = $this->mosConfig_locale_use_gettext;
-         $gettext->setlocale($this->mosConfig_lang);
      }
+     /**
+      * Enter description here...
+      *
+      */
      function handleGlobals () {
          $superglobals = array($_SERVER, $_ENV, $_FILES, $_COOKIE, $_POST, $_GET);
          if (isset( $_SESSION )) array_unshift ( $superglobals , $_SESSION );
-Line 245
+Line 468
              foreach ( $superglobals as $superglobal ) {
                  foreach ( $superglobal as $key => $value) {
                      unset( $GLOBALS[$key]);
+                     unset( $GLOBALS[$key]);
                  }
              }
          }
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function determineOptionAndItemid () {
          $this->Itemid = mosGetParam($_REQUEST, 'Itemid', 0);
          if ($option = strtolower(mosGetParam($_REQUEST, 'option')));
-Line 263
+Line 492
              if ($pos !== false) $link = substr( $link, $pos+1 ). '&Itemid='.$this->Itemid;
              parse_str( $link, $temp );
              /** this is a patch, need to rework when globals are handled better */
-             foreach ($temp as $k=>$v) $_GET[$k] = $v;
+                         foreach ($temp as $k=>$v) $_GET[$k] = $_REQUEST[$k] = $v;
              if (isset($temp['option'])) $option = $temp['option'];
              else return '';
          }
-Line 289
+Line 518
          return $option;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $url
+      * @param unknown_type $msg
+      */
      function redirect ($url, $msg='') {
          $callcheck = array('InputFilter', 'process');
          if (!is_callable($callcheck)) require_once(mamboCore::get('mosConfig_absolute_path').'/includes/phpInputFilter/class.inputfilter.php');
-Line 309
+Line 544
          exit();
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $text
+      */
      function logMessage ($text) {
          // JS Popup message
          if (mosGetParam( $_POST, 'message', 0 )) {
-Line 328
+Line 568
          }
      }
+     /**
+      * Enter description here...
+      *
+      */
      function handleLogin () {
          require_once($this->rootPath().'/includes/authenticator.php');
          $authenticator =& mamboAuthenticator::getInstance();
          $loggedin = $authenticator->loginUser();
-         if ($loggedin) $this->logMessage(_LOGIN_SUCCESS);
+         if ($loggedin) $this->logMessage(T_('You have Logged In succesfully'));
          else mamboCore::redirect('index.php');
      }
+     /**
+      * Enter description here...
+      *
+      */
      function handleLogout () {
          require_once($this->rootPath().'/includes/authenticator.php');
          $authenticator =& mamboAuthenticator::getInstance();
          $authenticator->logoutUser();
-         $this->logMessage(_LOGOUT_SUCCESS);
+         $this->logMessage(T_('You have Logged Out successfully'));
      }
+     /**
+      * Enter description here...
+      *
+      */
      function standardHeaders () {
          header( 'Expires: Mon, 26 Jul 1997 05:00:00 GMT' );
          header( 'Last-Modified: ' . gmdate( 'D, d M Y H:i:s' ) . ' GMT' );
-Line 354
+Line 606
          $mambothandler->trigger('onHeaders', array($this));
      }
+     /**
+      * Enter description here...
+      *
+      */
      function initGzip() {
          $this->do_gzip_compress = FALSE;
          //zlib.output_compression and ob_gzhandler don't get along well so we'll check to make
-Line 414
+Line 670
          }
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $separator
+      * @param unknown_type $field
+      * @return unknown
+      */
      function getLastPart ($separator, $field) {
          $parts = explode($separator, $field);
          return $parts[count($parts)-1];
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $separator
+      * @param unknown_type $field
+      * @return unknown
+      */
      function allButLast ($separator, $field) {
          $lastSize = strlen(mamboCore::getLastPart($separator,$field));
          return substr($field, 0, strlen($field)-$lastSize);
-Line 431
+Line 701
  * Sorts an Array of objects
  */
  class mosObjectSorter {
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $_keyname = '';
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $_direction = 0;
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $_object_array = array();
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $a
+      * @param unknown_type $k
+      * @param unknown_type $sort_direction
+      * @return mosObjectSorter
+      */
      function mosObjectSorter (&$a, $k, $sort_direction=1) {
          $this->_keyname = $k;
          $this->_direction = $sort_direction;
-Line 442
+Line 735
          $this->sort();
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $a
+      * @param unknown_type $b
+      * @return unknown
+      */
      function mosObjectCompare (&$a, &$b) {
          $key = $this->_keyname;
          if ($a->$key > $b->$key) return $this->_direction;
-Line 449
+Line 749
          return 0;
      }
+     /**
+      * Enter description here...
+      *
+      */
      function sort () {
          usort($this->_object_array, array($this,'mosObjectCompare'));
      }
-Line 497
+Line 801
          $this->_urls[$last+1] = $url;
      }
+     /**
+      * Enter description here...
+      *
+      */
      function reduceToOne () {
          for ($i = count($this->_names) - 1; $i > 0; $i--) {
              unset($this->_names[$i]);
-Line 508
+Line 816
          * Make a pathway string for display
          */
      function makePathway () {
-         $last = count($this->_names) - 1;
-         if ($last == 0) return '';
          $mainframe =& mosMainFrame::getInstance();
+         $customs = $mainframe->getCustomPathWay();
+         $last = count($this->_names) - 1;
+         if ($last == 0 AND count($customs == 0)) return '';
          $result = "<span class='pathway'>";
          $config =& mamboCore::getMamboCore();
          $rootpath = $config->rootPath();
-Line 521
+Line 830
              if (file_exists( "$rootpath/$imgPath" )) $img = "<img src='$config->mosConfig_live_site/images/M_images/arrow.png' alt='arrow' />";
              else $img = '&gt;';
          }
+                 $uri =& mosUriHelper::getInstance();
          foreach ($this->_names as $i=>$name) {
-             if ($i === $last) $result .= "$name</span>";
+                         $uri->setUri($this->_urls[$i]);
+             if ($i === $last AND count($customs) == 0) $result .= "$name</span>";
+             elseif (strstr($uri->get('task'), 'view')) $result .= "";
              else {
                  $sefurl = sefRelToAbs($this->_urls[$i]);
                  $result .= "<a href='$sefurl' class='pathway'>$name</a>";
                  $result .= "&nbsp;$img&nbsp;";
              }
          }
-         $customs = $mainframe->getCustomPathWay();
          foreach ($customs as $custom) $result .= $custom;
-         $result .= '</span>';
+         if (count($customs)) $result .= '</span>';
          return $result;
      }
-Line 620
+Line 931
          return $instance;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $file
+      * @return unknown
+      */
      function deleteFile ($file) {
          if (file_exists($file)) {
              @chmod($file, 0644);
-Line 628
+Line 945
          return true;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $dir
+      * @return unknown
+      */
      function deleteDirectory ($dir) {
          if (file_exists($dir)) {
              if (is_dir($dir)) {
-Line 639
+Line 962
          return true;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $fileSysObject
+      */
      function setPermissions ($fileSysObject) {
          if (file_exists($fileSysObject))  {
                  if (is_dir($fileSysObject)) $perms = mamboCore::get('mosConfig_dirperms');
-Line 652
+Line 980
                  }
          }
+     /**
+          * Enter description here...
+          *
+          * @param unknown_type $dir
+          * @return unknown
+          */
          function makeDirectory ($dir) {
                  $perms = mamboCore::get('mosConfig_dirperms');
                  $origmask = @umask(0);
-Line 663
+Line 997
          }
+     /**
+          * Enter description here...
+          *
+          * @param unknown_type $dir
+          * @param unknown_type $onlyCheck
+          * @return unknown
+          */
          function createDirectory ($dir, $onlyCheck=false) {
          if (file_exists($dir)) {
              if (is_dir($dir) AND is_writable($dir)) return true;
-Line 676
+Line 1017
          else return $this->makeDirectory($dir);
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $dir
+      * @return unknown
+      */
      function containingDirectory ($dir) {
          $dirs = preg_split('*[/|\\\]*', $dir);
          for ($i = count($dirs)-1; $i >= 0; $i--) {
-Line 688
+Line 1035
          return array($result1, $result2);
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $from
+      * @param unknown_type $to
+      * @return unknown
+      */
      function simpleCopy ($from, $to) {
          if (@copy($from, $to)) {
                  $this->setPermissions($to);
-Line 696
+Line 1050
          else return false;
          }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $from
+      * @param unknown_type $to
+      * @return unknown
+      */
      function forceCopy ($from, $to) {
          $todir = dirname($to);
          if (!file_exists($todir)) $this->createDirectory($todir);
-Line 705
+Line 1066
          return $this->simpleCopy ($from, $to);
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $from
+      * @param unknown_type $to
+      * @return unknown
+      */
      function lightCopy ($from, $to) {
          $name = basename($from);
          if (file_exists($to.$name)) return false;
-Line 714
+Line 1082
                  return $this->simpleCopy ($from, $to);
      }
+     /**
+          * Enter description here...
+          *
+          * @param unknown_type $to
+          * @return unknown
+          */
          function acceptCopy ($to) {
                  $todir = dirname($to);
                  return $this->createDirectory($todir, true);
-Line 786
+Line 1160
  }
+ /**
+  * Enter description here...
+  *
+  */
  class mosDirectory {
+     /**
+      * Enter description here...
+      *
+      * @var unknown_type
+      */
      var $path = '';
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $path
+      * @return mosDirectory
+      */
      function mosDirectory ($path) {
          $path = str_replace('\\', '/', $path);
          if (substr($path,-1,1) == '/') $this->path = $path;
          else $this->path = $path.'/';
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $type
+      * @param unknown_type $recurse
+      * @param unknown_type $fullpath
+      * @return unknown
+      */
      function &listAll ($type='file', $recurse=false, $fullpath=false) {
          $results = array();
          if ($dir = @opendir($this->path)) {
-             while ($file = readdir($dir)) {
+             while (false !== ($file = readdir($dir))) {
                  if ($file == '.' OR $file == '..') continue;
                  if (is_dir($this->path.$file)) {
                      if ($recurse) {
-Line 814
+Line 1211
              }
              closedir($dir);
          }
+         asort($results);
          return $results;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function soleDir () {
          $found = '';
          if ($dir = @opendir($this->path)) {
-             while ($file = readdir($dir)) {
+             while (false !== ($file = readdir($dir))) {
                  if ($file == '.' OR $file == '..') continue;
                  if (is_dir($this->path.$file)) {
                      if ($found) return '';
-Line 833
+Line 1236
          return $found;
      }
+     /**
+      * Enter description here...
+      *
+      */
      function deleteAll () {
          if (!file_exists($this->path)) return;
          $subdirs =& $this->listAll ('dir', false, true);
-Line 847
+Line 1254
          $filemanager->deleteDirectory($this->path);
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function createFresh () {
          $this->deleteAll();
          $filemanager =& mosFileManager::getInstance();
-Line 854
+Line 1266
          return true;
      }
+     /**
+      * Enter description here...
+      *
+      */
      function createIfNeeded () {
          if (!file_exists($this->path)) {
              $filemanager =& mosFileManager::getInstance();
-Line 861
+Line 1277
          }
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $pattern
+      * @param unknown_type $type
+      * @param unknown_type $recurse
+      * @param unknown_type $fullpath
+      * @return unknown
+      */
      function &listFiles ($pattern='', $type='file', $recurse=false, $fullpath=false) {
          $results = array();
          $all =& $this->listAll($type, $recurse, $fullpath);
-Line 872
+Line 1297
          return $results;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function getSize () {
          $totalsize = 0;
          $files =& $this->listFiles();
-Line 924
+Line 1354
          return $instance;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $id
+      * @return unknown
+      */
      function &getMenuByID ($id) {
          if (isset($this->_idlinks[$id])) {
              $key = $this->_idlinks[$id];
-Line 933
+Line 1369
          return $result;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $type
+      * @param unknown_type $published
+      * @return unknown
+      */
      function getMenuCount ($type, $published) {
          if (isset($this->_counts[$type][$published])) return $this->_counts[$type][$published];
          else return 0;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $types
+      * @return unknown
+      */
      function &getMenusByType ($types) {
          $checker = explode(',', $types);
          $result = null;
-Line 947
+Line 1396
          return $result;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function &getMenuTypes () {
                  $types = array();
                  foreach ($this->_menus as $menu) {
-Line 956
+Line 1410
                  return $types;
          }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $type
+      * @param unknown_type $link
+      * @return unknown
+      */
      function getIDByTypeLink ($type, $link) {
          foreach ($this->_menus as $menu) {
              if ($menu->published == 1 AND ($type == '*' OR $menu->type == $type) AND $menu->link == $link) return $menu->id;
-Line 963
+Line 1424
          return null;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $link
+      * @return unknown
+      */
      function getIDLikeLink ($link) {
          $exact = $this->getIdByTypeLink('*', $link);
          if ($exact !== null) return $exact;
-Line 972
+Line 1439
          return 0;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $type
+      * @param unknown_type $componentid
+      * @return unknown
+      */
      function getIDByTypeCid ($type, $componentid) {
          foreach ($this->_menus as $menu) {
              if ($menu->published == 1 AND $menu->type == $type AND $menu->componentid == $componentid) return $menu->id;
-Line 979
+Line 1453
          return null;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function getGlobalBlogSectionCount () {
          $count = 0;
          foreach ($this->_menus as $menu) {
-Line 987
+Line 1466
          return $count;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $Itemid
+      * @param unknown_type $type
+      * @param unknown_type $id
+      * @param unknown_type $catid
+      * @return unknown
+      */
      function getContentItemid ($Itemid, $type, $id, $catid=0) {
          if ($Itemid) return $Itemid;
          foreach ($this->_menus as $menu) {
-Line 1002
+Line 1490
          return 0;
      }
+     /**
+      * Enter description here...
+      *
+      * @return unknown
+      */
      function getBestQueryMatch () {
          parse_str($_SERVER['QUERY_STRING'], $qitems);
          if (!isset($qitems['option'])) return 0;
-Line 1023
+Line 1516
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $link
+      * @return unknown
+      */
      function &maxAccessLink ($link) {
          $selected = null;
          $access = 0;
-Line 1035
+Line 1534
          return $selected;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $Itemid
+      * @param unknown_type $menutype
+      * @param unknown_type $maxaccess
+      * @param unknown_type $noparent
+      * @return unknown
+      */
      function &getByParentOrder ($Itemid, $menutype, $maxaccess=0, $noparent=false) {
          $result = array();
          if ($this->_byParentOrder !== null) {
-Line 1052
+Line 1560
                  }
              }
          }
+         if ($Itemid == 0 && !count($result)){
+             $result[0] = new stdclass;
+             $result[0]->id = 1;
+             $result[0]->link = 'index.php?option=com_frontpage';
+             $result[0]->parent = 0;
+             $result[0]->type = 'components';
+             $result[0]->browserNav = 0;
+             $result[0]->name = 'Home';
+         }
          return $result;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $Itemid
+      */
      function setPathway ($Itemid) {
          if ($Itemid) {
              $menu =& $this->getMenuByID($Itemid);
-Line 1095
+Line 1617
          return isset($access) ? $access <= $gid : false;
      }
+     /**
+      * Enter description here...
+      *
+      * @param unknown_type $mitem
+      * @param unknown_type $level
+      * @param unknown_type $params
+      * @param unknown_type $Itemid
+      * @return unknown
+      */
      function mosGetMenuLink( &$mitem, $level=0, &$params, $Itemid ) {
          $txt = '';
-Line 1168
+Line 1699
          */
      function mosShowVIMenu(  &$params ) {
          global $my, $cur_template, $Itemid;
-         if (mamboCore::get('mosConfig_shownoauth')) $maxaccess = 0;
+         if (mamboCore::get('mosConfig_shownoauth')) $maxaccess = 9999999;
-         else $maxaccess = $my->gid;
+         else $maxaccess = $my->getAccessGid();
          $rows =& $this->getByParentOrder(0, $params->get('menutype'), $maxaccess);
          foreach ($rows as $i=>$row) $crosslink[$row->id] = $i;
          // indent icons
-Line 1255
+Line 1786
      function mosShowHFMenu(  &$params, $style=0 ) {
          global $my, $cur_template, $Itemid;
-         if (mamboCore::get('mosConfig_shownoauth')) $maxaccess = 0;
+         if (mamboCore::get('mosConfig_shownoauth')) $maxaccess = 9999999;
-         else $maxaccess = $my->gid;
+         else $maxaccess = $my->getAccessGid();
          $rows =& $this->getByParentOrder(0, $params->get('menutype'), $maxaccess, true);
          $links = array();
-Line 1360
+Line 1891
                              $selected = $newbot->register();
                              $this->_botRegister($newbot, $selected, $i);
                          }
+                                                 unset($newbot);
                      }
                  }
                  $total++;
-Line 1449
+Line 1981
          if (isset($result[0])) return $result[0];
          return null;
      }
+     function getBot($element, $folder) {
+         $returnBot = '';
+         foreach ($this->_bots as $i=>$bot) {
+             if ($bot->folder == $folder && $bot->element == $element){
+                 $returnBot = $bot;
+                 break;
+             }
+         }
+         return $returnBot;
+     }
  }
  /**
-Line 1521
+Line 2064
                  $this->grp = mosGetParam( $_SESSION, 'session_grp', 0);
      }
      /**
+          * User access level
+          */
+         function getAccessGid() {
+                 static $access;
+                 if (!isset($access)) {
+                         $acl = new gacl;
+                         $access = $this->id > 0 ? 1 : 0;
+                         $access += $acl->acl_check( 'action', 'access', 'users', $this->usertype, 'frontend', 'special' );
+                 }
+                 return $access;
+         }
+     /**
           * Validation and filtering
           * @return boolean True is satisfactory
           */
      function check() {
+         Global $mosConfig_absolute_path;
+         //include $mosConfig_absolute_path . ('/language/english.php');
          $this->_error = '';
          if ($this->name == '') $this->_error = _REGWARN_NAME;
          elseif ($this->username == '') $this->_error = _REGWARN_UNAME;
-Line 1695
+Line 2252
      }
      /**
-         * Singleton get instance
+         * @param object
-         * @param object the mainframe instance (if called internally)
-         * Note that because of the need for creation parameters, this cannot
-         * be called successfully unless the mainframe object is already created
          */
      function &getInstance () {
-         static $mainframe;
+             global $mainframe;
-         if (func_num_args()) {
+             if (isset($mainframe)) {
-             $args = func_get_args();
+                 return $mainframe;
-             $mainframe = $args[0];
+             } else {
-         }
+                 $result = null;
-         if (isset($mainframe)) $result =& $mainframe;
-         else $result = null;
          return $result;
      }
+         }
      /**
          * @param string
          */
-Line 1831
+Line 2385
          * @param string The default value for the variable if not found
          */
      function getUserStateFromRequest( $var_name, $req_name, $var_default=null ) {
+                 if (is_array($this->_userstate)) {
          if (isset($_REQUEST[$req_name])) $this->setUserState($var_name, $_REQUEST[$req_name]);
-         elseif (isset($var_default) AND !isset($this->userstate[$var_name])) $this->setUserState($var_name, $var_default);
+                         else if (isset($var_default) AND !isset($this->_userstate[$var_name])) $this->setUserState($var_name, $var_default);
-         return $this->getUserState($var_name);
+                         return $this->_userstate[$var_name];
+                 } else {
+                         return null;
+                 }
      }
      /**
          * Initialises the user session
-Line 1997
+Line 2555
              $sql['os'] = "INSERT INTO #__stats_agents (agent,type) VALUES ('$os',1)";
              $sql['domain'] = "INSERT INTO #__stats_agents (agent,type) VALUES ('$tldomain',2)";
              if ($stats) foreach ($stats as $stat) {
-                 if ($stat->type == 0) $sql['agents'] = "UPDATE #__stats_agents SET hits=(hits+1) WHERE agent='$browser' AND type=0";
+                 if ($stat->type == 0) $sql['browser'] = "UPDATE #__stats_agents SET hits=(hits+1) WHERE agent='$browser' AND type=0";
                  if ($stat->type == 1) $sql['os'] = "UPDATE #__stats_agents SET hits=(hits+1) WHERE agent='$os' AND type=1";
                  if ($stat->type == 2) $sql['domain'] = "UPDATE #__stats_agents SET hits=(hits+1) WHERE agent='$tldomain' AND type=2";
              }
-Line 2017
+Line 2575
      function liveBookMark () {
          // support for Firefox Live Bookmarks ability for site syndication
+         $live_bookmark = 0;
          $c_handler =& mosComponentHandler::getInstance();
-         $params = $c_handler->getParamsByName('Syndicate');
+         $params =& $c_handler->getParamsByName('Syndicate');
+         if (!is_null($params)){
          $live_bookmark = $params->get( 'live_bookmark', 0 );
+         }
          if ($live_bookmark) {
              // custom bookmark file name
              $bookmark_file = $params->get( 'bookmark_file', $live_bookmark );
-Line 2042
+Line 2604
                          <?php
          }
      }
+     /**
+         * Render head tags
+         *   tags are assembled into an associative array with the following elements:
+         *     - title
+         *     - meta
+         *     - mambojavascript
+         *     - custom (custom head tags)
+         *     - livebookmark
+         *     - favicon
+         * @param unknown keys - array elements to output (null = output all)
+         * @param unknown exclude - array elements to exclude in output
+         *
+         * Usage:        mosShowHead() - to render all tags
+         *                       mosShowHead('title') - to render a single tag
+         *                       mosShowHead(array('title', 'meta')) - to selectively render tags (in order)
+         *                       mosShowHead(null, 'custom') - to exclude a single tag
+         *                       mosShowHead(null, array('custom','favicon')) - to exclude multiple tags
+         */
+     function mosShowHead($keys='', $exclude='') {
+                 if (!is_array($keys))
+                         if ($keys !== '' && !is_null($keys))
+                                 $keys = array($keys);
+                         else $keys = array();
+                 if (!is_array($exclude))
+                         if ($exclude !== '')
+                                 $exclude = array($exclude);
+                         else $exclude = array();
+                 $this->_head['output'] = array();
+                 $head = array();;
+                 $head['title'] = '<title>'.$this->_head['title'].'</title>';
-     function mosShowHead () {
-         global $_VERSION;
-         $mosConfig_live_site = mamboCore::get('mosConfig_live_site');
          $this->appendMetaTag( 'description', mamboCore::get('mosConfig_MetaDesc'), true );
          $this->appendMetaTag( 'keywords', mamboCore::get('mosConfig_MetaKeys'), true );
-         echo $this->getHead();
+                 $head['meta'] = array();
-         if (mamboCore::get('mosConfig_sef')) {
+         foreach ($this->_head['meta'] as $name=>$meta) {
-             echo "<base href=\"$mosConfig_live_site/\" />\r\n";
+             if ($meta[1]) $head['meta'][] = $meta[1];
+             $head['meta'][] = '<meta name="' . $name . '" content="' . $meta[0] . '" />';
+             if ($meta[2]) $head['meta'][] = $meta[2];
          }
+                 $head['meta'] = implode( "\n", $head['meta'] );
          $my = mamboCore::get('currentUser');
-         if ( $my->id ) {
+                 $head['mambojavascript'] = $my->id ? '<script type="text/javascript" src="'.mamboCore::get('mosConfig_live_site').'/includes/js/mambojavascript.js"></script>' : '';
-                         ?>
-                         <script language="JavaScript1.2" src="<?php echo $mosConfig_live_site;?>/includes/js/mambojavascript.js" type="text/javascript"></script>
+                 $head['custom'] = array();
-                         <?php
+                 foreach ($this->_head['custom'] as $html)
-         }
+                         if (trim($html) !== '')
+                                 $head['custom'][] = $html;
+                 if (count($head['custom']) !== 0)
+                         $head['custom'] = implode( "\n", $head['custom'] );
+                 else
+                         $head['custom'] = '';
+                 ob_start();
          $this->liveBookMark();
-         // outputs link tag for page
+                 $head['livebookmark'] = ob_get_contents();
+                 ob_end_clean();
          $configuration =& mamboCore::getMamboCore();
-                 ?>
+                 $head['favicon'] = "<link rel=\"shortcut icon\" href=\"".$configuration->getFavIcon()."\" />";
-                 <link rel="shortcut icon" href="<?php echo $configuration->getFavIcon();?>" />
-                 <?php
+                 foreach($head as $key=>$value)
+                                 $this->_head['output'][$key] = "$value";
+                 $tags = $this->_head['output'];
+                 if (count($keys) == 0) {
+                         foreach($tags as $key=>$value)
+                                 if (!in_array($key, $exclude))
+                                         if ($value !== '')
+                                                 echo trim($value)."\n";
+                 } else {
+                         foreach($keys as $key)
+                                 if (isset($tags[$key]))
+                                         if(trim($tags[$key]) !== '')
+                                                 echo trim($tags[$key])."\n";
+                 }
+         }
+     /**
+         * retained for backward compatability
+         */
+         function getBlogSectionCount() {
+                 require_once(mamboCore::get('mosConfig_absolute_path').'/components/com_content/content.class.php');
+                 $handler =& new contentHandler();
+                 return $handler->getBlogSectionCount();
+         }
+         function getBlogCategoryCount() {
+                 require_once(mamboCore::get('mosConfig_absolute_path').'/components/com_content/content.class.php');
+                 $handler =& new contentHandler();
+                 return $handler->getBlogCategoryCount();
+         }
+         function getGlobalBlogSectionCount() {
+                 require_once(mamboCore::get('mosConfig_absolute_path').'/components/com_content/content.class.php');
+                 $handler =& new contentHandler();
+                 return $handler->getGlobalBlogSectionCount();
+         }
+         function getStaticContentCount() {
+                 require_once(mamboCore::get('mosConfig_absolute_path').'/components/com_content/content.class.php');
+                 $handler =& new contentHandler();
+                 return $handler->getStaticContentCount();
+         }
+         function getContentItemLinkCount() {
+                 require_once(mamboCore::get('mosConfig_absolute_path').'/components/com_content/content.class.php');
+                 $handler =& new contentHandler();
+                 return $handler->getContentItemLinkCount();
      }
+         /**
+         * retained for backward compatability
+         */
  }
-Line 2388
+Line 3042
          return ((float)$usec + (float)$sec);
      }
  }
+ /**
+  * @author Mikolaj Jedrzejak <mikolajj@op.pl>
+  * @copyright Copyright Mikolaj Jedrzejak (c) 2003-2004
+  * @version 1.0 2004-07-27 00:37
+  * @link http://www.unicode.org Unicode Homepage
+  * @link http://www.mikkom.pl My Homepage
+  *
+  **/
+ $PATH_TO_CLASS = dirname(ereg_replace("\\\\","/",__FILE__)) . "/" . "ConvertTables" . "/";
+ @require_once($PATH_TO_CLASS."/charsetmapping.php");
+ define ("CONVERT_TABLES_DIR", $PATH_TO_CLASS);
+ define ("DEBUG_MODE", 1);
+ /**
+  * -- 1.0 2004-07-28 --
+  *
+  * -- The most important thing --
+  * I want to thank all people who helped me fix all bugs, small and big once.
+  * I hope that you don't mind that your names are in this file.
+  *
+  * -- Some Apache issues --
+  * I get info from Lukas Lisa, that in some cases with special apache configuration
+  * you have to put header() function with proper encoding to get your result
+  * displayed correctly.
+  * If you want to see what I mean, go to demo.php and demo1.php
+  *
+  * -- BETA 1.0 2003-10-21 --
+  *
+  * -- You should know about... --
+  * For good understanding this class you shouls read all this stuff first :) but if you are
+  * in a hurry just start the demo.php and see what's inside.
+  * 1. That I'm not good in english at 03:45 :) - so forgive me all mistakes
+  * 2. This class is a BETA version because I haven't tested it enough
+  * 3. Feel free to contact me with questions, bug reports and mistakes in PHP and this documentation (email below)
+  *
+  * -- In a few words... --
+  * Why ConvertCharset class?
+  *
+  * I have made this class because I had a lot of problems with diferent charsets. First because people
+  * from Microsoft wanted to have thair own encoding, second because people from Macromedia didn't
+  * thought about other languages, third because sometimes I need to use text written on MAC, and of course
+  * it has its own encoding :)
+  *
+  * Notice & remember:
+  * - When I'm saying 1 byte string I mean 1 byte per char.
+  * - When I'm saying multibyte string I mean more than one byte per char.
+  *
+  * So, this are main FEATURES of this class:
+  * - conversion between 1 byte charsets
+  * - conversion from 1 byte to multi byte charset (utf-8)
+  * - conversion from multibyte charset (utf-8) to 1 byte charset
+  * - every conversion output can be save with numeric entities (browser charset independent - not a full truth)
+  *
+  * This is a list of charsets you can operate with, the basic rule is that a char have to be in both charsets,
+  * otherwise you'll get an error.
+  *
+  * - WINDOWS
+  * - windows-1250 - Central Europe
+  * - windows-1251 - Cyrillic
+  * - windows-1252 - Latin I
+  * - windows-1253 - Greek
+  * - windows-1254 - Turkish
+  * - windows-1255 - Hebrew
+  * - windows-1256 - Arabic
+  * - windows-1257 - Baltic
+  * - windows-1258 - Viet Nam
+  * - cp874 - Thai - this file is also for DOS
+  *
+  * - DOS
+  * - cp437 - Latin US
+  * - cp737 - Greek
+  * - cp775 - BaltRim
+  * - cp850 - Latin1
+  * - cp852 - Latin2
+  * - cp855 - Cyrylic
+  * - cp857 - Turkish
+  * - cp860 - Portuguese
+  * - cp861 - Iceland
+  * - cp862 - Hebrew
+  * - cp863 - Canada
+  * - cp864 - Arabic
+  * - cp865 - Nordic
+  * - cp866 - Cyrylic Russian (this is the one, used in IE "Cyrillic (DOS)" )
+  * - cp869 - Greek2
+  *
+  * - MAC (Apple)
+  * - x-mac-cyrillic
+  * - x-mac-greek
+  * - x-mac-icelandic
+  * - x-mac-ce
+  * - x-mac-roman
+  *
+  * - ISO (Unix/Linux)
+  * - iso-8859-1
+  * - iso-8859-2
+  * - iso-8859-3
+  * - iso-8859-4
+  * - iso-8859-5
+  * - iso-8859-6
+  * - iso-8859-7
+  * - iso-8859-8
+  * - iso-8859-9
+  * - iso-8859-10
+  * - iso-8859-11
+  * - iso-8859-12
+  * - iso-8859-13
+  * - iso-8859-14
+  * - iso-8859-15
+  * - iso-8859-16
+  *
+  * - MISCELLANEOUS
+  * - gsm0338 (ETSI GSM 03.38)
+  * - cp037
+  * - cp424
+  * - cp500
+  * - cp856
+  * - cp875
+  * - cp1006
+  * - cp1026
+  * - koi8-r (Cyrillic)
+  * - koi8-u (Cyrillic Ukrainian)
+  * - nextstep
+  * - us-ascii
+  * - us-ascii-quotes
+  *
+  * - DSP implementation for NeXT
+  * - stdenc
+  * - symbol
+  * - zdingbat
+  *
+  * - And specially for old Polish programs
+  * - mazovia
+  *
+  * -- Now, to the point... --
+  * Here are main variables.
+  *
+  * DEBUG_MODE
+  *
+  * You can set this value to:
+  * - -1 - No errors or comments
+  * - 0  - Only error messages, no comments
+  * - 1  - Error messages and comments
+  *
+  * Default value is 1, and during first steps with class it should be left as is.
+  *
+  * CONVERT_TABLES_DIR
+  *
+  * This is a place where you store all files with charset encodings. Filenames should have
+  * the same names as encodings. My advise is to keep existing names, because thay
+  * were taken from unicode.org (www.unicode.org), and after update to unicode 3.0 or 4.0
+  * the names of files will be the same, so if you want to save your time...uff, leave the
+  * names as thay are for future updates.
+  *
+  * The directory with edings files should be in a class location directory by default,
+  * but of course you can change it if you like.
+  *
+  * @package All about charset...
+  * @author Mikolaj Jedrzejak <mikolajj@op.pl>
+  * @copyright Copyright Mikolaj Jedrzejak (c) 2003-2004
+  * @version 1.0 2004-07-27 23:11
+  * @access public
+  *
+  * @link http://www.unicode.org Unicode Homepage
+  **/
+ class ConvertCharset {
+         var $RecognizedEncoding; //This value keeps information if string contains multibyte chars.
+         var $Entities; // This value keeps information if output should be with numeric entities.
+         /**
+          * CharsetChange::NumUnicodeEntity()
+          *
+          * Unicode encoding bytes, bits representation.
+          * Each b represents a bit that can be used to store character data.
+          * - bytes, bits, binary representation
+          * - 1,   7,  0bbbbbbb
+          * - 2,  11,  110bbbbb 10bbbbbb
+          * - 3,  16,  1110bbbb 10bbbbbb 10bbbbbb
+          * - 4,  21,  11110bbb 10bbbbbb 10bbbbbb 10bbbbbb
+          *
+          * This function is written in a "long" way, for everyone who woluld like to analize
+          * the process of unicode encoding and understand it. All other functions like HexToUtf
+          * will be written in a "shortest" way I can write tham :) it does'n mean thay are short
+          * of course. You can chech it in HexToUtf() (link below) - very similar function.
+          *
+          * IMPORTANT: Remember that $UnicodeString input CANNOT have single byte upper half
+          * extended ASCII codes, why? Because there is a posibility that this function will eat
+          * the following char thinking it's miltibyte unicode char.
+          *
+          * @param string $UnicodeString Input Unicode string (1 char can take more than 1 byte)
+          * @return string This is an input string olso with unicode chars, bus saved as entities
+          * @see HexToUtf()
+          **/
+         function UnicodeEntity ($UnicodeString)
+         {
+           $OutString  = "";
+           $StringLenght = strlen ($UnicodeString);
+           for ($CharPosition = 0; $CharPosition < $StringLenght; $CharPosition++)
+                 {
+             $Char = $UnicodeString [$CharPosition];
+             $AsciiChar = ord ($Char);
+            if ($AsciiChar < 128) //1 7 0bbbbbbb (127)
+            {
+                    $OutString .= $Char;
+            }
+            else if ($AsciiChar >> 5 == 6) //2 11 110bbbbb 10bbbbbb (2047)
+            {
+                    $FirstByte = ($AsciiChar & 31);
+                    $CharPosition++;
+                    $Char = $UnicodeString [$CharPosition];
+                    $AsciiChar = ord ($Char);
+                    $SecondByte = ($AsciiChar & 63);
+                    $AsciiChar = ($FirstByte * 64) + $SecondByte;
+                    $Entity = sprintf ("&#%d;", $AsciiChar);
+                    $OutString .= $Entity;
+            }
+            else if ($AsciiChar >> 4  == 14)  //3 16 1110bbbb 10bbbbbb 10bbbbbb
+            {
+                         $FirstByte = ($AsciiChar & 31);
+                         $CharPosition++;
+                         $Char = $UnicodeString [$CharPosition];
+                         $AsciiChar = ord ($Char);
+                         $SecondByte = ($AsciiChar & 63);
+                         $CharPosition++;
+                         $Char = $UnicodeString [$CharPosition];
+                         $AsciiChar = ord ($Char);
+                         $ThidrByte = ($AsciiChar & 63);
+                         $AsciiChar = ((($FirstByte * 64) + $SecondByte) * 64) + $ThidrByte;
+                         $Entity = sprintf ("&#%d;", $AsciiChar);
+                         $OutString .= $Entity;
+             }
+                 else if ($AsciiChar >> 3 == 30) //4 21 11110bbb 10bbbbbb 10bbbbbb 10bbbbbb
+                 {
+                         $FirstByte = ($AsciiChar & 31);
+                         $CharPosition++;
+                         $Char = $UnicodeString [$CharPosition];
+                         $AsciiChar = ord ($Char);
+                         $SecondByte = ($AsciiChar & 63);
+                         $CharPosition++;
+                         $Char = $UnicodeString [$CharPosition];
+                         $AsciiChar = ord ($Char);
+                         $ThidrByte = ($AsciiChar & 63);
+                         $CharPosition++;
+                         $Char = $UnicodeString [$CharPosition];
+                         $AsciiChar = ord ($Char);
+                         $FourthByte = ($AsciiChar & 63);
+                         $AsciiChar = ((((($FirstByte * 64) + $SecondByte) * 64) + $ThidrByte) * 64) + $FourthByte;
+                         $Entity = sprintf ("&#%d;", $AsciiChar);
+                         $OutString .= $Entity;
+             }
+           }
+           return $OutString;
+         }
+         /**
+          * ConvertCharset::HexToUtf()
+          *
+          * This simple function gets unicode  char up to 4 bytes and return it as a regular char.
+          * It is very similar to  UnicodeEntity function (link below). There is one difference
+          * in returned format. This time it's a regular char(s), in most cases it will be one or two chars.
+          *
+          * @param string $UtfCharInHex Hexadecimal value of a unicode char.
+          * @return string Encoded hexadecimal value as a regular char.
+          * @see UnicodeEntity()
+          **/
+         function HexToUtf ($UtfCharInHex)
+         {
+                 $OutputChar = "";
+                 $UtfCharInDec = hexdec($UtfCharInHex);
+                 if($UtfCharInDec<128) $OutputChar .= chr($UtfCharInDec);
+     else if($UtfCharInDec<2048)$OutputChar .= chr(($UtfCharInDec>>6)+192).chr(($UtfCharInDec&63)+128);
+     else if($UtfCharInDec<65536)$OutputChar .= chr(($UtfCharInDec>>12)+224).chr((($UtfCharInDec>>6)&63)+128).chr(($UtfCharInDec&63)+128);
+     else if($UtfCharInDec<2097152)$OutputChar .= chr($UtfCharInDec>>18+240).chr((($UtfCharInDec>>12)&63)+128).chr(($UtfCharInDec>>6)&63+128). chr($UtfCharInDec&63+128);
+         return $OutputChar;
+         }
+         /**
+          * CharsetChange::MakeConvertTable()
+          *
+          * This function creates table with two SBCS (Single Byte Character Set). Every conversion
+          * is through this table.
+          *
+          * - The file with encoding tables have to be save in "Format A" of unicode.org charset table format! This is usualy writen in a header of every charset file.
+          * - BOTH charsets MUST be SBCS
+          * - The files with encoding tables have to be complet (Non of chars can be missing, unles you are sure you are not going to use it)
+          *
+          * "Format A" encoding file, if you have to build it by yourself should aplly these rules:
+          * - you can comment everything with #
+          * - first column contains 1 byte chars in hex starting from 0x..
+          * - second column contains unicode equivalent in hex starting from 0x....
+          * - then every next column is optional, but in "Format A" it should contain unicode char name or/and your own comment
+          * - the columns can be splited by "spaces", "tabs", "," or any combination of these
+          * - below is an example
+          *
+          * <code>
+          * #
+          * #    The entries are in ANSI X3.4 order.
+          * #
+          * 0x00 0x0000  #       NULL end extra comment, if needed
+          * 0x01 0x0001  #       START OF HEADING
+          * # Oh, one more thing, you can make comments inside of a rows if you like.
+          * 0x02 0x0002  #       START OF TEXT
+          * 0x03 0x0003  #       END OF TEXT
+          * next line, and so on...
+          * </code>
+          *
+          * You can get full tables with encodings from http://www.unicode.org
+          *
+          * @param string $FirstEncoding Name of first encoding and first encoding filename (thay have to be the same)
+          * @param string $SecondEncoding Name of second encoding and second encoding filename (thay have to be the same). Optional for building a joined table.
+          * @return array Table necessary to change one encoding to another.
+          **/
+         function MakeConvertTable ($FirstEncoding, $SecondEncoding = "")
+         {
+                 $ConvertTable = array();
+                 for($i = 0; $i < func_num_args(); $i++)
+                 {
+                         /**
+                          * Because func_*** can't be used inside of another function call
+                          * we have to save it as a separate value.
+                          **/
+                         $FileName = func_get_arg($i);
+                         if (!is_file(CONVERT_TABLES_DIR . $FileName))
+                         {
+                             print $this->DebugOutput(0, 0, CONVERT_TABLES_DIR . $FileName); //Print an error message
+                                         exit;
+                         }
+                         $FileWithEncTabe = fopen(CONVERT_TABLES_DIR . $FileName, "r") or die(); //This die(); is just to make sure...
+                   while(!feof($FileWithEncTabe))
+                         {
+                                 /**
+                                  * We asume that line is not longer
+                                  * than 1024 which is the default value for fgets function
+                                  **/
+                    if($OneLine=trim(fgets($FileWithEncTabe, 1024)))
+                          {
+                                 /**
+                                  * We don't need all comment lines. I check only for "#" sign, because
+                                  * this is a way of making comments by unicode.org in thair encoding files
+                                  * and that's where the files are from :-)
+                                  **/
+                         if (substr($OneLine, 0, 1) != "#")
+                                 {
+                                         /**
+                                          * Sometimes inside the charset file the hex walues are separated by
+                                          * "space" and sometimes by "tab", the below preg_split can also be used
+                                          * to split files where separator is a ",", "\r", "\n" and "\f"
+                                          **/
+                                         $HexValue = preg_split ("/[\s,]+/", $OneLine, 3);  //We need only first 2 values
+                                                 /**
+                                                  * Sometimes char is UNDEFINED, or missing so we can't use it for convertion
+                                                  **/
+                                                 if (substr($HexValue[1], 0, 1) != "#")
+                                                 {
+                                                                 $ArrayKey = strtoupper(str_replace(strtolower("0x"), "", $HexValue[1]));
+                                                                 $ArrayValue = strtoupper(str_replace(strtolower("0x"), "", $HexValue[0]));
+                                                                 $ConvertTable[func_get_arg($i)][$ArrayKey] = $ArrayValue;
+                                                 }
+                                 } //if (substr($OneLine,...
+                    } //if($OneLine=trim(f...
+                   } //while(!feof($FirstFileWi...
+                 } //for($i = 0; $i < func_...
+         /**
+          * The last thing is to check if by any reason both encoding tables are not the same.
+          * For example, it will happen when you save the encoding table file with a wrong name
+          *  - of another charset.
+          **/
+         if ((func_num_args() > 1) && (count($ConvertTable[$FirstEncoding]) == count($ConvertTable[$SecondEncoding])) && (count(array_diff_assoc($ConvertTable[$FirstEncoding], $ConvertTable[$SecondEncoding])) == 0))
+         {
+             print $this->DebugOutput(1, 1, "$FirstEncoding, $SecondEncoding");
+         }
+         return $ConvertTable;
+         }
+         /**
+          * ConvertCharset::Convert()
+          *
+          * This is a basic function you are using. I hope that you can figure out this function syntax :-)
+          *
+          * @param string $StringToChange The string you want to change :)
+          * @param string $FromCharset Name of $StringToChange encoding, you have to know it.
+          * @param string $ToCharset Name of a charset you want to get for $StringToChange.
+          * @param boolean $TurnOnEntities Set to true or 1 if you want to use numeric entities insted of regular chars.
+          * @return string Converted string in brand new encoding :)
+          * @version 1.0 2004-07-27 01:09
+          **/
+         function Convert ($StringToChange, $FromCharset, $ToCharset, $TurnOnEntities = false)
+         {
+                 /**
+                  * Check are there all variables
+                  **/
+                  /*if ($StringToChange == "")
+                  {
+                                 print $this->DebugOutput(0, 3, "\$StringToChange");
+                  }
+                  else*/
+                 if ($FromCharset == "")
+                  {
+                                 print $this->DebugOutput(0, 3, "\$FromCharset");
+                  }
+                  else if ($ToCharset == "")
+                  {
+                                 print $this->DebugOutput(0, 3, "\$ToCharset");
+                  }
+                 /**
+                  * Now a few variables need to be set.
+                  **/
+                 $NewString = "";
+                 $this->Entities = $TurnOnEntities;
+                 /**
+                  * For all people who like to use uppercase for charset encoding names :)
+                  **/
+                 $FromCharset = strtolower($FromCharset);
+                 $ToCharset   = strtolower($ToCharset);
+                 /**
+                  * Of course you can make a conversion from one charset to the same one :)
+                  * but I feel obligate to let you know about it.
+                  **/
+                 if ($FromCharset == $ToCharset)
+                 {
+                     print $this->DebugOutput(1, 0, $FromCharset);
+                 }
+                 if (($FromCharset == $ToCharset) AND ($FromCharset == "utf-8"))
+                 {
+                     print $this->DebugOutput(0, 4, $FromCharset);
+                                 exit;
+                 }
+                 /**
+                  * This divison was made to prevent errors during convertion to/from utf-8 with
+                  * "entities" enabled, because we need to use proper destination(to)/source(from)
+                  * encoding table to write proper entities.
+                  *
+                  * This is the first case. We are convertinf from 1byte chars...
+                  **/
+                 if ($FromCharset != "utf-8")
+                 {
+                                 /**
+                                  * Now build table with both charsets for encoding change.
+                                  **/
+                                 if ($ToCharset != "utf-8")
+                                 {
+                                         $CharsetTable = $this->MakeConvertTable ($FromCharset, $ToCharset);
+                                 }
+                                 else
+                                 {
+                                         $CharsetTable = $this->MakeConvertTable ($FromCharset);
+                                 }
+                                 /**
+                                  * For each char in a string...
+                                  **/
+                                 for ($i = 0; $i < strlen($StringToChange); $i++)
+                                 {
+                                         $HexChar = "";
+                                         $UnicodeHexChar = "";
+                                         $HexChar = strtoupper(dechex(ord($StringToChange[$i])));
+                                         // This is fix from Mario Klingemann, it prevents
+                                         // droping chars below 16 because of missing leading 0 [zeros]
+                                         if (strlen($HexChar)==1) $HexChar = "0".$HexChar;
+                                         //end of fix by Mario Klingemann
+                                         // This is quick fix of 10 chars in gsm0338
+                                         // Thanks goes to Andrea Carpani who pointed on this problem
+                                         // and solve it ;)
+                                         if (($FromCharset == "gsm0338") && ($HexChar == '1B')) {
+                                                 $i++;
+                                                 $HexChar .= strtoupper(dechex(ord($StringToChange[$i])));
+                                         }
+                                         // end of workarround on 10 chars from gsm0338
+                                         if ($ToCharset != "utf-8")
+                                         {
+                                                 if (in_array($HexChar, $CharsetTable[$FromCharset]))
+                                                 {
+                                                         $UnicodeHexChar = array_search($HexChar, $CharsetTable[$FromCharset]);
+                                                         $UnicodeHexChars = explode("+",$UnicodeHexChar);
+                                                         for($UnicodeHexCharElement = 0; $UnicodeHexCharElement < count($UnicodeHexChars); $UnicodeHexCharElement++)
+                                                         {
+                                                           if (array_key_exists($UnicodeHexChars[$UnicodeHexCharElement], $CharsetTable[$ToCharset]))
+                                                                 {
+                                                                         if ($this->Entities == true)
+                                                                         {
+                                                                                 $NewString .= $this->UnicodeEntity($this->HexToUtf($UnicodeHexChars[$UnicodeHexCharElement]));
+                                                                         }
+                                                                         else
+                                                                         {
+                                                                                 $NewString .= chr(hexdec($CharsetTable[$ToCharset][$UnicodeHexChars[$UnicodeHexCharElement]]));
+                                                                         }
+                                                                 }
+                                                                 else
+                                                                 {
+                                                                                 print $this->DebugOutput(0, 1, $StringToChange[$i]);
+                                                                 }
+                                                         } //for($UnicodeH...
+                                                 }
+                                                 else
+                                                 {
+                                                         print $this->DebugOutput(0, 2,$StringToChange[$i]);
+                                                 }
+                                         }
+                                         else
+                                         {
+                                                 if (in_array("$HexChar", $CharsetTable[$FromCharset]))
+                                                 {
+                                                         $UnicodeHexChar = array_search($HexChar, $CharsetTable[$FromCharset]);
+                                                         /**
+                                              * Sometimes there are two or more utf-8 chars per one regular char.
+                                                          * Extream, example is polish old Mazovia encoding, where one char contains
+                                                          * two lettes 007a (z) and 0142 (l slash), we need to figure out how to
+                                                          * solve this problem.
+                                                          * The letters are merge with "plus" sign, there can be more than two chars.
+                                                          * In Mazowia we have 007A+0142, but sometimes it can look like this
+                                                          * 0x007A+0x0142+0x2034 (that string means nothing, it just shows the possibility...)
+                                              **/
+                                                         $UnicodeHexChars = explode("+",$UnicodeHexChar);
+                                                         for($UnicodeHexCharElement = 0; $UnicodeHexCharElement < count($UnicodeHexChars); $UnicodeHexCharElement++)
+                                                         {
+                                                                 if ($this->Entities == true)
+                                                                 {
+                                                                         $NewString .= $this->UnicodeEntity($this->HexToUtf($UnicodeHexChars[$UnicodeHexCharElement]));
+                                                                 }
+                                                                 else
+                                                                 {
+                                                                         $NewString .= $this->HexToUtf($UnicodeHexChars[$UnicodeHexCharElement]);
+                                                                 }
+                                                         } // for
+                                                 }
+                                                 else
+                                                 {
+                                                         print $this->DebugOutput(0, 2, $StringToChange[$i]);
+                                                 }
+                                         }
+                                 }
+                 }
+                 /**
+                  * This is second case. We are encoding from multibyte char string.
+                  **/
+                 else if($FromCharset == "utf-8")
+                 {
+                         $HexChar = "";
+                         $UnicodeHexChar = "";
+                         $CharsetTable = $this->MakeConvertTable ($ToCharset);
+                         foreach ($CharsetTable[$ToCharset] as $UnicodeHexChar => $HexChar)
+                         {
+                                         if ($this->Entities == true) {
+                                                 $EntitieOrChar = $this->UnicodeEntity($this->HexToUtf($UnicodeHexChar));
+                                         }
+                                         else
+                                         {
+                                                 $EntitieOrChar = chr(hexdec($HexChar));
+                                         }
+                                         $StringToChange = str_replace($this->HexToUtf($UnicodeHexChar), $EntitieOrChar, $StringToChange);
+                         }
+                         $NewString = $StringToChange;
+                 }
+         return $NewString;
+         }
+         /**
+          * ConvertCharset::DebugOutput()
+          *
+          * This function is not really necessary, the debug output could stay inside of
+          * source code but like this, it's easier to manage and translate.
+          * Besides I couldn't find good coment/debug class :-) Maybe I'll write one someday...
+          *
+          * All messages depend on DEBUG_MODE level, as I was writing before you can set this value to:
+    * - -1 - No errors or notces are shown
+    * - 0  - Only error messages are shown, no notices
+    * - 1  - Error messages and notices are shown
+          *
+          * @param int $Group Message groupe: error - 0, notice - 1
+          * @param int $Number Following message number
+          * @param mix $Value This walue is whatever you want, usualy it's some parameter value, for better message understanding.
+          * @return string String with a proper message.
+          **/
+         function DebugOutput ($Group, $Number, $Value = false)
+         {
+                 //$Debug [$Group][$Number] = "Message, can by with $Value";
+                 //$Group[0] - Errors
+                 //$Group[1] - Notice
+                 $Debug[0][0] = "Error, can NOT read file: " . $Value . "<br />";
+                 $Debug[0][1] = "Error, can't find maching char \"". $Value ."\" in destination encoding table!" . "<br />";
+                 $Debug[0][2] = "Error, can't find maching char \"". $Value ."\" in source encoding table!" . "<br />";
+                 $Debug[0][3] = "Error, you did NOT set variable " . $Value . " in Convert() function." . "<br />";
+                 $Debug[0][4] = "You can NOT convert string from " . $Value . " to " . $Value . "!" .  "<br />";
+                 $Debug[1][0] = "Notice, you are trying to convert string from ". $Value ." to ". $Value .", don't you feel it's strange? ;-)" . "<br />";
+                 $Debug[1][1] = "Notice, both charsets " . $Value . " are identical! Check encoding tables files." . "<br />";
+                 $Debug[1][2] = "Notice, there is no unicode char in the string you are trying to convert." . "<br />";
+                 if (DEBUG_MODE >= $Group)
+                 {
+                 return $Debug[$Group][$Number];
+                 }
+         } // function DebugOutput
+ } //class ends here
  ?>

 Legend:



Removed from v.529
 


changed lines


 
Added in v.1396
 Legend:



Removed from v.529
 


changed lines


 
Added in v.1396
-Removed from v.529
+Added in v.1396

	ViewVC Help
Powered by ViewVC 1.0.0

Web Hosting provided by Network Redux.

MyGforge Home

Mambo CMS

Diff of /mambo/branches/4.6/includes/core.classes.php