<?php
    /**
     * @class  moduleModel
     * @author NHN (developers@xpressengine.com)
     * @brief Model class of module module
     **/

    class moduleModel extends module {

        /**
         * @brief Initialization
         **/
        function init() {
        }

        /**
         * @brief Check if mid, vid are available
         **/
        function isIDExists($id, $site_srl = 0) {
            if(!preg_match('/^[a-z]{1}([a-z0-9_]+)$/i',$id)) return true;
            // directory and rss/atom/api reserved checking, etc.
            $dirs = FileHandler::readDir(_XE_PATH_);
            $dirs[] = 'rss';
            $dirs[] = 'atom';
            $dirs[] = 'api';
            if(in_array($id, $dirs)) return true;
            // mid test
            $args->mid = $id;
            $args->site_srl = $site_srl;
            $output = executeQuery('module.isExistsModuleName', $args);
            if($output->data->count) return true;
            // vid test (check mid != vid if site_srl=0, which means it is not a virtual site)
            if(!$site_srl) {
                $site_args->domain = $id;
                $output = executeQuery('module.isExistsSiteDomain', $site_args);
                if($output->data->count) return true;
            }

            return false;
        }

        /**
         * @brief Get site information
         **/
        function getSiteInfo($site_srl, $columnList = array()) {
            $args->site_srl = $site_srl;
            $output = executeQuery('module.getSiteInfo', $args, $columnList);
            return $output->data;
        }

        function getSiteInfoByDomain($domain, $columnList = array()) {
            $args->domain= $domain;
            $output = executeQuery('module.getSiteInfoByDomain', $args, $columnList);
            return $output->data;
        }

        /**
         * @brief Get module information with document_srl
         * In this case, it is unable to use the cache file
         **/
        function getModuleInfoByDocumentSrl($document_srl) {
            $args->document_srl = $document_srl;
            $output = executeQuery('module.getModuleInfoByDocument', $args);
            return $this->addModuleExtraVars($output->data);
        }

        /**
         * @brief Get the defaul mid according to the domain
         **/
        function getDefaultMid() {
	            $default_url = preg_replace('/\/$/','',Context::getDefaultUrl());
	            $request_url = preg_replace('/\/$/','',Context::getRequestUri());
	            $vid = Context::get('vid');
	            $mid = Context::get('mid');
	            // Check a virtual site if the default URL is already set and is is defferent from a requested URL
	            if($default_url && $default_url != $request_url) {
	                $url_info = parse_url($request_url);
	                $hostname = $url_info['host'];
	                $path = preg_replace('/\/$/','',$url_info['path']);
	                $sites_args->domain = sprintf('%s%s%s', $hostname, $url_info['port']&&$url_info['port']!=80?':'.$url_info['port']:'',$path);
	                $output = executeQuery('module.getSiteInfoByDomain', $sites_args);
	            }
	            if(!$output || !$output->data)
	            {
	                if(!$vid) $vid = $mid;
	                if($vid) {
	                    $vid_args->domain = $vid;
	                    $output = executeQuery('module.getSiteInfoByDomain', $vid_args);
	                    if($output->toBool() && $output->data) {
	                        Context::set('vid', $output->data->domain, true);
	                        if($mid==$output->data->domain) Context::set('mid',$output->data->mid,true);
	                    }
	                }
	            }
	            // If it is not a virtual site, get a default site information
	            if(!$output->data) {
	                $args->site_srl = 0;
	                $output = executeQuery('module.getSiteInfo', $args);
	                // Update the related informaion if there is no default site info
	                if(!$output->data) {
	                    // Create a table if sites table doesn't exist
	                    $oDB = &DB::getInstance();
	                    if(!$oDB->isTableExists('sites')) $oDB->createTableByXmlFile(_XE_PATH_.'modules/module/schemas/sites.xml');
	                    if(!$oDB->isTableExists('sites')) return;
	                    // Get mid, language
	                    $mid_output = $oDB->executeQuery('module.getDefaultMidInfo', $args);
	                    $db_info = Context::getDBInfo();
	                    $domain = Context::getDefaultUrl();
	                    $url_info = parse_url($domain);
	                    $domain = $url_info['host'].( (!empty($url_info['port'])&&$url_info['port']!=80)?':'.$url_info['port']:'').$url_info['path'];
	                    $site_args->site_srl = 0;
	                    $site_args->index_module_srl  = $mid_output->data->module_srl;
	                    $site_args->domain = $domain;
	                    $site_args->default_language = $db_info->lang_type;

	                    if($output->data && !$output->data->index_module_srl) {
	                        $output = executeQuery('module.updateSite', $site_args);
	                    } else {
	                        $output = executeQuery('module.insertSite', $site_args);
	                        if(!$output->toBool()) return $output;
	                    }
	                    $output = executeQuery('module.getSiteInfo', $args);
	                }
	            }
            $module_info = $output->data;
            if(!$module_info->module_srl) return $module_info;
            if(is_array($module_info) && $module_info->data[0]) $module_info = $module_info[0];
            return $this->addModuleExtraVars($module_info);
        }

        /**
         * @brief Get module information by mid
         **/
        function getModuleInfoByMid($mid, $site_srl = 0, $columnList = array()) {
            $args->mid = $mid;
            $args->site_srl = (int)$site_srl;
            $oCacheHandler = &CacheHandler::getInstance('object');
        	if($oCacheHandler->isSupport()){
					$cache_key = 'object:'.$mid;
					$module_srl = $oCacheHandler->get($cache_key);
					if($module_srl){
						$cache_key = 'object:'.$module_srl;
						$output = $oCacheHandler->get($cache_key);
					}
			}
			if(!$output){
				$output = executeQuery('module.getMidInfo', $args);
				if($oCacheHandler->isSupport()) {
					$cache_key = 'object:'.$mid;
					$oCacheHandler->put($cache_key,$output->data->module_srl);
				}
			}

            $module_info = $output->data;
            if(!$module_info->module_srl && $module_info->data[0]) $module_info = $module_info->data[0];
            return $this->addModuleExtraVars($module_info);
        }

        /**
         * @brief Get module information corresponding to module_srl
         **/
        function getModuleInfoByModuleSrl($module_srl, $columnList = array()) {
            // Get data
            $args->module_srl = $module_srl;
        	$oCacheHandler = &CacheHandler::getInstance('object');
			if($oCacheHandler->isSupport()){
				$cache_key = 'object:'.$module_srl;
				$output = $oCacheHandler->get($cache_key);
			}
			if(!$output){
            	$output = executeQuery('module.getMidInfo', $args );
            	if(!$output->data) return;
            	if($oCacheHandler->isSupport()) $oCacheHandler->put($cache_key,$output);
			}
    		if(count($columnList)){
				foreach ($output->data as $key => $item) {
		            if (in_array($key, $columnList)){
		            	$module_info->$key = $item;
		            }
	            }
			} else $module_info = $output->data;
            return $this->addModuleExtraVars($module_info);
        }

        /**
         * @brief Get module information corresponding to layout_srl
         **/
        function getModulesInfoByLayout($layout_srl, $columnList = array()) {
            // Imported data
            $args->layout_srl = $layout_srl;
            $output = executeQueryArray('module.getModulesByLayout', $args, $columnList);

            $count = count($output->data);

            $modules = array();
            for($i=0;$i<$count;$i++) {
                $modules[] = $output->data[$i];
            }
            return $this->addModuleExtraVars($modules);
        }

        /**
         * @brief Get module information corresponding to multiple module_srls
         **/
        function getModulesInfo($module_srls, $columnList = array()) {
            if(is_array($module_srls)) $module_srls = implode(',',$module_srls);
            $args->module_srls = $module_srls;
            $output = executeQueryArray('module.getModulesInfo', $args, $columnList);
            if(!$output->toBool()) return;
            return $this->addModuleExtraVars($output->data);
        }

        /**
         * @brief Add extra vars to the module basic information
         **/
        function addModuleExtraVars($module_info) {
            // Process although one or more module informaion is requested
            if(!is_array($module_info)) $target_module_info = array($module_info);
            else $target_module_info = $module_info;
            // Get module_srl
            $module_srls = array();
            foreach($target_module_info as $key => $val) {
                $module_srl = $val->module_srl;
                if(!$module_srl) continue;
                $module_srls[] = $val->module_srl;
            }
            // Extract extra information of the module and skin
            $extra_vars = $this->getModuleExtraVars($module_srls);
            if(!count($module_srls) || !count($extra_vars)) return $module_info;

            foreach($target_module_info as $key => $val) {
                if(!$extra_vars[$val->module_srl] || !count($extra_vars[$val->module_srl])) continue;
                foreach($extra_vars[$val->module_srl] as $k => $v) {
                    if($target_module_info[$key]->{$k}) continue;
                    $target_module_info[$key]->{$k} = $v;
                }
            }
            if(is_array($module_info)) return $target_module_info;
            return $target_module_info[0];
        }

        /**
         * @brief Get a complete list of mid, which is created in the DB
         **/
        function getMidList($args = null, $columnList = array()) {
            $output = executeQuery('module.getMidList', $args, $columnList);
            if(!$output->toBool()) return $output;

            $list = $output->data;
            if(!$list) return;

            if(!is_array($list)) $list = array($list);

            foreach($list as $val) {
                $mid_list[$val->mid] = $val;
            }
            return $mid_list;
        }

        /**
         * @brief Get a complete list of module_srl, which is created in the DB
         **/
		function getModuleSrlList($args = null, $columnList = array())
		{
            $output = executeQueryArray('module.getMidList', $args, $columnList);
            if(!$output->toBool()) return $output;

            $list = $output->data;
            if(!$list) return;

			return $list;
		}

        /**
         * @brief Return an array of module_srl corresponding to a mid list
         **/
        function getModuleSrlByMid($mid) {
            if($mid && !is_array($mid)) $mid = explode(',',$mid);
            if(is_array($mid)) $mid = "'".implode("','",$mid)."'";

            $site_module_info = Context::get('site_module_info');

            $args->mid = $mid;
            if($site_module_info) $args->site_srl = $site_module_info->site_srl;
            $output = executeQuery('module.getModuleSrlByMid', $args);
            if(!$output->toBool()) return $output;

            $list = $output->data;
            if(!$list) return;
            if(!is_array($list)) $list = array($list);

            foreach($list as $key => $val) {
                $module_srl_list[] = $val->module_srl;
            }

            return $module_srl_list;
        }

        /**
         * @brief Get forward value by the value of act
         **/
        function getActionForward($act, $module = "") {
            $args->act = $act;
            $args->module = ($module)?$module:null;
            if (strlen ($args->module) > 0) $output = executeQuery ('module.getActionForwardWithModule', $args);
            else $output = executeQuery('module.getActionForward',$args);
            return $output->data;
        }

        /**
         * @brief Get a list of all triggers on the trigger_name
         **/
        function getTriggers($trigger_name, $called_position) {
            $args->trigger_name = $trigger_name;
            $args->called_position = $called_position;
            $output = executeQueryArray('module.getTriggers',$args);
            return $output->data;
        }

        /**
         * @brief Get specific triggers from the trigger_name
         **/
        function getTrigger($trigger_name, $module, $type, $called_method, $called_position) {
            $args->trigger_name = $trigger_name;
            $args->module = $module;
            $args->type = $type;
            $args->called_method = $called_method;
            $args->called_position = $called_position;
            $output = executeQuery('module.getTrigger',$args);
            return $output->data;
        }

        /**
         * @brief Get module extend
         **/
		function getModuleExtend($parent_module, $type, $kind='') {
			$key = $parent_module.'.'.$kind.'.'.$type;

			$module_extend_info = $this->loadModuleExtends();
			if(array_key_exists($key, $module_extend_info))
			{
				return $module_extend_info[$key];
			}

			return false;
		}

        /**
         * @brief Get all the module extend
         **/
		function loadModuleExtends() {
			$cache_file = './files/config/module_extend.php';
			$cache_file = FileHandler::getRealPath($cache_file);

			if(!isset($GLOBALS['__MODULE_EXTEND__'])){

				// check pre install
				if(file_exists(FileHandler::getRealPath('./files')) && !file_exists($cache_file)) {
					$arr = array();
					$output = executeQueryArray('module.getModuleExtend');
					if($output->data){
						foreach($output->data as $v){
							$arr[] = sprintf("'%s.%s.%s' => '%s'", $v->parent_module, $v->kind, $v->type, $v->extend_module);
						}
					}

					$str = '<?PHP return array(%s); ?>';
					$str = sprintf($str, join(',',$arr));

					FileHandler::writeFile($cache_file, $str);
				}


				if(file_exists($cache_file)) {
					$GLOBALS['__MODULE_EXTEND__'] = include($cache_file);
				} else {
					$GLOBALS['__MODULE_EXTEND__'] = array();
				}
			}

			return $GLOBALS['__MODULE_EXTEND__'];
		}

        /**
         * @brief Get information from conf/info.xml
         **/
        function getModuleInfoXml($module) {
            // Get a path of the requested module. Return if not exists.
            $module_path = ModuleHandler::getModulePath($module);
            if(!$module_path) return;
            // Read the xml file for module skin information
            $xml_file = sprintf("%s/conf/info.xml", $module_path);
            if(!file_exists($xml_file)) return;

            $oXmlParser = new XmlParser();
            $tmp_xml_obj = $oXmlParser->loadXmlFile($xml_file);
            $xml_obj = $tmp_xml_obj->module;

            if(!$xml_obj) return;
            // Module Information
            if($xml_obj->version && $xml_obj->attrs->version == '0.2') {
                // module format 0.2
                $module_info->title = $xml_obj->title->body;
                $module_info->description = $xml_obj->description->body;
                $module_info->version = $xml_obj->version->body;
                $module_info->homepage = $xml_obj->link->body;
                $module_info->category = $xml_obj->category->body;
                if(!$module_info->category) $module_info->category = 'service';
                sscanf($xml_obj->date->body, '%d-%d-%d', $date_obj->y, $date_obj->m, $date_obj->d);
                $module_info->date = sprintf('%04d%02d%02d', $date_obj->y, $date_obj->m, $date_obj->d);
                $module_info->license = $xml_obj->license->body;
                $module_info->license_link = $xml_obj->license->attrs->link;

                if(!is_array($xml_obj->author)) $author_list[] = $xml_obj->author;
                else $author_list = $xml_obj->author;

                foreach($author_list as $author) {
                    unset($author_obj);
                    $author_obj->name = $author->name->body;
                    $author_obj->email_address = $author->attrs->email_address;
                    $author_obj->homepage = $author->attrs->link;
                    $module_info->author[] = $author_obj;
                }

                // history
                if($xml_obj->history) {
                    if(!is_array($xml_obj->history)) $history[] = $xml_obj->history;
                    else $history = $xml_obj->history;

                    foreach($history as $item) {
                        unset($obj);

                        if($item->author) {
                            (!is_array($item->author)) ? $obj->author_list[] = $item->author : $obj->author_list = $item->author;

                            foreach($obj->author_list as $author) {
                                unset($author_obj);
                                $author_obj->name = $author->name->body;
                                $author_obj->email_address = $author->attrs->email_address;
                                $author_obj->homepage = $author->attrs->link;
                                $obj->author[] = $author_obj;
                            }
                        }

                        $obj->name = $item->name->body;
                        $obj->email_address = $item->attrs->email_address;
                        $obj->homepage = $item->attrs->link;
                        $obj->version = $item->attrs->version;
                        $obj->date = $item->attrs->date;
                        $obj->description = $item->description->body;

                        if($item->log) {
                            (!is_array($item->log)) ? $obj->log[] = $item->log : $obj->log = $item->log;

                            foreach($obj->log as $log) {
                                unset($logs_obj);
                                $logs_obj->text = $log->body;
                                $logs_obj->link = $log->attrs->link;
                                $obj->logs[] = $logs_obj;
                            }
                        }

                        $module_info->history[] = $obj;
                    }
                }


            } else {
                // module format 0.1
                $module_info->title = $xml_obj->title->body;
                $module_info->description = $xml_obj->author->description->body;
                $module_info->version = $xml_obj->attrs->version;
                $module_info->category = $xml_obj->attrs->category;
                if(!$module_info->category) $module_info->category = 'service';
                sscanf($xml_obj->author->attrs->date, '%d. %d. %d', $date_obj->y, $date_obj->m, $date_obj->d);
                $module_info->date = sprintf('%04d%02d%02d', $date_obj->y, $date_obj->m, $date_obj->d);
                $author_obj->name = $xml_obj->author->name->body;
                $author_obj->email_address = $xml_obj->author->attrs->email_address;
                $author_obj->homepage = $xml_obj->author->attrs->link;
                $module_info->author[] = $author_obj;
            }
            // Add admin_index by using action information
            $action_info = $this->getModuleActionXml($module);
            $module_info->admin_index_act = $action_info->admin_index_act;
            $module_info->default_index_act = $action_info->default_index_act;
            $module_info->setup_index_act = $action_info->setup_index_act;

            return $module_info;
        }

        /**
         * @brief Return permisson and action data by conf/module.xml in the module
         * Cache it because it takes too long to parse module.xml file
         * When caching, add codes so to include it directly
         * This is apparently good for performance, but not sure about its side-effects
         **/
        function getModuleActionXml($module) {
            // Get a path of the requested module. Return if not exists.
            $class_path = ModuleHandler::getModulePath($module);
            if(!$class_path) return;
            // Check if module.xml exists in the path. Return if not exist
            $xml_file = sprintf("%sconf/module.xml", $class_path);
            if(!file_exists($xml_file)) return;
            // Check if cached file exists
            $cache_file = sprintf("./files/cache/module_info/%s.%s.php", $module, Context::getLangType());
            // Update if no cache file exists or it is older than xml file
            if(!file_exists($cache_file) || filemtime($cache_file)<filemtime($xml_file)) {

                $buff = ""; // /< Set buff variable to use in the cache file

                $xml_obj = XmlParser::loadXmlFile($xml_file); // /< Read xml file and convert it to xml object

                if(!count($xml_obj->module)) return; // /< Error occurs if module tag doesn't included in the xml

                $grants = $xml_obj->module->grants->grant; // /< Permission information
                $permissions = $xml_obj->module->permissions->permission; // /<  Acting permission
                $menus = $xml_obj->module->menus->menu;
                $actions = $xml_obj->module->actions->action; // /< Action list (required)

                $default_index = $admin_index = '';
                // Arrange permission information
                if($grants) {
                    if(is_array($grants)) $grant_list = $grants;
                    else $grant_list[] = $grants;

                    foreach($grant_list as $grant) {
                        $name = $grant->attrs->name;
                        $default = $grant->attrs->default?$grant->attrs->default:'guest';
                        $title = $grant->title->body;

                        $info->grant->{$name}->title = $title;
                        $info->grant->{$name}->default = $default;

                        $buff .= sprintf('$info->grant->%s->title=\'%s\';', $name, $title);
                        $buff .= sprintf('$info->grant->%s->default=\'%s\';', $name, $default);
                    }
                }
                // Permissions to grant
                if($permissions) {
                    if(is_array($permissions)) $permission_list = $permissions;
                    else $permission_list[] = $permissions;

                    foreach($permission_list as $permission) {
                        $action = $permission->attrs->action;
                        $target = $permission->attrs->target;

                        $info->permission->{$action} = $target;

                        $buff .= sprintf('$info->permission->%s = \'%s\';', $action, $target);
                    }
                }
				// for admin menus
				if($menus)
				{
                    if(is_array($menus)) $menu_list = $menus;
                    else $menu_list[] = $menus;

                    foreach($menu_list as $menu) {
						$menu_name = $menu->attrs->name;
						$menu_title = is_array($menu->title) ? $menu->title[0]->body : $menu->title->body;
						$menu_type = $menu->attrs->type;

						$info->menu->{$menu_name}->title = $menu_title;
						$info->menu->{$menu_name}->acts = array();
						$info->menu->{$menu_name}->type = $menu_type;

                        $buff .= sprintf('$info->menu->%s->title=\'%s\';', $menu_name, $menu_title);
                        $buff .= sprintf('$info->menu->%s->type=\'%s\';', $menu_name, $menu_type);
					}
				}

                // actions
                if($actions) {
                    if(is_array($actions)) $action_list = $actions;
                    else $action_list[] = $actions;

                    foreach($action_list as $action) {
                        $name = $action->attrs->name;

                        $type = $action->attrs->type;
                        $grant = $action->attrs->grant?$action->attrs->grant:'guest';
                        $standalone = $action->attrs->standalone=='true'?'true':'false';
                        $ruleset = $action->attrs->ruleset?$action->attrs->ruleset:'';

                        $index = $action->attrs->index;
                        $admin_index = $action->attrs->admin_index;
                        $setup_index = $action->attrs->setup_index;
                        $menu_index = $action->attrs->menu_index;

                        $output->action->{$name}->type = $type;
                        $output->action->{$name}->grant = $grant;
                        $output->action->{$name}->standalone= $standalone;

                        $info->action->{$name}->type = $type;
                        $info->action->{$name}->grant = $grant;
                        $info->action->{$name}->standalone = $standalone=='true'?true:false;
                        $info->action->{$name}->ruleset = $ruleset;
						if($action->attrs->menu_name)
						{
							if($menu_index == 'true')
							{
								$info->menu->{$action->attrs->menu_name}->index = $name;
                        		$buff .= sprintf('$info->menu->%s->index=\'%s\';', $action->attrs->menu_name, $name);
							}
							array_push($info->menu->{$action->attrs->menu_name}->acts, $name);
							$currentKey = array_search($name, $info->menu->{$action->attrs->menu_name}->acts);

                        	$buff .= sprintf('$info->menu->%s->acts[%d]=\'%s\';', $action->attrs->menu_name, $currentKey, $name);
							$i++;
						}

                        $buff .= sprintf('$info->action->%s->type=\'%s\';', $name, $type);
                        $buff .= sprintf('$info->action->%s->grant=\'%s\';', $name, $grant);
                        $buff .= sprintf('$info->action->%s->standalone=%s;', $name, $standalone);
                        $buff .= sprintf('$info->action->%s->ruleset=\'%s\';', $name, $ruleset);

                        if($index=='true') {
                            $default_index_act = $name;
                            $info->default_index_act = $name;
                        }
                        if($admin_index=='true') {
                            $admin_index_act = $name;
                            $info->admin_index_act = $name;
                        }
                        if($setup_index=='true') {
                            $setup_index_act = $name;
                            $info->setup_index_act = $name;
                        }
                    }
                }
                $buff = sprintf('<?php if(!defined("__ZBXE__")) exit();$info->default_index_act = \'%s\';$info->setup_index_act=\'%s\';$info->admin_index_act = \'%s\';%s?>', $default_index_act, $setup_index_act, $admin_index_act, $buff);

                FileHandler::writeFile($cache_file, $buff);

                return $info;
            }

            @include($cache_file);

            return $info;
        }


        /**
         * @brief Get a list of skins for the module
         * Return file analysis of skin and skin.xml
         **/
        function getSkins($path, $dir = 'skins') {
            $skin_path = sprintf("%s/%s/", $path, $dir);
            $list = FileHandler::readDir($skin_path);
            if(!count($list)) return;

            natcasesort($list);

            foreach($list as $skin_name) {
                unset($skin_info);
                $skin_info = $this->loadSkinInfo($path, $skin_name, $dir);
                if(!$skin_info) $skin_info->title = $skin_name;

                $skin_list[$skin_name] = $skin_info;
            }

            return $skin_list;
        }

        /**
         * @brief Get skin information on a specific location
         **/
        function loadSkinInfo($path, $skin, $dir = 'skins') {
            // Read xml file having skin information
            if(substr($path,-1)!='/') $path .= '/';
            $skin_xml_file = sprintf("%s%s/%s/skin.xml", $path, $dir, $skin);
            if(!file_exists($skin_xml_file)) return;
            // Create XmlParser object
            $oXmlParser = new XmlParser();
            $_xml_obj = $oXmlParser->loadXmlFile($skin_xml_file);
            // Return if no skin information is
            if(!$_xml_obj->skin) return;
            $xml_obj = $_xml_obj->skin;
            // Skin Name
            $skin_info->title = $xml_obj->title->body;
            // Author information
            if($xml_obj->version && $xml_obj->attrs->version == '0.2') {
                // skin format v0.2
                sscanf($xml_obj->date->body, '%d-%d-%d', $date_obj->y, $date_obj->m, $date_obj->d);
                $skin_info->version = $xml_obj->version->body;
                $skin_info->date = sprintf('%04d%02d%02d', $date_obj->y, $date_obj->m, $date_obj->d);
                $skin_info->homepage = $xml_obj->link->body;
                $skin_info->license = $xml_obj->license->body;
                $skin_info->license_link = $xml_obj->license->attrs->link;
                $skin_info->description = $xml_obj->description->body;

                if(!is_array($xml_obj->author)) $author_list[] = $xml_obj->author;
                else $author_list = $xml_obj->author;

                foreach($author_list as $author) {
                    unset($author_obj);
                    $author_obj->name = $author->name->body;
                    $author_obj->email_address = $author->attrs->email_address;
                    $author_obj->homepage = $author->attrs->link;
                    $skin_info->author[] = $author_obj;
                }
                // List extra vars
                if($xml_obj->extra_vars) {
                    $extra_var_groups = $xml_obj->extra_vars->group;
                    if(!$extra_var_groups) $extra_var_groups = $xml_obj->extra_vars;
                    if(!is_array($extra_var_groups)) $extra_var_groups = array($extra_var_groups);

                    foreach($extra_var_groups as $group) {
                        $extra_vars = $group->var;
                        if(!is_array($group->var)) $extra_vars = array($group->var);

                        foreach($extra_vars as $key => $val) {
                            unset($obj);
                            if(!$val->attrs->type) { $val->attrs->type = 'text'; }

                            $obj->group = $group->title->body;
                            $obj->name = $val->attrs->name;
                            $obj->title = $val->title->body;
                            $obj->type = $val->attrs->type;
                            $obj->description = $val->description->body;
                            $obj->value = $extra_vals->{$obj->name};
                            $obj->default = $val->attrs->default;
                            if(strpos($obj->value, '|@|') != false) { $obj->value = explode('|@|', $obj->value); }
                            if($obj->type == 'mid_list' && !is_array($obj->value)) { $obj->value = array($obj->value); }
                            // Get an option list from 'select'type
                            if(is_array($val->options)) {
                                $option_count = count($val->options);

                                for($i = 0; $i < $option_count; $i++) {
                                    $obj->options[$i]->title = $val->options[$i]->title->body;
                                    $obj->options[$i]->value = $val->options[$i]->attrs->value;
                                }
                            } else {
                                $obj->options[0]->title = $val->options->title->body;
                                $obj->options[0]->value = $val->options->attrs->value;
                            }

                            $skin_info->extra_vars[] = $obj;
                        }
                    }
                }

                // history
                if($xml_obj->history) {
                    if(!is_array($xml_obj->history)) $history[] = $xml_obj->history;
                    else $history = $xml_obj->history;

                    foreach($history as $item) {
                        unset($obj);

                        if($item->author) {
                            (!is_array($item->author)) ? $obj->author_list[] = $item->author : $obj->author_list = $item->author;

                            foreach($obj->author_list as $author) {
                                unset($author_obj);
                                $author_obj->name = $author->name->body;
                                $author_obj->email_address = $author->attrs->email_address;
                                $author_obj->homepage = $author->attrs->link;
                                $obj->author[] = $author_obj;
                            }
                        }

                        $obj->name = $item->name->body;
                        $obj->email_address = $item->attrs->email_address;
                        $obj->homepage = $item->attrs->link;
                        $obj->version = $item->attrs->version;
                        $obj->date = $item->attrs->date;
                        $obj->description = $item->description->body;

                        if($item->log) {
                            (!is_array($item->log)) ? $obj->log[] = $item->log : $obj->log = $item->log;

                            foreach($obj->log as $log) {
                                unset($log_obj);
                                $log_obj->text = $log->body;
                                $log_obj->link = $log->attrs->link;
                                $obj->logs[] = $log_obj;
                            }
                        }

                        $skin_info->history[] = $obj;
                    }
                }


            } else {

                // skin format v0.1
                sscanf($xml_obj->maker->attrs->date, '%d-%d-%d', $date_obj->y, $date_obj->m, $date_obj->d);

                $skin_info->version = $xml_obj->version->body;
                $skin_info->date = sprintf('%04d%02d%02d', $date_obj->y, $date_obj->m, $date_obj->d);
                $skin_info->homepage = $xml_obj->link->body;
                $skin_info->license = $xml_obj->license->body;
                $skin_info->license_link = $xml_obj->license->attrs->link;
                $skin_info->description = $xml_obj->maker->description->body;

                $skin_info->author[0]->name = $xml_obj->maker->name->body;
                $skin_info->author[0]->email_address = $xml_obj->maker->attrs->email_address;
                $skin_info->author[0]->homepage = $xml_obj->maker->attrs->link;
                // Variables used in the skin
                $extra_var_groups = $xml_obj->extra_vars->group;
                if(!$extra_var_groups) $extra_var_groups = $xml_obj->extra_vars;
                if(!is_array($extra_var_groups)) $extra_var_groups = array($extra_var_groups);

                foreach($extra_var_groups as $group){
                    $extra_vars = $group->var;

                    if($extra_vars) {

                        if(!is_array($extra_vars)) $extra_vars = array($extra_vars);

                        foreach($extra_vars as $var) {
                            unset($obj);
                            unset($options);

                            $group = $group->title->body;
                            $name = $var->attrs->name;
                            $type = $var->attrs->type;
                            $title = $var->title->body;
                            $description = $var->description->body;
                            // Get an option list from 'select'type.
                            if(is_array($var->default)) {
                                $option_count = count($var->default);

                                for($i = 0; $i < $option_count; $i++) {
                                    $options[$i]->title = $var->default[$i]->body;
                                    $options[$i]->value = $var->default[$i]->body;
                                }
                            } else {
                                $options[0]->title = $var->default->body;
                                $options[0]->value = $var->default->body;
                            }

                            $width = $var->attrs->width;
                            $height = $var->attrs->height;

                            unset($obj);
                            $obj->group = $group;
                            $obj->title = $title;
                            $obj->description = $description;
                            $obj->name = $name;
                            $obj->type = $type;
                            $obj->options = $options;
                            $obj->width = $width;
                            $obj->height = $height;
                            $obj->default = $options[0]->value;

                            $skin_info->extra_vars[] = $obj;
                        }
                    }
                }
            }

            // colorset
            $colorset = $xml_obj->colorset->color;
            if($colorset) {
                if(!is_array($colorset)) $colorset = array($colorset);

                foreach($colorset as $color) {
                    $name = $color->attrs->name;
                    $title = $color->title->body;
                    $screenshot = $color->attrs->src;
                    if($screenshot) {
                        $screenshot = sprintf("%sskins/%s/%s", $path, $skin, $screenshot);
                        if(!file_exists($screenshot)) $screenshot = "";
                    } else $screenshot = "";

                    unset($obj);
                    $obj->name = $name;
                    $obj->title = $title;
                    $obj->screenshot = $screenshot;
                    $skin_info->colorset[] = $obj;
                }
            }
            // Menu type (settings for layout)
            if($xml_obj->menus->menu) {
                $menus = $xml_obj->menus->menu;
                if(!is_array($menus)) $menus = array($menus);

                $menu_count = count($menus);
                $skin_info->menu_count = $menu_count;
                for($i=0;$i<$menu_count;$i++) {
                    unset($obj);

                    $obj->name = $menus[$i]->attrs->name;
                    if($menus[$i]->attrs->default == "true") $obj->default = true;
                    $obj->title = $menus[$i]->title->body;
                    $obj->maxdepth = $menus[$i]->maxdepth->body;

                    $skin_info->menu->{$obj->name} = $obj;
                }
            }

            $thumbnail = sprintf("%s%s/%s/thumbnail.png", $path, $dir, $skin);
            $skin_info->thumbnail = (file_exists($thumbnail))?$thumbnail:null;
            return $skin_info;
        }

        /**
         * @brief Return the number of modules which are registered on a virtual site
         **/
        function getModuleCount($site_srl, $module = null) {
            $args->site_srl = $site_srl;
            if(!is_null($module)) $args->module = $module;
            $output = executeQuery('module.getModuleCount', $args);
            return $output->data->count;
        }

        /**
         * @brief Return module configurations
         * Global configuration is used to manage board, member and others
         **/
        function getModuleConfig($module, $site_srl = 0) {
            if(!$GLOBALS['__ModuleConfig__'][$site_srl][$module]) {
                $args->module = $module;
				$args->site_srl = $site_srl;
                $output = executeQuery('module.getModuleConfig', $args);
                $config = unserialize($output->data->config);
                $GLOBALS['__ModuleConfig__'][$site_srl][$module] = $config;
            }
            return $GLOBALS['__ModuleConfig__'][$site_srl][$module];
        }

        /**
         * @brief Return the module configuration of mid
         * Manage mid configurations which depend on module
         **/
        function getModulePartConfig($module, $module_srl) {
            if(!$GLOBALS['__ModulePartConfig__'][$module][$module_srl]) {
                $args->module = $module;
                $args->module_srl = $module_srl;
                $output = executeQuery('module.getModulePartConfig', $args);
                $config = unserialize($output->data->config);
                $GLOBALS['__ModulePartConfig__'][$module][$module_srl] = $config;
            }
            return $GLOBALS['__ModulePartConfig__'][$module][$module_srl];
        }

        /**
         * @brief Get all of module configurations for each mid
         **/
        function getModulePartConfigs($module, $site_srl = 0) {
            $args->module = $module;
            if($site_srl) $args->site_srl = $site_srl;
            $output = executeQueryArray('module.getModulePartConfigs', $args);
            if(!$output->toBool() || !$output->data) return array();

            foreach($output->data as $key => $val) {
                $result[$val->module_srl] = unserialize($val->config);
            }
            return $result;
        }


        /**
         * @brief Get a list of module category
         **/
        function getModuleCategories() {
            // Get data from the DB
            $output = executeQuery('module.getModuleCategories');
            if(!$output->toBool()) return $output;
            $list = $output->data;
            if(!$list) return;
            if(!is_array($list)) $list = array($list);

            foreach($list as $val) {
                $category_list[$val->module_category_srl] = $val;
            }
            return $category_list;
        }

        /**
         * @brief Get content from the module category
         **/
        function getModuleCategory($module_category_srl) {
            // Get data from the DB
            $args->module_category_srl = $module_category_srl;
            $output = executeQuery('module.getModuleCategory', $args);
            if(!$output->toBool()) return $output;
            return $output->data;
        }

        /**
         * @brief Get xml information of the module
         **/
        function getModulesXmlInfo() {
            // Get a list of downloaded and installed modules
            $searched_list = FileHandler::readDir('./modules');
            $searched_count = count($searched_list);
            if(!$searched_count) return;
            sort($searched_list);

            for($i=0;$i<$searched_count;$i++) {
                // Module name
                $module_name = $searched_list[$i];

                $path = ModuleHandler::getModulePath($module_name);
                // Get information of the module
                $info = $this->getModuleInfoXml($module_name);
                unset($obj);

                $info->module = $module_name;
                $info->created_table_count = $created_table_count;
                $info->table_count = $table_count;
                $info->path = $path;
                $info->admin_index_act = $info->admin_index_act;
                $list[] = $info;
            }
            return $list;
        }

        function checkNeedInstall($module_name)
        {
            $oDB = &DB::getInstance();
            $info = null;

            $moduledir = ModuleHandler::getModulePath($module_name);
            if(file_exists(FileHandler::getRealPath($moduledir."schemas")))
            {
                $tmp_files = FileHandler::readDir($moduledir."schemas", '/(\.xml)$/');
                $table_count = count($tmp_files);
                // Check if the table is created
                $created_table_count = 0;
                for($j=0;$j<count($tmp_files);$j++) {
                    list($table_name) = explode(".",$tmp_files[$j]);
                    if($oDB->isTableExists($table_name)) $created_table_count ++;
                }
                // Check if DB is installed
                if($table_count > $created_table_count) return true;
                else return false;
            }
            return false;
        }

        function checkNeedUpdate($module_name)
        {
            // Check if it is upgraded to module.class.php on each module
            $oDummy = &getModule($module_name, 'class');
            if($oDummy && method_exists($oDummy, "checkUpdate")) {
                return $oDummy->checkUpdate();
            }
            return false;
        }

        /**
         * @brief Get a type and information of the module
         **/
        function getModuleList() {
            // Create DB Object
            $oDB = &DB::getInstance();
            // Get a list of downloaded and installed modules
            $searched_list = FileHandler::readDir('./modules', '/^([a-zA-Z0-9_-]+)$/');
            sort($searched_list);

            $searched_count = count($searched_list);
            if(!$searched_count) return;

            for($i=0;$i<$searched_count;$i++) {
                // module name
                $module_name = $searched_list[$i];

                $path = ModuleHandler::getModulePath($module_name);
				if(!is_dir(FileHandler::getRealPath($path))) continue;

                // Get the number of xml files to create a table in schemas
                $tmp_files = FileHandler::readDir($path."schemas", '/(\.xml)$/');
                $table_count = count($tmp_files);
                // Check if the table is created
                $created_table_count = 0;
                for($j=0;$j<count($tmp_files);$j++) {
                    list($table_name) = explode(".",$tmp_files[$j]);
                    if($oDB->isTableExists($table_name)) $created_table_count ++;
                }
                // Get information of the module
                $info = $this->getModuleInfoXml($module_name);
                unset($obj);

                $info->module = $module_name;
                $info->category = $info->category;
                $info->created_table_count = $created_table_count;
                $info->table_count = $table_count;
                $info->path = $path;
                $info->admin_index_act = $info->admin_index_act;
                // Check if DB is installed
                if($table_count > $created_table_count) $info->need_install = true;
                else $info->need_install = false;
                // Check if it is upgraded to module.class.php on each module
                $oDummy = null;
                $oDummy = &getModule($module_name, 'class');
                if($oDummy && method_exists($oDummy, "checkUpdate")) {
                    $info->need_update = $oDummy->checkUpdate();
                }
                else
                {
                    continue;
                }

                $list[] = $info;
            }
            return $list;
        }

        /**
         * @brief Combine module_srls with domain of sites
         * Because XE DBHandler doesn't support left outer join,
         * it should be as same as $Output->data[]->module_srl.
         **/
        function syncModuleToSite(&$data) {
            if(!$data) return;

            if(is_array($data)) {
                foreach($data as $key => $val) {
                    $module_srls[] = $val->module_srl;
                }
                if(!count($module_srls)) return;
            } else {
                $module_srls[] = $data->module_srl;
            }

            $args->module_srls = implode(',',$module_srls);
            $output = executeQueryArray('module.getModuleSites', $args);
            if(!$output->data) return array();
            foreach($output->data as $key => $val) {
                $modules[$val->module_srl] = $val;
            }

            if(is_array($data)) {
                foreach($data as $key => $val) {
                    $data[$key]->domain = $modules[$val->module_srl]->domain;
                }
            } else {
                $data->domain = $modules[$data->module_srl]->domain;
            }
        }

        /**
         * @brief Check if it is an administrator of site_module_info
         **/
        function isSiteAdmin($member_info, $site_srl = null) {
            if(!$member_info->member_srl) return false;
            if($member_info->is_admin == 'Y') return true;

            if(!isset($site_srl))
            {
                $site_module_info = Context::get('site_module_info');
                if(!$site_module_info) return;
                $args->site_srl = $site_module_info->site_srl;
            }
            else
            {
                $args->site_srl = $site_srl;
            }

            $args->member_srl = $member_info->member_srl;
            $output = executeQuery('module.isSiteAdmin', $args);
            if($output->data->member_srl == $args->member_srl) return true;
            return false;

        }

        /**
         * @brief Get admin information of the site
         **/
        function getSiteAdmin($site_srl) {
            $args->site_srl = $site_srl;
            $output = executeQueryArray('module.getSiteAdmin', $args);
            return $output->data;
        }

        /**
         * @brief Get admin ID of the module
         **/
        function getAdminId($module_srl) {
            $obj->module_srl = $module_srl;
            $output = executeQueryArray('module.getAdminID', $obj);
            if(!$output->toBool() || !$output->data) return;

            return $output->data;
        }

        /**
         * @brief Get extra vars of the module
         * Extra information, not in the modules table
         **/
        function getModuleExtraVars($module_srl) {
            if(is_array($module_srl)) $module_srl = implode(',',$module_srl);
            $args->module_srl = $module_srl;
            $output = executeQueryArray('module.getModuleExtraVars',$args);
            if(!$output->toBool() || !$output->data) return;

            $vars = array();
            foreach($output->data as $key => $val) {
                if(in_array($val->name, array('mid','module')) || $val->value == 'Array') continue;
                $vars[$val->module_srl]->{$val->name} = $val->value;
            }
            return $vars;
        }

        /**
         * @brief Get skin information of the module
         **/
        function getModuleSkinVars($module_srl) {
            $args->module_srl = $module_srl;
            $output = executeQueryArray('module.getModuleSkinVars',$args);
            if(!$output->toBool() || !$output->data) return;

            $skin_vars = array();
            foreach($output->data as $val) $skin_vars[$val->name] = $val;
            return $skin_vars;
        }

        /**
         * @brief Combine skin information with module information
         **/
        function syncSkinInfoToModuleInfo(&$module_info) {
            if(!$module_info->module_srl) return;

            $args->module_srl = $module_info->module_srl;
            $output = executeQueryArray('module.getModuleSkinVars',$args);
            if(!$output->toBool() || !$output->data) return;

            foreach($output->data as $val) {
                if(isset($module_info->{$val->name})) continue;
                $module_info->{$val->name} = $val->value;
            }
        }

        /**
         * @brief Return permission by using module info, xml info and member info
         **/
        function getGrant($module_info, $member_info, $xml_info = '') {
            if(!$xml_info) {
                $module = $module_info->module;
                $xml_info = $this->getModuleActionXml($module);
            }
            // Set variables to grant group permission
            $module_srl = $module_info->module_srl;
            $grant_info = $xml_info->grant;
            if($member_info->member_srl) {
                if(is_array($member_info->group_list)) $group_list = array_keys($member_info->group_list);
                else $group_list = array();
            } else {
                $group_list = array();
            }
            // If module_srl doesn't exist(if unable to set permissions)
            if(!$module_srl) {
                $grant->access = true;
                if($this->isSiteAdmin($member_info, $module_info->site_srl)) $grant->access = $grant->is_admin = $grant->manager = $grant->is_site_admin = true;
                else $grant->is_admin = $grant->manager = $member_info->is_admin=='Y'?true:false;
            // If module_srl exists
            } else {
                // Get a type of granted permission
                $grant->access = $grant->is_admin = $grant->manager = $grant->is_site_admin = ($member_info->is_admin=='Y'||$this->isSiteAdmin($member_info, $module_info->site_srl))?true:false;
                // If a just logged-in member is, check if the member is a module administrator
                if(!$grant->manager && $member_info->member_srl) {
                    $args->module_srl = $module_srl;
                    $args->member_srl = $member_info->member_srl;
                    $output = executeQuery('module.getModuleAdmin',$args);
                    if($output->data && $output->data->member_srl == $member_info->member_srl) $grant->manager = $grant->is_admin = true;
                }
                // If not an administrator, get information from the DB and grant manager privilege.
                if(!$grant->manager) {
                    $args = null;
                    // If planet, get permission settings from the planet home
                    if ($module_info->module == 'planet') {
                        $output = executeQueryArray('module.getPlanetGrants', $args);
                    }
                    else {
                        $args->module_srl = $module_srl;
                        $output = executeQueryArray('module.getModuleGrants', $args);
                    }

                    $grant_exists = $granted = array();

                    if($output->data) {
                        // Arrange names and groups who has privileges
                        foreach($output->data as $val) {
                            $grant_exists[$val->name] = true;
                            if($granted[$val->name]) continue;
                            // Log-in member only
                            if($val->group_srl == -1) {
                                $granted[$val->name] = true;
                                if($member_info->member_srl) $grant->{$val->name} = true;
                            // Site-joined member only
                            } elseif($val->group_srl == -2) {
                                $granted[$val->name] = true;
                                // Do not grant any permission for non-logged member
                                if(!$member_info->member_srl) $grant->{$val->name} = false;
                                // Log-in member
                                else {
                                    $site_module_info = Context::get('site_module_info');
                                    // Permission granted if no information of the currently connected site exists
                                    if(!$site_module_info->site_srl) $grant->{$val->name} = true;
                                    // Permission is not granted if information of the currently connected site exists
                                    elseif(count($group_list)) $grant->{$val->name} = true;
                                }
                            // All of non-logged members
                            } elseif($val->group_srl == 0) {
                                $granted[$val->name] = true;
                                $grant->{$val->name} = true;
                            // If a target is a group
                            } else {
                                if($group_list && count($group_list) && in_array($val->group_srl, $group_list)) {
                                    $grant->{$val->name} = true;
                                    $granted[$val->name] = true;
                                }
                            }
                        }
                    }
                    // Separate processing for the virtual group access
                    if(!$grant_exists['access']) $grant->access = true;
                    if(count($grant_info)) {
                        foreach($grant_info as  $grant_name => $grant_item) {
                            if($grant_exists[$grant_name]) continue;
                            switch($grant_item->default) {
                                case 'guest' :
                                        $grant->{$grant_name} = true;
                                    break;
                                case 'member' :
                                        if($member_info->member_srl) $grant->{$grant_name} = true;
                                        else $grant->{$grant_name} = false;
                                    break;
                                case 'site' :
                                        $site_module_info = Context::get('site_module_info');
                                        if($member_info->member_srl && (($site_module_info->site_srl && count($group_list)) || !$site_module_info->site_srl)) $grant->{$grant_name} = true;
                                        else $grant->{$grant_name} = false;
                                    break;
                                case 'manager' :
                                case 'root' :
                                        if($member_info->is_admin == 'Y') $grant->{$grant_name} = true;
                                        else $grant->{$grant_name} = false;
                                    break;
                            }
                        }
                    }
                }
                // Set true to grant all privileges if an administrator is
                if($grant->manager) {
                    $grant->access = true;
                    if(count($grant_info)) {
                        foreach($grant_info as $key => $val) {
                            $grant->{$key} = true;
                        }
                    }
                }

            }
            return $grant;
        }

        function getModuleFileBox($module_filebox_srl){
            $args->module_filebox_srl = $module_filebox_srl;
            return executeQuery('module.getModuleFileBox', $args);
        }

        function getModuleFileBoxList(){
            $args->page = Context::get('page');
            $args->list_count = 5;
            $args->page_count = 5;
            return executeQuery('module.getModuleFileBoxList', $args);
        }

		function getFileBoxListHtml()
		{
			$logged_info = Context::get('logged_info');
			if($logged_info->is_admin !='Y' && !$logged_info->is_site_admin) return new Object(-1, 'msg_not_permitted');

			$oModuleModel = &getModel('module');
			$output = $oModuleModel->getModuleFileBoxList();
			Context::set('filebox_list', $output->data);

			$page = Context::get('page');
			if (!$page) $page = 1;
			Context::set('page', $page);
			Context::set('page_navigation', $output->page_navigation);

			$security = new Security();
			$security->encodeHTML('filebox_list..comment');

			$oTemplate = &TemplateHandler::getInstance();
			$html = $oTemplate->compile('./modules/module/tpl/', 'filebox_list_html');

			$this->add('html', $html);
		}

        function getModuleFileBoxPath($module_filebox_srl){
            return sprintf("./files/attach/filebox/%s",getNumberingPath($module_filebox_srl,3));
        }

        /**
         * @brief Return ruleset cache file path
		 * @param module, act
         **/
        function getValidatorFilePath($module, $ruleset) {
			// load dynamic ruleset xml file
			if (strpos($ruleset, '@') !== false){
				$rulsetFile = str_replace('@', '', $ruleset);
				$xml_file = sprintf('./files/ruleset/%s.xml', $rulsetFile);
				return FileHandler::getRealPath($xml_file);
			}
            // Get a path of the requested module. Return if not exists.
            $class_path = ModuleHandler::getModulePath($module);
            if(!$class_path) return;

            // Check if module.xml exists in the path. Return if not exist
            $xml_file = sprintf("%sruleset/%s.xml", $class_path, $ruleset);
            if(!file_exists($xml_file)) return;

			return $xml_file;
        }

		function getLangListByLangcodeForAutoComplete() {
			$keyword = Context::get('search_keyword');

			$requestVars = Context::getRequestVars();

            $args->site_srl = (int)$requestVars->site_srl;
            $args->page = 1; // /< Page
            $args->list_count = 100; // /< the number of posts to display on a single page
            $args->page_count = 5; // /< the number of pages that appear in the page navigation
            $args->sort_index = 'name';
            $args->order_type = 'asc';
            $args->search_keyword = Context::get('search_keyword'); // /< keyword to search*/

            $output = executeQueryArray('module.getLangListByLangcode', $args);

			$list = array();

			if($output->toBool()){
				foreach($output->data as $code_info){
					unset($codeInfo);
					$codeInfo = array('name'=>'$user_lang->'.$code_info->name, 'value'=>$code_info->value);
					$list[] = $codeInfo;
				}
			}
			$this->add('results', $list);
		}
    }
?>