htdocs/install/modulesadmin.php
<?php
/**
* Installer tables creation page
*
* See the enclosed file license.txt for licensing information.
* If you did not receive this file, get it at http://www.fsf.org/copyleft/gpl.html
*
* @copyright The ImpressCMS project http://www.impresscms.org/
* @license http://www.fsf.org/copyleft/gpl.html GNU General Public License (GPL)
* @package installer
* @since 1.0
* @author Kazumi Ono (AKA onokazu)
* @author RpLima
* @author Martijn Hertog (AKA wtravel) <martin@efqconsultancy.com>
* @version $Id: modulesadmin.php 12426 2014-02-24 16:19:49Z fiammy $
*/
/**
*
*/
icms_loadLanguageFile('system', 'modulesadmin', true);
function xoops_module_install($dirname) {
$dirname = trim($dirname);
$db =& icms_db_Factory::instance();
$reservedTables = array('avatar', 'avatar_users_link', 'block_module_link', 'xoopscomments', 'config', 'configcategory', 'configoption', 'image', 'imagebody', 'imagecategory', 'imgset', 'imgset_tplset_link', 'imgsetimg', 'groups','groups_users_link','group_permission', 'online', 'priv_msgs', 'ranks', 'session', 'smiles', 'users', 'newblocks', 'modules', 'tplfile', 'tplset', 'tplsource', 'xoopsnotifications');
$module_handler = icms::handler('icms_module');
if ($module_handler->getCount(new icms_db_criteria_Item('dirname', $dirname)) == 0) {
$module =& $module_handler->create();
$module->loadInfoAsVar($dirname);
$module->registerClassPath();
$module->setVar('weight', 1);
$error = false;
$errs = array();
$sqlfile =& $module->getInfo('sqlfile');
$msgs = array();
$msgs[] = '<h4 style="text-align:'._GLOBAL_LEFT.';margin-bottom: 0px;border-bottom: dashed 1px #000000;">Installing '.$module->getInfo('name').'</h4>';
if ($module->getInfo('image') != false && trim($module->getInfo('image')) != '') {
$msgs[] ='<img src="'.XOOPS_URL.'/modules/'.$dirname.'/'.trim($module->getInfo('image')).'" alt="" />';
}
$msgs[] ='<b>Version:</b> '.icms_conv_nr2local($module->getInfo('version'));
if ($module->getInfo('author') != false && trim($module->getInfo('author')) != '') {
$msgs[] ='<b>Author:</b> '.trim($module->getInfo('author'));
}
$msgs[] = '';
$errs[] = '<h4 style="text-align:'._GLOBAL_LEFT.';margin-bottom: 0px;border-bottom: dashed 1px #000000;">Installing '.$module->getInfo('name').'</h4>';
if ($sqlfile != false && is_array($sqlfile)) {
// handle instances when XOOPS_DB_TYPE includes 'pdo.'
if (substr(XOOPS_DB_TYPE, 0, 4) == 'pdo.') {
$driver = substr(XOOPS_DB_TYPE, 4);
} else {
$driver = XOOPS_DB_TYPE;
}
$sql_file_path = ICMS_ROOT_PATH."/modules/".$dirname."/".$sqlfile[$driver];
if (!file_exists($sql_file_path)) {
$errs[] = "SQL file not found at <b>$sql_file_path</b>";
$error = true;
} else {
$msgs[] = "SQL file found at <b>$sql_file_path</b>.<br /> Creating tables...";
$sql_query = fread(fopen($sql_file_path, 'r'), filesize($sql_file_path));
$sql_query = trim($sql_query);
icms_db_legacy_mysql_Utility::splitSqlFile($pieces, $sql_query);
$created_tables = array();
foreach ($pieces as $piece) {
// [0] contains the prefixed query
// [4] contains unprefixed table name
$prefixed_query = icms_db_legacy_mysql_Utility::prefixQuery($piece, $db->prefix());
if (!$prefixed_query) {
$errs[] = "<b>$piece</b> is not a valid SQL!";
$error = true;
break;
}
// check if the table name is reserved
if (!in_array($prefixed_query[4], $reservedTables)) {
// not reserved, so try to create one
if (!$db->query($prefixed_query[0])) {
$errs[] = $db->error();
$error = true;
break;
} else {
if (!in_array($prefixed_query[4], $created_tables)) {
$msgs[] = ' Table <b>'.$db->prefix($prefixed_query[4]).'</b> created.';
$created_tables[] = $prefixed_query[4];
} else {
$msgs[] = ' Data inserted to table <b>'.$db->prefix($prefixed_query[4]).'</b>.';
}
}
} else {
// the table name is reserved, so halt the installation
$errs[] = '<b>'.$prefixed_query[4]."</b> is a reserved table!";
$error = true;
break;
}
}
// if there was an error, delete the tables created so far, so the next installation will not fail
if ($error == true) {
foreach ($created_tables as $ct) {
//echo $ct;
$db->query("DROP TABLE ".$db->prefix($ct));
}
}
}
}
// if no error, save the module info and blocks info associated with it
if ($error == false) {
if (!$module_handler->insert($module)) {
$errs[] = 'Could not insert <b>'.$module->getVar('name').'</b> to database.';
foreach ($created_tables as $ct) {
$db->query("DROP TABLE ".$db->prefix($ct));
}
$ret = "<p>".sprintf(_MD_AM_FAILINS, "<b>".$module->name()."</b>")." "._MD_AM_ERRORSC."<br />";
foreach ( $errs as $err) {
$ret .= " - ".$err."<br />";
}
$ret .= "</p>";
unset($module);
unset($created_tables);
unset($errs);
unset($msgs);
return $ret;
} else {
$newmid = $module->getVar('mid');
unset($created_tables);
$msgs[] = 'Module data inserted successfully. Module ID: <b>'.icms_conv_nr2local($newmid).'</b>';
$tplfile_handler =& icms::handler('icms_view_template_file');
$templates = $module->getInfo('templates');
if ($templates != false) {
$msgs[] = 'Adding templates...';
foreach ($templates as $tpl) {
$tplfile =& $tplfile_handler->create();
$tpldata =& xoops_module_gettemplate($dirname, $tpl['file']);
$tplfile->setVar('tpl_source', $tpldata, true);
$tplfile->setVar('tpl_refid', $newmid);
$tplfile->setVar('tpl_tplset', 'default');
$tplfile->setVar('tpl_file', $tpl['file']);
$tplfile->setVar('tpl_desc', $tpl['description'], true);
$tplfile->setVar('tpl_module', $dirname);
$tplfile->setVar('tpl_lastmodified', time());
$tplfile->setVar('tpl_lastimported', 0);
$tplfile->setVar('tpl_type', 'module');
if (!$tplfile_handler->insert($tplfile)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_INSERT_FAIL.'</span>', '<strong>' . $tpl['file'] . '</strong>');
} else {
$newtplid = $tplfile->getVar('tpl_id');
$msgs[] = sprintf(' '._MD_AM_TEMPLATE_INSERTED, '<strong>' . $tpl['file'] . '</strong>', '<strong>' . $newtplid . '</strong>');
// generate compiled file
if (!icms_view_Tpl::template_touch($newtplid)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_COMPILE_FAIL.'</span>', '<strong>' . $tpl['file'] . '</strong>', '<strong>' . $newtplid . '</strong>');
} else {
$msgs[] = sprintf(' '._MD_AM_TEMPLATE_COMPILED, '<strong>' . $tpl['file'] . '</strong>');
}
}
unset($tpldata);
}
}
icms_view_Tpl::template_clear_module_cache($newmid);
$blocks = $module->getInfo('blocks');
if ($blocks != false) {
$msgs[] = 'Adding blocks...';
foreach ($blocks as $blockkey => $block) {
// break the loop if missing block config
if (!isset($block['file']) || !isset($block['show_func'])) {
break;
}
$options = '';
if (!empty($block['options'])) {
$options = trim($block['options']);
}
$newbid = $db->genId($db->prefix('newblocks').'_bid_seq');
$edit_func = isset($block['edit_func']) ? trim($block['edit_func']) : '';
$template = '';
if ((isset($block['template']) && trim($block['template']) != '')) {
$content =& xoops_module_gettemplate($dirname, $block['template'], true);
}
if (empty($content)) {
$content = '';
} else {
$template = trim($block['template']);
}
$block_name = addslashes(trim($block['name']));
$sql = "INSERT INTO ".$db->prefix("newblocks")." (bid, mid, func_num, options, name, title, content, side, weight, visible, block_type, c_type, isactive, dirname, func_file, show_func, edit_func, template, bcachetime, last_modified) VALUES ('". (int) ($newbid)."', '". (int) ($newmid)."', '". (int) ($blockkey)."', '$options', '".$block_name."','".$block_name."', '', '1', '0', '0', 'M', 'H', '1', '".addslashes($dirname)."', '".addslashes(trim($block['file']))."', '".addslashes(trim($block['show_func']))."', '".addslashes($edit_func)."', '".$template."', '0', '".time()."')";
if (!$db->query($sql)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not add block <b>'.$block['name'].'</b> to the database! Database error: <b>'.$db->error().'</b></span>';
} else {
if (empty($newbid)) {
$newbid = $db->getInsertId();
}
$msgs[] = ' Block <b>'.$block['name'].'</b> added. Block ID: <b>'.icms_conv_nr2local($newbid).'</b>';
$sql = 'INSERT INTO '.$db->prefix('block_module_link').' (block_id, module_id,page_id) VALUES ('. (int) ($newbid).', 0,1)';
$db->query($sql);
if ($template != '') {
$tplfile =& $tplfile_handler->create();
$tplfile->setVar('tpl_refid', $newbid);
$tplfile->setVar('tpl_source', $content, true);
$tplfile->setVar('tpl_tplset', 'default');
$tplfile->setVar('tpl_file', $block['template']);
$tplfile->setVar('tpl_module', $dirname);
$tplfile->setVar('tpl_type', 'block');
$tplfile->setVar('tpl_desc', $block['description'], true);
$tplfile->setVar('tpl_lastimported', 0);
$tplfile->setVar('tpl_lastmodified', time());
if (!$tplfile_handler->insert($tplfile)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_INSERT_FAIL.'</span>', '<strong>' . $block['template'] . '</strong>');
} else {
$newtplid = $tplfile->getVar('tpl_id');
$msgs[] = ' Template <b>'.$block['template'].'</b> added to the database. (ID: <b>'.icms_conv_nr2local($newtplid).'</b>)';
// generate compiled file
if (!icms_view_Tpl::template_touch($newtplid)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Failed compiling template <b>'.$block['template'].'</b>.</span>';
} else {
$msgs[] = ' Template <b>'.$block['template'].'</b> compiled.</span>';
}
}
}
}
unset($content);
}
unset($blocks);
}
$configs = $module->getInfo('config');
if ($configs != false) {
if ($module->getVar('hascomments') != 0) {
include_once ICMS_ROOT_PATH.'/include/comment_constants.php' ;
array_push($configs, array('name' => 'com_rule', 'title' => '_CM_COMRULES', 'description' => '', 'formtype' => 'select', 'valuetype' => 'int', 'default' => 1, 'options' => array('_CM_COMNOCOM' => XOOPS_COMMENT_APPROVENONE, '_CM_COMAPPROVEALL' => XOOPS_COMMENT_APPROVEALL, '_CM_COMAPPROVEUSER' => XOOPS_COMMENT_APPROVEUSER, '_CM_COMAPPROVEADMIN' => XOOPS_COMMENT_APPROVEADMIN)));
array_push($configs, array('name' => 'com_anonpost', 'title' => '_CM_COMANONPOST', 'description' => '', 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 0));
}
} else {
if ($module->getVar('hascomments') != 0) {
$configs = array();
include_once ICMS_ROOT_PATH.'/include/comment_constants.php' ;
$configs[] = array('name' => 'com_rule', 'title' => '_CM_COMRULES', 'description' => '', 'formtype' => 'select', 'valuetype' => 'int', 'default' => 1, 'options' => array('_CM_COMNOCOM' => XOOPS_COMMENT_APPROVENONE, '_CM_COMAPPROVEALL' => XOOPS_COMMENT_APPROVEALL, '_CM_COMAPPROVEUSER' => XOOPS_COMMENT_APPROVEUSER, '_CM_COMAPPROVEADMIN' => XOOPS_COMMENT_APPROVEADMIN));
$configs[] = array('name' => 'com_anonpost', 'title' => '_CM_COMANONPOST', 'description' => '', 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 0);
}
}
// RMV-NOTIFY
if ($module->getVar('hasnotification') != 0) {
if (empty($configs)) {
$configs = array();
}
// Main notification options
include_once ICMS_ROOT_PATH . '/include/notification_constants.php';
include_once ICMS_ROOT_PATH . '/include/notification_functions.php';
$options = array();
$options['_NOT_CONFIG_DISABLE'] = XOOPS_NOTIFICATION_DISABLE;
$options['_NOT_CONFIG_ENABLEBLOCK'] = XOOPS_NOTIFICATION_ENABLEBLOCK;
$options['_NOT_CONFIG_ENABLEINLINE'] = XOOPS_NOTIFICATION_ENABLEINLINE;
$options['_NOT_CONFIG_ENABLEBOTH'] = XOOPS_NOTIFICATION_ENABLEBOTH;
//$configs[] = array ('name' => 'notification_enabled', 'title' => '_NOT_CONFIG_ENABLED', 'description' => '_NOT_CONFIG_ENABLEDDSC', 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 1);
$configs[] = array ('name' => 'notification_enabled', 'title' => '_NOT_CONFIG_ENABLE', 'description' => '_NOT_CONFIG_ENABLEDSC', 'formtype' => 'select', 'valuetype' => 'int', 'default' => XOOPS_NOTIFICATION_ENABLEBOTH, 'options' => $options);
// Event-specific notification options
// FIXME: doesn't work when update module... can't read back the array of options properly... " changing to "
$options = array();
$categories =& icms_data_notification_Handler::categoryInfo('',$module->getVar('mid'));
foreach ($categories as $category) {
$events =& icms_data_notification_Handler::categoryEvents($category['name'], false, $module->getVar('mid'));
foreach ($events as $event) {
if (!empty($event['invisible'])) {
continue;
}
$option_name = $category['title'] . ' : ' . $event['title'];
$option_value = $category['name'] . '-' . $event['name'];
$options[$option_name] = $option_value;
}
}
$configs[] = array ('name' => 'notification_events', 'title' => '_NOT_CONFIG_EVENTS', 'description' => '_NOT_CONFIG_EVENTSDSC', 'formtype' => 'select_multi', 'valuetype' => 'array', 'default' => array_values($options), 'options' => $options);
}
if ($configs != false) {
$msgs[] = 'Adding module config data...';
$config_handler = icms::handler('icms_config');
$order = 0;
foreach ($configs as $config) {
$confobj =& $config_handler->createConfig();
$confobj->setVar('conf_modid', $newmid);
$confobj->setVar('conf_catid', 0);
$confobj->setVar('conf_name', $config['name']);
$confobj->setVar('conf_title', $config['title'], true);
$confobj->setVar('conf_desc', $config['description'], true);
$confobj->setVar('conf_formtype', $config['formtype']);
$confobj->setVar('conf_valuetype', $config['valuetype']);
$confobj->setConfValueForInput($config['default'], true);
//$confobj->setVar('conf_value', $config['default'], true);
$confobj->setVar('conf_order', $order);
$confop_msgs = '';
if (isset($config['options']) && is_array($config['options'])) {
foreach ($config['options'] as $key => $value) {
$confop =& $config_handler->createConfigOption();
$confop->setVar('confop_name', $key, true);
$confop->setVar('confop_value', $value, true);
$confobj->setConfOptions($confop);
$confop_msgs .= '<br /> Config option added. Name: <b>'.$key.'</b> Value: <b>'.$value.'</b>';
unset($confop);
}
}
$order++;
if ($config_handler->insertConfig($confobj) != false) {
$msgs[] = ' Config <b>'.$config['name'].'</b> added to the database.'.$confop_msgs;
} else {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not insert config <b>'.$config['name'].'</b> to the database.</span>';
}
unset($confobj);
}
unset($configs);
}
}
if ($module->getInfo('hasMain')) {
$groups = array(XOOPS_GROUP_ADMIN, XOOPS_GROUP_USERS, XOOPS_GROUP_ANONYMOUS);
} else {
$groups = array(XOOPS_GROUP_ADMIN);
}
// retrieve all block ids for this module
$icms_block_handler = icms::handler('icms_view_block');
$blocks =& $icms_block_handler->getByModule($newmid, false);
$msgs[] = 'Setting group rights...';
$gperm_handler = icms::handler('icms_member_groupperm');
foreach ($groups as $mygroup) {
if ($gperm_handler->checkRight('module_admin', 0, $mygroup)) {
$mperm =& $gperm_handler->create();
$mperm->setVar('gperm_groupid', $mygroup);
$mperm->setVar('gperm_itemid', $newmid);
$mperm->setVar('gperm_name', 'module_admin');
$mperm->setVar('gperm_modid', 1);
if (!$gperm_handler->insert($mperm)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not add admin access right for Group ID <b>'.icms_conv_nr2local($mygroup).'</b></span>';
} else {
$msgs[] = ' Added admin access right for Group ID <b>'.icms_conv_nr2local($mygroup).'</b>';
}
unset($mperm);
}
$mperm =& $gperm_handler->create();
$mperm->setVar('gperm_groupid', $mygroup);
$mperm->setVar('gperm_itemid', $newmid);
$mperm->setVar('gperm_name', 'module_read');
$mperm->setVar('gperm_modid', 1);
if (!$gperm_handler->insert($mperm)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not add user access right for Group ID: <b>'.icms_conv_nr2local($mygroup).'</b></span>';
} else {
$msgs[] = ' Added user access right for Group ID: <b>'.icms_conv_nr2local($mygroup).'</b>';
}
unset($mperm);
foreach ($blocks as $blc) {
$bperm =& $gperm_handler->create();
$bperm->setVar('gperm_groupid', $mygroup);
$bperm->setVar('gperm_itemid', $blc);
$bperm->setVar('gperm_name', 'block_read');
$bperm->setVar('gperm_modid', 1);
if (!$gperm_handler->insert($bperm)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not add block access right. Block ID: <b>'.icms_conv_nr2local($blc).'</b> Group ID: <b>'.icms_conv_nr2local($mygroup).'</b></span>';
} else {
$msgs[] = ' Added block access right. Block ID: <b>'.icms_conv_nr2local($blc).'</b> Group ID: <b>'.icms_conv_nr2local($mygroup).'</b>';
}
unset($bperm);
}
}
unset($blocks);
unset($groups);
// add module specific tasks to system autotasks list
$atasks = $module->getInfo('autotasks');
$atasks_handler = &icms_getModuleHandler('autotasks', 'system');
if (isset($atasks) && is_array($atasks)) {
foreach ($atasks as $taskID => $taskData) {
$task = &$atasks_handler->create();
if (isset($taskData['enabled'])) $task->setVar('sat_enabled', $taskData['enabled']);
if (isset($taskData['repeat'])) $task->setVar('sat_repeat', $taskData['repeat']);
if (isset($taskData['interval'])) $task->setVar('sat_interval', $taskData['interval']);
if (isset($taskData['onfinish'])) $task->setVar('sat_onfinish', $taskData['onfinish']);
$task->setVar('sat_name', $taskData['name']);
$task->setVar('sat_code', $taskData['code']);
$task->setVar('sat_type', 'addon/'.$module->getInfo('dirname'));
$task->setVar('sat_addon_id', (int) ($taskID));
if (!($atasks_handler->insert($task))) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not insert autotask to db. Name: <b>'.$taskData['name'].'</b></span>';
} else {
$msgs[] = ' Added task to autotasks list. Task Name: <b>'.$taskData['name'].'</b>';
}
}
}
unset($atasks, $atasks_handler, $task, $taskData, $criteria, $items, $taskID);
// execute module specific install script if any
$install_script = $module->getInfo('onInstall');
$ModName = ($module->getInfo('modname') != '') ? trim($module->getInfo('modname')) : $dirname;
if (false != $install_script && trim($install_script) != '') {
include_once ICMS_ROOT_PATH.'/modules/'.$dirname.'/'.trim($install_script);
$is_IPF = $module->getInfo('object_items');
if (!empty($is_IPF)) {
$icmsDatabaseUpdater = icms_db_legacy_Factory::getDatabaseUpdater();
$icmsDatabaseUpdater->moduleUpgrade($module, true);
foreach ($icmsDatabaseUpdater->_messages as $msg) {
$msgs[] = $msg;
}
}
if (function_exists('xoops_module_install_'.$ModName)) {
$func = 'xoops_module_install_'.$ModName;
if (!( $lastmsg = $func($module) )) {
$msgs[] = sprintf(_MD_AM_FAIL_EXEC, '<strong>' . $func . '</strong>');
} else {
$msgs[] = sprintf(_MD_AM_FUNCT_EXEC, '<strong>' . $func . '</strong>');
if (is_string( $lastmsg )) {
$msgs[] = $lastmsg;
}
}
} elseif (function_exists('icms_module_install_'.$ModName)) {
$func = 'icms_module_install_'.$ModName;
if (!( $lastmsg = $func($module) )) {
$msgs[] = sprintf(_MD_AM_FAIL_EXEC, '<strong>' . $func . '</strong>');
} else {
$msgs[] = sprintf(_MD_AM_FUNCT_EXEC, '<strong>' . $func . '</strong>');
if (is_string( $lastmsg )) {
$msgs[] = $lastmsg;
}
}
}
}
$ret = '<p><code>';
foreach ($msgs as $m) {
$ret .= $m.'<br />';
}
unset($msgs);
unset($errs);
$ret .= '</code><br />'.sprintf(_MD_AM_OKINS, "<b>".$module->getVar('name')."</b>").'</p>';
unset($module);
return $ret;
} else {
$ret = '<p>';
foreach ($errs as $er) {
$ret .= ' '.$er.'<br />';
}
unset($msgs);
unset($errs);
$ret .= '<br />'.sprintf(_MD_AM_FAILINS, '<b>'.$dirname.'</b>').' '._MD_AM_ERRORSC.'</p>';
return $ret;
}
}
else {
return "<p>".sprintf(_MD_AM_FAILINS, "<b>".$dirname."</b>")." "._MD_AM_ERRORSC."<br /> ".sprintf(_MD_AM_ALEXISTS, $dirname)."</p>";
}
}
function &xoops_module_gettemplate($dirname, $template, $block=false) {
$ret = '';
if ($block) {
$path = ICMS_ROOT_PATH.'/modules/'.$dirname.'/templates/blocks/'.$template;
} else {
$path = ICMS_ROOT_PATH.'/modules/'.$dirname.'/templates/'.$template;
}
if (!file_exists($path)) {
return $ret;
} else {
$lines = file($path);
}
if (!$lines) {
return $ret;
}
$count = count($lines);
for ($i = 0; $i < $count; $i++) {
$ret .= str_replace("\n", "\r\n", str_replace("\r\n", "\n", $lines[$i]));
}
return $ret;
}
function icms_module_update($dirname) {
$dirname = trim($dirname);
$db =& icms_db_Factory::instance();
$module_handler = icms::handler('icms_module');
$module =& $module_handler->getByDirname($dirname);
// Save current version for use in the update function
$prev_version = $module->getVar('version');
$prev_dbversion = $module->getVar('dbversion');
xoops_template_clear_module_cache($module->getVar('mid'));
// we dont want to change the module name set by admin
$temp_name = $module->getVar('name');
$module->loadInfoAsVar($dirname);
$module->setVar('name', $temp_name);
if (!$module_handler->insert($module)) {
echo '<p>Could not update '.$module->getVar('name').'</p>';
echo "<br /><a href='admin.php?fct=modulesadmin'>"._MD_AM_BTOMADMIN."</a>";
} else {
$newmid = $module->getVar('mid');
$msgs = array();
$msgs[] = _MD_AM_MOD_DATA_UPDATED;
$tplfile_handler =& icms::handler('icms_view_template_file');
$deltpl =& $tplfile_handler->find('default', 'module', $module->getVar('mid'));
$delng = array();
if (is_array($deltpl)) {
$xoopsDelTpl = new icms_view_Tpl();
// clear cache files
$xoopsDelTpl->clear_cache(null, 'mod_'.$dirname);
// delete template file entry in db
$dcount = count($deltpl);
for ($i = 0; $i < $dcount; $i++) {
if (!$tplfile_handler->delete($deltpl[$i])) {
$delng[] = $deltpl[$i]->getVar('tpl_file');
}
}
}
$templates = $module->getInfo('templates');
if ($templates != false) {
$msgs[] = _MD_AM_MOD_UP_TEM;
foreach ($templates as $tpl) {
$tpl['file'] = trim($tpl['file']);
if (!in_array($tpl['file'], $delng)) {
$tpldata =& xoops_module_gettemplate($dirname, $tpl['file']);
$tplfile =& $tplfile_handler->create();
$tplfile->setVar('tpl_refid', $newmid);
$tplfile->setVar('tpl_lastimported', 0);
$tplfile->setVar('tpl_lastmodified', time());
if (preg_match("/\.css$/i", $tpl['file'])) {
$tplfile->setVar('tpl_type', 'css');
} else {
$tplfile->setVar('tpl_type', 'module');
}
$tplfile->setVar('tpl_source', $tpldata, true);
$tplfile->setVar('tpl_module', $dirname);
$tplfile->setVar('tpl_tplset', 'default');
$tplfile->setVar('tpl_file', $tpl['file'], true);
$tplfile->setVar('tpl_desc', $tpl['description'], true);
if (!$tplfile_handler->insert($tplfile)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_INSERT_FAIL.'</span>', '<strong>' . $tpl['file'] . '</strong>');
} else {
$newid = $tplfile->getVar('tpl_id');
$msgs[] = sprintf(' <span>'._MD_AM_TEMPLATE_INSERTED.'</span>', '<strong>' . $tpl['file'] . '</strong>', '<strong>' . $newid . '</strong>');
if ($icmsConfig['template_set'] == 'default') {
if (!icms_view_Tpl::template_touch($newid)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_RECOMPILE_FAIL.'</span>', '<strong>' . $tpl['file'] . '</strong>');
} else {
$msgs[] = sprintf(' <span>'._MD_AM_TEMPLATE_RECOMPILED.'</span>', '<strong>' . $tpl['file'] . '</strong>');
}
}
}
unset($tpldata);
} else {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_DELETE_FAIL.'</span>', $tpl['file']);
}
}
}
$blocks = $module->getInfo('blocks');
$msgs[] = _MD_AM_MOD_REBUILD_BLOCKS;
if ($blocks != false) {
$count = count($blocks);
$showfuncs = array();
$funcfiles = array();
for ( $i = 1; $i <= $count; $i++) {
if (isset($blocks[$i]['show_func']) && $blocks[$i]['show_func'] != '' && isset($blocks[$i]['file']) && $blocks[$i]['file'] != '') {
$editfunc = isset($blocks[$i]['edit_func']) ? $blocks[$i]['edit_func'] : '';
$showfuncs[] = $blocks[$i]['show_func'];
$funcfiles[] = $blocks[$i]['file'];
$template = '';
if ((isset($blocks[$i]['template']) && trim($blocks[$i]['template']) != '')) {
$content =& xoops_module_gettemplate($dirname, $blocks[$i]['template'], true);
}
if (!$content) {
$content = '';
} else {
$template = $blocks[$i]['template'];
}
$options = '';
if (!empty($blocks[$i]['options'])) {
$options = $blocks[$i]['options'];
}
$sql = "SELECT bid, name FROM ".$db->prefix('newblocks')." WHERE mid='". (int) ($module->getVar('mid'))."' AND func_num='". (int) ($i)."' AND show_func='".addslashes($blocks[$i]['show_func'])."' AND func_file='".addslashes($blocks[$i]['file'])."'";
$fresult = $db->query($sql);
$fcount = 0;
while ($fblock = $db->fetchArray($fresult)) {
$fcount++;
$sql = "UPDATE ".$db->prefix("newblocks")." SET name='".addslashes($blocks[$i]['name'])."', edit_func='".addslashes($editfunc)."', content='', template='".$template."', last_modified=".time()." WHERE bid='". (int) ($fblock['bid'])."'";
$result = $db->query($sql);
if (!$result) {
$msgs[] = sprintf(' '._MD_AM_UPDATE_FAIL,$fblock['name']);
} else {
$msgs[] = sprintf(' '._MD_AM_BLOCK_UPDATED,
'<strong>' . $fblock['name'] . '</strong>',
'<strong>' . icms_conv_nr2local($fblock['bid']) . '</strong>');
if ($template != '') {
$tplfile =& $tplfile_handler->find('default', 'block', $fblock['bid']);
if (count($tplfile) == 0) {
$tplfile_new =& $tplfile_handler->create();
$tplfile_new->setVar('tpl_module', $dirname);
$tplfile_new->setVar('tpl_refid', (int) ($fblock['bid']));
$tplfile_new->setVar('tpl_tplset', 'default');
$tplfile_new->setVar('tpl_file', $blocks[$i]['template'], true);
$tplfile_new->setVar('tpl_type', 'block');
}
else {
$tplfile_new = $tplfile[0];
}
$tplfile_new->setVar('tpl_source', $content, true);
$tplfile_new->setVar('tpl_desc', $blocks[$i]['description'], true);
$tplfile_new->setVar('tpl_lastmodified', time());
$tplfile_new->setVar('tpl_lastimported', 0);
if (!$tplfile_handler->insert($tplfile_new)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_UPDATE_FAIL.'</span>', '<strong>' . $blocks[$i]['template'] . '</strong>');
} else {
$msgs[] = ' Template <b>'.$blocks[$i]['template'].'</b> updated.';
if ($icmsConfig['template_set'] == 'default') {
if (!icms_view_Tpl::template_touch($tplfile_new->getVar('tpl_id'))) {
$msgs[] = sprintf(' <span style="color:#ff0000;">'._MD_AM_TEMPLATE_RECOMPILE_FAIL.'</span>', '<strong>' . $blocks[$i]['template'] . '</strong>');
} else {
$msgs[] = sprintf(' '._MD_AM_TEMPLATE_RECOMPILED, '<strong>' . $blocks[$i]['template'] . '</strong>');
}
}
}
}
}
}
if ($fcount == 0) {
$newbid = $db->genId($db->prefix('newblocks').'_bid_seq');
$block_name = addslashes($blocks[$i]['name']);
$sql = "INSERT INTO ".$db->prefix("newblocks")." (bid, mid, func_num, options, name, title, content, side, weight, visible, block_type, c_type, isactive, dirname, func_file, show_func, edit_func, template, bcachetime, last_modified) VALUES ('". (int) ($newbid)."', '". (int) ($module->getVar('mid'))."', '". (int) ($i)."','".addslashes($options)."','".$block_name."', '".$block_name."', '', '1', '0', '0', 'M', 'H', '1', '".addslashes($dirname)."', '".addslashes($blocks[$i]['file'])."', '".addslashes($blocks[$i]['show_func'])."', '".addslashes($editfunc)."', '".$template."', '0', '".time()."')";
$result = $db->query($sql);
if (!$result) {
$msgs[] = ' ERROR: Could not create '.$blocks[$i]['name'];echo $sql;
} else {
if (empty($newbid)) {
$newbid = $db->getInsertId();
}
$groups =& icms::$user->getGroups();
$gperm_handler = icms::handler('icms_member_groupperm');
foreach ($groups as $mygroup) {
$bperm =& $gperm_handler->create();
$bperm->setVar('gperm_groupid', (int) ($mygroup));
$bperm->setVar('gperm_itemid', (int) ($newbid));
$bperm->setVar('gperm_name', 'block_read');
$bperm->setVar('gperm_modid', 1);
if (!$gperm_handler->insert($bperm)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not add block access right. Block ID: <b>'.$newbid.'</b> Group ID: <b>'.$mygroup.'</b></span>';
} else {
$msgs[] = ' Added block access right. Block ID: <b>'.$newbid.'</b> Group ID: <b>'.$mygroup.'</b>';
}
}
if ($template != '') {
$tplfile =& $tplfile_handler->create();
$tplfile->setVar('tpl_module', $dirname);
$tplfile->setVar('tpl_refid', (int) ($newbid));
$tplfile->setVar('tpl_source', $content, true);
$tplfile->setVar('tpl_tplset', 'default');
$tplfile->setVar('tpl_file', $blocks[$i]['template'], true);
$tplfile->setVar('tpl_type', 'block');
$tplfile->setVar('tpl_lastimported', 0);
$tplfile->setVar('tpl_lastmodified', time());
$tplfile->setVar('tpl_desc', $blocks[$i]['description'], true);
if (!$tplfile_handler->insert($tplfile)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not insert template <b>'.$blocks[$i]['template'].'</b> to the database.</span>';
} else {
$newid = $tplfile->getVar('tpl_id');
$msgs[] = ' Template <b>'.$blocks[$i]['template'].'</b> added to the database.';
if ($icmsConfig['template_set'] == 'default') {
if (!icms_view_Tpl::template_touch($newid)) {
$msgs[] = sprintf(' <span style="color:#ff0000;">' . _MD_AM_TEMPLATE_RECOMPILE_FAIL . '</span>', '<strong>' . $blocks[$i]['template'] . '</strong>');
} else {
$msgs[] = sprintf(' ' . _MD_AM_TEMPLATE_RECOMPILED, '<strong>' . $blocks[$i]['template'] . '</strong>');
}
}
}
}
$msgs[] = ' Block <b>'.$blocks[$i]['name'].'</b> created. Block ID: <b>'.$newbid.'</b>';
$sql = "INSERT INTO ".$db->prefix('block_module_link')." (block_id, module_id, page_id) VALUES ('". (int) ($newbid)."', '0', '1')";
$db->query($sql);
}
}
}
}
$icms_block_handler = icms::handler('icms_view_block');
$block_arr = $icms_block_handler->getByModule($module->getVar('mid'));
foreach ($block_arr as $block) {
if (!in_array($block->getVar('show_func'), $showfuncs) || !in_array($block->getVar('func_file'), $funcfiles)) {
$sql = sprintf("DELETE FROM %s WHERE bid = '%u'", $db->prefix('newblocks'), (int) ($block->getVar('bid')));
if (!$db->query($sql)) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not delete block <b>'.$block->getVar('name').'</b>. Block ID: <b>'.$block->getVar('bid').'</b></span>';
} else {
$msgs[] = ' Block <b>'.$block->getVar('name').' deleted. Block ID: <b>'.$block->getVar('bid').'</b>';
if ($block->getVar('template') != '') {
$tplfiles =& $tplfile_handler->find(null, 'block', $block->getVar('bid'));
if (is_array($tplfiles)) {
$btcount = count($tplfiles);
for ($k = 0; $k < $btcount; $k++) {
if (!$tplfile_handler->delete($tplfiles[$k])) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not remove deprecated block template. (ID: <b>'.$tplfiles[$k]->getVar('tpl_id').'</b>)</span>';
} else {
$msgs[] = ' Block template <b>'.$tplfiles[$k]->getVar('tpl_file').'</b> deprecated.';
}
}
}
}
}
}
}
}
// first delete all config entries
$config_handler = icms::handler('icms_config');
$configs =& $config_handler->getConfigs(new icms_db_criteria_Item('conf_modid', $module->getVar('mid')));
$confcount = count($configs);
$config_delng = array();
if ($confcount > 0) {
$msgs[] = 'Deleting module config options...';
for ($i = 0; $i < $confcount; $i++) {
if (!$config_handler->deleteConfig($configs[$i])) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not delete config data from the database. Config ID: <b>'.$configs[$i]->getvar('conf_id').'</b></span>';
// save the name of config failed to delete for later use
$config_delng[] = $configs[$i]->getvar('conf_name');
} else {
$config_old[$configs[$i]->getvar('conf_name')]['value'] = $configs[$i]->getvar('conf_value', 'N');
$config_old[$configs[$i]->getvar('conf_name')]['formtype'] = $configs[$i]->getvar('conf_formtype');
$config_old[$configs[$i]->getvar('conf_name')]['valuetype'] = $configs[$i]->getvar('conf_valuetype');
$msgs[] = ' Config data deleted from the database. Config ID: <b>'.$configs[$i]->getVar('conf_id').'</b>';
}
}
}
// now reinsert them with the new settings
$configs = $module->getInfo('config');
if ($configs != false) {
if ($module->getVar('hascomments') != 0) {
include_once ICMS_ROOT_PATH.'/include/comment_constants.php' ;
array_push($configs, array('name' => 'com_rule', 'title' => '_CM_COMRULES', 'description' => '', 'formtype' => 'select', 'valuetype' => 'int', 'default' => 1, 'options' => array('_CM_COMNOCOM' => XOOPS_COMMENT_APPROVENONE, '_CM_COMAPPROVEALL' => XOOPS_COMMENT_APPROVEALL, '_CM_COMAPPROVEUSER' => XOOPS_COMMENT_APPROVEUSER, '_CM_COMAPPROVEADMIN' => XOOPS_COMMENT_APPROVEADMIN)));
array_push($configs, array('name' => 'com_anonpost', 'title' => '_CM_COMANONPOST', 'description' => '', 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 0));
}
} else {
if ($module->getVar('hascomments') != 0) {
$configs = array();
include_once ICMS_ROOT_PATH.'/include/comment_constants.php' ;
$configs[] = array('name' => 'com_rule', 'title' => '_CM_COMRULES', 'description' => '', 'formtype' => 'select', 'valuetype' => 'int', 'default' => 1, 'options' => array('_CM_COMNOCOM' => XOOPS_COMMENT_APPROVENONE, '_CM_COMAPPROVEALL' => XOOPS_COMMENT_APPROVEALL, '_CM_COMAPPROVEUSER' => XOOPS_COMMENT_APPROVEUSER, '_CM_COMAPPROVEADMIN' => XOOPS_COMMENT_APPROVEADMIN));
$configs[] = array('name' => 'com_anonpost', 'title' => '_CM_COMANONPOST', 'description' => '', 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 0);
}
}
// RMV-NOTIFY
if ($module->getVar('hasnotification') != 0) {
if (empty($configs)) {
$configs = array();
}
// Main notification options
include_once ICMS_ROOT_PATH . '/include/notification_constants.php';
include_once ICMS_ROOT_PATH . '/include/notification_functions.php';
$options = array();
$options['_NOT_CONFIG_DISABLE'] = XOOPS_NOTIFICATION_DISABLE;
$options['_NOT_CONFIG_ENABLEBLOCK'] = XOOPS_NOTIFICATION_ENABLEBLOCK;
$options['_NOT_CONFIG_ENABLEINLINE'] = XOOPS_NOTIFICATION_ENABLEINLINE;
$options['_NOT_CONFIG_ENABLEBOTH'] = XOOPS_NOTIFICATION_ENABLEBOTH;
//$configs[] = array ('name' => 'notification_enabled', 'title' => '_NOT_CONFIG_ENABLED', 'description' => '_NOT_CONFIG_ENABLEDDSC', 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 1);
$configs[] = array ('name' => 'notification_enabled', 'title' => '_NOT_CONFIG_ENABLE', 'description' => '_NOT_CONFIG_ENABLEDSC', 'formtype' => 'select', 'valuetype' => 'int', 'default' => XOOPS_NOTIFICATION_ENABLEBOTH, 'options'=>$options);
// Event specific notification options
// FIXME: for some reason the default doesn't come up properly
// initially is ok, but not when 'update' module..
$options = array();
$categories =& icms_data_notification_Handler::categoryInfo('', $module->getVar('mid'));
foreach ($categories as $category) {
$events =& icms_data_notification_Handler::categoryEvents($category['name'], false, $module->getVar('mid'));
foreach ($events as $event) {
if (!empty($event['invisible'])) {
continue;
}
$option_name = $category['title'] . ' : ' . $event['title'];
$option_value = $category['name'] . '-' . $event['name'];
$options[$option_name] = $option_value;
//$configs[] = array ('name' => icms_data_notification_Handler::generateConfig($category,$event,'name'), 'title' => icms_data_notification_Handler::generateConfig($category,$event,'title_constant'), 'description' => icms_data_notification_Handler::generateConfig($category,$event,'description_constant'), 'formtype' => 'yesno', 'valuetype' => 'int', 'default' => 1);
}
}
$configs[] = array ('name' => 'notification_events', 'title' => '_NOT_CONFIG_EVENTS', 'description' => '_NOT_CONFIG_EVENTSDSC', 'formtype' => 'select_multi', 'valuetype' => 'array', 'default' => array_values($options), 'options' => $options);
}
if ($configs != false) {
$msgs[] = 'Adding module config data...';
$config_handler = icms::handler('icms_config');
$order = 0;
foreach ($configs as $config) {
// only insert ones that have been deleted previously with success
if (!in_array($config['name'], $config_delng)) {
$confobj =& $config_handler->createConfig();
$confobj->setVar('conf_modid', (int) ($newmid));
$confobj->setVar('conf_catid', 0);
$confobj->setVar('conf_name', $config['name']);
$confobj->setVar('conf_title', $config['title'], true);
$confobj->setVar('conf_desc', $config['description'], true);
$confobj->setVar('conf_formtype', $config['formtype']);
$confobj->setVar('conf_valuetype', $config['valuetype']);
if (isset($config_old[$config['name']]['value']) && $config_old[$config['name']]['formtype'] == $config['formtype'] && $config_old[$config['name']]['valuetype'] == $config['valuetype']) {
// preserver the old value if any
// form type and value type must be the same
$confobj->setVar('conf_value', $config_old[$config['name']]['value'], true);
} else {
$confobj->setConfValueForInput($config['default'], true);
//$confobj->setVar('conf_value', $config['default'], true);
}
$confobj->setVar('conf_order', $order);
$confop_msgs = '';
if (isset($config['options']) && is_array($config['options'])) {
foreach ($config['options'] as $key => $value) {
$confop =& $config_handler->createConfigOption();
$confop->setVar('confop_name', $key, true);
$confop->setVar('confop_value', $value, true);
$confobj->setConfOptions($confop);
$confop_msgs .= '<br /> Config option added. Name: <b>'.$key.'</b> Value: <b>'.$value.'</b>';
unset($confop);
}
}
$order++;
if (false != $config_handler->insertConfig($confobj)) {
$msgs[] = ' Config <b>'.$config['name'].'</b> added to the database.'.$confop_msgs;
} else {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not insert config <b>'.$config['name'].'</b> to the database.</span>';
}
unset($confobj);
}
}
unset($configs);
}
// add module specific tasks to system autotasks list
$atasks = $module->getInfo('autotasks');
$atasks_handler = &icms_getModuleHandler('autotasks', 'system');
if (count($atasks) > 0) {
$msgs[] = 'Updating autotasks...';
$criteria = new icms_db_criteria_Compo();
$criteria->add( new icms_db_criteria_Item( 'sat_type', 'addon/'.$module->getInfo('dirname')));
$items_atasks = $atasks_handler->getObjects( $criteria , false );
foreach ($items_atasks as $task) {
$taskID = (int) ($task->getVar('sat_addon_id'));
$atasks[$taskID]['enabled'] = $task->getVar('sat_enabled');
$atasks[$taskID]['repeat'] = $task->getVar('sat_repeat');
$atasks[$taskID]['interval'] = $task->getVar('sat_interval');
$atasks[$taskID]['name'] = $task->getVar('sat_name');
}
$atasks_handler->deleteAll($criteria);
foreach ($atasks as $taskID => $taskData) {
if (!isset($taskData['code']) || trim($taskData['code']) == '') continue;
$task = &$atasks_handler->create();
if (isset($taskData['enabled'])) $task->setVar('sat_enabled', $taskData['enabled']);
if (isset($taskData['repeat'])) $task->setVar('sat_repeat', $taskData['repeat']);
if (isset($taskData['interval'])) $task->setVar('sat_interval', $taskData['interval']);
if (isset($taskData['onfinish'])) $task->setVar('sat_onfinish', $taskData['onfinish']);
$task->setVar('sat_name', $taskData['name']);
$task->setVar('sat_code', sprintf("require ICMS_ROOT_PATH . \"/modules/%s/%s\";", $module->getInfo('dirname') , addslashes($taskData['code']))) ;
$task->setVar('sat_type', 'addon/'.$module->getInfo('dirname'));
$task->setVar('sat_addon_id', (int) ($taskID));
if (!($atasks_handler->insert($task))) {
$msgs[] = ' <span style="color:#ff0000;">ERROR: Could not insert autotask to db. Name: <b>'.$taskData['name'].'</b></span>';
} else {
$msgs[] = ' Updated task from autotasks list. Task Name: <b>'.$taskData['name'].'</b>';
}
}
unset($atasks, $atasks_handler, $task, $taskData, $criteria, $items, $taskID);
}
// execute module specific update script if any
$update_script = $module->getInfo('onUpdate');
$ModName = ($module->getInfo('modname') != '') ? trim($module->getInfo('modname')) : $dirname;
if (false != $update_script && trim($update_script) != '') {
include_once ICMS_ROOT_PATH.'/modules/'.$dirname.'/'.trim($update_script);
$is_IPF = $module->getInfo('object_items');
if (!empty($is_IPF)) {
$icmsDatabaseUpdater = icms_db_legacy_Factory::getDatabaseUpdater();
$icmsDatabaseUpdater->moduleUpgrade($module, true);
foreach ($icmsDatabaseUpdater->_messages as $msg) {
$msgs[] = $msg;
}
}
if (function_exists('xoops_module_update_'.$ModName)) {
$func = 'xoops_module_update_'.$ModName;
if (!$func($module, $prev_version, $prev_dbversion)) {
$msgs[] = sprintf(_MD_AM_FAIL_EXEC, '<strong>' . $func . '</strong>');
} else {
$msgs[] = sprintf(_MD_AM_FUNCT_EXEC, '<strong>' . $func . '</strong>');
}
} elseif (function_exists('icms_module_update_'.$ModName)) {
$func = 'icms_module_update_'.$ModName;
if (!$func($module, $prev_version, $prev_dbversion)) {
$msgs[] = sprintf(_MD_AM_FAIL_EXEC, '<strong>' . $func . '</strong>');
} else {
$msgs[] = sprintf(_MD_AM_FUNCT_EXEC, '<strong>' . $func . '</strong>');
}
}
}
$msgs[] = '</code><p>'.sprintf(_MD_AM_OKUPD, '<b>'.$module->getVar('name').'</b>').'</p>';
}
$ret = '<code>';
foreach ($msgs as $msg) {
$ret .= $msg.'<br />';
}
return $ret;
}