Blame for processmaker-files/gulliver/system/class.g.php

<?php
/**
 * class.g.php
 * @package gulliver.system
 *
 * ProcessMaker Open Source Edition
 * Copyright (C) 2004 - 2011 Colosa Inc.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as
 * published by the Free Software Foundation, either version 3 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 Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 * For more information, contact Colosa Inc, 2566 Le Jeune Rd.,
 * Coral Gables, FL, 33134, USA, or email info@colosa.com.
 *
 */

use ProcessMaker\Core\System;
use ProcessMaker\Plugins\PluginRegistry;

/**
 * @package gulliver.system
 */

class G
{
    const hashFx = 'md5';
    const hash = 'hash';
    const hashFile = 'md5_file';
    const hashCrc = 'crc32';
    public $sessionVar = array(); //SESSION temporary array store.
    public static $sysSys;
    public static $sysSkin;
    public static $pathDataSite;
    public static $pathDocument;
    public static $memcachedEnabled;
    public static $pathDataPublic;
    public static $httpHost;

    /**
     * Adapters used for different services inside Processmaker.
     *
     * @var string[] $adapters
     */
    private static $adapters = [
        'ldap'                          => LDAP::class,
        'ldapadvanced'                  => LdapAdvanced::class,
        'dashletopenvscompleted'        => DashletOpenVsCompleted::class,
        'dashletrssreader'              => DashletRssReader::class,
        'dashletprocessmakerenterprise' => DashletProcessMakerEnterprise::class,
        'dashletprocessmakercommunity'  => DashletProcessMakerCommunity::class,
    ];

    /**
     * This function verify if exist file name in the PATH_GULLIVER
     * @param string $strClass
     * @return boolean
     */
    public function LoadSystemExist($strClass)
    {
        if (file_exists( PATH_GULLIVER . 'class.' . $strClass . '.php' )) {
            return true;
        } else {
            return false;
        }
    }

    /**
     * @deprecated 3.2.2, We keep this function only for backwards compatibility because is used in the plugin manager
     */
    public static function LoadSystem($strClass)
    {
        //For backward compatibilities
    }

    /**
     * @deprecated 3.2.2, We keep this function only for backwards compatibility because is used in the plugin manager
     */
    public function LoadInclude($strClass)
    {
        //For backward compatibilities
    }

    /**
     * @deprecated 3.2.2, We keep this function only for backwards compatibility because is used in the plugin manager
     */
    public function LoadClassRBAC($strClass)
    {
        //For backward compatibilities
    }

    /**
     * @deprecated 3.2.2, We keep this function only for backwards compatibility because is used in the plugin manager
     */
    public static function LoadClass($strClass)
    {
        //For backward compatibilities
    }

    /**
     * @deprecated 3.2.2, We keep this function only for backwards compatibility because is used in the plugin manager
     */
    public static function LoadThirdParty($sPath, $sFile)
    {
        //For backward compatibilities
    }

    /**
     * Include all model files
     * @access public
     * @return void
     */
    public function LoadAllModelClasses()
    {
        $baseDir = PATH_CORE . 'classes' . PATH_SEP . 'model';
        if ($handle = opendir( $baseDir )) {
            while (false !== ($file = readdir( $handle ))) {
                if (strpos( $file, '.php', 1 ) && ! strpos( $file, 'Peer.php', 1 )) {
                    require_once ($baseDir . PATH_SEP . $file);
                }
            }
        }
    }

    /**
     * is_https
     * @return bool
     */
    public static function is_https()
    {
        $is_http = false;
        if ((isset($_SERVER['HTTPS']) && $_SERVER['HTTPS']=='on') ||
            (isset($_SERVER['HTTP_X_FORWARDED_PROTO']) && $_SERVER['HTTP_X_FORWARDED_PROTO'] == 'https')) {
            $is_http = true;
        }
        return $is_http;
    }

    /**
     * Fill array values (recursive)
     * @access public
     * @param Array $arr
     * @param Void $value
     * @param Boolean $recursive
     * @return Array
     */
    public function array_fill_value ($arr = Array(), $value = '', $recursive = false)
    {
        if (is_array( $arr )) {
            foreach ($arr as $key => $val) {
                if (is_array( $arr[$key] )) {
                    $arr[$key] = ($recursive === true) ? G::array_fill_value( $arr[$key], $value, true ) : $val;
                } else {
                    $arr[$key] = $value;
                }
            }
        } else {
            $arr = Array ();
        }
        return $arr;
    }

    /**
     * Generate Password Random
     * $availableSets set next options:
     * l: lowercase set a-z
     * u: uppercase set A-Z
     * n: numbers set 0-9
     * s: symbols set _-+=!@#$%*&,.;:?^()[]{}<>
     * 
     * $symbol is source symbol generate
     * 
     * @param int $length
     * @param string $availableSets
     * @param string $symbol
     * @return string
     */
    public function generate_password($length = 15, $availableSets = "luns", $symbol = "_-$!")
    {
        $chars = "";
        if (strpos($availableSets, "l") !== false) {
            $chars = $chars . "abcdefghjkmnpqrstuvwxyz";
        }
        if (strpos($availableSets, "u") !== false) {
            $chars = $chars . "ABCDEFGHJKMNPQRSTUVWXYZ";
        }
        if (strpos($availableSets, "n") !== false) {
            $chars = $chars . "0123456789";
        }
        if (strpos($availableSets, "s") !== false) {
            $chars = $chars . $symbol;
        }
        $n = strlen($chars);
        do {
        $password = "";
            $i = 0;
            while ($i < $length) {
                $chars = str_shuffle($chars);
                $char = substr($chars, mt_rand(0, $n - 1), 1);
            if (!strstr($password, $char)) {
                    $password = $password . $char;
                $i++;
            }
                $password = str_shuffle($password);
        }
            $info = G::check_password($password, $length, $length, $availableSets);
        } while (!$info->isValid);
        return $password;
    }

    /**
     * Check password strong
     * 
     * $availableSets set next options:
     * l: lowercase set a-z
     * u: uppercase set A-Z
     * n: numbers set 0-9
     * s: symbols set _-+=!@#$%*&,.;:?^()[]{}<>
     * 
     * @param string $password
     * @param int $min
     * @param int $max
     * @param string $availableSets
     * @return \stdClass
     */
    public function check_password($password, $min = 2, $max = 20, $availableSets = "luns")
    {
        $info = new stdClass();
        $info->isValid = true;
        $info->error = "";
        if (strlen($password) < $min) {
            $info->error .= G::LoadTranslation("ID_PASSWORD_TOO_SHORT") . " ";
            $info->isValid = false;
        }
        if (strlen($password) > $max) {
            $info->error .= G::LoadTranslation("ID_PASSWORD_TOO_LONG") . " ";
            $info->isValid = false;
        }
        if (strpos($availableSets, "l") !== false && !preg_match("#[a-z]+#", $password)) {
            $info->error .= G::LoadTranslation("ID_PASSWORD_MUST_INCLUDE_AT_LEAST_ONE_LETTER") . " ";
            $info->isValid = false;
        }
        if (strpos($availableSets, "u") !== false && !preg_match("#[A-Z]+#", $password)) {
            $info->error .= G::LoadTranslation("ID_PASSWORD_MUST_INCLUDE_AT_LEAST_ONE_CAPS") . " ";
            $info->isValid = false;
        }
        if (strpos($availableSets, "n") !== false && !preg_match("#[0-9]+#", $password)) {
            $info->error .= G::LoadTranslation("ID_PASSWORD_MUST_INCLUDE_AT_LEAST_ONE_NUMBER") . " ";
            $info->isValid = false;
        }
        if (strpos($availableSets, "s") !== false && !preg_match("#\W+#", $password)) {
            $info->error .= G::LoadTranslation("ID_PASSWORD_MUST_INCLUDE_AT_LEAST_ONE_SYMBOL") . " ";
            $info->isValid = false;
        }
        return $info;
    }

    /**
     * Array concat
     * array_concat(ArrayToConcat,ArrayOriginal);
     *
     * @access public
     * @param Array
     * @return Array
     */
    public function array_concat ()
    {
        $nums = func_num_args();
        $vars = func_get_args();
        $ret = Array ();
        for ($i = 0; $i < $nums; $i ++) {
            if (is_array( $vars[$i] )) {
                foreach ($vars[$i] as $key => $value) {
                    $ret[$key] = $value;
                }
            }
        }
        return $ret;
    }

    /**
     * Compare Variables
     * var_compare(value,[var1,var2,varN]);
     * @access public
     * @param  void $value
     * @param  void $var1-N
     * @return Boolean
     */
    public function var_compare ($value = true)
    {
        $nums = func_num_args();
        if ($nums < 2) {
              return true;
        }
        $vars = func_get_args();
        $ret = Array ();
        for ($i = 1; $i < $nums; $i ++) {
            if ($vars[$i] !== $value) {
                return false;
            }
        }
        return true;
    }

    /**
     * Emulate variable selector
     * @access public
     * @param  void
     * @return void
     */
    public function var_probe ()
    {
        //return (!$variable)?
        $nums = func_num_args();
        $vars = func_get_args();
        for ($i = 0; $i < $nums; $i ++) {
            if ($vars[$i]) {
                return $vars[$i];
            }
        }
        return 1;
    }

    /**
     * Get the current version of gulliver classes
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @return string
     */
    public function &getVersion ()
    {
        //majorVersion.minorVersion-SvnRevision
        return '3.0-1';
    }

    /**
     * getIpAddress
     * @return string $ip
     */
    public static function getIpAddress ()
    {
        if (getenv( 'HTTP_CLIENT_IP' )) {
            $ip = getenv( 'HTTP_CLIENT_IP' );
        } elseif (getenv( 'HTTP_X_FORWARDED_FOR' )) {
            $ip = getenv( 'HTTP_X_FORWARDED_FOR' );
        } else {
            $ip = getenv( 'REMOTE_ADDR' );
        }
        return $ip;
    }

    /**
     * getMacAddress
     *
     * @return string $mac
    */
    public function getMacAddress ()
    {
        if (strstr( getenv( 'OS' ), 'Windows' )) {
            $ipconfig = `ipconfig /all`;
            preg_match( '/[\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}/i', $ipconfig, $mac );
        } else {
            $ifconfig = `/sbin/ifconfig`;
            preg_match( '/[\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}[\:-][\dA-Z]{2,2}/i', $ifconfig, $mac );
        }
        return isset( $mac[0] ) ? $mac[0] : '00:00:00:00:00:00';
    }

    /**
     * microtime_float
     *
     * @return array_sum(explode(' ',microtime()))
     */
    /*public static*/
    public function microtime_float ()
    {
        return array_sum( explode( ' ', microtime() ) );
    }

    /**
     * * Encrypt and decrypt functions ***
     */

    /**
     * Encrypt string
     *
     * @access public
     * 
     * @param string $string
     * @param string $key
     * @param bool $urlSafe if it is used in url
     *
     * @return string
     */
    public static function encrypt ($string, $key, $urlSafe = false)
    {
        if (strpos($string, '|', 0) !== false) {
            return $string;
        }
        $result = '';
        for ($i = 0; $i < strlen($string); $i++) {
            $char = substr($string, $i, 1);
            $keychar = substr($key, ($i % strlen($key)) - 1, 1);
            $char = chr(ord($char) + ord($keychar));
            $result .= $char;
        }

        $result = base64_encode($result);
        $search = ['/' => '°', '=' => ''];

        if ($urlSafe) {
            $search['+'] = '-';
        }

        return strtr($result, $search);
    }

    /**
     * Decrypt string
     *
     * @access public
     * 
     * @param string $string
     * @param string $key
     * @param bool $urlSafe if it is used in url
     *
     * @return string
     */
    public static function decrypt($string, $key, $urlSafe = false)
    {
        $result = '';
        $search = ['°' => '/'];

        if ($urlSafe) {
            $search['-'] = '+';
        }

        $string = strtr($string, $search);
        $complement = explode('?', $string);
        $string = base64_decode($complement[0]);

        for ($i = 0; $i < strlen($string); $i++) {
            $char = substr($string, $i, 1);
            $keychar = substr($key, ($i % strlen($key)) - 1, 1);
            $char = chr(ord($char) - ord($keychar));
            $result .= $char;
        }
        if (!empty($complement[1])) {
            $result .= '?' . $complement[1];
        }
        return $result;
    }

    /**
     * Look up an IP address direction
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $target
     * @return void
     */
    public function lookup ($target)
    {
        //Made compatible to PHP 5.3
        if (preg_match( "[a-zA-Z]", $target )) {
            $ntarget = gethostbyname( $target );
        } else {
            $ntarget = gethostbyaddr( $target );
        }
        return ($ntarget);
    }

    /**
     * ************* path functions ****************
     */
    public static function mk_dir ($strPath, $rights = 0770)
    {
        $folder_path = array ($strPath);
        $oldumask = umask( 0 );
        while (! @is_dir( dirname( end( $folder_path ) ) ) && dirname( end( $folder_path ) ) != '/' && dirname( end( $folder_path ) ) != '.' && dirname( end( $folder_path ) ) != '') {
            array_push( $folder_path, dirname( end( $folder_path ) ) ); //var_dump($folder_path); die;
        }

        while ($parent_folder_path = array_pop( $folder_path )) {
            if (! @is_dir( $parent_folder_path )) {
                if (! @mkdir( $parent_folder_path, $rights)) {
                    error_log( "Can't create folder \"$parent_folder_path\"");
                    //umask( $oldumask );
                }
            }
        }
        umask($oldumask);
    }

    /**
     * rm_dir
     *
     * @param string $dirName
     *
     * @return void
     */
    public static function rm_dir ($dirName)
    {
        if (! is_writable( $dirName )) {
            return false;
        }

        if (is_dir( $dirName )) {
            foreach (glob( $dirName . '/{,.}*', GLOB_BRACE ) as $file) {
                if ($file == $dirName . '/.' || $file == $dirName . '/..') {
                    continue;
                }

                if (is_dir( $file )) {
                    G::rm_dir( $file );
                } else {
                    @unlink( $file );
                }
            }

            if (strtoupper(substr(PHP_OS, 0, 3)) === "WIN") {
                $dirName = str_replace("/", "\\", $dirName);

                exec("DEL /F /S /Q " . $dirName . "", $res);
                exec("RD /S /Q " . $dirName . "", $res);
            } else {
                @rmdir($dirName);
            }
        } else {
            @unlink( $dirName );
        }
    }

    /**
     * Delete all the directory tree cotents.
     * @param string $dir
     * @return void
     */
    public function delTree($dir)
    {
        $files = glob( $dir . '*', GLOB_MARK );
        foreach ($files as $file ) {
            if (substr( $file, -1 ) == '/' ) {
                self::delTree( $file );
            } else {
                unlink( $file );
            }
        }
        if (is_dir($dir)) {
            rmdir( $dir );
        }
    }

    /**
     * Recursive copy
     * @param string $source
     * @param string $destination
     * @return boolean
     */
    function recursive_copy ($source, $destination) {
        if ($source == $destination) {
            return false;
        }
        $dir = opendir($source);

        if (!file_exists($destination)) {
            G::mk_dir($destination, 0777);
        }

        while (false !== ( $file = readdir($dir))) {
            if (( $file != '.' ) && ( $file != '..' )) {
                if ( is_dir($source . '/' . $file) ) {
                    self::recursive_copy($source . '/' . $file, $destination . '/' . $file);
                } else {
                    copy($source . '/' . $file, $destination . '/' . $file);
                }
            }
        }
        closedir($dir);
        return true;
    }

    /**
     * verify path
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $strPath path
     * @param boolean $createPath if true this public function will create the path
     * @return boolean
     */
    public static function verifyPath ($strPath, $createPath = false)
    {
        $folder_path = strstr( $strPath, '.' ) ? dirname( $strPath ) : $strPath;

        if (file_exists( $strPath ) || @is_dir( $strPath )) {
            return true;
        } else {
            if ($createPath) {
                //TODO:: Define Environment constants: Devel (0777), Production (0770), ...
                G::mk_dir( $strPath, 0777 );
            } else {
                return false;
            }
        }
        return false;
    }

    /**
     * Expand the path using the path constants
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $strPath
     * @return string
     */
    public static function expandPath ($strPath = '')
    {
        $res = "";
        $res = PATH_CORE;
        if ($strPath != "") {
            $res .= $strPath . "/";
        }
        return $res;
    }


    /**
     * Render Page
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param object $objContent
     * @param string $strTemplate
     * @param string $strSkin
     * @return void
     */
    public static function RenderPage ($strTemplate = "default", $strSkin = SYS_SKIN, $objContent = null, $layout = '')
    {
        global $G_CONTENT;
        global $G_TEMPLATE;
        global $G_SKIN;
        global $G_PUBLISH;

        $G_CONTENT = $objContent;
        $G_TEMPLATE = $strTemplate;
        $G_SKIN = $strSkin;

        try {
            $file = G::ExpandPath( 'skinEngine' ) . 'skinEngine.php';
            include $file;
            $skinEngine = new SkinEngine( $G_TEMPLATE, $G_SKIN, $G_CONTENT );
            $skinEngine->setLayout( $layout );
            $skinEngine->dispatch();
        } catch (Exception $e) {
            global $G_PUBLISH;
            if (is_null( $G_PUBLISH )) {
                $G_PUBLISH = new Publisher();
            }
            if (count( $G_PUBLISH->Parts ) == 1) {
                array_shift( $G_PUBLISH->Parts );
            }
            global $oHeadPublisher;
            $leimnudInitString = $oHeadPublisher->leimnudInitString;
            $oHeadPublisher->clearScripts();
            $oHeadPublisher->leimnudInitString = $leimnudInitString;
            $oHeadPublisher->addScriptFile( '/js/maborak/core/maborak.js' );
            $G_PUBLISH->AddContent( 'xmlform', 'xmlform', 'login/showMessage', null, array ('MESSAGE' => self::getErrorMessage($e)
            ) );
            if (class_exists( 'SkinEngine' )) {
                $skinEngine = new SkinEngine( 'publish', 'blank', '' );
                $skinEngine->dispatch();
            } else {
                die( self::getErrorMessage($e) );
            }
        }
    }

    /**
     * Load a skin
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $strSkinName
     * @return void
     */
    public function LoadSkin ($strSkinName)
    {
        //print $strSkinName;
        //now, we are using the skin, a skin is a file in engine/skin directory
        $file = G::ExpandPath( "skins" ) . $strSkinName . ".php";
        //G::pr($file);
        if (file_exists( $file )) {
            require_once ($file);
            return;
        } else {
            if (file_exists( PATH_HTML . 'errors/error703.php' )) {
                header( 'location: /errors/error703.php' );
                die();
            } else {
                $text = "The Skin $file does not exist, please review the Skin Definition";
                throw (new Exception( $text ));
            }
        }

    }


    /**
     * Include all model plugin files
     *
     * LoadAllPluginModelClasses
     *
     * @author Hugo Loza <hugo@colosa.com>
     * @access public
     * @return void
     */
    public function LoadAllPluginModelClasses ()
    {
        //Get the current Include path, where the plugins directories should be
        if (! defined( 'PATH_SEPARATOR' )) {
            define( 'PATH_SEPARATOR', (substr( PHP_OS, 0, 3 ) == 'WIN') ? ';' : ':' );
        }
        $path = explode( PATH_SEPARATOR, get_include_path() );

        foreach ($path as $possiblePath) {
            if (strstr( $possiblePath, "plugins" )) {
                $baseDir = $possiblePath . 'classes' . PATH_SEP . 'model';
                if (file_exists( $baseDir )) {
                    if ($handle = opendir( $baseDir )) {
                        while (false !== ($file = readdir( $handle ))) {
                            if (strpos( $file, '.php', 1 ) && ! strpos( $file, 'Peer.php', 1 )) {
                                require_once ($baseDir . PATH_SEP . $file);
                            }
                        }
                    }
                    
                }
            }
        }
    }

    /**
     * Load a template
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $strTemplateName
     * @return void
     */
    public function LoadTemplate ($strTemplateName)
    {
        if ($strTemplateName == '') {
            return;
        }

        $temp = $strTemplateName . ".php";
        $file = G::ExpandPath( 'templates' ) . $temp;
        // Check if its a user template
        if (file_exists( $file )) {
            //require_once( $file );
            include ($file);
        } else {
            // Try to get the global system template
            $file = PATH_TEMPLATE . PATH_SEP . $temp;
            //require_once( $file );
            if (file_exists( $file )) {
                include ($file);
            }
        }
    }

    /**
     * Encrypt URL
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $urlLink
     * @return string
     */
    public function encryptlink ($url)
    {
        if (defined( 'ENABLE_ENCRYPT' ) && ENABLE_ENCRYPT == 'yes') {
            return urlencode( G::encrypt( $url, URL_KEY ) );
        } else {
            return $url;
        }
    }

    /**
     * Parsing the URI
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $urlLink
     * @return string
     */
    static public function parseURI ($uri, $isRestRequest = false)
    {
        //*** process the $_POST with magic_quotes enabled
        // The magic_quotes_gpc feature has been DEPRECATED as of PHP 5.3.0.
        if (get_magic_quotes_gpc() === 1) {
            $_POST = G::strip_slashes( $_POST );
        }

        $aRequestUri = explode( '/', $uri );
        if ($isRestRequest) {
            $args = self::parseRestUri( $aRequestUri );
        } else {
            $args = self::parseNormalUri( $aRequestUri );
        }

        define( "SYS_LANG", $args['SYS_LANG'] );
        define( "SYS_SKIN", $args['SYS_SKIN'] );
        define( 'SYS_COLLECTION', $args['SYS_COLLECTION'] );
        define( 'SYS_TARGET', $args['SYS_TARGET'] );

        if ($args['SYS_COLLECTION'] == 'js2') {
            print "ERROR";
            die();
        }
    }

    public function parseNormalUri ($aRequestUri)
    {
        if (substr( $aRequestUri[1], 0, 3 ) == 'sys') {
            define( 'SYS_TEMP', substr( $aRequestUri[1], 3 ) );
        } else {
            define( "ENABLE_ENCRYPT", 'yes' );
            define( 'SYS_TEMP', $aRequestUri[1] );
            $plain = '/sys' . SYS_TEMP;

            for ($i = 2; $i < count( $aRequestUri ); $i ++) {
                $decoded = G::decrypt( urldecode( $aRequestUri[$i] ), URL_KEY );
                if ($decoded == 'sWì›') {
                    $decoded = $VARS[$i]; //this is for the string  "../"
                }
                $plain .= '/' . $decoded;
            }
            $_SERVER["REQUEST_URI"] = $plain;
        }

        $work = explode( '?', $_SERVER["REQUEST_URI"] );

        if (count( $work ) > 1) {
            define( 'SYS_CURRENT_PARMS', $work[1] );
        } else {
            define( 'SYS_CURRENT_PARMS', '' );
        }

        define( 'SYS_CURRENT_URI', $work[0] );

        if (! defined( 'SYS_CURRENT_PARMS' )) {
            define( 'SYS_CURRENT_PARMS', $work[1] );
        }

        $preArray = explode( '&', SYS_CURRENT_PARMS );
        $buffer = explode( '.', $work[0] );

        if (count( $buffer ) == 1) {
            $buffer[1] = '';
        }

        //request type
        define( 'REQUEST_TYPE', ($buffer[1] != "" ? $buffer[1] : 'html') );

        $toparse = substr( $buffer[0], 1, strlen( $buffer[0] ) - 1 );
        $uriVars = explode( '/', $toparse );

        unset( $work );
        unset( $buffer );
        unset( $toparse );
        array_shift( $uriVars );

        $args = array ();
        $args['SYS_LANG'] = array_shift( $uriVars );
        $args['SYS_SKIN'] = array_shift( $uriVars );
        $args['SYS_COLLECTION'] = array_shift( $uriVars );
        $args['SYS_TARGET'] = array_shift( $uriVars );

        //to enable more than 2 directories...in the methods structure
        while (count( $uriVars ) > 0) {
            $args['SYS_TARGET'] .= '/' . array_shift( $uriVars );
        }

        /* Fix to prevent use uxs skin outside siplified interface,
        because that skin is not compatible with others interfaces*/
        if ($args['SYS_SKIN'] == 'uxs' && $args['SYS_COLLECTION'] != 'home' && $args['SYS_COLLECTION'] != 'cases') {
            $config = System::getSystemConfiguration();
            $args['SYS_SKIN'] = $config['default_skin'];
        }

        return $args;
    }

    public function parseRestUri ($requestUri)
    {
        $args = array ();
        //$args['SYS_TEMP'] = $requestUri[1];
        define( 'SYS_TEMP', $requestUri[2] );
        $restUri = '';

        for ($i = 3; $i < count( $requestUri ); $i ++) {
            $restUri .= '/' . $requestUri[$i];
        }

        $args['SYS_LANG'] = 'en'; // TODO, this can be set from http header
        $args['SYS_SKIN'] = '';
        $args['SYS_COLLECTION'] = '';
        $args['SYS_TARGET'] = $restUri;

        return $args;
    }

    public function strip_slashes ($vVar)
    {
        if (is_array( $vVar )) {
            foreach ($vVar as $sKey => $vValue) {
                if (is_array( $vValue )) {
                    G::strip_slashes( $vVar[$sKey] );
                } else {
                    $vVar[$sKey] = stripslashes( $vVar[$sKey] );
                }
            }
        } else {
            $vVar = stripslashes( $vVar );
        }

        return $vVar;
    }

    /**
     * function to calculate the time used to render a page
     */
    public function logTimeByPage ()
    {
        if (! defined( PATH_DATA )) {
            return false;
        }

        $serverAddr = $_SERVER['SERVER_ADDR'];
        global $startingTime;
        $endTime = microtime( true );
        $time = $endTime - $startingTime;
        $fpt = fopen( PATH_DATA . 'log/time.log', 'a' );
        fwrite( $fpt, sprintf( "%s.%03d %15s %s %5.3f %s\n", date( 'Y-m-d H:i:s' ), $time, getenv( 'REMOTE_ADDR' ), substr( $serverAddr, - 4 ), $time, $_SERVER['REQUEST_URI'] ) );
        fclose( $fpt );
    }

    /**
     * streaming a big JS file with small js files
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $file
     * @return string
     */
    public function streamCSSBigFile ($filename)
    {
        header( 'Content-Type: text/css' );

        //First get Skin info
        $filenameParts = explode( "-", $filename );
        $skinName = $filenameParts[0];
        $skinVariant = "skin";

        if (isset( $filenameParts[1] )) {
            $skinVariant = strtolower( $filenameParts[1] );
        }

        $configurationFile = '';
        if ($skinName == "jscolors") {
            $skinName = "classic";
        }
        if ($skinName == "xmlcolors") {
            $skinName = "classic";
        }
        if ($skinName == "classic") {
            $configurationFile = G::ExpandPath( "skinEngine" ) . 'base' . PATH_SEP . 'config.xml';
        } else {
            $configurationFile = PATH_CUSTOM_SKINS . $skinName . PATH_SEP . 'config.xml';

            if (! is_file( $configurationFile )) {
                $configurationFile = G::ExpandPath( "skinEngine" ) . $skinName . PATH_SEP . 'config.xml';
            }
        }

        //Read Configuration File
        $xmlConfiguration = file_get_contents( $configurationFile );
        $xmlConfigurationObj = G::xmlParser( $xmlConfiguration );
        $baseSkinDirectory = dirname( $configurationFile );
        $directorySize = G::getDirectorySize( $baseSkinDirectory );
        $mtime = $directorySize['maxmtime'];

        $outputHeader = "/* Autogenerated CSS file by gulliver framework \n";
        $outputHeader .= "   Skin: $filename\n";
        $mtimeNow = date( 'U' );
        $gmt_mtimeNow = gmdate( "D, d M Y H:i:s", $mtimeNow ) . " GMT";
        $outputHeader .= "   Date: $gmt_mtimeNow*/\n";
        $output = "";
        //Base files
        switch (strtolower( $skinVariant )) {
            case "extjs":
                //Base
                $baseCSSPath = PATH_SKIN_ENGINE . "base" . PATH_SEP . "baseCss" . PATH_SEP;
                $output .= file_get_contents( $baseCSSPath . 'ext-all-notheme.css' );

                //Classic Skin
                $extJsSkin = 'xtheme-gray';
                break;
            default:
                break;
        }

        //Get Browser Info
        $infoBrowser = G::browser_detection( 'full_assoc' );
        $browserName = $infoBrowser['browser_working'];
        if (isset( $infoBrowser[$browserName . '_data'] )) {
            if ($infoBrowser[$browserName . '_data'][0] != "") {
                $browserName = $infoBrowser[$browserName . '_data'][0];
            }
        }

        //Read Configuration File
        $xmlConfiguration = file_get_contents ( $configurationFile );
        $xmlConfigurationObj = G::xmlParser($xmlConfiguration);

        $skinFilesArray = $xmlConfigurationObj->result['skinConfiguration']['__CONTENT__']['cssFiles']['__CONTENT__'][$skinVariant]['__CONTENT__']['cssFile'] ;
        foreach ($skinFilesArray as $keyFile => $cssFileInfo) {
            $enabledBrowsers  = explode(",", $cssFileInfo['__ATTRIBUTES__']['enabledBrowsers']);
            $disabledBrowsers = explode(",", $cssFileInfo['__ATTRIBUTES__']['disabledBrowsers']);

            if (((in_array($browserName, $enabledBrowsers)) || (in_array('ALL', $enabledBrowsers)))&&(!(in_array($browserName, $disabledBrowsers)))) {
                if ($cssFileInfo['__ATTRIBUTES__']['file'] == 'rtl.css') {
                    $oServerConf =& ServerConf::getSingleton();
                    if (!(defined('SYS_LANG'))) {
                        if (isset($_SERVER['HTTP_REFERER'])) {
                            $syss = explode('://', $_SERVER['HTTP_REFERER']);
                            $sysObjets =  explode('/', $syss['1']);
                            $sysLang = $sysObjets['2'];
                        } else {
                            $sysLang = 'en';
                        }
                    } else {
                        $sysLang = SYS_LANG;
                    }
                    if ($oServerConf->isRtl($sysLang)) {
                        $output .= file_get_contents ( $baseSkinDirectory . PATH_SEP.'css'.PATH_SEP.$cssFileInfo['__ATTRIBUTES__']['file'] );
                    }
                } else {
                    $output .= file_get_contents ( $baseSkinDirectory . PATH_SEP.'css'.PATH_SEP.$cssFileInfo['__ATTRIBUTES__']['file'] );
                }
            }
        }

        //Remove comments..
        $regex = array ("`^([\t\s]+)`ism" => '',"`^\/\*(.+?)\*\/`ism" => "","`([\n\A;]+)\/\*(.+?)\*\/`ism" => "$1","`([\n\A;\s]+)//(.+?)[\n\r]`ism" => "$1\n","`(^[\r\n]*|[\r\n]+)[\s\t]*[\r\n]+`ism" => "\n" );
        $output = preg_replace( array_keys( $regex ), $regex, $output );
        $output = $outputHeader . $output;

        return $output;
    }

    /**
     * streaming the translation.<lang>.js file
     * take the WEB-INF/translation.<lang> file and append it to file js/widgets/lang/<lang>.js file
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $file
     * @param boolean $download
     * @param string $downloadFileName
     * @return string
     */
    public function streamJSTranslationFile ($filename, $locale = 'en')
    {
        $defaultTranslations = Array ();
        $foreignTranslations = Array ();

        //if the default translations table doesn't exist we can't proceed
        if (! is_file( PATH_LANGUAGECONT . 'translation.en' )) {
            return ;
        }
        //load the translations table
        require_once (PATH_LANGUAGECONT . 'translation.en');
        $defaultTranslations = $translation;

        //if some foreign language was requested and its translation file exists
        if ($locale != 'en' && file_exists( PATH_LANGUAGECONT . 'translation.' . $locale )) {
            require_once (PATH_LANGUAGECONT . 'translation.' . $locale); //load the foreign translations table
            $foreignTranslations = $translation;
        }

        if (defined( "SHOW_UNTRANSLATED_AS_TAG" ) && SHOW_UNTRANSLATED_AS_TAG != 0) {
            $translation = $foreignTranslations;
        } else {
            $translation = array_merge( $defaultTranslations, $foreignTranslations );
        }

        $calendarJs = '';
        $calendarJsFile = PATH_GULLIVER_HOME . "js/widgets/js-calendar/lang/" . $locale .".js";
        if (! file_exists($calendarJsFile)) {
            $calendarJsFile = PATH_GULLIVER_HOME . "js/widgets/js-calendar/lang/en.js";
        }
        $calendarJs = file_get_contents($calendarJsFile) . "\n";

        return $calendarJs . 'var TRANSLATIONS = ' . G::json_encode( $translation ) . ';' ;
    }

    /**
     * streaming a file
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $file
     * @param boolean $download
     * @param string $downloadFileName
     * @return string
     */
    public static function streamFile ($file, $download = false, $downloadFileName = '')
    {

        $filter = new InputFilter();
        $file = $filter->xssFilterHard($file);
        if(isset($_SERVER['REQUEST_URI'])) {
            $_SERVER['REQUEST_URI'] = $filter->xssFilterHard($_SERVER['REQUEST_URI'],"url");
        }
        require_once (PATH_THIRDPARTY . 'jsmin/jsmin.php');
        $folderarray = explode( '/', $file );
        $typearray = explode( '.', basename( $file ) );
        $typefile = $typearray[count( $typearray ) - 1];
        $filename = $file;

        //trick to generate the translation.language.js file , merging two files
        if (strtolower( $typefile ) == 'js' && $typearray[0] == 'translation') {
            $download = $filter->xssFilterHard($download);
            $downloadFileName = $filter->xssFilterHard($downloadFileName);
            G::sendHeaders( $filename, 'text/javascript', $download, $downloadFileName );
            $output = G::streamJSTranslationFile( $filename, $typearray[1] );
            $output = $filter->xssFilterHard($output);
            print $output;
            return;
        }

        //trick to generate the big css file for ext style .
        if (strtolower( $typefile ) == 'css' && $folderarray[count( $folderarray ) - 2] == 'css') {
            G::sendHeaders( $filename, 'text/css', $download, $downloadFileName );
            $output = G::streamCSSBigFile( $typearray[0] );
            $output = $filter->xssFilterHard($output);
            print $output;
            return;
        }

        if (file_exists( $filename )) {
            switch (strtolower( $typefile )) {
                case 'swf':
                    G::sendHeaders( $filename, 'application/x-shockwave-flash', $download, $downloadFileName );
                    break;
                case 'js':
                    G::sendHeaders( $filename, 'text/javascript', $download, $downloadFileName );
                    break;
                case 'htm':
                case 'html':
                    G::sendHeaders( $filename, 'text/html', $download, $downloadFileName );
                    break;
                case 'htc':
                    G::sendHeaders( $filename, 'text/plain', $download, $downloadFileName );
                    break;
                case 'json':
                    G::sendHeaders( $filename, 'text/plain', $download, $downloadFileName );
                    break;
                case 'gif':
                    G::sendHeaders( $filename, 'image/gif', $download, $downloadFileName );
                    break;
                case 'png':
                    G::sendHeaders( $filename, 'image/png', $download, $downloadFileName );
                    break;
                case 'jpg':
                    G::sendHeaders( $filename, 'image/jpg', $download, $downloadFileName );
                    break;
                case 'css':
                    G::sendHeaders( $filename, 'text/css', $download, $downloadFileName );
                    break;
                case 'xml':
                    G::sendHeaders( $filename, 'text/xml', $download, $downloadFileName );
                    break;
                case 'txt':
                    G::sendHeaders( $filename, 'text/html', $download, $downloadFileName );
                    break;
                case 'pdf':
                    G::sendHeaders( $filename, 'application/pdf', $download, $downloadFileName );
                    break;
                case 'doc':
                case 'pm':
                case 'po':
                    G::sendHeaders( $filename, 'application/octet-stream', $download, $downloadFileName );
                    break;
                case 'php':
                    if ($download) {
                        G::sendHeaders( $filename, 'text/plain', $download, $downloadFileName );
                    } else {
                        if (\Bootstrap::getDisablePhpUploadExecution() === 0) {
                            \Bootstrap::registerMonologPhpUploadExecution('phpExecution', 200, 'Php Execution', $filename);
                            require_once ($filename);
                        } else {
                            $message = G::LoadTranslation('THE_PHP_FILES_EXECUTION_WAS_DISABLED');
                            \Bootstrap::registerMonologPhpUploadExecution('phpExecution', 550, $message, $filename);
                            echo $message;
                        }
                        return;
                    }
                    break;
                case 'tar':
                    G::sendHeaders( $filename, 'application/x-tar', $download, $downloadFileName );
                    break;
                default:
                    //throw new Exception ( "Unknown type of file '$file'. " );
                    G::sendHeaders( $filename, 'application/octet-stream', $download, $downloadFileName );
                    break;
            }
        } else {
            if (strpos( $file, 'gulliver' ) !== false) {
                list ($path, $filename) = explode( 'gulliver', $file );
            }

            $_SESSION['phpFileNotFound'] = $file;
            G::header( "location: /errors/error404.php?l=" . $_SERVER['REQUEST_URI'] );
        }

        if ( substr($filename,-10) == "ext-all.js" ) {
            $filename = PATH_GULLIVER_HOME . 'js/ext/min/ext-all.js';
        }
        @readfile( $filename );
    }

    /**
     * sendHeaders
     *
     * @param string $filename
     * @param string $contentType default value ''
     * @param boolean $download default value false
     * @param string $downloadFileName default value ''
     *
     * @return void
     */
    public function sendHeaders ($filename, $contentType = '', $download = false, $downloadFileName = '')
    {
        if ($download) {
            if ($downloadFileName == '') {
                $aAux = explode('/', $filename);
                $downloadFileName = $aAux[count($aAux) - 1];
            }
            header('Content-Disposition: attachment; filename="' . $downloadFileName . '"');
        } else {
            header('Content-Disposition: inline; filename="' . $downloadFileName . '"');
        }
        header('Content-Type: ' . $contentType);

        //if userAgent (BROWSER) is MSIE we need special headers to avoid MSIE behaivor.
        $userAgent = strtolower( $_SERVER['HTTP_USER_AGENT'] );
        if (preg_match( "/msie/i", $userAgent )) {
            //if ( ereg("msie", $userAgent)) {
            header( 'Pragma: cache' );

            if (file_exists( $filename )) {
                $mtime = filemtime( $filename );
            } else {
                $mtime = date( 'U' );
            }
            $gmt_mtime = gmdate( "D, d M Y H:i:s", $mtime ) . " GMT";
            header( 'ETag: "' . G::encryptOld( $mtime . $filename ) . '"' );
            header( "Last-Modified: " . $gmt_mtime );
            header( 'Cache-Control: public' );
            header( "Expires: " . gmdate( "D, d M Y H:i:s", time() + 60 * 10 ) . " GMT" ); //ten minutes
            return;
        }

        if (! $download) {

            header( 'Pragma: cache' );

            if (file_exists( $filename )) {
                $mtime = filemtime( $filename );
            } else {
                $mtime = date( 'U' );
            }
            $gmt_mtime = gmdate( "D, d M Y H:i:s", $mtime ) . " GMT";
            header( 'ETag: "' . G::encryptOld( $mtime . $filename ) . '"' );
            header( "Last-Modified: " . $gmt_mtime );
            header( 'Cache-Control: public' );
            header( "Expires: " . gmdate( "D, d M Y H:i:s", time() + 90 * 60 * 60 * 24 ) . " GMT" );
            if (isset( $_SERVER['HTTP_IF_MODIFIED_SINCE'] )) {
                if ($_SERVER['HTTP_IF_MODIFIED_SINCE'] == $gmt_mtime) {
                    header( 'HTTP/1.1 304 Not Modified' );
                    exit();
                }
            }

            if (isset( $_SERVER['HTTP_IF_NONE_MATCH'] )) {
                if (str_replace( '"', '', stripslashes( $_SERVER['HTTP_IF_NONE_MATCH'] ) ) == G::encryptOld( $mtime . $filename )) {
                    header( "HTTP/1.1 304 Not Modified" );
                    exit();
                }
            }
        }
    }

    /**
     * Transform a public URL into a local path.
     *
     * @author David S. Callizaya S. <davidsantos@colosa.com>
     * @access public
     * @param string $url
     * @param string $corvertionTable
     * @param string $realPath = local path
     * @return boolean
     */
    public function virtualURI ($url, $convertionTable, &$realPath)
    {
        foreach ($convertionTable as $urlPattern => $localPath) {
            //      $urlPattern = addcslashes( $urlPattern , '/');
            $urlPattern = addcslashes( $urlPattern, './' );
            $urlPattern = '/^' . str_replace( array ('*','?'
            ), array ('.*','.?'
            ), $urlPattern ) . '$/';
            if (preg_match( $urlPattern, $url, $match )) {
                if ($localPath === false) {
                    $realPath = $url;
                    return false;
                }
                if ($localPath != 'jsMethod') {
                    $realPath = $localPath . $match[1];
                } else {
                    $realPath = $localPath;
                }
                return true;
            }
        }
        $realPath = $url;
        return false;
    }

    /**
     * Create an encrypted unique identifier based on $id and the selected scope id.
     *
     * @author David S. Callizaya S. <davidsantos@colosa.com>
     * @access public
     * @param string $scope
     * @param string $id
     * @return string
     */
    public static function createUID ($scope, $id)
    {
        $e = $scope . $id;
        $e = G::encrypt( $e, URL_KEY );
        $e = str_replace( array ('+','/','='
        ), array ('__','_','___'
        ), base64_encode( $e ) );
        return $e;
    }

    /**
     * (Create an encrypted unique identificator based on $id and the selected scope id.) ^-1
     * getUIDName
     *
     * @author David S. Callizaya S. <davidsantos@colosa.com>
     * @access public
     * @param string $id
     * @param string $scope
     * @return string
     */
    public function getUIDName ($uid, $scope = '')
    {
        $e = str_replace( array ('=','+','/'
        ), array ('___','__','_'
        ), $uid );
        $e = base64_decode( $e );
        $e = G::decrypt( $e, URL_KEY );
        $e = substr( $e, strlen( $scope ) );
        return $e;
    }

    /* formatNumber
     *
     * @author David Callizaya <calidavidx21@yahoo.com.ar>
     * @param  int/string $num
     * @return string number
    */
    public function formatNumber ($num, $language = 'latin')
    {
        switch ($language) {
            default:
                $snum = $num;
        }
        return $snum;
    }

    /* Returns a date formatted according to the given format string
     * @author David Callizaya <calidavidx21@hotmail.com>
     * @param string $format     The format of the outputted date string
     * @param string $datetime   Date in the format YYYY-MM-DD HH:MM:SS
    */
    public function formatDate ($datetime, $format = 'Y-m-d', $lang = '')
    {
        if ($lang === '') {
            $lang = defined( SYS_LANG ) ? SYS_LANG : 'en';
        }
        $aux = explode( ' ', $datetime ); //para dividir la fecha del dia
        $date = explode( '-', isset( $aux[0] ) ? $aux[0] : '00-00-00' ); //para obtener los dias, el mes, y el año.
        $time = explode( ':', isset( $aux[1] ) ? $aux[1] : '00:00:00' ); //para obtener las horas, minutos, segundos.
        $date[0] = (int) ((isset( $date[0] )) ? $date[0] : '0');
        $date[1] = (int) ((isset( $date[1] )) ? $date[1] : '0');
        $date[2] = (int) ((isset( $date[2] )) ? $date[2] : '0');
        $time[0] = (int) ((isset( $time[0] )) ? $time[0] : '0');
        $time[1] = (int) ((isset( $time[1] )) ? $time[1] : '0');
        $time[2] = (int) ((isset( $time[2] )) ? $time[2] : '0');
        // Spanish months
        $ARR_MONTHS['es'] = array ("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre"
        );
        // English months
        $ARR_MONTHS['en'] = array ("January","February","March","April","May","June","July","August","September","October","November","December"
        );

        // Spanish days
        $ARR_WEEKDAYS['es'] = array ("Domingo","Lunes","Martes","Miércoles","Jueves","Viernes","Sábado"
        );
        // English days
        $ARR_WEEKDAYS['en'] = array ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"
        );

        if ($lang == 'fa') {
            $number = 'persian';
        } else {
            $number = 'latin';
        }
        $d = '0' . $date[2];
        $d = G::formatNumber( substr( $d, strlen( $d ) - 2, 2 ), $number );
        $j = G::formatNumber( $date[2], $number );
        $F = isset( $ARR_MONTHS[$lang][$date[1] - 1] ) ? $ARR_MONTHS[$lang][$date[1] - 1] : '';
        $m = '0' . $date[1];
        $m = G::formatNumber( substr( $m, strlen( $m ) - 2, 2 ), $number );
        $n = G::formatNumber( $date[1], $number );
        $y = G::formatNumber( substr( $date[0], strlen( $date[0] ) - 2, 2 ), $number );
        $Y = '0000' . $date[0];
        $Y = G::formatNumber( substr( $Y, strlen( $Y ) - 4, 4 ), $number );
        $g = ($time[0] % 12);
        if ($g === 0) {
            $g = 12;
        }
        $G = $time[0];
        $h = '0' . $g;
        $h = G::formatNumber( substr( $h, strlen( $h ) - 2, 2 ), $number );
        $H = '0' . $G;
        $H = G::formatNumber( substr( $H, strlen( $H ) - 2, 2 ), $number );
        $i = '0' . $time[1];
        $i = G::formatNumber( substr( $i, strlen( $i ) - 2, 2 ), $number );
        $s = '0' . $time[2];
        $s = G::formatNumber( substr( $s, strlen( $s ) - 2, 2 ), $number );
        $names = array ('d','j','F','m','n','y','Y','g','G','h','H','i','s'
        );
        $values = array ($d,$j,$F,$m,$n,$y,$Y,$g,$G,$h,$H,$i,$s
        );
        $_formatedDate = str_replace( $names, $values, $format );
        return $_formatedDate;
    }

    /**
     * getformatedDate
     *
     * @param date $date
     * @param string $format default value 'yyyy-mm-dd',
     * @param string $lang default value ''
     *
     * @return string $ret
     */
    public static function getformatedDate ($date, $format = 'yyyy-mm-dd', $lang = '')
    {
        /**
         * ******************************************************************************************************
         * if the year is 2008 and the format is yy then -> 08
         * if the year is 2008 and the format is yyyy then -> 2008
         *
         * if the month is 05 and the format is mm then -> 05
         * if the month is 05 and the format is m and the month is less than 10 then -> 5 else digit normal
         * if the month is 05 and the format is MM or M then -> May
         *
         * if the day is 5 and the format is dd then -> 05
         * if the day is 5 and the format is d and the day is less than 10 then -> 5 else digit normal
         * if the day is 5 and the format is DD or D then -> five
         * *******************************************************************************************************
         */

        //scape the literal
        switch ($lang) {
            case 'es':
                $format = str_replace( ' del ', '[ofl]', $format );
                $format = str_replace( ' de ', '[of]', $format );
                break;
        }

        //first we must formatted the string
        $format = str_replace( 'h', '{h}', $format );
        $format = str_replace( 'i', '{i}', $format );
        $format = str_replace( 's', '{s}', $format );

        $format = str_replace( 'yyyy', '{YEAR}', $format );
        $format = str_replace( 'yy', '{year}', $format );

        $format = str_replace( 'mm', '{YONTH}', $format );
        $format = str_replace( 'm', '{month}', $format );
        $format = str_replace( 'M', '{XONTH}', $format );

        $format = str_replace( 'dd', '{DAY}', $format );
        $format = str_replace( 'd', '{day}', $format );

        if ($lang === '') {
            $lang = defined( SYS_LANG ) ? SYS_LANG : 'en';
        }

        $aux = explode( ' ', $date ); //para dividir la fecha del dia
        $date = explode( '-', isset( $aux[0] ) ? $aux[0] : '00-00-00' ); //para obtener los dias, el mes, y el año.
        $time = explode( ':', isset( $aux[1] ) ? $aux[1] : '00:00:00' ); //para obtener las horas, minutos, segundos.

        $year = (int) ((isset( $date[0] )) ? $date[0] : '0'); //year
        $month = (int) ((isset( $date[1] )) ? $date[1] : '0'); //month
        $day = (int) ((isset( $date[2] )) ? $date[2] : '0'); //day

        $h = isset( $time[0] ) ? $time[0] : '00'; //hour
        $i = isset( $time[1] ) ? $time[1] : '00'; //minute
        $s = isset( $time[2] ) ? $time[2] : '00'; //second

        $MONTHS = Array ();
        for ($j = 1; $j <= 12; $j ++) {
          $MONTHS[$j] = G::LoadTranslation( "ID_MONTH_$j", $lang );
        }

        $d = (int) $day;
        $dd = G::complete_field( $day, 2, 1 );

        //missing D

        $M = $MONTHS[$month];
        $m = (int) $month;
        $mm = G::complete_field( $month, 2, 1 );

        $yy = substr( $year, strlen( $year ) - 2, 2 );
        $yyyy = $year;

        $names = array ('{day}','{DAY}','{month}','{YONTH}','{XONTH}','{year}','{YEAR}','{h}','{i}','{s}'
        );
        $values = array ($d,$dd,$m,$mm,$M,$yy,$yyyy,$h,$i,$s
        );

        $ret = str_replace( $names, $values, $format );

        //recovering the original literal
        switch ($lang) {
            case 'es':
                $ret = str_replace( '[ofl]', ' del ', $ret );
                $ret = str_replace( '[of]', ' de ', $ret );
                break;
        }

        return $ret;
    }

    /**
     * By <erik@colosa.com>
     * Here's a little wrapper for array_diff - I found myself needing
     * to iterate through the edited array, and I didn't need to original keys for anything.
     */
    public function arrayDiff ($array1, $array2)
    {
        if (! is_array( $array1 )) {
            $array1 = (array) $array1;
        }

        if (! is_array( $array2 )) {
            $array2 = (array) $array2;
        }

        // This wrapper for array_diff rekeys the array returned
        $valid_array = array_diff( $array1, $array2 );

        // reinstantiate $array1 variable
        $array1 = array ();

        // loop through the validated array and move elements to $array1
        // this is necessary because the array_diff function returns arrays that retain their original keys
        foreach ($valid_array as $valid) {
            $array1[] = $valid;
        }
        return $array1;
    }

    /**
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @name complete_field($string, $lenght, $type={1:number/2:string/3:float})
     */
    public static function complete_field ($campo, $long, $tipo)
    {
        $campo = trim( $campo );
        switch ($tipo) {
            case 1: //number
                $long = $long - strlen( $campo );
                for ($i = 1; $i <= $long; $i ++) {
                    $campo = "0" . $campo;
                }
                break;
            case 2: //string
                $long = $long - strlen( $campo );
                for ($i = 1; $i <= $long; $i ++) {
                    $campo = " " . $campo;
                }
                break;
            case 3: //float
                if ($campo != "0") {
                    $vals = explode( ".", $long );
                    $ints = $vals[0];

                    $decs = $vals[1];

                    $valscampo = explode( ".", $campo );

                    $intscampo = $valscampo[0];
                    $decscampo = $valscampo[1];

                    $ints = $ints - strlen( $intscampo );

                    for ($i = 1; $i <= $ints; $i ++) {
                        $intscampo = "0" . $intscampo;
                    }

                    //los decimales pueden ser 0 uno o dos
                    $decs = $decs - strlen( $decscampo );
                    for ($i = 1; $i <= $decs; $i ++) {
                        $decscampo = $decscampo . "0";
                    }

                    $campo = $intscampo . "." . $decscampo;
                } else {
                    $vals = explode( ".", $long );
                    $ints = $vals[0];
                    $decs = $vals[1];

                    $campo = "";
                    for ($i = 1; $i <= $ints; $i ++) {
                        $campo = "0" . $campo;
                    }
                    $campod = "";
                    for ($i = 1; $i <= $decs; $i ++) {
                        $campod = "0" . $campod;
                    }

                    $campo = $campo . "." . $campod;
                }
                break;
        }
        return $campo;
    }

    /* Escapes special characters in a string for use in a SQL statement
     * @author David Callizaya <calidavidx21@hotmail.com>
     * @param string $sqlString  The string to be escaped
     * @param string $DBEngine   Target DBMS
    */
    public function sqlEscape ($sqlString, $DBEngine = DB_ADAPTER)
    {
        $DBEngine = DB_ADAPTER;
        switch ($DBEngine) {
            case 'mysql':
                $con = Propel::getConnection( 'workflow' );
                return mysql_real_escape_string( stripslashes( $sqlString ), $con->getResource() );
                break;
            case 'myxml':
                $sqlString = str_replace( '"', '""', $sqlString );
                return str_replace( "'", "''", $sqlString );
                break;
            default:
                return addslashes( stripslashes( $sqlString ) );
                break;
        }
    }

    /**
     * Function MySQLSintaxis
     *
     * @access public
     * @return Boolean
     *
     */
    public function MySQLSintaxis ()
    {
        $DBEngine = DB_ADAPTER;
        switch ($DBEngine) {
            case 'mysql':
                return true;
                break;
            case 'mssql':
            default:
                return false;
                break;
        }
    }

    /* Returns a sql string with @@parameters replaced with its values defined
     * in array $result using the next notation:
     * NOTATION:
     *     @@  Quoted parameter acording to the SYSTEM's Database
     *     @Q  Double quoted parameter \\  \"
     *     @q  Single quoted parameter \\  \'
     *     @%  URL string
     *     @#  Non-quoted parameter
     *     @!  Evaluate string : Replace the parameters in value and then in the sql string
     *     @fn()  Evaluate string with the function "fn"
     * @author David Callizaya <calidavidx21@hotmail.com>
     */
    public static function replaceDataField ($sqlString, $result, $DBEngine = 'mysql')
    {
        if (! is_array( $result )) {
            $result = array ();
        }
        $result = $result + G::getSystemConstants();
        $__textoEval = "";
        $u = 0;
        $count = preg_match_all( '/\@(?:([\@\%\#\?\$\=\&Qq\!])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]*(?:[\\\\][\w\W])?)*)\))((?:\s*\[[\'"]?\w+[\'"]?\])+|\-\>([a-zA-Z\_]\w*))?/', $sqlString, $match, PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE );
        if ($count) {
            for ($r = 0; $r < $count; $r ++) {
                if (! isset( $result[$match[2][$r][0]] )) {
                    $result[$match[2][$r][0]] = '';
                }
                if (! is_array( $result[$match[2][$r][0]] )) {
                    $__textoEval .= substr( $sqlString, $u, $match[0][$r][1] - $u );
                    $u = $match[0][$r][1] + strlen( $match[0][$r][0] );
                    //Mysql quotes scape
                    if (($match[1][$r][0] == '@') && (isset( $result[$match[2][$r][0]] ))) {
                        $__textoEval .= "\"" . G::sqlEscape( $result[$match[2][$r][0]], $DBEngine ) . "\"";
                        continue;
                    }
                    //URL encode
                    if (($match[1][$r][0]=='%')&&(isset($result[$match[2][$r][0]]))) {
                        $__textoEval.=urlencode($result[$match[2][$r][0]]);
                        continue;
                    }
                    //Double quoted parameter
                    if (($match[1][$r][0]=='Q')&&(isset($result[$match[2][$r][0]]))) {
                        $__textoEval.='"'.addcslashes($result[$match[2][$r][0]],'\\"').'"';
                        continue;
                    }
                    //Single quoted parameter
                    if (($match[1][$r][0]=='q')&&(isset($result[$match[2][$r][0]]))) {
                        $__textoEval.="'".addcslashes($result[$match[2][$r][0]],'\\\'')."'";
                        continue;
                    }
                    //Substring (Sub replaceDataField)
                    if (($match[1][$r][0]=='!')&&(isset($result[$match[2][$r][0]]))) {
                        $__textoEval.=G::replaceDataField($result[$match[2][$r][0]],$result);
                        continue;
                    }
                    //Call function
                    if (($match[1][$r][0]==='')&&($match[2][$r][0]==='')&&($match[3][$r][0]!=='')) {
                        eval('$strAux = ' . $match[3][$r][0] . '(\'' . addcslashes(G::replaceDataField(stripslashes($match[4][$r][0]),$result),'\\\'') . '\');');

                        if ($match[3][$r][0] == "G::LoadTranslation") {
                            $arraySearch  = array("'");
                            $arrayReplace = array("\\'");
                            $strAux = str_replace($arraySearch, $arrayReplace, $strAux);
                        }

                        $__textoEval .= $strAux;
                        continue;
                    }
                    //Non-quoted
                    if (($match[1][$r][0]=='#')&&(isset($result[$match[2][$r][0]]))) {
                        $__textoEval.=G::replaceDataField($result[$match[2][$r][0]],$result);
                        continue;
                    }
                    //Non-quoted =
                    if (($match[1][$r][0]=='=')&&(isset($result[$match[2][$r][0]]))) {
                        $__textoEval.=G::replaceDataField($result[$match[2][$r][0]],$result);
                        continue;
                    }
                    //Objects attributes
                    if (($match[1][$r][0]=='&')&&(isset($result[$match[2][$r][0]]))) {
                        if (isset($result[$match[2][$r][0]]->{$match[6][$r][0]})) {
                            $__textoEval.=$result[$match[2][$r][0]]->{$match[6][$r][0]};
                        }
                        continue;
                    }
                }
            }
        }
        $__textoEval.=substr($sqlString,$u);
        return $__textoEval;
    }

    /**
    * Replace Grid Values
    * The tag @>GRID-NAME to open the grid and @<GRID-NAME to close the grid,
    *
    * @param type String $sContent
    * @param type Array $aFields
    * @return type String
    */
    public static function replaceDataGridField($sContent, $aFields, $nl2brRecursive = true)
    {
        $nrt     = array("\n",    "\r",    "\t");
        $nrthtml = array("(n /)", "(r /)", "(t /)");

        $sContent = G::unhtmlentities($sContent);
        $strContentAux = str_replace($nrt, $nrthtml, $sContent);

        $iOcurrences = preg_match_all('/\@(?:([\>])([a-zA-Z\_]\w*)|([a-zA-Z\_][\w\-\>\:]*)\(((?:[^\\\\\)]*(?:[\\\\][\w\W])?)*)\))((?:\s*\[[\'"]?\w+[\'"]?\])+)?/', $strContentAux, $arrayMatch1, PREG_PATTERN_ORDER | PREG_OFFSET_CAPTURE);

        if ($iOcurrences) {
            $arrayGrid = array();

            for ($i = 0; $i <= $iOcurrences - 1; $i++) {
                $arrayGrid[] = $arrayMatch1[2][$i][0];
            }

            $arrayGrid = array_unique($arrayGrid);

            //Given the set: 'valueOne', 'valueOneTwo', where the second string 
            //contains the first string, this causes the larger string to take 
            //the second, resulting in a delimitation error, to avoid this problem 
            //we first search the string larger size.
            usort($arrayGrid, function($a, $b) {
                return strlen($b) - strlen($a);
            });

            foreach ($arrayGrid as $index => $value) {
                if($value !== "") {
                    $grdName = $value;

                    $strContentAux1 = $strContentAux;
                    $strContentAux  = null;

                    $ereg = "/^(.*)@>" . $grdName . "(.*)@<" . $grdName . "(.*)$/";

                    while (preg_match($ereg, $strContentAux1, $arrayMatch2)) {
                        $strData = null;

                        if (isset($aFields[$grdName]) && is_array($aFields[$grdName])) {
                            foreach ($aFields[$grdName] as $aRow) {
                                if ($nl2brRecursive) {
                                    foreach ($aRow as $sKey => $vValue) {
                                        if (!is_array($vValue)) {
                                            $aRow[$sKey] = str_replace($nrt, $nrthtml, nl2br($aRow[$sKey]));
                                        }
                                    }
                                }
                                $strData = $strData . G::replaceDataField($arrayMatch2[2], $aRow);
                            }
                        }

                        $strContentAux1 = $arrayMatch2[1];
                        $strContentAux  = $strData . $arrayMatch2[3] . $strContentAux;
                    }

                    $strContentAux = $strContentAux1 . $strContentAux;

                }
            }
        }

        $strContentAux = str_replace($nrthtml, $nrt, $strContentAux);

        $sContent = $strContentAux;

        if ($nl2brRecursive) {
            foreach ($aFields as $sKey => $vValue) {
                if (!is_array($vValue) && !is_object($vValue)) {
                    $aFields[$sKey] = nl2br($aFields[$sKey]);
                }
            }
        }

        $sContent = G::replaceDataField($sContent, $aFields);

        return $sContent;
    }

    /* Load strings from a XMLFile.
     * @author David Callizaya <davidsantos@colosa.com>
     * @parameter $languageFile An xml language file.
     * @parameter $languageId   (es|en|...).
     * @parameter $forceParse   Force to read and parse the xml file.
     */
    public function loadLanguageFile ($filename, $languageId = '', $forceParse = false)
    {
        global $arrayXmlMessages;
        if ($languageId === '') {
            $languageId = defined( 'SYS_LANG' ) ? SYS_LANG : 'en';
        }
        $languageFile = basename( $filename, '.xml' );
        $cacheFile = substr( $filename, 0, - 3 ) . $languageId;
        if (($forceParse) || (! file_exists( $cacheFile )) || (filemtime( $filename ) > filemtime( $cacheFile ))) {
            $languageDocument = new Xml_document();
            $languageDocument->parseXmlFile( $filename );
            if (! is_array( $arrayXmlMessages )) {
                $arrayXmlMessages = array ();
            }
            $arrayXmlMessages[$languageFile] = array ();
            for ($r = 0; $r < sizeof( $languageDocument->children[0]->children ); $r ++) {
                $n = $languageDocument->children[0]->children[$r]->findNode( $languageId );
                if ($n) {
                    $k = $languageDocument->children[0]->children[$r]->name;
                    $arrayXmlMessages[$languageFile][$k] = $n->value;
                }
            }
            $f = fopen( $cacheFile, 'w' );
            fwrite( $f, "<?php\n" );
            fwrite( $f, '$arrayXmlMessages[\'' . $languageFile . '\']=' . 'unserialize(\'' . addcslashes( serialize( $arrayXmlMessages[$languageFile] ), '\\\'' ) . "');\n" );
            fwrite( $f, "?>" );
            fclose( $f );
        } else {
            require ($cacheFile);
        }
    }

    /* Funcion auxiliar Temporal:
     *   Registra en la base de datos los labels xml usados en el sistema
     * @author David Callizaya <calidavidx21@hotmail.com>
     */
    public function registerLabel ($id, $label)
    {
        return 1;
        $dbc = new DBConnection();
        $ses = new DBSession( $dbc );
        $ses->Execute( G::replaceDataField(
            'REPLACE INTO `TRANSLATION` (`TRN_CATEGORY`, `TRN_ID`, `TRN_LANG`, `TRN_VALUE`) VALUES
        ("LABEL", @@ID, "' . SYS_LANG . '", @@LABEL);', array ('ID' => $id,'LABEL' => ($label !== null ? $label : '')
        ) ) );
    }

    /**
     * Function LoadMenuXml
     *
     * @author David S. Callizaya S. <davidsantos@colosa.com>
     * @access public
     * @param eter string msgID
     * @return string
     */
    public function LoadMenuXml ($msgID)
    {
        global $arrayXmlMessages;
        if (! isset( $arrayXmlMessages['menus'] )) {
            G::loadLanguageFile( G::ExpandPath( 'content' ) . 'languages/menus.xml' );
        }
        G::registerLabel( $msgID, $arrayXmlMessages['menus'][$msgID] );
        return $arrayXmlMessages['menus'][$msgID];
    }

    /**
     * Function SendMessageXml
     *
     * @author David S. Callizaya S. <davidsantos@colosa.com>
     * @access public
     * @param eter string msgID
     * @param eter string strType
     * @param eter string file
     * @return string
     */
    public function SendMessageXml ($msgID, $strType, $file = "labels")
    {
        global $arrayXmlMessages;
        if (! isset( $arrayXmlMessages[$file] )) {
            G::loadLanguageFile( G::ExpandPath( 'content' ) . 'languages/' . $file . '.xml' );
        }
        $_SESSION['G_MESSAGE_TYPE'] = $strType;
        G::registerLabel( $msgID, $arrayXmlMessages[$file][$msgID] );
        $_SESSION['G_MESSAGE'] = nl2br( $arrayXmlMessages[$file][$msgID] );
    }

    /**
     * SendTemporalMessage
     *
     * @param string $msgID
     * @param string $strType
     * @param string $sType default value 'LABEL'
     * @param date $time default value null
     * @param integer $width default value null
     * @param string $customLabels default value null
     *
     * @return void
     */
    public static function SendTemporalMessage ($msgID, $strType, $sType = 'LABEL', $time = null, $width = null, $customLabels = null)
    {
        if (isset( $width )) {
            $_SESSION['G_MESSAGE_WIDTH'] = $width;
        }
        if (isset( $time )) {
            $_SESSION['G_MESSAGE_TIME'] = $time;
        }
        switch (strtolower( $sType )) {
            case 'label':
            case 'labels':
                $_SESSION['G_MESSAGE_TYPE'] = $strType;
                $_SESSION['G_MESSAGE'] = nl2br( G::LoadTranslation( $msgID ) );
                break;
            case 'string':
                $_SESSION['G_MESSAGE_TYPE'] = $strType;
                $_SESSION['G_MESSAGE'] = nl2br( $msgID );
                break;
        }
        if ($customLabels != null) {
            $message = $_SESSION['G_MESSAGE'];
            foreach ($customLabels as $key => $val) {
                $message = str_replace( '{' . nl2br( $key ) . '}', nl2br( $val ), $message );
            }
            $_SESSION['G_MESSAGE'] = $message;
        }
    }

    /**
     * SendMessage
     *
     * @param string $msgID
     * @param string $strType
     * @param string $file default value "labels"
     *
     * @return void
     */
    public function SendMessage ($msgID, $strType, $file = "labels")
    {
        global $arrayXmlMessages;
        $_SESSION['G_MESSAGE_TYPE'] = $strType;
        $_SESSION['G_MESSAGE'] = nl2br( G::LoadTranslation( $msgID ) );
    }

    /**
     * SendMessageText
     * Just put the $text in the message text
     *
     * @param string $text
     * @param string $strType
     *
     * @return void
     */
    public function SendMessageText ($text, $strType)
    {
        global $arrayXmlMessages;
        $_SESSION['G_MESSAGE_TYPE'] = $strType;
        $_SESSION['G_MESSAGE'] = nl2br( $text );
    }

    /**
     * Render message from XML file
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $msgID
     * @return void
     */
    public function LoadMessage ($msgID, $file = "messages")
    {
        global $_SESSION;
        global $arrayXmlMessages;

        if (! is_array( $arrayXmlMessages )) {
            $arrayXmlMessages = G::LoadArrayFile( G::ExpandPath( 'content' ) . $file . "." . SYS_LANG );
        }
        $aux = $arrayXmlMessages[$msgID];
        $msg = "";
        for ($i = 0; $i < strlen( $aux ); $i ++) {
            if ($aux[$i] == "$") {
                $token = "";
                $i ++;
                while ($i < strlen( $aux ) && $aux[$i] != " " && $aux[$i] != "." && $aux[$i] != "'" && $aux[$i] != '"') {
                    $token .= $aux[$i ++];
                }
                eval( "\$msg.= \$_SESSION['" . $token . "'] ; " );
                $msg .= $aux[$i];
            } else {
                $msg = $msg . $aux[$i];
            }
        }
        return $msg;
    }

    /**
     * Function LoadXmlLabel
     * deprecated
     */
    public function LoadXmlLabel ($msgID, $file = 'labels')
    {
        return 'xxxxxx';
    }

    /**
     * Function LoadMessageXml
     *
     * @author David S. Callizaya S. <davidsantos@colosa.com>
     * @access public
     * @param eter string msgID
     * @param eter string file
     * @return string
     */
    public function LoadMessageXml ($msgID, $file = 'labels')
    {
        global $arrayXmlMessages;
        if (! isset( $arrayXmlMessages[$file] )) {
            G::loadLanguageFile( G::ExpandPath( 'content' ) . 'languages/' . $file . '.xml' );
        }
        if (isset( $arrayXmlMessages[$file][$msgID] )) {
            G::registerLabel( $msgID, $arrayXmlMessages[$file][$msgID] );
            return $arrayXmlMessages[$file][$msgID];
        } else {
            G::registerLabel( $msgID, '' );
            return null;
        }
    }

    /**
     * Function LoadTranslationObject
     * It generates a global Translation variable that will be used in all the system.
     * this script check the file translation in folder shared/META-INF/
     *
     * deprecated
     *
     * @access public
     * @param string lang
     * @return void
     */
    public function LoadTranslationObject ($lang = SYS_LANG)
    {
        $defaultTranslations = Array ();
        $foreignTranslations = Array ();

        //if the default translations table doesn't exist we can't proceed
        if (! is_file( PATH_LANGUAGECONT . 'translation.en' )) {
            return null;
        }
        //load the translations table
        require_once (PATH_LANGUAGECONT . 'translation.en');
        $defaultTranslations = $translation;

        //if some foreign language was requested and its translation file exists
        if ($lang != 'en' && file_exists( PATH_LANGUAGECONT . 'translation.' . $lang )) {
            require_once (PATH_LANGUAGECONT . 'translation.' . $lang); //load the foreign translations table
            $foreignTranslations = $translation;
        }

        global $translation;
        if (defined( "SHOW_UNTRANSLATED_AS_TAG" ) && SHOW_UNTRANSLATED_AS_TAG != 0) {
            $translation = $foreignTranslations;
        } else {
            $translation = array_merge( $defaultTranslations, $foreignTranslations );
        }
        return true;
    }

    /**
     * Function LoadTranslation
     *
     * @author Aldo Mauricio Veliz Valenzuela. <mauricio@colosa.com>
     * @access public
     * @param eter string msgID
     * @param eter string file
     * @param eter array data // erik: associative array within data input to replace for formatted string i.e "any messsage {replaced_label} that contains a replace label"
     * @return string
     */
    public static function LoadTranslation ($msgID, $lang = SYS_LANG, $data = null)
    {
        global $translation;

        // if the second parameter ($lang) is an array, it was specified to use as data
        if (is_array( $lang )) {
            $data = $lang;
            $lang = SYS_LANG;
        }

        if (isset( $translation[$msgID] )) {
            $translationString = preg_replace( "[\n|\r|\n\r]", ' ', $translation[$msgID] );

            if (isset( $data ) && is_array( $data )) {
                foreach ($data as $label => $value) {
                    $translationString = str_replace( '{' . $label . '}', $value, $translationString );
                }
            }

            return $translationString;
        } else {
            if (defined( "UNTRANSLATED_MARK" )) {
                $untranslatedMark = strip_tags( UNTRANSLATED_MARK );
            } else {
                $untranslatedMark = "**";
            }
            return $untranslatedMark . $msgID . $untranslatedMark;
        }
    }

    /**
     * Function LoadTranslation
     *
     * @author Brayan Osmar Pereyra Suxo "Cochalo". <brayan@colosa.com>
     * @access public
     * @param eter string name plugin
     * @param eter string id msg
     * @param eter array data
     * @return string
     */
    public function LoadTranslationPlugin ($namePlugin, $msgID, $data = null)
    {
        eval('global $translation' . $namePlugin . ';');

        $existId = false;
        eval('if (isset( $translation' . $namePlugin . '[$msgID])) { $existId = true; }');
        if ($existId) {
            eval('$translationString = preg_replace( "[\n|\r|\n\r]", " ", $translation' . $namePlugin . '[$msgID] );');
            if (isset( $data ) && is_array( $data )) {
                foreach ($data as $label => $value) {
                    $translationString = str_replace( '{' . $label . '}', $value, $translationString );
                }
            }

            return $translationString;
        } else {
            if (defined( "UNTRANSLATED_MARK" )) {
                $untranslatedMark = strip_tags( UNTRANSLATED_MARK );
            } else {
                $untranslatedMark = "**";
            }
            return $untranslatedMark . $msgID . $untranslatedMark;
        }
    }

    /**
     * Function getTranslations
     *
     * @author Erik Amaru O. <erik@colosa.com>
     * @access public
     * @param eter array msgIDs
     * @param eter string file
     * @return string
     */
    public function getTranslations ($msgIDs, $lang = SYS_LANG)
    {
        if (! is_array( $msgIDs )) {
            return null;
        }
        $translations = Array ();
        foreach ($msgIDs as $mID) {
            $translations[$mID] = self::LoadTranslation( $mID, $lang );
        }

        return $translations;
    }

    /**
     * Load an array File Content
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $strFile
     * @return void
     */
    public function LoadArrayFile ($strFile = '')
    {
        $res = null;
        if ($strFile != '') {
            $src = file( $strFile );
            if (is_array( $src )) {
                foreach ($src as $key => $val) {
                    $res[$key] = trim( $val );
                }
            }
        }
        unset( $src );
        return $res;
    }

    /**
     * Expand an uri based in the current URI
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $methodPage the method directory and the page
     * @return the expanded uri, later, will encryt the uri...
     */
    public function expandUri ($methodPage)
    {
        $uri = explode( '/', getenv( 'REQUEST_URI' ) );
        $sw = 0;
        $newUri = '';
        if (! defined( 'SYS_SKIN' )) {
            for ($i = 0; $i < count( $uri ); $i ++) {
                if ($sw == 0) {
                    $newUri .= $uri[$i] . PATH_SEP;
                }
                if ($uri[$i] == SYS_SKIN) {
                    $sw = 1;
                }
            }
        } else {
            for ($i = 0; $i < 4; $i ++) {
                if ($sw == 0) {
                    $newUri .= $uri[$i] . PATH_SEP;
                }
                if ($uri[$i] == SYS_SKIN) {
                    $sw = 1;
                }
            }
        }
        $newUri .= $methodPage;
        return $newUri;
    }

    /**
     * Forces login for generic applications
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $userid
     * @param string $permission
     * @param string $urlNoAccess
     * @return void
     */
    public function genericForceLogin ($permission, $urlNoAccess, $urlLogin = 'login/login')
    {
        global $RBAC;

        //the session is expired, go to login page,
        //the login page is login/login.html
        if (! isset( $_SESSION )) {
            header( 'location: ' . G::expandUri( $urlLogin ) );
            die();
        }

        //$permission is an array, we'll verify all permission to allow access.
        if (is_array( $permission )) {
            $aux = $permission;
        } else {
            $aux[0] = $permission;
        }
        $sw = 0;
        for ($i = 0; $i < count( $aux ); $i ++) {
            $res = $RBAC->userCanAccess( $aux[$i] );
            if ($res == 1) {
                $sw = 1;
            }
        }

        //you don't have access to this page
        if ($sw == 0) {
            header( 'location: ' . G::expandUri( $urlNoAccess ) );
            die();
        }
    }

    /**
     * capitalize
     *
     * @param string $string
     *
     * @return string $string
     */
    public function capitalize ($string)
    {
        return ucfirst( $string );
    }

    /**
     * toUpper
     *
     * @param string $sText
     *
     * @return string strtoupper($sText)
     */
    public static function toUpper ($sText)
    {
        return strtoupper( $sText );
    }

    /**
     * toLower
     *
     * @param string $sText
     * @return string strtolower($sText)
     */
    public static function toLower ($sText)
    {
        return strtolower( $sText );
    }

    /**
     * http_build_query
     *
     * @param string $formdata,
     * @param string $numeric_prefix default value null,
     * @param string $key default value null
     *
     * @return array $res
     */
    public function http_build_query ($formdata, $numeric_prefix = null, $key = null)
    {
        $res = array ();
        foreach ((array) $formdata as $k => $v) {
            $tmp_key = rawurlencode( is_int( $k ) ? $numeric_prefix . $k : $k );
            if ($key) {
                $tmp_key = $key . '[' . $tmp_key . ']';
            }
            if (is_array( $v ) || is_object( $v )) {
                $res[] = G::http_build_query( $v, null /* or $numeric_prefix if you want to add numeric_prefix to all indexes in array*/, $tmp_key );
            } else {
                $res[] = $tmp_key . "=" . rawurlencode( $v );
            }
            /*
            If you want, you can write this as one string:
            $res[] = ( ( is_array($v) || is_object($v) ) ? G::http_build_query($v, null, $tmp_key) : $tmp_key."=".urlencode($v) );
            */
        }
        $separator = ini_get( 'arg_separator.output' );
        return implode( $separator, $res );
    }

    /**
     * Redirect URL
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $parameter
     * @return string
     */
    public static function header ($parameter)
    {
        if (defined( 'ENABLE_ENCRYPT' ) && (ENABLE_ENCRYPT == 'yes') && (substr( $parameter, 0, 9 ) == 'location:')) {
            $url = G::encryptUrl( substr( $parameter, 10 ), URL_KEY );
            header( 'location:' . $url );
        } else {
            header( $parameter );
        }
        return;
    }

    /**
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $permission
     * @param string $urlNoAccess
     * @return void
     */
    public function forceLogin ($permission = "", $urlNoAccess = "")
    {
        global $RBAC;

        if (isset( $_SESSION['USER_LOGGED'] ) && $_SESSION['USER_LOGGED'] == '') {
            $sys = (ENABLE_ENCRYPT == 'yes' ? config("system.workspace") : "sys" . config("system.workspace"));
            $lang = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( SYS_LANG ), URL_KEY ) : SYS_LANG);
            $skin = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( SYS_SKIN ), URL_KEY ) : SYS_SKIN);
            $login = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( 'login' ), URL_KEY ) : 'login');
            $loginhtml = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( 'login.html' ), URL_KEY ) : 'login.html');
            $direction = "/$sys/$lang/$skin/$login/$loginhtml";
            die();
        }

        $Connection = new DBConnection();
        $ses = new DBSession( $Connection );
        $stQry = "SELECT LOG_STATUS FROM LOGIN WHERE LOG_SID = '" . session_id() . "'";
        $dset = $ses->Execute( $stQry );
        $row = $dset->read();
        $sessionPc = defined( 'SESSION_PC' ) ? SESSION_PC : '';
        $sessionBrowser = defined( 'SESSION_BROWSER' ) ? SESSION_BROWSER : '';
        if (($sessionPc == "1") or ($sessionBrowser == "1")) {
            if ($row['LOG_STATUS'] == 'X') {
                $sys = (ENABLE_ENCRYPT == 'yes' ? config("system.workspace") : "sys" . config("system.workspace"));
                $lang = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( SYS_LANG ), URL_KEY ) : SYS_LANG);
                $skin = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( SYS_SKIN ), URL_KEY ) : SYS_SKIN);
                $login = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( 'login' ), URL_KEY ) : 'login');
                $loginhtml = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( 'login.html' ), URL_KEY ) : 'login.html');
                $direction = "/$sys/$lang/$skin/$login/$loginhtml";
                G::SendMessageXml( 'ID_CLOSE_SESSION', "warning" );
                header( "location: $direction" );
                die();
                return;
            }
        }
        if (defined( 'SIN_COMPATIBILIDAD_RBAC' ) and SIN_COMPATIBILIDAD_RBAC == 1) {
            return;
        }

        if ($permission == "") {
            return;
        }

        if (is_array( $permission )) {
            $aux = $permission;
        } else {
            $aux[0] = $permission;
        }

        $sw = 0;
        for ($i = 0; $i < count( $aux ); $i ++) {
            $res = $RBAC->userCanAccess( $aux[$i] );
            if ($res == 1) {
                $sw = 1;
            }
        }

        if ($sw == 0 && $urlNoAccess != "") {
            $aux = explode( '/', $urlNoAccess );
            $sys = (ENABLE_ENCRYPT == 'yes' ? config("system.workspace") : "/sys" . SYS_LANG);
            $lang = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( SYS_LANG ), URL_KEY ) : SYS_LANG);
            $skin = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( SYS_SKIN ), URL_KEY ) : SYS_SKIN);
            $login = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( $aux[0] ), URL_KEY ) : $aux[0]);
            $loginhtml = (ENABLE_ENCRYPT == 'yes' ? G::encrypt( urldecode( $aux[1] ), URL_KEY ) : $aux[1]);

            //header ("location: /$sys/$lang/$skin/$login/$loginhtml");
            header( "location: /fluid/mNE/o9A/mNGm1aLiop3V4qU/dtij4J°gmaLPwKDU3qNn2qXanw" );
            die();
        }

        if ($sw == 0) {
            header( "location: /fluid/mNE/o9A/mNGm1aLiop3V4qU/dtij4J°gmaLPwKDU3qNn2qXanw" );
            die();
        }
    }

    /**
     * Add slashes to a string
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $val_old
     * @return string
     */
    public function add_slashes ($val_old)
    {

        if (! is_string( $val_old )) {
            $val_old = "$val_old";
        }

        $tamano_cadena = strlen( $val_old );
        $contador_cadena = 0;
        $new_val = "";

        for ($contador_cadena = 0; $contador_cadena < $tamano_cadena; $contador_cadena ++) {
            $car = $val_old[$contador_cadena];

            if ($car != chr( 34 ) && $car != chr( 39 ) && $car != chr( 92 )) {
                $new_val .= $car;
            } else {
                if ($car2 != chr( 92 )) {
                    //print " xmlvar: $new_val -- $car -- $car2 <br>";
                    $new_val .= chr( 92 ) . $car;
                } else {
                    $new_val .= $car;
                }
            }
        }
        return $new_val;
    }

    /**
     * Extract the structure version value from serializated table field and check it.
     * @return true if the version is bigger than 1
     */
    public function gotDirectoryStructureVer2()
    {

        $configuration = new Configurations();
        if (!empty(config("system.workspace")) && $configuration->exists("ENVIRONMENT_SETTINGS")) {
            return ($configuration->getDirectoryStructureVer() > 1);
        }
        return false;
    }

    /**
     * Get the default blank directory 0 for external files
     */
    public function getBlackHoleDir()
    {
        //len32:12345678901234567890123456789012
        return "00000000000000000000000000000000";
    }

    /**
     * Function used to fix 32K issue related to ext3 max subdirectory storage, but checking Version first.
     *
     * @param string $uid
     * @param int $splitSize
     * @param int $pieces
     *
     * @return string xxx/xxx/xxx/xxxxxxxxxxxxxxxxxxxxx
     */
    public static function getPathFromUID($uid, $splitSize = 3, $pieces = 3)
    {
        if (! G::gotDirectoryStructureVer2()) {
            return $uid;
        }
        return G::getPathFromUIDPlain($uid, $splitSize, $pieces);
    }

    /**
     * Funtion used to fix 32K issue related to ext3 max subdirectory storage.
     * @param string $uid
     * @param int $splitSize
     * @param int $pieces
     * @return string xxx/xxx/xxx/xxxxxxxxxxxxxxxxxxxxx
     */
    public static function getPathFromUIDPlain($uid, $splitSize = 3, $pieces = 3)
    {
        $dirArray = array();
        if (is_string($uid) && strlen($uid) >= 32 && $uid != G::getBlackHoleDir()) {
            for ($i = 0; $i < $pieces; $i++) {
                $dirArray[] = substr($uid, 0, $splitSize);
                $len = strlen($uid);
                $uid = substr($uid, $splitSize, $len);
            }
        }
        $dirArray[] = $uid;
        $newfileStructure = implode($dirArray, '/');
        return $newfileStructure;
    }

    /**
     * Get the uid from the splitted directory + filename.
     * @param string $path
     * @return string
     */
    public static function getUIDfromPath($path)
    {
        $uid = '';
        $item = explode($path, '/');
        $len = sizeof($item);
        for ($i = 0; $i < $len; $i++) {
            $uid .= $item[$i];
        }
        if (strlen($uid) != 32){
            return "invalid";
        }
        return $uid;
    }

    /**
     * Get the file stored in '0' dir as splitted, but checking version first.
     * @param string $appUid
     * @param string $fileUid
     * @param int $splitSize
     * @param int $pieces
     * @return array index:0 got the path, index:1 got the filename
     */
    public static function getPathFromFileUID($appUid, $fileUid, $splitSize = 3, $pieces = 3)
    {
        if (! G::gotDirectoryStructureVer2()) {
            $response = array();
            $response[] = '';
            $response[] = $fileUid;
            return $response;
        }
        return G::getPathFromFileUIDPlain($appUid, $fileUid, $splitSize, $pieces);
    }

    /**
     * Get the file stored in '0' dir as splitted.
     * @param string $appUid
     * @param string $fileUid
     * @param int $splitSize
     * @param int $pieces
     * @return array index:0 got the path, index:1 got the filename
     */
    public function getPathFromFileUIDPlain($appUid, $fileUid, $splitSize = 3, $pieces = 3)
    {
        $response = array();
        if ($appUid == G::getBlackHoleDir()) {
            $dirArray = array();
            if (is_string($fileUid) && strlen($fileUid) >= 32) {
                for ($i = 0; $i < $pieces; $i++) {
                    $dirArray[] = substr($fileUid, 0, $splitSize);
                    $len = strlen($fileUid);
                    $fileUid = substr($fileUid, $splitSize, $len);
                }
            }
            $response[] = implode($dirArray, '/') . '/';
            $response[] = $fileUid;
        } else {
            $response[] = '';
            $response[] = $fileUid;
        }
        return $response;
    }

    /**
     * Upload a file and then copy to path+ nameToSave
     *
     * @author Mauricio Veliz <mauricio@colosa.com>
     * @access public
     * @param string $file
     * @param string $path
     * @param string $nameToSave
     * @param integer $permission
     * @return void
     */
    public static function uploadFile ($file, $path, $nameToSave, $permission = 0755)
    {
        try {
            if ($file == '') {
                throw new Exception( 'The filename is empty!' );
            }
            if (filesize( $file ) > ((((ini_get( 'upload_max_filesize' ) + 0)) * 1024) * 1024)) {
                throw new Exception( 'The size of upload file exceeds the allowed by the server!' );
            }
            $oldumask = umask( 0 );
            if (! is_dir( $path )) {
                G::verifyPath( $path, true );
            }

            if (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN') {
                $file = str_replace("\\\\","\\",$file,$count);
                if(!$count) {
                    $winPath = explode("\\",$file);
                    $file = "";
                    foreach($winPath as $k => $v){
                        if($v != "") {
                            $file.= $v."\\";
                        }
                    }
                    $file = substr($file,0,-1);
                }
            }


            $filter = new InputFilter();
            $file = $filter->validateInput($file, "path");
            $path = $filter->validateInput($path, "path");

            move_uploaded_file( $file, $path . "/" . $nameToSave );
            $nameToSave = $filter->validateInput($nameToSave, "path");
            @chmod( $path . "/" . $nameToSave, $permission );
            umask( $oldumask );

        } catch (Exception $oException) {
            throw $oException;
        }
    }

    /**
     * resizeImage
     *
     * @param string $path,
     * @param string $resWidth
     * @param string $resHeight
     * @param string $saveTo default value null
     *
     * @return void
     */
    public function resizeImage ($path, $resWidth, $resHeight, $saveTo = null)
    {
        $imageInfo = @getimagesize( $path );

        if (! $imageInfo) {
            throw new Exception( "Could not get image information" );
        }
        list ($width, $height) = $imageInfo;
        $percentHeight = $resHeight / $height;
        $percentWidth = $resWidth / $width;
        $percent = ($percentWidth < $percentHeight) ? $percentWidth : $percentHeight;
        $resWidth = $width * $percent;
        $resHeight = $height * $percent;

        // Resample
        $image_p = imagecreatetruecolor( $resWidth, $resHeight );
        imagealphablending( $image_p, false );
        imagesavealpha( $image_p, true );

        $background = imagecolorallocate( $image_p, 0, 0, 0 );
        ImageColorTransparent( $image_p, $background ); // make the new temp image all transparent


        //Assume 3 channels if we can't find that information
        if (! array_key_exists( "channels", $imageInfo )) {
            $imageInfo["channels"] = 3;
        }
        $memoryNeeded = Round( ($imageInfo[0] * $imageInfo[1] * $imageInfo['bits'] * $imageInfo['channels'] + Pow( 2, 16 )) * 1.95 ) / (1024 * 1024);
        if ($memoryNeeded < 80) {
            $memoryNeeded = 80;
        }
        ini_set( 'memory_limit', intval( $memoryNeeded ) . 'M' );

        $functions = array (IMAGETYPE_GIF => array ('imagecreatefromgif','imagegif'
        ),IMAGETYPE_JPEG => array ('imagecreatefromjpeg','imagejpeg'),IMAGETYPE_PNG => array ('imagecreatefrompng','imagepng'));

        if (! array_key_exists( $imageInfo[2], $functions )) {
            throw new Exception( "Image format not supported" );
        }
        list ($inputFn, $outputFn) = $functions[$imageInfo[2]];

        $image = $inputFn( $path );
        imagecopyresampled( $image_p, $image, 0, 0, 0, 0, $resWidth, $resHeight, $width, $height );
        $outputFn( $image_p, $saveTo );
        
        if(!is_null($saveTo)) {

            $filter = new InputFilter();
            $saveTo = $filter->validateInput($saveTo, "path");
        }

        @chmod( $saveTo, 0666 );
    }

    /**
     * Merge 2 arrays
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @return array
     */
    public static function array_merges()
    {
        $array = array ();
        $arrays = & func_get_args();
        foreach ($arrays as $array_i) {
            if (is_array( $array_i )) {
                G::array_merge_2( $array, $array_i );
            }
        }
        return $array;
    }

    /**
     * Merge 2 arrays
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @param string $array
     * @param string $array_i
     * @return array
     */
    public function array_merge_2 (&$array, &$array_i)
    {
        foreach ($array_i as $k => $v) {
            if (is_array( $v )) {
                if (! isset( $array[$k] )) {
                    $array[$k] = array ();
                }
                G::array_merge_2( $array[$k], $v );
            } else {
                if (isset( $array[$k] ) && is_array( $array[$k] )) {
                    $array[$k][0] = $v;
                } else {
                    if (isset( $array ) && ! is_array( $array )) {
                        $temp = $array;
                        $array = array();
                        $array[0] = $temp;
                    }
                    $array[$k] = $v;
                }
            }
        }
    }

    /**
     * Generate random number
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @return int
     */
    public static function generateUniqueID ()
    {
        do {
            $sUID = str_replace( '.', '0', uniqid( rand( 0, 999999999 ), true ) );
        } while (strlen( $sUID ) != 32);
        return $sUID;
        //return strtoupper(substr(uniqid(rand(0, 9), false),0,14));
    }

    /**
     * Generate a numeric or alphanumeric code
     *
     * @author Julio Cesar Laura Avendaힼjuliocesar@colosa.com>
     * @access public
     * @return string
     */
    public static function generateCode ($iDigits = 4, $sType = 'NUMERIC')
    {
        if (($iDigits < 4) || ($iDigits > 50)) {
            $iDigits = 4;
        }
        if (($sType != 'NUMERIC') && ($sType != 'ALPHA') && ($sType != 'ALPHANUMERIC')) {
            $sType = 'NUMERIC';
        }
        $aValidCharacters = array ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'
        );
        switch ($sType) {
            case 'NUMERIC':
                $iMin = 0;
                $iMax = 9;
                break;
            case 'ALPHA':
                $iMin = 10;
                $iMax = 35;
                break;
            case 'ALPHANUMERIC':
                $iMin = 0;
                $iMax = 35;
                break;
        }
        $sCode = '';
        for ($i = 0; $i < $iDigits; $i ++) {
            $sCode .= $aValidCharacters[rand( $iMin, $iMax )];
        }
        return $sCode;
    }

    /**
     * Verify if the input string is a valid UID
     *
     * @author David Callizaya <davidsantos@colosa.com>
     * @access public
     * @return int
     */
    public function verifyUniqueID ($uid)
    {
        return (bool) preg_match( '/^[0-9A-Za-z]{14,}/', $uid );
    }

    /**
     * Verify if the input string is a valid UID of size 32
     * @param string $uid
     * @return boolean
     */
    public static function verifyUniqueID32($uid)
    {
        return (bool) preg_match('/^[0-9A-Za-z]{32,32}$/', $uid);
    }

    /**
     * is_utf8
     *
     * @param string $string
     *
     * @return string utf8_encode()
     */
    public function is_utf8 ($string)
    {
        if (preg_match('//u', $string)) {
            return true;
        } else {
            return false;
        }
    }


    /**
     * Return date in Y-m-d format
     *
     * @author Fernando Ontiveros Lira <fernando@colosa.com>
     * @access public
     * @return void
     */
    public function CurDate($sFormat = '')
    {
        $sFormat = ($sFormat != '')? $sFormat : 'Y-m-d H:i:s';

        return date($sFormat);
    }

    /**
     * Return the System defined constants and Application variables
     *   Constants: SYS_*
     *   Sessions : USER_* , URS_*
     */
    public static function getSystemConstants($params = null)
    {
        $t1 = G::microtime_float();
        $sysCon = array();

        if (defined("SYS_LANG")) {
            $sysCon["SYS_LANG"] = SYS_LANG;
        }

        if (defined("SYS_SKIN")) {
            $sysCon["SYS_SKIN"] = SYS_SKIN;
        }

        if (!empty(config("system.workspace"))) {
            $sysCon["SYS_SYS"] = config("system.workspace");
        }

        $sysCon["APPLICATION"]  = (isset($_SESSION["APPLICATION"]))?  $_SESSION["APPLICATION"]  : "";
        $sysCon["PROCESS"]      = (isset($_SESSION["PROCESS"]))?      $_SESSION["PROCESS"]      : "";
        $sysCon["TASK"]         = (isset($_SESSION["TASK"]))?         $_SESSION["TASK"]         : "";
        $sysCon["INDEX"]        = (isset($_SESSION["INDEX"]))?        $_SESSION["INDEX"]        : "";
        $sysCon["USER_LOGGED"]  = (isset($_SESSION["USER_LOGGED"]))?  $_SESSION["USER_LOGGED"]  : "";
        $sysCon["USR_USERNAME"] = (isset($_SESSION["USR_USERNAME"]))? $_SESSION["USR_USERNAME"] : "";

        //###############################################################################################
        // Added for compatibility betweek aplication called from web Entry that uses just WS functions
        //###############################################################################################

        if ($params != null) {
            if (isset($params->option)) {
                switch ($params->option) {
                    case "STORED SESSION":
                        if (isset($params->SID)) {
                            $oSessions = new Sessions($params->SID);
                            $sysCon = array_merge($sysCon, $oSessions->getGlobals());
                        }
                        break;
                }
            }

            if (isset($params->appData) && is_array($params->appData)) {
                $sysCon["APPLICATION"] = $params->appData["APPLICATION"];
                $sysCon["PROCESS"]     = $params->appData["PROCESS"];
                $sysCon["TASK"]        = $params->appData["TASK"];
                $sysCon["INDEX"]       = $params->appData["INDEX"];

                if (empty($sysCon["USER_LOGGED"])) {
                    $sysCon["USER_LOGGED"]  = $params->appData["USER_LOGGED"];
                    $sysCon["USR_USERNAME"] = $params->appData["USR_USERNAME"];
                }
            }
        }

        return $sysCon;
    }

    /*
     * Return the Friendly Title for a string, capitalize every word and remove spaces
     *   param : text string
     */
    public function capitalizeWords($text)
    {
        return mb_convert_case($text, MB_CASE_TITLE, 'UTF-8');
    }

    /**
     * unhtmlentities
     *
     * @param string $string
     *
     * @return string substring
     */
    public function unhtmlentities ($string)
    {
        if (version_compare(PHP_VERSION, '5.4.0', '<')) {
            $trans_tbl = get_html_translation_table( HTML_ENTITIES );
        } else {
            $trans_tbl = get_html_translation_table( HTML_ENTITIES, ENT_COMPAT, 'ISO-8859-1' );
        }
        foreach ($trans_tbl as $k => $v) {
            $ttr[$v] = utf8_encode( $k );
        }
        return strtr( $string, $ttr );
    }

    /**
     * ************************************* init **********************************************
     * Xml parse collection functions
     * Returns a associative array within the xml structure and data
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     */
    public function xmlParser (&$string)
    {
        $parser = xml_parser_create();
        xml_parser_set_option( $parser, XML_OPTION_CASE_FOLDING, 0 );
        xml_parse_into_struct( $parser, $string, $vals, $index );

        $mnary = array ();
        $ary = &$mnary;
        foreach ($vals as $r) {
            $t = $r['tag'];
            if ($r['type'] == 'open') {
                if (isset( $ary[$t] )) {
                    if (isset( $ary[$t][0] )) {
                        $ary[$t][] = array ();
                    } else {
                        $ary[$t] = array ($ary[$t],array () );
                    }
                    $cv = &$ary[$t][count( $ary[$t] ) - 1];
                } else {
                    $cv = &$ary[$t];
                }
                if (isset( $r['attributes'] )) {
                    foreach ($r['attributes'] as $k => $v) {
                        $cv['__ATTRIBUTES__'][$k] = $v;
                    }
                }
                // note by gustavo cruz gustavo[at]colosa[dot]com
                // minor adjustments to validate if an open node have a value attribute.
                // for example a dropdown has many childs, but also can have a value attribute.
                if (isset( $r['value'] ) && trim( $r['value'] ) != '') {
                    $cv['__VALUE__'] = $r['value'];
                }
                // end added code
                $cv['__CONTENT__'] = array ();
                $cv['__CONTENT__']['_p'] = &$ary;
                $ary = &$cv['__CONTENT__'];

            } elseif ($r['type'] == 'complete') {
                if (isset( $ary[$t] )) {
                    if (isset( $ary[$t][0] )) {
                        $ary[$t][] = array ();
                    } else {
                        $ary[$t] = array ($ary[$t],array ());
                    }
                    $cv = &$ary[$t][count( $ary[$t] ) - 1];
                } else {
                    $cv = &$ary[$t];
                }
                if (isset( $r['attributes'] )) {
                    foreach ($r['attributes'] as $k => $v) {
                        $cv['__ATTRIBUTES__'][$k] = $v;
                    }
                }
                $cv['__VALUE__'] = (isset( $r['value'] ) ? $r['value'] : '');

            } elseif ($r['type'] == 'close') {
                $ary = &$ary['_p'];
            }
        }

        self::_del_p( $mnary );

        $obj_resp = new stdclass();
        $obj_resp->code = xml_get_error_code( $parser );
        $obj_resp->message = xml_error_string( $obj_resp->code );
        $obj_resp->result = $mnary;
        xml_parser_free( $parser );

        return $obj_resp;
    }

    /**
     * _del_p
     *
     * @param string &$ary
     *
     * @return void
     */
    // _Internal: Remove recursion in result array
    public function _del_p (&$ary)
    {
        foreach ($ary as $k => $v) {
            if ($k === '_p') {
                unset( $ary[$k] );
            } elseif (is_array( $ary[$k] )) {
                self::_del_p( $ary[$k] );
            }
        }
    }

    /**
     * ary2xml
     *
     * Array to XML
     *
     * @param string $cary
     * @param string $d=0
     * @param string $forcetag default value ''
     *
     * @return void
     */
    // Array to XML
    public function ary2xml ($cary, $d = 0, $forcetag = '')
    {
        $res = array ();
        foreach ($cary as $tag => $r) {
            if (isset( $r[0] )) {
                $res[] = self::ary2xml( $r, $d, $tag );
            } else {
                if ($forcetag) {
                    $tag = $forcetag;
                }
                $sp = str_repeat( "\t", $d );
                $res[] = "$sp<$tag";
                if (isset( $r['_a'] )) {
                    foreach ($r['_a'] as $at => $av) {
                        $res[] = " $at=\"$av\"";
                    }
                }
                $res[] = ">" . ((isset( $r['_c'] )) ? "\n" : '');
                if (isset( $r['_c'] )) {
                    $res[] = ary2xml( $r['_c'], $d + 1 );
                } elseif (isset( $r['_v'] )) {
                    $res[] = $r['_v'];
                }
                $res[] = (isset( $r['_c'] ) ? $sp : '') . "</$tag>\n";
            }

        }
        return implode( '', $res );
    }

    /**
     * ins2ary
     *
     * Insert element into array
     *
     * @param string &$ary
     * @param string $element
     * @param string $pos
     *
     * @return void
     */
    // Insert element into array
    public function ins2ary (&$ary, $element, $pos)
    {
        $ar1 = array_slice( $ary, 0, $pos );
        $ar1[] = $element;
        $ary = array_merge( $ar1, array_slice( $ary, $pos ) );
    }

    /*
    * Xml parse collection functions
    **/

    /**
     * evalJScript
     *
     * @param string $c
     *
     * @return void
     */
    public function evalJScript ($c)
    {
        /*

        $filter = new InputFilter();
        $c = $filter->xssFilterHard($c);*/
        print ('<script language="javascript">'.$c.'</script>') ;
    }

    /**
     * Inflects a string with accented characters and other characteres not suitable for file names, by defaul replace with undescore
     *
     * @author Erik Amaru Ortiz <erik@colosa.com, aortiz.erik@gamil.com>
     * @param (string) string to convert
     * @param (string) character for replace
     * @param (array) additional characteres map
     *
     */
    public function inflect($string, $replacement = '_', $map = array())
    {
        if (is_array($replacement)) {
            $map = $replacement;
            $replacement = '_';
        }

        $quotedReplacement = preg_quote($replacement, '/');

        $default = array('/à|á|å|â/' => 'a',
            '/è|é|ê|ẽ|ë/' => 'e',
            '/ì|í|î/' => 'i',
            '/ò|ó|ô|ø/' => 'o',
            '/ù|ú|ů|û/' => 'u',
            '/ç/' => 'c',
            '/ñ/' => 'n',
            '/ä|æ/' => 'ae',
            '/ö/' => 'oe',
            '/ü/' => 'ue',
            '/Ä/' => 'Ae',
            '/Ü/' => 'Ue',
            '/Ö/' => 'Oe',
            '/ß/' => 'ss',
            '/[\.|\,|\+|\"|\:|\;|\-|\\|\/]/' => " ",
            '/\\s+/' => $replacement);

        $map = array_merge($default, $map);
        return preg_replace(array_keys($map), array_values($map), $string);
    }

    /**
     * pr
     *
     * @param string $var
     *
     * @return void
     */
    public function pr ($var)
    {
        print ("<pre>") ;
        print_r( $var );
        print ("</pre>") ;
    }

    /**
     * dump
     *
     * @param string $var
     *
     * @return void
     */
    public function dump ($var)
    {
        print ("<pre>") ;
        var_dump( $var );
        print ("</pre>") ;
    }

    /**
     * stripCDATA
     *
     * @param string $string
     *
     * @return string str_replace
     */
    public function stripCDATA ($string)
    {
        preg_match_all( '/<!\[cdata\[(.*?)\]\]>/is', $string, $matches );
        return str_replace( $matches[0], $matches[1], $string );
    }

    /**
     * Get the temporal directory path on differents O.S.
     * i.e. /temp -> linux, C:/Temp -> win
     *
     * @author <erik@colosa.com>
     */
    public function sys_get_temp_dir ()
    {
        if (! function_exists( 'sys_get_temp_dir' )) {
            // Based on http://www.phpit.net/
            // article/creating-zip-tar-archives-dynamically-php/2/
            // Try to get from environment variable
            if (! empty( $_ENV['TMP'] )) {
                return realpath( $_ENV['TMP'] );
            } elseif (! empty( $_ENV['TMPDIR'] )) {
                return realpath( $_ENV['TMPDIR'] );
            } elseif (! empty( $_ENV['TEMP'] )) {
                return realpath( $_ENV['TEMP'] );
            } else {
                // Detect by creating a temporary file
                // Try to use system's temporary directory as random name shouldn't exist
                $temp_file = tempnam( G::encryptOld( uniqid( rand(), true ) ), '' );
                if ($temp_file) {
                    $temp_dir = realpath( dirname( $temp_file ) );
                    unlink( $temp_file );
                    return $temp_dir;
                } else {
                    return false;
                }
            }
        } else {
            return sys_get_temp_dir();
        }
    }

    /**
     * Get the content of a compose pmos web service response
     * Returns an array when has a valid reponse, if the response is invalid returns an object containing a status_code and message properties.
     *
     * @author <erik@colosa.com>
     */
    public function PMWSCompositeResponse ($oResp, $prop)
    {
        $Resp = new stdClass();

        if (is_object( $oResp ) && isset( $oResp->{$prop} )) {
            $list = $oResp->{$prop};

            if (is_object( $list )) {
                $aList[0] = $list;
            } else {
                $aList = $list;
            }

            $result = true;
            if (is_array( $aList )) {
                foreach ($aList as $item) {
                    if (! isset( $item->guid )) {
                        $result = false;
                        break;
                    }
                }
            } else {
                $Resp->status_code = - 1;
                $Resp->message = "Bad respose type for ({$prop})";
            }

            if ($result) {
                //verifing if the response has a composite response into a guid value of the first row.
                $tmp = explode( ' ', trim( $aList[0]->guid ) );
                if (sizeof( $tmp ) >= 2) {
                    //the guid can't has a space, so this should be a ws response
                    $Resp->status_code = $tmp[0];
                    $Resp->message = substr( $aList[0]->guid, strpos( $aList[0]->guid, ' ' ) + 1 );
                } else {
                    return $aList;
                }

            } else {
                $Resp->status_code = - 2;
                $Resp->message = "Bad respose, the response has not a uniform struct.";
            }
        } elseif (is_object( $oResp )) {
            return Array ();
        } else {
            $Resp->status_code = - 1;
            $Resp->message = "1 Bad respose type for ({$prop})";
        }
        return $Resp;
    }

    /**
     * Validate and emai address in complete forms,
     *
     * @author Erik A.O. <erik@colosa.com>
     * i.e. if the param. is 'erik a.o. <erik@colosa.com>'
     *      -> returns a object within $o->email => erik@colosa.com and $o->name => erik A.O. in other case returns false
     *
     */
    public function emailAddress($sEmail)
    {
        $o = new stdClass();

        if ( strpos($sEmail, '<') !== false ) {
            preg_match('/([\"\w@\.-_\s]*\s*)?(<(\w+[\.-]?\w+]*@\w+([\.-]?\w+)*\.\w{2,3})+>)/', $sEmail, $matches);

            if ( isset($matches[1]) && $matches[3]) {
                $o->email = $matches[3];
                $o->name = $matches[1];
                return $o;
            }
            return false;
        } else {
            preg_match('/\w+[\.-]?\w+]*@\w+([\.-]?\w+)*\.\w{2,3}+/', $sEmail, $matches);
            if ( isset($matches[0]) ) {
                $o->email = $matches[0];
                $o->name = '';
                return $o;
            }

            return false;
        }
    }

    /**
     * JSON encode
     *
     * @author Erik A.O. <erik@colosa.com>
     */
    public static function json_encode($Json)
    {
        if ( function_exists('json_encode') ) {
            return json_encode($Json);
        } else {

            $oJSON = new Services_JSON();
            return $oJSON->encode($Json);
        }
    }

    /**
      * JSON decode
      *
      * @author Erik A.O. <erik@colosa.com>
     */
    public static function json_decode($Json, $assoc = false)
    {
        if (function_exists('json_decode')) {
            return json_decode($Json, $assoc);
        } else {

            $oJSON = new Services_JSON();
            return $oJSON->decode($Json);
        }
    }

    /**
     * isHttpRequest
     *
     * @return boolean true or false
     */
    public static function isHttpRequest()
    {
        if (isset($_SERVER['SERVER_SOFTWARE']) && strpos(strtolower($_SERVER['SERVER_SOFTWARE']), 'apache') !== false) {
            return true;
        }
        return false;
    }

    /**
     * Send a mail using phpmailer
     * this method use the global smtp server connection stored on Configuration table
     * this information is retrieved by the PMFunction getEmailConfiguration()
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @param string $from address that is sending the email
     * @param string $fromName name of sender
     * @param mixed $address the possibles values are:
     *        string
     *        array('email1', 'some name <email2>')
     *        array('to'=>array('email1', 'some name <email2>'), 'cc'=>array(...), 'bcc'=>array(...))
     * @param string $subject contains the email subject
     * @param string $body contains the email body (text plain or html)
     * @return mixed boolean or string : if the email was sent successfully returns true, otherwise returns a string within error message
     */
    public function sendMail ($from, $fromName, $address, $subject, $body)
    {
        // require_once "classes/class.pmFunctions.php";

        $setup = getEmailConfiguration();
        if ($setup['MESS_RAUTH'] == false || (is_string($setup['MESS_RAUTH']) && $setup['MESS_RAUTH'] == 'false')) {
            $setup['MESS_RAUTH'] = 0;
        } else {
            $setup['MESS_RAUTH'] = 1;
        }

        if (count($setup) == 0 || !isset($setup['MESS_ENGINE']) || !isset($setup['MESS_SERVER'])
            || !isset($setup['MESS_ENABLED']) || !isset($setup['MESS_RAUTH']) || $setup['MESS_SERVER'] == '') {
            return G::LoadTranslation('ID_EMAIL_ENGINE_IS_NOT_CONFIGURED');
        }

        if (!$setup['MESS_ENABLED']) {
            return G::LoadTranslation('ID_EMAIL_ENGINE_IS_NOT_ENABLED');
        }

        $passwd    = $setup['MESS_PASSWORD'];
        $passwdDec = G::decrypt($passwd,'EMAILENCRYPT');
        $auxPass = explode('hash:', $passwdDec);
        if (count($auxPass) > 1) {
            if (count($auxPass) == 2) {
                $passwd = $auxPass[1];
            } else {
                array_shift($auxPass);
                $passwd = implode('', $auxPass);
            }
        }
        $setup['MESS_PASSWORD'] = $passwd;
        $mail = new PHPMailer(true);
        $mail->From = $from != '' && $from ? $from : $setup['MESS_ACCOUNT'];
        $mail->FromName = $fromName;
        $mail->Subject = $subject;
        $mail->Body = $body;
        $mail->IsHTML (true);
        $mail->IsSMTP();
        $mail->Host = $setup['MESS_SERVER'];
        $mail->Port = $setup['MESS_PORT'];
        $mail->SMTPAuth = isset($setup['MESS_RAUTH']) && $setup['MESS_RAUTH'] ? true : false;
        $mail->Username = $setup['MESS_ACCOUNT'];
        $mail->Password = $setup['MESS_PASSWORD'];
        $mail->SMTPSecure = $setup['SMTPSecure'];

        $emailAddressList = G::envelopEmailAddresses($address);

        foreach ($emailAddressList['to'] as $emails) {
            $mail->AddAddress($emails[0], $emails[1]);
        }
        foreach ($emailAddressList['cc'] as $emails) {
            $mail->AddCC($emails[0], $emails[1]);
        }
        foreach ($emailAddressList['bcc'] as $emails) {
             $mail->AddBCC($emails[0], $emails[1]);
        }

        return $mail->Send() ? true : $mail->ErrorInfo;
    }

    /**
     * Envelope a emails collection from a string or array
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @param mixed $address the possibles values are:
     *        string
     *        array('email1', 'some name <email2>')
     *        array('to'=>array('email1', 'some name <email2>'), 'cc'=>array(...), 'bcc'=>array(...))
     * @return array contains:
     *                 array(
     *                    'to' => array('email@host.com', 'some name or empty string', array('email@host.com', '..'), ...),
     *                    'cc' => array('email@host.com', 'some name or empty string', ...),
     *                    'bcc' => array('email@host.com', 'some name or empty string', ...)
     *                 )
     */
    public function envelopEmailAddresses($address)
    {
        $emailAddressList = array();
        $emailAddressList['to'] = array();
        $emailAddressList['cc'] = array();
        $emailAddressList['bcc'] = array();
        $ereg = '/([\"\w\W\s]*\s*)?(<([\w\-\.]+@[\.-\w]+\.\w{2,3})+>)/';

        if (!is_array($address)) {
            if (preg_match($ereg, $address, $match)) {
                $emailAddressList['to'][] = array($match[3], $match[1]);
            } else {
                $emailAddressList['to'][] = array($address, '');
            }
        } else {
            foreach ($address as $type => $emails) {
                if (!is_array($emails)) {
                    if (preg_match($ereg, $emails, $match)) {
                        $emailAddressList['to'][] = array($match[3], $match[1]);
                    } else {
                        $emailAddressList['to'][] = array($emails, '');
                    }
                } else {
                    switch ($type) {
                        case 'cc':
                            foreach ($emails as $email) {
                                if (preg_match($ereg, $email, $match)) {
                                    $emailAddressList['cc'][] = array($match[3], $match[1]);
                                } else {
                                    $emailAddressList['cc'][] = array($email, '');
                                }
                            }
                            break;
                        case 'bcc':
                            foreach ($emails as $email) {
                                if (preg_match($ereg, $email, $match)) {
                                    $emailAddressList['bcc'][] = array($match[3], $match[1]);
                                } else {
                                    $emailAddressList['bcc'][] = array($email, '');
                                }
                            }
                            break;
                        case 'to':
                        default:
                            foreach ($emails as $email) {
                                if (preg_match($ereg, $email, $match)) {
                                    $emailAddressList['to'][] = array($match[3], $match[1]);
                                } else {
                                    $emailAddressList['to'][] = array($email, '');
                                }
                            }
                            break;
                    }
                }
            }
        }
        return $emailAddressList;
    }

    /**
     * Get the type of a variable
     * Returns the type of the PHP variable var.
     *
     * @author Erik A. Ortiz. <erik@colosa.com>
     * @return (string) type of variable
     */
    public function gettype($var)
    {
        switch ($var) {
            case is_null($var):
                $type='NULL';
                break;
            case is_bool($var):
                $type='boolean';
                break;
            case is_float($var):
                $type='double';
                break;
            case is_int($var):
                $type='integer';
                break;
            case is_string($var):
                $type='string';
                break;
            case is_array($var):
                $type='array';
                break;
            case is_object($var):
                $type='object';
                break;
            case is_resource($var):
                $type='resource';
                break;
            default:
                $type='unknown type';
                break;
        }
        return $type;
    }

    public function removeComments($buffer)
    {
        /* remove comments */
        $buffer = preg_replace('!/\*[^*]*\*+([^/][^*]*\*+)*/!', '', $buffer);
        /* remove tabs, spaces, newlines, etc. */
        $buffer = str_replace(array("\r\n", "\r", "\n", "\t", '  ', '    ', '    '), '', $buffer);
        return $buffer;
    }

    public function getMemoryUsage()
    {
        $size = memory_get_usage(true);
        $unit=array('B','Kb','Mb','Gb','Tb','Pb');
        return @round($size/pow(1024,($i=floor(log($size,1024)))),2).' '.$unit[$i];
    }

    public function getFormatUserList($format, $aUserInfo)
    {
        switch ($format) {
            case '@firstName @lastName':
                $infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $format);
                $infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $infoUser);
                break;
            case '@firstName @lastName (@userName)':
                $infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $format);
                $infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $infoUser);
                $infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $infoUser);
                break;
            case '@userName':
                $infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $format);
                break;
            case '@userName (@firstName @lastName)':
                $infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $format);
                $infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
                $infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $infoUser);
                break;
            case '@lastName @firstName':
                $infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $format);
                $infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
                break;
            case '@lastName, @firstName':
                $infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $format);
                $infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
                break;
            case '@lastName, @firstName (@userName)':
                $infoUser = str_replace('@lastName', $aUserInfo['USR_LASTNAME'], $format);
                $infoUser = str_replace('@firstName', $aUserInfo['USR_FIRSTNAME'], $infoUser);
                $infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], $infoUser);
                break;
            default:
                $infoUser = str_replace('@userName', $aUserInfo['USR_USERNAME'], '@userName');
                break;
        }
        return $infoUser;
    }

    //public function getModel($model)
    //{

    //    return new $model();
    //}

    /**
     * Recursive Is writeable function
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     *
     * @param $path path to scan recursively the write permission
     * @param $pattern pattern to filter some specified files
     * @return <boolean> if the $path, assuming that is a directory -> all files in it are writeables or not
     */
    public function is_rwritable($path, $pattern = '*')
    {
        $files = G::rglob($pattern, 0, $path);
        foreach ($files as $file) {
            if (! is_writable($file)) {
                return false;
            }
        }
        return true;
    }

    /**
     * Recursive version of glob php standard function
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     *
     * @param $path path to scan recursively the write permission
     * @param $flags to notive glob function
     * @param $pattern pattern to filter some specified files
     * @return <array> array containing the recursive glob results
     */
    public static function rglob($pattern = '*', $flags = 0, $path = '')
    {
        $paths = glob($path.'*', GLOB_MARK|GLOB_ONLYDIR|GLOB_NOSORT);
        $files = glob($path.$pattern, $flags);
        foreach ($paths as $path) {
            $files = array_merge($files, G::rglob($pattern, $flags, $path));
        }
        return $files;
    }

    public function browser_detection($which_test, $test_excludes = '', $external_ua_string = '')
    {
        G::script_time(); // set script timer to start timing

        static $a_full_assoc_data, $a_mobile_data, $a_moz_data, $a_webkit_data, $b_dom_browser, $b_repeat, $b_safe_browser, $browser_name, $browser_number, $browser_math_number, $browser_user_agent, $browser_working, $ie_version, $mobile_test, $moz_number, $moz_rv, $moz_rv_full, $moz_release_date, $moz_type, $os_number, $os_type, $true_ie_number, $ua_type, $webkit_type, $webkit_type_number;

        // switch off the optimization for external ua string testing.
        if ( $external_ua_string ) {
            $b_repeat = false;
        }

        /*
        this makes the test only run once no matter how many times you call it since
        all the variables are filled on the first run through, it's only a matter of
        returning the the right ones
        */
        if ( !$b_repeat ) {
            //initialize all variables with default values to prevent error
            $a_browser_math_number = '';
            $a_full_assoc_data = '';
            $a_full_data = '';
            $a_mobile_data = '';
            $a_moz_data = '';
            $a_os_data = '';
            $a_unhandled_browser = '';
            $a_webkit_data = '';
            $b_dom_browser = false;
            $b_os_test = true;
            $b_mobile_test = true;
            $b_safe_browser = false;
            $b_success = false;// boolean for if browser found in main test
            $browser_math_number = '';
            $browser_temp = '';
            $browser_working = '';
            $browser_number = '';
            $ie_version = '';
            $mobile_test = '';
            $moz_release_date = '';
            $moz_rv = '';
            $moz_rv_full = '';
            $moz_type = '';
            $moz_number = '';
            $os_number = '';
            $os_type = '';
            $run_time = '';
            $true_ie_number = '';
            $ua_type = 'bot';// default to bot since you never know with bots
            $webkit_type = '';
            $webkit_type_number = '';

            // set the excludes if required
            if ( $test_excludes ) {
                switch ( $test_excludes ){
                    case '1':
                        $b_os_test = false;
                        break;
                    case '2':
                        $b_mobile_test = false;
                        break;
                    case '3':
                        $b_os_test = false;
                        $b_mobile_test = false;
                        break;
                    default:
                        die( 'Error: bad $test_excludes parameter 2 used: ' . $test_excludes );
                        break;
                }
            }

            /*
            make navigator user agent string lower case to make sure all versions get caught
            isset protects against blank user agent failure. tolower also lets the script use
            strstr instead of stristr, which drops overhead slightly.
            */
            if ( $external_ua_string ) {
                $browser_user_agent = strtolower( $external_ua_string );
            } elseif ( isset( $_SERVER['HTTP_USER_AGENT'] ) ) {
                $browser_user_agent = strtolower( $_SERVER['HTTP_USER_AGENT'] );
            } else {
                $browser_user_agent = '';
            }

            // known browsers, list will be updated routinely, check back now and then
            $a_browser_types = array(
                array( 'opera', true, 'op', 'bro' ),
                array( 'msie', true, 'ie', 'bro' ),
                // webkit before gecko because some webkit ua strings say: like gecko
                array( 'webkit', true, 'webkit', 'bro' ),
                // konq will be using webkit soon
                array( 'konqueror', true, 'konq', 'bro' ),
                // covers Netscape 6-7, K-Meleon, Most linux versions, uses moz array below
                array( 'gecko', true, 'moz', 'bro' ),
                array( 'netpositive', false, 'netp', 'bbro' ),// beos browser
                array( 'lynx', false, 'lynx', 'bbro' ), // command line browser
                array( 'elinks ', false, 'elinks', 'bbro' ), // new version of links
                array( 'elinks', false, 'elinks', 'bbro' ), // alternate id for it
                array( 'links2', false, 'links2', 'bbro' ), // alternate links version
                array( 'links ', false, 'links', 'bbro' ), // old name for links
                array( 'links', false, 'links', 'bbro' ), // alternate id for it
                array( 'w3m', false, 'w3m', 'bbro' ), // open source browser, more features than lynx/links
                array( 'webtv', false, 'webtv', 'bbro' ),// junk ms webtv
                array( 'amaya', false, 'amaya', 'bbro' ),// w3c browser
                array( 'dillo', false, 'dillo', 'bbro' ),// linux browser, basic table support
                array( 'ibrowse', false, 'ibrowse', 'bbro' ),// amiga browser
                array( 'icab', false, 'icab', 'bro' ),// mac browser
                array( 'crazy browser', true, 'ie', 'bro' ),// uses ie rendering engine

                // search engine spider bots:
                array( 'bingbot', false, 'bing', 'bot' ),// bing
                array( 'exabot', false, 'exabot', 'bot' ),// exabot
                array( 'googlebot', false, 'google', 'bot' ),// google
                array( 'google web preview', false, 'googlewp', 'bot' ),// google preview
                array( 'mediapartners-google', false, 'adsense', 'bot' ),// google adsense
                array( 'yahoo-verticalcrawler', false, 'yahoo', 'bot' ),// old yahoo bot
                array( 'yahoo! slurp', false, 'yahoo', 'bot' ), // new yahoo bot
                array( 'yahoo-mm', false, 'yahoomm', 'bot' ), // gets Yahoo-MMCrawler and Yahoo-MMAudVid bots
                array( 'inktomi', false, 'inktomi', 'bot' ), // inktomi bot
                array( 'slurp', false, 'inktomi', 'bot' ), // inktomi bot
                array( 'fast-webcrawler', false, 'fast', 'bot' ),// Fast AllTheWeb
                array( 'msnbot', false, 'msn', 'bot' ),// msn search
                array( 'ask jeeves', false, 'ask', 'bot' ), //jeeves/teoma
                array( 'teoma', false, 'ask', 'bot' ),//jeeves teoma
                array( 'scooter', false, 'scooter', 'bot' ),// altavista
                array( 'openbot', false, 'openbot', 'bot' ),// openbot, from taiwan
                array( 'ia_archiver', false, 'ia_archiver', 'bot' ),// ia archiver
                array( 'zyborg', false, 'looksmart', 'bot' ),// looksmart
                array( 'almaden', false, 'ibm', 'bot' ),// ibm almaden web crawler
                array( 'baiduspider', false, 'baidu', 'bot' ),// Baiduspider asian search spider
                array( 'psbot', false, 'psbot', 'bot' ),// psbot image crawler
                array( 'gigabot', false, 'gigabot', 'bot' ),// gigabot crawler
                array( 'naverbot', false, 'naverbot', 'bot' ),// naverbot crawler, bad bot, block
                array( 'surveybot', false, 'surveybot', 'bot' ),//
                array( 'boitho.com-dc', false, 'boitho', 'bot' ),//norwegian search engine
                array( 'objectssearch', false, 'objectsearch', 'bot' ),// open source search engine
                array( 'answerbus', false, 'answerbus', 'bot' ),// http://www.answerbus.com/, web questions
                array( 'sohu-search', false, 'sohu', 'bot' ),// chinese media company, search component
                array( 'iltrovatore-setaccio', false, 'il-set', 'bot' ),

                // various http utility libaries
                array( 'w3c_validator', false, 'w3c', 'lib' ), // uses libperl, make first
                array( 'wdg_validator', false, 'wdg', 'lib' ), //
                array( 'libwww-perl', false, 'libwww-perl', 'lib' ),
                array( 'jakarta commons-httpclient', false, 'jakarta', 'lib' ),
                array( 'python-urllib', false, 'python-urllib', 'lib' ),
                // download apps
                array( 'getright', false, 'getright', 'dow' ),
                array( 'wget', false, 'wget', 'dow' ),// open source downloader, obeys robots.txt
                // netscape 4 and earlier tests, put last so spiders don't get caught
                array( 'mozilla/4.', false, 'ns', 'bbro' ),
                array( 'mozilla/3.', false, 'ns', 'bbro' ),
                array( 'mozilla/2.', false, 'ns', 'bbro' )
            );

            //array( '', false ); // browser array template

            /*
            moz types array
            note the order, netscape6 must come before netscape, which  is how netscape 7 id's itself.
            rv comes last in case it is plain old mozilla. firefox/netscape/seamonkey need to be later
            Thanks to: http://www.zytrax.com/tech/web/firefox-history.html
            */
            $a_moz_types = array( 'bonecho', 'camino', 'epiphany', 'firebird', 'flock', 'galeon', 'iceape', 'icecat', 'k-meleon', 'minimo', 'multizilla', 'phoenix', 'songbird', 'swiftfox', 'seamonkey', 'shiretoko', 'iceweasel', 'firefox', 'minefield', 'netscape6', 'netscape', 'rv' );

            /*
            webkit types, this is going to expand over time as webkit browsers spread
            konqueror is probably going to move to webkit, so this is preparing for that
            It will now default to khtml. gtklauncher is the temp id for epiphany, might
            change. Defaults to applewebkit, and will all show the webkit number.
            */
            $a_webkit_types = array( 'arora', 'chrome', 'epiphany', 'gtklauncher', 'konqueror', 'midori', 'omniweb', 'safari', 'uzbl', 'applewebkit', 'webkit' );

            /*
            run through the browser_types array, break if you hit a match, if no match, assume old browser
            or non dom browser, assigns false value to $b_success.
            */
            $i_count = count( $a_browser_types );
            for ($i = 0; $i < $i_count; $i++) {
                //unpacks browser array, assigns to variables, need to not assign til found in string
                $browser_temp = $a_browser_types[$i][0];// text string to id browser from array

                if ( strstr( $browser_user_agent, $browser_temp ) ) {
                    /*
                    it defaults to true, will become false below if needed
                    this keeps it easier to keep track of what is safe, only
                    explicit false assignment will make it false.
                    */
                    $b_safe_browser = true;
                    $browser_name = $browser_temp;// text string to id browser from array

                    // assign values based on match of user agent string
                    $b_dom_browser = $a_browser_types[$i][1];// hardcoded dom support from array
                    $browser_working = $a_browser_types[$i][2];// working name for browser
                    $ua_type = $a_browser_types[$i][3];// sets whether bot or browser

                    switch ( $browser_working ) {
                        // this is modified quite a bit, now will return proper netscape version number
                        // check your implementation to make sure it works
                        case 'ns':
                            $b_safe_browser = false;
                            $browser_number = G::get_item_version( $browser_user_agent, 'mozilla' );
                            break;
                        case 'moz':
                            /*
                            note: The 'rv' test is not absolute since the rv number is very different on
                            different versions, for example Galean doesn't use the same rv version as Mozilla,
                            neither do later Netscapes, like 7.x. For more on this, read the full mozilla
                            numbering conventions here: http://www.mozilla.org/releases/cvstags.html
                            */
                            // this will return alpha and beta version numbers, if present
                            $moz_rv_full = G::get_item_version( $browser_user_agent, 'rv' );
                            // this slices them back off for math comparisons
                            $moz_rv = substr( $moz_rv_full, 0, 3 );

                            // this is to pull out specific mozilla versions, firebird, netscape etc..
                            $j_count = count( $a_moz_types );
                            for ($j = 0; $j < $j_count; $j++) {
                                if ( strstr( $browser_user_agent, $a_moz_types[$j] ) ) {
                                    $moz_type = $a_moz_types[$j];
                                    $moz_number = G::get_item_version( $browser_user_agent, $moz_type );
                                    break;
                                }
                            }
                            /*
                            this is necesary to protect against false id'ed moz'es and new moz'es.
                            this corrects for galeon, or any other moz browser without an rv number
                            */
                            if ( !$moz_rv ) {
                                // you can use this if you are running php >= 4.2
                                if ( function_exists( 'floatval' ) ) {
                                    $moz_rv = floatval( $moz_number );
                                } else {
                                    $moz_rv = substr( $moz_number, 0, 3 );
                                }
                                $moz_rv_full = $moz_number;
                            }
                            // this corrects the version name in case it went to the default 'rv' for the test
                            if ( $moz_type == 'rv' ) {
                                $moz_type = 'mozilla';
                            }

                            //the moz version will be taken from the rv number, see notes above for rv problems
                            $browser_number = $moz_rv;
                            // gets the actual release date, necessary if you need to do functionality tests
                            G::get_set_count( 'set', 0 );
                            $moz_release_date = G::get_item_version( $browser_user_agent, 'gecko/' );
                            /*
                            Test for mozilla 0.9.x / netscape 6.x
                            test your javascript/CSS to see if it works in these mozilla releases, if it
                            does, just default it to: $b_safe_browser = true;
                            */
                            if ( ( $moz_release_date < 20020400 ) || ( $moz_rv < 1 ) ) {
                                $b_safe_browser = false;
                            }
                            break;
                        case 'ie':
                            /*
                            note we're adding in the trident/ search to return only first instance in case
                            of msie 8, and we're triggering the  break last condition in the test, as well
                            as the test for a second search string, trident/
                            */
                            $browser_number = G::get_item_version( $browser_user_agent, $browser_name, true, 'trident/' );
                            // construct the proper real number if it's in compat mode and msie 8.0/9.0
                            if ( strstr( $browser_number, '7.' ) && strstr( $browser_user_agent, 'trident/5' ) ) {
                                // note that 7.0 becomes 9 when adding 1, but if it's 7.1 it will be 9.1
                                $true_ie_number = $browser_number + 2;
                            } elseif ( strstr( $browser_number, '7.' ) && strstr( $browser_user_agent, 'trident/4' ) ) {
                                // note that 7.0 becomes 8 when adding 1, but if it's 7.1 it will be 8.1
                                $true_ie_number = $browser_number + 1;
                            }
                            // the 9 series is finally standards compatible, html 5 etc, so worth a new id
                            if ( $browser_number >= 9 ) {
                                $ie_version = 'ie9x';
                            } elseif ( $browser_number >= 7 ) {
                                $ie_version = 'ie7x';
                            } elseif ( strstr( $browser_user_agent, 'mac') ) {
                                $ie_version = 'ieMac';
                            } elseif ( $browser_number >= 5 ) {
                                $ie_version = 'ie5x';
                            } elseif ( ( $browser_number > 3 ) && ( $browser_number < 5 ) ) {
                                $b_dom_browser = false;
                                $ie_version = 'ie4';
                                // this depends on what you're using the script for, make sure this fits your needs
                                $b_safe_browser = true;
                            } else {
                                $ie_version = 'old';
                                $b_dom_browser = false;
                                $b_safe_browser = false;
                            }
                            break;
                        case 'op':
                            $browser_number = G::get_item_version( $browser_user_agent, $browser_name );
                            // opera is leaving version at 9.80 (or xx) for 10.x - see this for explanation
                            // http://dev.opera.com/articles/view/opera-ua-string-changes/
                            if ( strstr( $browser_number, '9.' ) && strstr( $browser_user_agent, 'version/' ) ) {
                                G::get_set_count( 'set', 0 );
                                $browser_number = G::get_item_version( $browser_user_agent, 'version/' );
                            }

                            if ( $browser_number < 5 ) {
                                $b_safe_browser = false;
                            }
                            break;
                        case 'webkit':
                            // note that this is the Webkit version number
                            $browser_number = G::get_item_version( $browser_user_agent, $browser_name );
                            // this is to pull out specific webkit versions, safari, google-chrome etc..
                            $j_count = count( $a_webkit_types );
                            for ($j = 0; $j < $j_count; $j++) {
                                if (strstr( $browser_user_agent, $a_webkit_types[$j])) {
                                    $webkit_type = $a_webkit_types[$j];
                                    if ( $webkit_type == 'omniweb' ) {
                                        G::get_set_count( 'set', 2 );
                                    }
                                    $webkit_type_number = G::get_item_version( $browser_user_agent, $webkit_type );
                                    // epiphany hack
                                    if ( $a_webkit_types[$j] == 'gtklauncher' ) {
                                        $browser_name = 'epiphany';
                                    } else {
                                        $browser_name = $a_webkit_types[$j];
                                    }
                                    break;
                                }
                            }
                            break;
                        default:
                            $browser_number = G::get_item_version( $browser_user_agent, $browser_name );
                            break;
                    }
                    // the browser was id'ed
                    $b_success = true;
                    break;
                }
            }

            //assigns defaults if the browser was not found in the loop test
            if ( !$b_success ) {
                /*
                this will return the first part of the browser string if the above id's failed
                usually the first part of the browser string has the navigator useragent name/version in it.
                This will usually correctly id the browser and the browser number if it didn't get
                caught by the above routine.
                If you want a '' to do a if browser == '' type test, just comment out all lines below
                except for the last line, and uncomment the last line. If you want undefined values,
                the browser_name is '', you can always test for that
                */
                // delete this part if you want an unknown browser returned
                $browser_name = substr( $browser_user_agent, 0, strcspn( $browser_user_agent , '();') );
                // this extracts just the browser name from the string, if something usable was found
                if ( $browser_name && preg_match( '/[^0-9][a-z]*-*\ *[a-z]*\ *[a-z]*/', $browser_name, $a_unhandled_browser ) ) {
                    $browser_name = $a_unhandled_browser[0];
                    if ( $browser_name == 'blackberry' ) {
                        G::get_set_count( 'set', 0 );
                    }
                    $browser_number = G::get_item_version( $browser_user_agent, $browser_name );
                } else {
                    $browser_name = 'NA';
                    $browser_number = 'NA';
                }
            }
            // get os data, mac os x test requires browser/version information, this is a change from older scripts
            if ($b_os_test) {
                $a_os_data = G::get_os_data( $browser_user_agent, $browser_working, $browser_number );
                $os_type = $a_os_data[0];// os name, abbreviated
                $os_number = $a_os_data[1];// os number or version if available
            }
            /*
            this ends the run through once if clause, set the boolean
            to true so the function won't retest everything
            */
            $b_repeat = true;
            if ($browser_number && preg_match( '/[0-9]*\.*[0-9]*/', $browser_number, $a_browser_math_number ) ) {
                $browser_math_number = $a_browser_math_number[0];
            }
            if ( $b_mobile_test ) {
                $mobile_test = G::check_is_mobile( $browser_user_agent );
                if ( $mobile_test ) {
                    $a_mobile_data = G::get_mobile_data( $browser_user_agent );
                    $ua_type = 'mobile';
                }
            }
        }

        switch ($which_test) {
            case 'math_number':
                $which_test = 'browser_math_number';
                break;
            case 'number':
                $which_test = 'browser_number';
                break;
            case 'browser':
                $which_test = 'browser_working';
                break;
            case 'moz_version':
                $which_test = 'moz_data';
                break;
            case 'true_msie_version':
                $which_test = 'true_ie_number';
                break;
            case 'type':
                $which_test = 'ua_type';
                break;
            case 'webkit_version':
                $which_test = 'webkit_data';
                break;
        }
        /*
        assemble these first so they can be included in full return data, using static variables
        Note that there's no need to keep repacking these every time the script is called
        */
        if (!$a_moz_data) {
            $a_moz_data = array( $moz_type, $moz_number, $moz_rv, $moz_rv_full, $moz_release_date );
        }
        if (!$a_webkit_data) {
            $a_webkit_data = array( $webkit_type, $webkit_type_number, $browser_number );
        }
        $run_time = G::script_time();

        if ( !$a_full_assoc_data ) {
            $a_full_assoc_data = array(
                'browser_working' => $browser_working,
                'browser_number' => $browser_number,
                'ie_version' => $ie_version,
                'dom' => $b_dom_browser,
                'safe' => $b_safe_browser,
                'os' => $os_type,
                'os_number' => $os_number,
                'browser_name' => $browser_name,
                'ua_type' => $ua_type,
                'browser_math_number' => $browser_math_number,
                'moz_data' => $a_moz_data,
                'webkit_data' => $a_webkit_data,
                'mobile_test' => $mobile_test,
                'mobile_data' => $a_mobile_data,
                'true_ie_number' => $true_ie_number,
                'run_time' => $run_time
            );
        }

        // return parameters, either full data arrays, or by associative array index key
        switch ($which_test) {
            // returns all relevant browser information in an array with standard numberic indexes
            case 'full':
                $a_full_data = array(
                    $browser_working,
                    $browser_number,
                    $ie_version,
                    $b_dom_browser,
                    $b_safe_browser,
                    $os_type,
                    $os_number,
                    $browser_name,
                    $ua_type,
                    $browser_math_number,
                    $a_moz_data,
                    $a_webkit_data,
                    $mobile_test,
                    $a_mobile_data,
                    $true_ie_number,
                    $run_time
                );
                return $a_full_data;
                break;
            case 'full_assoc':
                return $a_full_assoc_data;
                break;
            default:
                # check to see if the data is available, otherwise it's user typo of unsupported option
                if (isset( $a_full_assoc_data[$which_test])) {
                    return $a_full_assoc_data[$which_test];
                } else {
                    die( "You passed the browser detector an unsupported option for parameter 1: " . $which_test );
                }
                break;
        }
    }

    // gets which os from the browser string
    public function get_os_data ($pv_browser_string, $pv_browser_name, $pv_version_number)
    {
        // initialize variables
        $os_working_type = '';
        $os_working_number = '';
        /*
        packs the os array. Use this order since some navigator user agents will put 'macintosh'
        in the navigator user agent string which would make the nt test register true
        */
        $a_mac = array( 'intel mac', 'ppc mac', 'mac68k' );// this is not used currently
        // same logic, check in order to catch the os's in order, last is always default item
        $a_unix_types = array( 'dragonfly', 'freebsd', 'openbsd', 'netbsd', 'bsd', 'unixware', 'solaris', 'sunos', 'sun4', 'sun5', 'suni86', 'sun', 'irix5', 'irix6', 'irix', 'hpux9', 'hpux10', 'hpux11', 'hpux', 'hp-ux', 'aix1', 'aix2', 'aix3', 'aix4', 'aix5', 'aix', 'sco', 'unixware', 'mpras', 'reliant', 'dec', 'sinix', 'unix' );
        // only sometimes will you get a linux distro to id itself...
        $a_linux_distros = array( 'ubuntu', 'kubuntu', 'xubuntu', 'mepis', 'xandros', 'linspire', 'winspire', 'jolicloud', 'sidux', 'kanotix', 'debian', 'opensuse', 'suse', 'fedora', 'redhat', 'slackware', 'slax', 'mandrake', 'mandriva', 'gentoo', 'sabayon', 'linux' );
        $a_linux_process = array ( 'i386', 'i586', 'i686' );// not use currently
        // note, order of os very important in os array, you will get failed ids if changed
        $a_os_types = array( 'android', 'blackberry', 'iphone', 'palmos', 'palmsource', 'symbian', 'beos', 'os2', 'amiga', 'webtv', 'mac', 'nt', 'win', $a_unix_types, $a_linux_distros );

        //os tester
        $i_count = count( $a_os_types );
        for ($i = 0; $i < $i_count; $i++) {
            // unpacks os array, assigns to variable $a_os_working
            $os_working_data = $a_os_types[$i];
            /*
            assign os to global os variable, os flag true on success
            !strstr($pv_browser_string, "linux" ) corrects a linux detection bug
            */
            if (!is_array($os_working_data) && strstr($pv_browser_string, $os_working_data ) && !strstr( $pv_browser_string, "linux")) {
                $os_working_type = $os_working_data;

                switch ($os_working_type) {
                    // most windows now uses: NT X.Y syntax
                    case 'nt':
                        if (strstr( $pv_browser_string, 'nt 6.1' )) {
                            $os_working_number = 6.1;
                        } elseif (strstr( $pv_browser_string, 'nt 6.0')) {
                            $os_working_number = 6.0;
                        } elseif (strstr( $pv_browser_string, 'nt 5.2')) {
                            $os_working_number = 5.2;
                        } elseif (strstr( $pv_browser_string, 'nt 5.1') || strstr( $pv_browser_string, 'xp')) {
                            $os_working_number = 5.1;//
                        } elseif (strstr( $pv_browser_string, 'nt 5') || strstr( $pv_browser_string, '2000')) {
                            $os_working_number = 5.0;
                        } elseif (strstr( $pv_browser_string, 'nt 4')) {
                            $os_working_number = 4;
                        } elseif (strstr( $pv_browser_string, 'nt 3')) {
                            $os_working_number = 3;
                        }
                        break;
                    case 'win':
                        if (strstr( $pv_browser_string, 'vista')) {
                            $os_working_number = 6.0;
                            $os_working_type = 'nt';
                        } elseif ( strstr( $pv_browser_string, 'xp')) {
                            $os_working_number = 5.1;
                            $os_working_type = 'nt';
                        } elseif ( strstr( $pv_browser_string, '2003')) {
                            $os_working_number = 5.2;
                            $os_working_type = 'nt';
                        }
                        elseif ( strstr( $pv_browser_string, 'windows ce' ) )// windows CE
                        {
                            $os_working_number = 'ce';
                            $os_working_type = 'nt';
                        }
                        elseif ( strstr( $pv_browser_string, '95' ) )
                        {
                            $os_working_number = '95';
                        }
                        elseif ( ( strstr( $pv_browser_string, '9x 4.9' ) ) || ( strstr( $pv_browser_string, ' me' ) ) )
                        {
                            $os_working_number = 'me';
                        }
                        elseif ( strstr( $pv_browser_string, '98' ) )
                        {
                            $os_working_number = '98';
                        }
                        elseif ( strstr( $pv_browser_string, '2000' ) )// windows 2000, for opera ID
                        {
                            $os_working_number = 5.0;
                            $os_working_type = 'nt';
                        }
                        break;
                    case 'mac':
                        if (strstr($pv_browser_string, 'os x')) {
                            if (strstr($pv_browser_string, 'os x ')) {
                                $os_working_number = str_replace( '_', '.', G::get_item_version( $pv_browser_string, 'os x' ) );
                            } else {
                                $os_working_number = 10;
                            }
                        } elseif ( ( $pv_browser_name == 'saf' ) || ( $pv_browser_name == 'cam' ) ||
                            ( ( $pv_browser_name == 'moz' ) && ( $pv_version_number >= 1.3 ) ) ||
                            ( ( $pv_browser_name == 'ie' ) && ( $pv_version_number >= 5.2 ) ) ) {
                            $os_working_number = 10;
                        }
                        break;
                    case 'iphone':
                        $os_working_number = 10;
                        break;
                    default:
                        break;
                }
                break;
            } elseif ( is_array( $os_working_data ) && ( $i == ( $i_count - 2 ) ) ) {
                $j_count = count($os_working_data);
                for ($j = 0; $j < $j_count; $j++) {
                    if (strstr( $pv_browser_string, $os_working_data[$j])) {
                        $os_working_type = 'unix'; //if the os is in the unix array, it's unix, obviously...
                        $os_working_number = ( $os_working_data[$j] != 'unix' ) ? $os_working_data[$j] : '';// assign sub unix version from the unix array
                        break;
                    }
                }
            } elseif (is_array( $os_working_data ) && ( $i == ( $i_count - 1 ))) {
                $j_count = count($os_working_data);
                for ($j = 0; $j < $j_count; $j++) {
                    if ( strstr( $pv_browser_string, $os_working_data[$j] )) {
                        $os_working_type = 'lin';
                        // assign linux distro from the linux array, there's a default
                        //search for 'lin', if it's that, set version to ''
                        $os_working_number = ( $os_working_data[$j] != 'linux' ) ? $os_working_data[$j] : '';
                        break;
                    }
                }
            }
        }

        // pack the os data array for return to main function
        $a_os_data = array( $os_working_type, $os_working_number );

        return $a_os_data;
    }

    public function get_item_version($pv_browser_user_agent, $pv_search_string, $pv_b_break_last = '', $pv_extra_search = '')
    {
        $substring_length = 15;
        $start_pos = 0; // set $start_pos to 0 for first iteration
        $string_working_number = '';
        for ($i = 0; $i < 4; $i++) {
            //start the search after the first string occurrence
            if (strpos( $pv_browser_user_agent, $pv_search_string, $start_pos ) !== false) {
                $start_pos = strpos( $pv_browser_user_agent, $pv_search_string, $start_pos ) + strlen( $pv_search_string );
                if (!$pv_b_break_last || ( $pv_extra_search && strstr( $pv_browser_user_agent, $pv_extra_search ) )) {
                    break;
                }
            } else {
                break;
            }
        }

        $start_pos += G::get_set_count( 'get' );
        $string_working_number = substr( $pv_browser_user_agent, $start_pos, $substring_length );
        $string_working_number = substr( $string_working_number, 0, strcspn($string_working_number, ' );/') );
        if (!is_numeric( substr( $string_working_number, 0, 1 ))) {
            $string_working_number = '';
        }
        return $string_working_number;
    }

    public function get_set_count($pv_type, $pv_value = '')
    {
        static $slice_increment;
        $return_value = '';
        switch ( $pv_type ) {
            case 'get':
                if ( is_null( $slice_increment ) ) {
                    $slice_increment = 1;
                }
                $return_value = $slice_increment;
                $slice_increment = 1; // reset to default
                return $return_value;
                break;
            case 'set':
                $slice_increment = $pv_value;
                break;
        }
    }

    public function check_is_mobile($pv_browser_user_agent)
    {
        $mobile_working_test = '';
        $a_mobile_search = array(
            'android', 'epoc', 'linux armv', 'palmos', 'palmsource', 'windows ce', 'windows phone os', 'symbianos', 'symbian os', 'symbian', 'webos',
            // devices - ipod before iphone or fails
            'benq', 'blackberry', 'danger hiptop', 'ddipocket', ' droid', 'ipad', 'ipod', 'iphone', 'kindle', 'lge-cx', 'lge-lx', 'lge-mx', 'lge vx', 'lge ', 'lge-', 'lg;lx', 'nintendo wii', 'nokia', 'palm', 'pdxgw', 'playstation', 'sagem', 'samsung', 'sec-sgh', 'sharp', 'sonyericsson', 'sprint', 'zune', 'j-phone', 'n410', 'mot 24', 'mot-', 'htc-', 'htc_', 'htc ', 'sec-', 'sie-m', 'sie-s', 'spv ', 'vodaphone', 'smartphone', 'armv', 'midp', 'mobilephone',
            // browsers
            'avantgo', 'blazer', 'elaine', 'eudoraweb', 'iemobile',  'minimo', 'mobile safari', 'mobileexplorer', 'opera mobi', 'opera mini', 'netfront', 'opwv', 'polaris', 'semc-browser', 'up.browser', 'webpro', 'wms pie', 'xiino',
            // services - astel out of business
            'astel',  'docomo',  'novarra-vision', 'portalmmm', 'reqwirelessweb', 'vodafone'
        );

        // then do basic mobile type search, this uses data from: get_mobile_data()
        $j_count = count( $a_mobile_search );
        for ($j = 0; $j < $j_count; $j++) {
            if (strstr( $pv_browser_user_agent, $a_mobile_search[$j] )) {
                $mobile_working_test = $a_mobile_search[$j];
                break;
            }
        }
        return $mobile_working_test;
    }

    public function get_mobile_data ($pv_browser_user_agent)
    {
        $mobile_browser = '';
        $mobile_browser_number = '';
        $mobile_device = '';
        $mobile_device_number = '';
        $mobile_os = ''; // will usually be null, sorry
        $mobile_os_number = '';
        $mobile_server = '';
        $mobile_server_number = '';

        $a_mobile_browser = array( 'avantgo', 'blazer', 'elaine', 'eudoraweb', 'iemobile',  'minimo', 'mobile safari', 'mobileexplorer', 'opera mobi', 'opera mini', 'netfront', 'opwv', 'polaris', 'semc-browser', 'up.browser', 'webpro', 'wms pie', 'xiino' );
        $a_mobile_device = array( 'benq', 'blackberry', 'danger hiptop', 'ddipocket', ' droid', 'htc_dream', 'htc espresso', 'htc hero', 'htc halo', 'htc huangshan', 'htc legend', 'htc liberty', 'htc paradise', 'htc supersonic', 'htc tattoo', 'ipad', 'ipod', 'iphone', 'kindle', 'lge-cx', 'lge-lx', 'lge-mx', 'lge vx', 'lg;lx', 'nintendo wii', 'nokia', 'palm', 'pdxgw', 'playstation', 'sagem', 'samsung', 'sec-sgh', 'sharp', 'sonyericsson', 'sprint', 'zunehd', 'zune', 'j-phone', 'milestone', 'n410', 'mot 24', 'mot-', 'htc-', 'htc_',  'htc ', 'lge ', 'lge-', 'sec-', 'sie-m', 'sie-s', 'spv ', 'smartphone', 'armv', 'midp', 'mobilephone' );
        $a_mobile_os = array( 'android', 'epoc', 'cpu os', 'iphone os', 'palmos', 'palmsource', 'windows phone os', 'windows ce', 'symbianos', 'symbian os', 'symbian', 'webos', 'linux armv'  );
        $a_mobile_server = array( 'astel', 'docomo', 'novarra-vision', 'portalmmm', 'reqwirelessweb', 'vodafone' );

        $k_count = count( $a_mobile_browser );
        for ($k = 0; $k < $k_count; $k++) {
            if (strstr( $pv_browser_user_agent, $a_mobile_browser[$k] )) {
                $mobile_browser = $a_mobile_browser[$k];
                $mobile_browser_number = G::get_item_version( $pv_browser_user_agent, $mobile_browser );
                break;
            }
        }
        $k_count = count( $a_mobile_device );
        for ($k = 0; $k < $k_count; $k++) {
            if (strstr( $pv_browser_user_agent, $a_mobile_device[$k] )) {
                $mobile_device = trim ( $a_mobile_device[$k], '-_' ); // but not space trims yet
                if ($mobile_device == 'blackberry') {
                    G::get_set_count( 'set', 0 );
                }
                $mobile_device_number = G::get_item_version( $pv_browser_user_agent, $mobile_device );
                $mobile_device = trim( $mobile_device ); // some of the id search strings have white space
                break;
            }
        }
        $k_count = count( $a_mobile_os );
        for ($k = 0; $k < $k_count; $k++) {
            if (strstr( $pv_browser_user_agent, $a_mobile_os[$k] )) {
                $mobile_os = $a_mobile_os[$k];
                $mobile_os_number = str_replace( '_', '.', G::get_item_version( $pv_browser_user_agent, $mobile_os ) );
                break;
            }
        }
        $k_count = count( $a_mobile_server );
        for ($k = 0; $k < $k_count; $k++) {
            if (strstr( $pv_browser_user_agent, $a_mobile_server[$k] )) {
                $mobile_server = $a_mobile_server[$k];
                $mobile_server_number = G::get_item_version( $pv_browser_user_agent, $mobile_server );
                break;
            }
        }
        // just for cases where we know it's a mobile device already
        if (!$mobile_os && ( $mobile_browser || $mobile_device || $mobile_server ) && strstr( $pv_browser_user_agent, 'linux' ) ) {
            $mobile_os = 'linux';
            $mobile_os_number = G::get_item_version( $pv_browser_user_agent, 'linux' );
        }

        $a_mobile_data = array( $mobile_device, $mobile_browser, $mobile_browser_number, $mobile_os, $mobile_os_number, $mobile_server, $mobile_server_number, $mobile_device_number );
        return $a_mobile_data;
    }

    public function getBrowser ()
    {
        $u_agent = $_SERVER['HTTP_USER_AGENT'];
        $bname = 'Unknown';
        $platform = 'Unknown';
        $version = "";
        $ub = "other";

        //First get the platform?
        if (preg_match( '/linux/i', $u_agent )) {
            $platform = 'linux';
        } elseif (preg_match( '/macintosh|mac os x/i', $u_agent )) {
            $platform = 'mac';
        } elseif (preg_match( '/windows|win32/i', $u_agent )) {
            $platform = 'windows';
        }

        // Next get the name of the useragent yes seperately and for good reason
        if ((preg_match('~Trident/7.0; rv:11.0~', $u_agent) || preg_match( '/MSIE/i', $u_agent )) && ! preg_match( '/Opera/i', $u_agent )) {
            $bname = 'Internet Explorer';
            $ub = "MSIE";
        } elseif (preg_match( '/Firefox/i', $u_agent )) {
            $bname = 'Mozilla Firefox';
            $ub = "Firefox";
        } elseif ((preg_match( '/Opera/i', $u_agent )) || (preg_match( '/OPR/i', $u_agent ))) {
            $bname = 'Opera';
            $ub = "Opera";
        } elseif (preg_match( '/Chrome/i', $u_agent )) {
            $bname = 'Google Chrome';
            $ub = "Chrome";
        } elseif (preg_match( '/Safari/i', $u_agent )) {
            $bname = 'Apple Safari';
            $ub = "Safari";
        } elseif (preg_match( '/Netscape/i', $u_agent )) {
            $bname = 'Netscape';
            $ub = "Netscape";
        } elseif (preg_match( '/bingbot/i', $u_agent )) {
            $bname = 'Bing Bot';
            $ub = "bingbot";
        }

        // finally get the correct version number
        $known = array ('Version',$ub,'other');
        $pattern = '#(?P<browser>' . join( '|', $known ) . ')[/ ]+(?P<version>[0-9.|a-zA-Z.]*)#';
        @preg_match_all( $pattern, $u_agent, $matches );

        // see how many we have
        $i = count( $matches['browser'] );
        if ($i != 1) {
            //we will have two since we are not using 'other' argument yet
            //see if version is before or after the name
            if (strripos( $u_agent, "Version" ) < strripos( $u_agent, $ub )) {
                $version = $matches['version'][0];
            } else {
                $version = isset($matches['version'][1]) ? $matches['version'][1] : '';
            }
        } else {
            $version = $matches['version'][0];
        }

        // check if we have a number
        if ($version == null || $version == "") {
        	if($ub == 'MSIE'){
        		$parent = 'RV';
        	} elseif ($ub == 'Opera'){
        		$parent = 'OPR';
        	}
        	if (isset($parent) && $parent != ""){
        		$s = strpos(strtoupper($u_agent), $parent);
        		$f = $s + strlen($parent);
        		$version = substr($u_agent, $f, 15);
        		$version = preg_replace('/[^0-9,.]/','',$version);
            }else {
                $version = "?";
        	}
        }

        return array ('userAgent' => $u_agent,'name' => strtolower( $ub ),'longName' => $bname,'version' => $version,'platform' => $platform,'pattern' => $pattern
        );
    }

    // track total script execution time
    public function script_time ()
    {
        static $script_time;
        $elapsed_time = '';
        /*
        note that microtime(true) requires php 5 or greater for microtime(true)
        */
        if (sprintf( "%01.1f", phpversion() ) >= 5) {
            if (is_null( $script_time )) {
                $script_time = microtime( true );
            } else {
                // note: (string)$var is same as strval($var)
                // $elapsed_time = (string)( microtime(true) - $script_time );
                $elapsed_time = (microtime( true ) - $script_time);
                $elapsed_time = sprintf( "%01.8f", $elapsed_time );
                $script_time = null; // can't unset a static variable
                return $elapsed_time;
            }
        }
    }

    public function getDirectorySize ($path, $maxmtime = 0)
    {
        $totalsize = 0;
        $totalcount = 0;
        $dircount = 0;
        if ($handle = opendir( $path )) {
            while (false !== ($file = readdir( $handle ))) {
                $nextpath = $path . '/' . $file;
                if ($file != '.' && $file != '..' && ! is_link( $nextpath ) && $file != '.svn') {
                    if (is_dir( $nextpath )) {
                        $dircount ++;
                        $result = G::getDirectorySize( $nextpath, $maxmtime );
                        $totalsize += $result['size'];
                        $totalcount += $result['count'];
                        $dircount += $result['dircount'];
                        $maxmtime = $result['maxmtime'] > $maxmtime ? $result['maxmtime'] : $maxmtime;
                    } elseif (is_file( $nextpath )) {
                        $totalsize += filesize( $nextpath );
                        $totalcount ++;

                        $mtime = filemtime( $nextpath );
                        if ($mtime > $maxmtime) {
                            $maxmtime = $mtime;
                        }
                    }
                }
            }
        }
        closedir( $handle );
        $total['size'] = $totalsize;
        $total['count'] = $totalcount;
        $total['dircount'] = $dircount;
        $total['maxmtime'] = $maxmtime;

        return $total;
    }

    /**
     * Get checksum from multiple files
     *
     * @author erik amaru ortiz <erik@colosa.com>
     */
    public function getCacheFileNameByPattern ($path, $pattern)
    {
        if ($file = glob( $path . $pattern )) {
            preg_match( '/[a-f0-9]{32}/', $file[0], $match );
        } else {
            $file[0] = '';
        }
        return array ('filename' => $file[0],'checksum' => (isset( $match[0] ) ? $match[0] : ''));
    }

    /**
     * Get checksum from multiple files
     *
     * @author erik amaru ortiz <erik@colosa.com>
     */
    public function getCheckSum ($files)
    {
        $key = System::getVersion();

        if (! is_array( $files )) {
            $tmp = $files;
            $files = array ();
            $files[0] = $tmp;
        }

        $checkSum = '';
        foreach ($files as $file) {
            if (is_file( $file )) {
                $checkSum .= G::encryptFileOld( $file );
            }
        }
        return G::encryptOld( $checkSum . $key );
    }

    /**
     * parse_ini_string
     * Define parse_ini_string if it doesn't exist.
     * Does accept lines starting with ; as comments
     * Does not accept comments after values
     */
    public function parse_ini_string ($string)
    {
        if (function_exists( 'parse_ini_string' )) {
            return parse_ini_string( $string );
        } else {
            $array = Array ();
            $lines = explode( "\n", $string );

            foreach ($lines as $line) {
                $statement = preg_match( "/^(?!;)(?P<key>[\w+\.\-]+?)\s*=\s*(?P<value>.+?)\s*$/", $line, $match );
                if ($statement) {
                    $key = $match['key'];
                    $value = $match['value'];

                    //Remove quote
                    if (preg_match( "/^\".*\"$/", $value ) || preg_match( "/^'.*'$/", $value )) {
                        $value = mb_substr( $value, 1, mb_strlen( $value ) - 2 );
                    }
                    $array[$key] = $value;
                }
            }
            return $array;
        }
    }

    /**
     * disableEnableINIvariable
     * disable or enable a variable in ini file, this is useful for editing the env.ini file
     * automatically get the value, and change to inverse value, I mean from true to false and viceversa
     */
    public function disableEnableINIvariable ($inifile, $variable)
    {
        $enabled = 'false';
        if (file_exists( $inifile )) {
            $fp = fopen( $inifile, 'r' );
            $line = fgets( $fp );
            $found = false;
            $buffer = null;

            while (! feof( $fp )) {
                $config = G::parse_ini_string( $line );
                if (isset( $config[$variable] )) {
                    $enabled = $config[$variable];
                    $buffer .= sprintf( "%s = %d \n", $variable, 1 - $enabled );
                    $found = true;
                } else {
                    $buffer .= trim( $line ) . "\n";
                }
                $line = fgets( $fp );
            }
            fclose( $fp );
            if (! $found) {
                $buffer .= sprintf( "\n%s = 1 \n", $variable );
            }
            @file_put_contents( $inifile, $buffer );
        } else {
            $contents = file_put_contents( $inifile, sprintf( "\n%s = 1\n", $variable ) );
        }
    }

    /**
     * set a variable in ini file
     */
    public function setINIvariable ($inifile, $variable, $value)
    {
        if (file_exists( $inifile )) {
            $fp = fopen( $inifile, 'r' );
            $line = fgets( $fp );
            $found = false;
            $buffer = null;

            while (! feof( $fp )) {
                $config = G::parse_ini_string( $line );
                if (isset( $config[$variable] )) {
                    $enabled = $config[$variable];
                    $buffer .= sprintf( "%s = %s \n", $variable, $value );
                    $found = true;
                } else {
                    $buffer .= trim( $line ) . "\n";
                }
                $line = fgets( $fp );
            }
            fclose( $fp );
            if (! $found) {
                $buffer .= sprintf( "\n%s = %s \n", $variable, $value );
            }
            file_put_contents( $inifile, $buffer );
        } else {
            $contents = file_put_contents( $inifile, sprintf( "\n%s = $s\n", $variable, $value ) );
        }
    }

    public function write_php_ini ($file, $array)
    {
        $res = array ();
        foreach ($array as $key => $val) {
            if (is_array( $val )) {
                $res[] = "[$key]";
                foreach ($val as $skey => $sval) {
                    $res[] = "$skey = " . (is_numeric( $sval ) ? $sval : '"' . $sval . '"');
                }
            } else {
                $res[] = "$key = " . (is_numeric( $val ) ? $val : '"' . $val . '"');
            }
        }
        file_put_contents( $file, implode( "\r\n", $res ) );
    }

    /**
     * verify if all files & directories passed by param.
     * are writable
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @param $resources array a list of files to verify write access
     */
    public function verifyWriteAccess ($resources)
    {
        $noWritable = array ();
        foreach ($resources as $i => $resource) {
            if (! is_writable( $resource )) {
                $noWritable[] = $resource;
            }
        }

        if (count( $noWritable ) > 0) {
            $e = new Exception( "Write access not allowed for ProcessMaker resources" );
            $e->files = $noWritable;
            throw $e;
        }
    }

    /**
     * render a smarty template
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @param $template string containing the template filename on /gulliver/templates/ directory
     * @param $data associative array containig the template data
     */
    public function renderTemplate ($template, $data = array())
    {
        if (! defined( 'PATH_THIRDPARTY' )) {
            throw new Exception( 'System constant (PATH_THIRDPARTY) is not defined!' );
        }

        $fInfo = pathinfo( $template );

        $tplExists = true;

        // file has absolute path
        if (strpos($template, PATH_TRUNK) === false) {
            $template = PATH_TPL . $template;
        }

        // fix for template that have dot in its name but is not a valid extension
        if (isset( $fInfo['extension'] ) && ($fInfo['extension'] != 'tpl' || $fInfo['extension'] != 'html')) {
            unset( $fInfo['extension'] );
        }

        if (! isset( $fInfo['extension'] )) {
            if (file_exists( $template . '.tpl' )) {
                $template .= '.tpl';
            } elseif (file_exists( $template . '.html' )) {
                $template .= '.html';
            } else {
                $tplExists = false;
            }
        } else {
            if (! file_exists( $template )) {
                $tplExists = false;
            }
        }

        if (! $tplExists) {
            throw new Exception( "Template: $template, doesn't exist!" );
        }

        $smarty = new Smarty();
        $smarty->compile_dir = G::sys_get_temp_dir();
        $smarty->cache_dir = G::sys_get_temp_dir();
        $smarty->config_dir = PATH_THIRDPARTY . 'smarty/configs';

        $smarty->template_dir = PATH_TEMPLATE;
        $smarty->force_compile = true;

        foreach ($data as $key => $value) {
            $smarty->assign( $key, $value );
        }

        $smarty->display( $template );
    }

    /**
     * parse a smarty template and return teh result as string
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @param $template string containing the template filename on /gulliver/templates/ directory
     * @param $data associative array containig the template data
     * @return $content string containing the parsed template content
     */
    public function parseTemplate ($template, $data = array())
    {
        $content = '';

        ob_start();
        G::renderTemplate( $template, $data );
        $content = ob_get_contents();
        ob_get_clean();

        return $content;
    }

    /**
     * Update a ini file passing a array values, this function don't remove the original comments
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @licence GPL v2 (http://www.gnu.org/licenses/gpl-2.0.html)
     *
     * @param $file string containing the ini file to update
     * @param $array associative array containing the config data
     */
    public function update_php_ini ($file, $array)
    {
        $iniLines = array ();
        $iniContent = array ();

        if (file_exists( $file ) && ! is_writable( $file )) {
            throw new Exception( "File $file, is not writable." );
        }

        if (file_exists( $file )) {
            $iniContent = file( $file );
        }

        foreach ($iniContent as $line) {
            $line = trim( $line );
            $lineParts = explode( ';', $line );
            $setting = G::parse_ini_string( $lineParts[0] );

            if (is_array( $setting ) && count( $setting ) > 0) {
                list ($key, ) = array_keys( $setting );

                if (isset( $array[$key] )) {
                    $value = $array[$key];
                    $line = "$key = " . (is_numeric( $value ) ? $value : '"' . $value . '"');
                    $line .= isset( $lineParts[1] ) ? ' ;' . $lineParts[1] : '';
                    unset( $array[$key] );

                    $lastComment = array_pop( $iniLines );
                    if (strpos( $lastComment, "Setting $key" ) === false) {
                        $iniLines[] = $lastComment;
                    }

                    $iniLines[] = ";Setting $key - Updated by System on " . date( 'D d M, Y H:i:s' );
                }
            }
            $iniLines[] = $line;
        }

        // inserting new values
        foreach ($array as $key => $value) {
            $line = "$key = " . (is_numeric( $value ) ? $value : '"' . $value . '"');
            $iniLines[] = '';
            $iniLines[] = ";Setting $key - Created by System on " . date( 'D d M, Y H:i:s' );
            $iniLines[] = $line;
        }

        $content = implode( "\r\n", $iniLines );

        if (@file_put_contents( $file, $content ) === false) {
            throw new Exception( "G::update_php_ini() -> can't update file: $file" );
         } else {
            //first a raw permission check
            if(fileperms($file) != 33200) {
                @chmod ($file, 0660);
            }
        }
    }

    /**
     * recursive file & directories write permission detect
     *
     * @author Erik Amaru Ortiz <erik@colosa.com>
     * @licence GPL v2 (http://www.gnu.org/licenses/gpl-2.0.html)
     *
     * @param $path string of directory or file to verify recursively
     * @param $noWritableFiles (alternative) array passed by reference to store all no-writable files
     * @return bool true if all files inside a directory path are writable, false in another case
     */
    public function is_writable_r ($path, &$noWritableFiles = array())
    {
        if (is_writable( $path )) {
            if (! is_dir( $path )) {
                return true;
            }
            $list = glob( rtrim( $path, DIRECTORY_SEPARATOR ) . DIRECTORY_SEPARATOR . '*' );

            $sw = true;
            if(is_array($list)){
                foreach ($list as $f) {
                    if (! G::is_writable_r( $f, $noWritableFiles )) {
                        $sw = false;
                    }
                }
            } else {
                $sw = false;
            }

            return $sw;
        } else {
            if (! in_array( $path, $noWritableFiles )) {
                $noWritableFiles[] = $path;
            }
            return false;
        }
    }

    /**
     * This method allow dispatch rest services using 'Restler' thirdparty library
     *
     * @author Erik Amaru Ortiz <aortiz.erik@gmail.com>
     */
    public function dispatchRestService ($uri, $config, $apiClassesPath = '')
    {
        require_once 'restler/restler.php';

        $rest = new Restler();
        $rest->setSupportedFormats( 'JsonFormat', 'XmlFormat' );
        // getting all services class
        $restClasses = array ();
        $restClassesList = G::rglob( '*', 0, PATH_CORE . 'services/' );
        foreach ($restClassesList as $classFile) {
            if (substr( $classFile, - 4 ) === '.php') {
                $restClasses[str_replace( '.php', '', basename( $classFile ) )] = $classFile;
            }
        }
        if (! empty( $apiClassesPath )) {
            $pluginRestClasses = array ();
            $restClassesList = G::rglob( '*', 0, $apiClassesPath . 'services/' );
            foreach ($restClassesList as $classFile) {
                if (substr( $classFile, - 4 ) === '.php') {
                    $pluginRestClasses[str_replace( '.php', '', basename( $classFile ) )] = $classFile;
                }
            }
            $restClasses = array_merge( $restClasses, $pluginRestClasses );
        }
        // hook to get rest api classes from plugins
        if (class_exists( 'ProcessMaker\Plugins\PluginRegistry' )) {
            $pluginRegistry = PluginRegistry::loadSingleton();
            $pluginClasses = $pluginRegistry->getRegisteredRestServices();
            $restClasses = array_merge( $restClasses, $pluginClasses );
        }
        foreach ($restClasses as $key => $classFile) {
            if (! file_exists( $classFile )) {
                unset( $restClasses[$key] );
                continue;
            }
            //load the file, and check if exist the class inside it.
            require_once $classFile;
            $namespace = 'Services_Rest_';
            $className = str_replace( '.php', '', basename( $classFile ) );

            // if the core class does not exists try resolve the for a plugin
            if (! class_exists( $namespace . $className )) {
                $namespace = 'Plugin_Services_Rest_';
                // Couldn't resolve the class name, just skipp it
                if (! class_exists( $namespace . $className )) {
                    unset( $restClasses[$key] );
                    continue;
                }
            }
            // verify if there is an auth class implementing 'iAuthenticate'
            $classNameAuth = $namespace . $className;
            $reflClass = new ReflectionClass( $classNameAuth );
            // that wasn't from plugin
            if ($reflClass->implementsInterface( 'iAuthenticate' ) && $namespace != 'Plugin_Services_Rest_') {
                // auth class found, set as restler authentication class handler
                $rest->addAuthenticationClass( $classNameAuth );
            } else {
                // add api class
                $rest->addAPIClass( $classNameAuth );
            }
        }
        //end foreach rest class
        // resolving the class for current request
        $uriPart = explode( '/', $uri );
        $requestedClass = '';
        if (isset( $uriPart[1] )) {
            $requestedClass = ucfirst( $uriPart[1] );
        }
        if (class_exists( 'Services_Rest_' . $requestedClass )) {
            $namespace = 'Services_Rest_';
        } elseif (class_exists( 'Plugin_Services_Rest_' . $requestedClass )) {
            $namespace = 'Plugin_Services_Rest_';
        } else {
            $namespace = '';
        }
        // end resolv.
        // Send additional headers (if exists) configured on rest-config.ini
        if (array_key_exists( 'HEADERS', $config )) {
            foreach ($config['HEADERS'] as $name => $value) {
                header( "$name: $value" );
            }
        }
        // to handle a request with "OPTIONS" method
        if (! empty( $namespace ) && $_SERVER['REQUEST_METHOD'] === 'OPTIONS') {
            $reflClass = new ReflectionClass( $namespace . $requestedClass );
            // if the rest class has not a "options" method
            if (! $reflClass->hasMethod( 'options' )) {
                header( 'Access-Control-Allow-Methods: GET, POST, PUT, DELETE, OPTIONS, HEADERS' );
                header( 'Access-Control-Allow-Headers: authorization, content-type' );
                header( "Access-Control-Allow-Credentials", "false" );
                header( 'Access-Control-Max-Age: 60' );
                exit();
            }
        }
        // override global REQUEST_URI to pass to Restler library
        $_SERVER['REQUEST_URI'] = '/' . strtolower( $namespace ) . ltrim( $uri, '/' );
        // handle the rest request
        $rest->handle();
    }

    public static function reservedWordsSql ()
    {
        //Reserved words SQL
        $reservedWordsSql = array ("ACCESSIBLE","ACTION","ADD","ALL","ALTER","ANALYZE","AND","ANY","AS","ASC","ASENSITIVE","AUTHORIZATION","BACKUP","BEFORE","BEGIN","BETWEEN","BIGINT","BINARY","BIT","BLOB","BOTH","BREAK","BROWSE","BULK","BY","CALL","CASCADE","CASE","CHANGE","CHAR","CHARACTER","CHECK","CHECKPOINT","CLOSE","CLUSTERED","COALESCE","COLLATE","COLUMN","COMMIT","COMPUTE","CONDITION","CONSTRAINT","CONTAINS","CONTAINSTABLE","CONTINUE","CONVERT","CREATE","CROSS","CURRENT","CURRENT_DATE","CURRENT_TIME","CURRENT_TIMESTAMP","CURRENT_USER","CURSOR","DATABASE","DATABASES","DATE","DAY_HOUR","DAY_MICROSECOND","DAY_MINUTE","DAY_SECOND","DBCC","DEALLOCATE","DEC","DECIMAL","DECLARE","DEFAULT","DELAYED","DELETE","DENY","DESC","DESCRIBE","DETERMINISTIC","DISK","DISTINCT","DISTINCTROW",
                        "DISTRIBUTED","DIV","DOUBLE","DROP","DUAL","DUMMY","DUMP","EACH","ELSE","ELSEIF","ENCLOSED","END","ENUM","ERRLVL","ESCAPE","ESCAPED","EXCEPT","EXEC","EXECUTE","EXISTS","EXIT","EXPLAIN","FALSE","FETCH","FILE","FILLFACTOR","FLOAT","FLOAT4","FLOAT8","FOR","FORCE","FOREIGN","FREETEXT","FREETEXTTABLE","FROM","FULL","FULLTEXT","FUNCTION","GENERAL","GOTO","GRANT","GROUP","HAVING","HIGH_PRIORITY","HOLDLOCK","HOUR_MICROSECOND","HOUR_MINUTE","HOUR_SECOND","IDENTITY","IDENTITYCOL","IDENTITY_INSERT","IF","IGNORE","IGNORE_SERVER_IDS","IN","INDEX","INFILE","INNER","INOUT","INSENSITIVE","INSERT","INT","INT1","INT2","INT3","INT4","INT8","INTEGER","INTERSECT","INTERVAL","INTO","IS","ITERATE","JOIN","KEY","KEYS","KILL","LEADING","LEAVE","LEFT","LIKE","LIMIT","LINEAR","LINENO","LINES",
                        "LOAD","LOCALTIME","LOCALTIMESTAMP","LOCK","LONG","LONGBLOB","LONGTEXT","LOOP","LOW_PRIORITY","MASTER_HEARTBEAT_PERIOD","MASTER_SSL_VERIFY_SERVER_CERT","MATCH","MAXVALUE","MEDIUMBLOB","MEDIUMINT","MEDIUMTEXT","MIDDLEINT","MINUTE_MICROSECOND","MINUTE_SECOND","MOD","MODIFIES","NATIONAL","NATURAL","NO","NOCHECK","NONCLUSTERED","NOT","NO_WRITE_TO_BINLOG","NULL","NULLIF","NUMERIC","OF","OFF","OFFSETS","ON","OPEN","OPENDATASOURCE","OPENQUERY","OPENROWSET","OPENXML","OPTIMIZE","OPTION","OPTIONALLY","OR","ORDER","OUT","OUTER","OUTFILE","OVER","PERCENT","PLAN","PRECISION","PRIMARY","PRINT","PROC","PROCEDURE","PUBLIC","PURGE","RAISERROR","RANGE","READ","READS","READTEXT","READ_WRITE","REAL","RECONFIGURE","REFERENCES","REGEXP","RELEASE","RENAME","REPEAT","REPLACE",
                        "REPLICATION","REQUIRE","RESIGNAL","RESTORE","RESTRICT","RETURN","REVOKE","RIGHT","RLIKE","ROLLBACK","ROWCOUNT","ROWGUIDCOL","RULE","SAVE","SCHEMA","SCHEMAS","SECOND_MICROSECOND","SELECT","SENSITIVE","SEPARATOR","SESSION_USER","SET","SETUSER","SHOW","SHUTDOWN","SIGNAL","SLOW","SMALLINT","SOME","SPATIAL","SPECIFIC","SQL","SQLEXCEPTION","SQLSTATE","SQLWARNING","SQL_BIG_RESULT","SQL_CALC_FOUND_ROWS","SQL_SMALL_RESULT","SSL","STARTING","STATISTICS","STRAIGHT_JOIN","SYSTEM_USER","TABLE","TERMINATED","TEXT","TEXTSIZE","THEN","TIME","TIMESTAMP","TINYBLOB","TINYINT","TINYTEXT","TO","TOP","TRAILING","TRAN","TRANSACTION","TRIGGER","TRUE","TRUNCATE","TSEQUAL","UNDO","UNION","UNIQUE","UNLOCK","UNSIGNED","UPDATE","UPDATETEXT","USAGE","USE","USER","USING","UTC_DATE","UTC_TIME",
                        "UTC_TIMESTAMP","VALUES","VARBINARY","VARCHAR","VARCHARACTER","VARYING","VIEW","WAITFOR","WHEN","WHERE","WHILE","WITH","WRITE","WRITETEXT","XOR","YEAR_MONTH","ZEROFILL");
        return $reservedWordsSql;
    }

    /**
    * isPMUnderUpdating, Used to set a file flag to check if PM is upgrading.
    *
    * @setFlag          Contains the flag to set or unset the temporary file:
    *                   0 to delete the temporary file flag
    *                   1 to set the temporary file flag.
    *                   2 or bigger to check if the temporary file exists.
    * @content          Contains the content of the temporary file
    *                   true to all workspace
    *                   nameWorkspace to specific workspace
    * return            true if the file exists, otherwise false.
    */
    public function isPMUnderUpdating($setFlag = 2, $content="true")
    {
        if (!defined('PATH_DATA')) {
            return false;
        }
        $fileCheck = PATH_DATA."UPDATE.dat";
        if ($setFlag == 0) {
            if (file_exists($fileCheck)) {
                unlink ($fileCheck);
            }
        } elseif ($setFlag == 1) {
            $fp = fopen($fileCheck,'w');
            $line = fputs($fp,$content);
        }
        //checking temporary file
        if ($setFlag >= 1) {
            if (file_exists($fileCheck)) {
                $res['action'] = true;
                $fp = fopen($fileCheck, "r");
                $res['workspace'] = fread($fp, filesize($fileCheck));
                fclose($fp);
                return $res;
            }
        }
        return false;
    }

    /**
     * Save the $_SESSION variables into $sessionVar array, to unset them temporary.
     *
     */
    public function sessionVarSave()
    {
        //Unset any variable
        $this->sessionVar = array();

        if (isset($_SESSION["APPLICATION"])) {
            $this->sessionVar["APPLICATION"] = $_SESSION["APPLICATION"];
        }

        if (isset($_SESSION["INDEX"])) {
            $this->sessionVar["INDEX"] = $_SESSION["INDEX"];
        }

        if (isset($_SESSION["PROCESS"])) {
            $this->sessionVar["PROCESS"] = $_SESSION["PROCESS"];
        }

        if (isset($_SESSION["TASK"])) {
            $this->sessionVar["TASK"] = $_SESSION["TASK"];
        }

        if (isset($_SESSION["USER_LOGGED"])) {
            $this->sessionVar["USER_LOGGED"] = $_SESSION["USER_LOGGED"];
        }

        if (isset($_SESSION["USR_USERNAME"])) {
            $this->sessionVar["USR_USERNAME"] = $_SESSION["USR_USERNAME"];
        }

        if (isset($_SESSION["STEP_POSITION"])) {
            $this->sessionVar["STEP_POSITION"] = $_SESSION["STEP_POSITION"];
        }
    }

    /**
     * Restore the session variables with values of $sessionVar array, if this is set.
     *
     */
    public function sessionVarRestore()
    {
        if (count($this->sessionVar) > 0) {
            //Restore original values
            unset($_SESSION["APPLICATION"]);
            unset($_SESSION["INDEX"]);
            unset($_SESSION["PROCESS"]);
            unset($_SESSION["TASK"]);
            unset($_SESSION["USER_LOGGED"]);
            unset($_SESSION["USR_USERNAME"]);
            unset($_SESSION["STEP_POSITION"]);

            if (isset($this->sessionVar["APPLICATION"])) {
                $_SESSION["APPLICATION"] = $this->sessionVar["APPLICATION"];
            }

            if (isset($this->sessionVar["INDEX"])) {
                $_SESSION["INDEX"] = $this->sessionVar["INDEX"];
            }

            if (isset($this->sessionVar["PROCESS"])) {
                $_SESSION["PROCESS"] = $this->sessionVar["PROCESS"];
            }

            if (isset($this->sessionVar["TASK"])) {
                $_SESSION["TASK"] = $this->sessionVar["TASK"];
            }

            if (isset($this->sessionVar["USER_LOGGED"])) {
                $_SESSION["USER_LOGGED"] = $this->sessionVar["USER_LOGGED"];
            }

            if (isset($this->sessionVar["USR_USERNAME"])) {
                $_SESSION["USR_USERNAME"] = $this->sessionVar["USR_USERNAME"];
            }

            if (isset($this->sessionVar["STEP_POSITION"])) {
                $_SESSION["STEP_POSITION"] = $this->sessionVar["STEP_POSITION"];
            }
        }
    }

    public static function browserCacheFilesGetLibraryJs()
    {
        $arrayLibrary = array();

        //Translations /js/ext/translation.en.js
        //Translations /js/ext/translation.xxx.en.js //xxx is an plugin
        $arrayLibrary["translation"] = 1; //Not use null

        //Translation environment /jscore/labels/en.js
        if (file_exists(PATH_DATA . "META-INF" . PATH_SEP . "translations.env")) {
            $arrayData = unserialize(file_get_contents(PATH_DATA . "META-INF" . PATH_SEP . "translations.env"));

            foreach ($arrayData as $index1 => $value1) {
                foreach ($value1 as $index2 => $value2) {
                    $record = $value2;

                    if (file_exists(PATH_CORE . "js" . PATH_SEP . "labels" . PATH_SEP . $record["LOCALE"] . ".js")) {
                        $arrayLibrary[$record["LOCALE"]] = 1;
                    }
                }
            }
        }

        //Libraries
        $library = G::json_decode(file_get_contents(PATH_HOME . "engine" . PATH_SEP . "bin" . PATH_SEP . "tasks" . PATH_SEP . "libraries.json"));

        foreach ($library as $index => $value) {
            $lib = $value;

            if ($lib->build) {
                if (substr($lib->build_js_to, -1) != "/") {
                    $lib->build_js_to = $lib->build_js_to . "/";
                }

                $arrayLibrary[$lib->name] = 1;
            }
        }

        return $arrayLibrary;
    }

    public static function browserCacheFilesSetUid()
    {
        $uid = G::generateUniqueID();

        $arrayData = array();
        $arrayData["browser_cache_files_uid"] = $uid;

        G::update_php_ini(PATH_CONFIG . "env.ini", $arrayData);
    }

    public static function browserCacheFilesGetUid()
    {
        $sysConf = System::getSystemConfiguration(PATH_CONFIG . "env.ini");

        return (isset($sysConf["browser_cache_files_uid"]))? $sysConf["browser_cache_files_uid"] : null;
    }

    public static function browserCacheFilesUrl($url)
    {
        $browserCacheFilesUid = self::browserCacheFilesGetUid();

        if ($browserCacheFilesUid != null) {
            $arrayAux = explode("/", $url);
            $n = count($arrayAux);

            if ($n > 0 && !empty($arrayAux[$n - 1])) {
                $arrayAux = explode("?", $arrayAux[$n - 1]);
                $name = $arrayAux[0];

                if (preg_match("/^(.*)\.js$/i", $name, $arrayMatch)) {
                    $index = $arrayMatch[1];
                    $index = (preg_match("/^translation\..*$/", $index))? "translation" : $index;

                    $arrayLibrary = G::browserCacheFilesGetLibraryJs();

                    if (isset($arrayLibrary[$index])) {
                        $url = str_replace($name, $arrayMatch[1] . "." . $browserCacheFilesUid . ".js", $url);
                    }
                }
            }
        }

        return $url;
    }

    public static function skinGetPathToSrcByVirtualUri($option, $sysConf)
    {
        $path = "";
        $ereg = "";
        $strSearch = "";

        switch ($option) {
            case "errors":
                $ereg = "/^\/errors\/.*$/";
                $strSearch = "/errors/";
                break;
            case "update":
                $ereg = "/^\/update\/.*$/";
                $strSearch = "/update/";
                break;
        }

        if (preg_match($ereg, $_SERVER["REQUEST_URI"])) {
            $strAux = str_replace($strSearch, null, $_SERVER["REQUEST_URI"]);

            if ($strAux != "") {
                $skin = "base"; //classic

                if (isset($_SESSION["currentSkin"])) {
                    $skin = $_SESSION["currentSkin"];
                } else {

                    if (isset($sysConf["default_skin"])) {
                        $skin = $sysConf["default_skin"];
                    }
                }

                $arrayAux = explode("?", $strAux);
                $fileTemplate = $arrayAux[0];

                if (file_exists(PATH_SKIN_ENGINE . "base" . PATH_SEP . $fileTemplate)) {
                    $path = PATH_SKIN_ENGINE . "base" . PATH_SEP;
                }

                if (file_exists(PATH_SKIN_ENGINE . $skin . PATH_SEP . $fileTemplate)) {
                    $path = PATH_SKIN_ENGINE . $skin . PATH_SEP;
                }

                if (file_exists(PATH_SKINS . $skin . PATH_SEP . $fileTemplate)) {
                    $path = PATH_SKINS . $skin . PATH_SEP;
                }

                if (file_exists(PATH_CUSTOM_SKINS . $skin . PATH_SEP . $fileTemplate)) {
                    $path = PATH_CUSTOM_SKINS . $skin . PATH_SEP;
                }
            }
        }

        return $path;
    }

    public function isUserFunction($functionName) {
        $allFunctions = get_defined_functions();
        if (!isset($allFunctions['user'])) {
            $allFunctions['user'] = array();
        }
        $allFunctions['user'][] = 'sort';
        return in_array(strtolower($functionName), $allFunctions['user']);
    }

    /**
      * Constructor for inputFilter class. Only first parameter is required.
      * @access constructor
      * @data Mixed - input string/array-of-string to be 'cleaned'
      * @param Array $tagsArray - list of user-defined tags
      * @param Array $attrArray - list of user-defined attributes
      * @param int $tagsMethod - 0= allow just user-defined, 1= allow all but user-defined
      * @param int $attrMethod - 0= allow just user-defined, 1= allow all but user-defined
      * @param int $xssAuto - 0= only auto clean essentials, 1= allow clean blacklisted tags/attr
      */
    public function sanitizeInput($data, $tagsArray = array(), $attrArray = array(), $tagsMethod = 0, $attrMethod = 0, $xssAuto = 1)
    {

        $filtro = new InputFilter($tagsArray , $attrArray, $tagsMethod, $attrMethod, $xssAuto);
        return $filtro->process($data);
    }

    /**
     * Stores a message in the log file, if the file size exceeds
     * specified log file is renamed and a new one is created.
     *
     * @param type $message
     * @param type $pathData
     * @param type $file
     */
    public static function log($message, $pathData = PATH_DATA, $file = 'cron.log')
    {
        $config = System::getSystemConfiguration();


        $oLogger = Logger::getSingleton($pathData, PATH_SEP, $file);
        $oLogger->limitFile = $config['number_log_file'];
        $oLogger->limitSize = $config['size_log_file'];
        $oLogger->write($message);
    }

    /**
     * This function save history about some actions in the file audit.log
     * The data is used in the Audit Log functionality
     *
     * @param string $actionToLog
     * @param string $valueToLog
     * @return void
    */
    public static function auditLog($actionToLog, $valueToLog = "")
    {
	    $workspace = !empty(config("system.workspace")) ? config("system.workspace") : 'Undefined Workspace';
        $conf = new Configurations();
        $sflag = $conf->getConfiguration('AUDIT_LOG', 'log');
        $sflagAudit = $sflag == 'true' ? true : false;
        $ipClient = G::getIpAddress();
        $userUid = 'Unknow User';
        $fullName = '-';

        /*----------------------------------********---------------------------------*/
    }

    /**
     * Changes all keys in an array and sub-arrays
     *
     * @param array $arrayData The array to work on
     * @param int   $case      Either CASE_UPPER or CASE_LOWER (default)
     *
     * return array Returns an array with its keys lower or uppercased, or false if $arrayData is not an array
     */
    public static function array_change_key_case2($arrayData, $case = CASE_LOWER)
    {
        $arrayData = array_change_key_case($arrayData, $case);

        foreach ($arrayData as $key => $value) {
            if (is_array($value)) {
                $arrayData[$key] = self::array_change_key_case2($value, $case);
            }
        }

        return $arrayData;
    }

    public static function buildFrom($configuration, $from = '') {
        if (!isset($configuration['MESS_FROM_NAME'])) {
            $configuration['MESS_FROM_NAME'] = '';
        }
        if (!isset($configuration['MESS_FROM_MAIL'])) {
            $configuration['MESS_FROM_MAIL'] = '';
        }
        if ($from != '') {
            if (!preg_match('/(.+)@(.+)\.(.+)/', $from, $match)) {
                if ($configuration['MESS_FROM_MAIL'] != '') {
                    $from .= ' <' . $configuration['MESS_FROM_MAIL'] . '>';
                } else if ($configuration['MESS_ENGINE'] == 'PHPMAILER' && preg_match('/(.+)@(.+)\.(.+)/', $configuration['MESS_ACCOUNT'], $match)) {
                    $from .= ' <' . $configuration['MESS_ACCOUNT'] . '>';
                } else {
                    $from .= ' <info@' . ((isset($_SERVER['HTTP_HOST']) && $_SERVER['HTTP_HOST'] != '')? $_SERVER['HTTP_HOST'] : 'processmaker.com') . '>';
                }
            }
        } else {
            if ($configuration['MESS_FROM_NAME'] != '' && $configuration['MESS_FROM_MAIL'] != '') {
                $from = $configuration['MESS_FROM_NAME'] . ' <' . $configuration['MESS_FROM_MAIL'] . '>';
            } else if ($configuration['MESS_FROM_NAME'] != '' && $configuration['MESS_ENGINE'] == 'PHPMAILER' && preg_match('/(.+)@(.+)\.(.+)/', $configuration['MESS_ACCOUNT'], $match)) {
                $from = $configuration['MESS_FROM_NAME'] . ' <' . $configuration['MESS_ACCOUNT'] . '>';
            } else if ($configuration['MESS_FROM_NAME'] != '') {
                $from = $configuration['MESS_FROM_NAME'] . ' <info@' . ((isset($_SERVER['HTTP_HOST']) && $_SERVER['HTTP_HOST'] != '')? $_SERVER['HTTP_HOST'] : 'processmaker.com') . '>';
            } else if ($configuration['MESS_FROM_MAIL'] != '') {
                $from = $configuration['MESS_FROM_MAIL'];
            } else if ($configuration['MESS_ENGINE'] == 'PHPMAILER' && preg_match('/(.+)@(.+)\.(.+)/', $configuration['MESS_ACCOUNT'], $match)) {
                $from = $configuration['MESS_ACCOUNT'];
            } else if ($configuration['MESS_ENGINE'] == 'PHPMAILER' && $configuration['MESS_ACCOUNT'] != '' && !preg_match('/(.+)@(.+)\.(.+)/', $configuration['MESS_ACCOUNT'], $match)) {
                $from = $configuration['MESS_ACCOUNT'] . ' <info@' . ((isset($_SERVER['HTTP_HOST']) && $_SERVER['HTTP_HOST'] != '')? $_SERVER['HTTP_HOST'] : 'processmaker.com') . '>';
            } else {
                $from = 'info@' . ((isset($_SERVER['HTTP_HOST']) && $_SERVER['HTTP_HOST'] != '')? $_SERVER['HTTP_HOST'] : 'processmaker.com');
            }
        }
        return $from;
    }

    public function getRealExtension($extensionInpDoc) {
        $aux = explode('.', strtolower($extensionInpDoc));
        return isset($aux[1]) ? $aux[1] : '';
    }

   /**
    * Verify the InputDoc extension, cheking the file name extension (.pdf, .ppt) and the file content.
    *
    *
    *
    */
    public function verifyInputDocExtension($InpDocAllowedFiles, $fileName, $filesTmpName)
    {
        // Initialize variables
        $res = new stdclass();
        $res->status = false;
        $allowedTypes = array_map('G::getRealExtension', explode(',', $InpDocAllowedFiles));

        // Get the file extension
        $aux = pathinfo($fileName);
        $fileExtension = isset($aux['extension']) ? strtolower($aux['extension']) : '';

        if (\Bootstrap::getDisablePhpUploadExecution() === 1 && $fileExtension === 'php') {
            $message = \G::LoadTranslation('THE_UPLOAD_OF_PHP_FILES_WAS_DISABLED');
            \Bootstrap::registerMonologPhpUploadExecution('phpUpload', 550, $message, $fileName);
            $res->status = false;
            $res->message = $message;
            return $res;
        }

        // If required extension is *.* don't validate
        if (in_array('*', $allowedTypes)) {
            $res->status = true;
            return $res;
        }

        // If no valid extension finish (unnecesary check file content)
        $validExtension = in_array($fileExtension, $allowedTypes);
        if (!$validExtension) {
            $res->status = false;
            $res->message = G::LoadTranslation('ID_UPLOAD_ERR_NOT_ALLOWED_EXTENSION' ) . ' ' . $fileName;
            return $res;
        }

        // If not enabled fileinfo extension finish validation
        if (!extension_loaded('fileinfo')) {
            $res->status = true;
            return $res;
        }

        // If enabled fileinfo extension check the content
        $finfo = new finfo(FILEINFO_MIME_TYPE);
        $mimeType = $finfo->file($filesTmpName);    
        $docType = explode('/', $mimeType);

        // If is a empty file finish validation
        if ($docType[1] == 'x-empty') {
            $res->status = true;
            return $res;
        }

        // Check file content
        foreach ($allowedTypes as $allowedType) {
            switch ($allowedType) {
                case 'xls':
                    if ($docType[1] == 'vnd.ms-excel' || ($fileExtension == 'xls' && $docType[1] == 'plain')) {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'doc':
                    if ($docType[1] == 'msword' || ($fileExtension == 'doc' && $docType[1] == 'html')) {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'ppt':
                    if ($docType[1] == 'vnd.ms-office') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'docx':
                    if ($docType[1] == 'vnd.openxmlformats-officedocument.wordprocessingml.document') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'pptx':
                    if ($docType[1] == 'vnd.openxmlformats-officedocument.presentationml.presentation') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'xlsx':
                    if ($docType[1] == 'vnd.openxmlformats-officedocument.spreadsheetml.sheet') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'exe':
                    if ($docType[1] == 'x-msdownload' || $docType[1] == 'x-dosexec') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'wmv':
                    if ($docType[1] == 'x-ms-asf' || $docType[1] == 'x-ms-wmv') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'jpg':
                    if ($docType[1] == 'jpeg') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'mp3':
                    if ($docType[1] == 'mpeg') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'rar':
                    if ($docType[1] == 'x-rar') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'txt':
                case 'pm':
                    if ($docType[1] == 'plain') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'htm':
                case 'html':
                    if ($docType[1] == 'html') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'po':
                    if ($docType[1] == 'x-po') {
                        $res->status = true;
                        break 2;
                    }
                    break;
                case 'pdf':
                case 'png':
                case 'jpeg':
                case 'gif':
                case 'zip':
                case 'mp4':
                    if ($docType[1] == $allowedType) {
                        $res->status = true;
                        break 2;
                    }
                    break;
                default:
                    $res->status = $validExtension;
                    break;
            }
        }

        // If content don't match return error
        if (!$res->status) {
            $res->message = G::LoadTranslation('ID_UPLOAD_ERR_NOT_ALLOWED_EXTENSION' ) . ' ' . $fileName;
        }
        return $res;

    }

    /**
     * Check the browser compatibility
     *
     * @param string $browser
     * @param integer $version
     *
     * @return boolean
     */
    public function checkBrowserCompatibility($browser = null, $version = null)
    {
        if ($browser == null || $version == null) {
            $info = G::getBrowser();
            $browser = $info['name'];
            $version = $info['version'];
        }

        if (
            (($browser == 'msie') && (($version >= 8) && ($version <= 11))) ||
            (($browser == 'chrome') && ($version >= 26)) ||
            (($browser == 'firefox') && ($version >= 20)) ||
            (($browser == 'safari') && ($version >= 10))
        ) {
            return true;
        }

        return false;
    }

    /**
     * This function sanitizes the string
     *
     * @param string $string, The string to sanitize.
     * @param boolean $lowercase, Force the string to lowercase
     * @param boolean $alpha, If set to *true*, will remove all non-alphanumeric characters.
     *
     * @return string
     */
    public function sanitizeString ($string, $lowercase = true, $alpha = false)
    {
       $strip = array("~", "`", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "_", "=", "+", "[", "{", "]",
                      "}", "\\", "|", ";", ":", "\"", "'", "&#8216;", "&#8217;", "&#8220;", "&#8221;", "&#8211;", "&#8212;",
                      "—", "–", ",", "<", ".", ">", "/", "?");
       $clean = trim(str_replace($strip, "", strip_tags($string)));
       $clean = preg_replace('/\s+/', "-", $clean);
       $clean = ($alpha) ? preg_replace("/[^a-zA-Z0-9]/", "", $clean) : $clean ;
       $clean = ($lowercase) ? (function_exists('mb_strtolower')) ? mb_strtolower($clean, 'UTF-8') : strtolower($clean) : $clean;
       return $clean;
   }
   /**
    * Out the result
    *
    * @param string $sVar
    *
    * @return showRes($string)
    */
    public static function outRes ($sInfVar)
    {
        echo $sInfVar;
    }
   /**
    * encryptOld
    *
    * @param string $string
    *
    * @return md5($string)
    */
    public static function encryptOld($string)
    {
        $consthashFx = self::hashFx;
        return $consthashFx($string);
    }
    /**
     * encryptSha
     *
     * @param string $string
     *
     * @return sha256($string)
     */
    public static function encryptHash($string)
    {
        $consthash = self::hash;
        return $consthash('sha256', $string);
    }
    /**
    * encryptFileOld
    *
    * @param string $string
    *
    * @return md5_file($string)
    */
    public function encryptFileOld ($string)
    {
        $consthashFx = self::hashFile;
        return $consthashFx($string);
    }
    /**
    * crc32
    *
    * @param string $string
    *
    * @return crc32($string)
    */
    public static function encryptCrc32 ($string)
    {
        $consthashFx = self::hashCrc;
        return $consthashFx($string);
    }

    /**
     * this function get the Message
     * @access public
     * @param string $e
     * @return string
     *
     */
    public static function getErrorMessage($e)
    {
        return $e->getMessage();
    }

    /**
     * Add log of execution of triggers
     * @param $data
     * @param string $error
     * @param string $typeError
     * @param int $executionTime
     */
    public static function logTriggerExecution($data, $error = 'NO-ERROR', $typeError = '', $executionTime = 0)
    {
        if ((!empty($data['_CODE_']) || $typeError == 'FATAL_ERROR') && isset($data['_DATA_TRIGGER_']) &&
            !isset($data['_DATA_TRIGGER_']['_TRI_LOG_'])
        ) {
            $lg = Bootstrap::getDefaultContextLog();
            $lg['TRI_TITLE'] = isset($data['_DATA_TRIGGER_']['TRI_TITLE']) ? $data['_DATA_TRIGGER_']['TRI_TITLE'] : '';
            $lg['TRI_UID'] = isset($data['_DATA_TRIGGER_']['TRI_UID']) ? $data['_DATA_TRIGGER_']['TRI_UID'] : '';
            $lg['TRI_CODE'] = isset($data['_DATA_TRIGGER_']['TRI_WEBBOT']) ? $data['_DATA_TRIGGER_']['TRI_WEBBOT'] : '';
            $lg['TRI_EXECUTION_TIME'] = $executionTime;
            $lg['TRI_MSG_ERROR'] = $error;
            $lg['APP_UID'] = isset($data['APPLICATION']) ? $data['APPLICATION'] : '';
            $lg['PRO_UID'] = isset($data['PROCESS']) ? $data['PROCESS'] : '';
            $lg['TAS_UID'] = isset($data['TASK']) ? $data['TASK'] : '';
            $lg['USR_UID'] = isset($data['USER_LOGGED']) ? $data['USER_LOGGED'] : '';

            Bootstrap::registerMonolog(
                (empty($sError)) ? 'TriggerExecution' : 'TriggerExecutionError',
                (empty($sError)) ? 200 : 400,
                (empty($sError)) ? 'Trigger Execution' : 'Trigger Execution Error',
                $lg, $lg['workspace'], 'processmaker.log');

            $_SESSION['_DATA_TRIGGER_']['_TRI_LOG_'] = true;
        }
    }

    /**
     * Define the Processmaker constants.
     *
     */
    public static function defineConstants()
    {
        //Moved from Enterprise class.
        if (file_exists(PATH_METHODS . "login/version-pmos.php")) {
            include (PATH_METHODS . "login/version-pmos.php");
        }
        //Removed default version from code.
        
        /**
         * The constants defined comes from the file:
         * processmaker/workflow/engine/classes/class.plugin.php, the loading of this
         * file is not done by 'require' in this version of ProcessMaker. Therefore,
         * these definitions have been moved to this class.
         */
        define('G_PLUGIN_CLASS', 1);
        define('PM_CREATE_CASE', 1001);
        define('PM_UPLOAD_DOCUMENT', 1002);
        define('PM_CASE_DOCUMENT_LIST', 1003);
        define('PM_BROWSE_CASE', 1004);
        define('PM_NEW_PROCESS_LIST', 1005);
        define('PM_NEW_PROCESS_SAVE', 1006);
        define('PM_NEW_DYNAFORM_LIST', 1007);
        define('PM_NEW_DYNAFORM_SAVE', 1008);
        define('PM_EXTERNAL_STEP', 1009);
        define('PM_CASE_DOCUMENT_LIST_ARR', 1010);
        define('PM_LOGIN', 1011);
        define('PM_UPLOAD_DOCUMENT_BEFORE', 1012);
        define('PM_CREATE_NEW_DELEGATION', 1013);
        define('PM_SINGLE_SIGN_ON', 1014);
        define('PM_GET_CASES_AJAX_LISTENER', 1015);
        define('PM_BEFORE_CREATE_USER', 1016);
        define('PM_AFTER_LOGIN', 1017);
        define('PM_HASH_PASSWORD', 1018);
        define('PM_SCHEDULER_CREATE_CASE_BEFORE', 1019);
        define('PM_SCHEDULER_CREATE_CASE_AFTER', 1020);
    }

    /**
     * Instanciate an adapter by name.
     *
     * @param string $name Adapter name or class name                                                                                                     :P
     * 
     * @param string[] $parameters Constructor parameters
     */
    public static function factory($name, ...$parameters)
    {
        $key = strtolower($name);
        $class = isset(self::$adapters[$key]) ? self::$adapters[$key] : $name;
        $rc = new ReflectionClass($class);
        return $rc->newInstanceArgs($parameters);
    }

    /**
     * Return current class
     *
     * @param $name string name class
     * @return string name of class
     */
    public static function nameClass($name)
    {
        $key = strtolower($name);
        return isset(self::$adapters[$key]) ? self::$adapters[$key] : $name;
    }

    /**
     * Verify class exists
     *
     * @param $name
     * @return bool true or false
     */
    public static function classExists($name)
    {
        $key = strtolower($name);
        $class = isset(self::$adapters[$key]) ? self::$adapters[$key] : $name;
        return class_exists($class);
    }
}