in-portal
No OneTemporary
Actions

Subscribers

None

File Metadata

Created: Mon, Aug 25, 7:39 AM

in-portal
View Options

	Index: branches/unlabeled/unlabeled-1.6.2/core/install.php
	===================================================================
	--- branches/unlabeled/unlabeled-1.6.2/core/install.php (revision 6998)
	+++ branches/unlabeled/unlabeled-1.6.2/core/install.php (revision 6999)
	@@ -1,857 +1,871 @@
	<?php
	ini_set('display_errors', 1);
	error_reporting(E_ALL);

	define('IS_INSTALL', 1);
	define('FULL_PATH', realpath(dirname(__FILE__).'/..') );
	define('REL_PATH', '/core');

	// print_pre($_POST);

	$install_engine = new kInstallator();
	$install_engine->Init();
	$install_engine->Run();
	$install_engine->Done();

	class kInstallator {

	/**
	* Reference to kApplication class object
	*
	* @var kApplication
	*/
	var $Application = null;

	/**
	* Connection to database
	*
	* @var kDBConnection
	*/
	var $Conn = null;

	/**
	* Path to config.php
	*
	* @var string
	*/
	var $INIFile = '';

	/**
	* XML file containing steps information
	*
	* @var string
	*/
	var $StepDBFile = '';

	/**
	* Parsed data from config.php
	*
	* @var Array
	*/
	var $systemConfig = Array ();
	/**
	* Step name, that currently being processed
	*
	* @var string
	*/
	var $currentStep = '';

	/**
	* Steps list (preset) to use for current installation
	*
	* @var string
	*/
	var $stepsPreset = '';

	/**
	* Installtion steps to be done
	*
	* @var Array
	*/
	var $steps = Array(
	'fresh_install' => Array ('check_paths', 'db_config', 'root_password', 'choose_modules', 'finish'),
	'already_installed' => Array ('install_setup'),

	'upgrade' => Array ('install_setup',/* ..., */ 'finish'),
	'db_reconfig' => Array ('install_setup',/* ..., */ 'finish'),
	'fix_paths' => Array ('install_setup',/* ..., */ 'finish'),
	);


	/**
	* Steps, on which kApplication should not be initialized, because of missing correct db table structure
	*
	* @var Array
	*/

	var $skipApplicationSteps = Array ('check_paths', 'db_config', 'install_setup'); // remove install_setup when application will work separately from install

	/**
	* Folders that should be writeable to continue installation
	*
	* @var Array
	*/
	var $writeableFolders = Array ('/', '/system');

	/**
	* Contains last error message text
	*
	* @var string
	*/
	var $errorMessage = '';

	/**
	* Base path for includes in templates
	*
	* @var string
	*/
	var $baseURL = '';

	function Init()
	{
	$this->INIFile = FULL_PATH.'/config.php';
	$this->StepDBFile = FULL_PATH.'/'.REL_PATH.'/install/steps_db.xml';

	$base_path = rtrim(preg_replace('/'.preg_quote(rtrim(REL_PATH, '/'), '/').'$/', '', str_replace('\\', '/', dirname($_SERVER['PHP_SELF']))), '/');
	$this->baseURL = 'http://'.$_SERVER['HTTP_HOST'].$base_path.'/core/install/';

	set_error_handler( Array(&$this, 'ErrorHandler') );

	if (file_exists($this->INIFile)) {
	// if config.php found, then check his write permission too
	$this->writeableFolders[] = '/config.php';
	}

	$this->systemConfig = $this->ParseConfig(true);
	$this->systemConfig['Misc']['WriteablePath'] = '/system'; // for development purposes

	$this->currentStep = $this->GetVar('step');

	$this->SelectPreset();

	if (!$this->currentStep) {
	// first step of current preset
	reset($this->steps[$this->stepsPreset]);
	$this->currentStep = current($this->steps[$this->stepsPreset]);
	}

	$this->InitStep();
	}

	/**
	* Selects preset to proceed based on various criteria
	*
	*/
	function SelectPreset()
	{
	$preset = $this->GetVar('preset');

	if ($preset === false) {
	$preset = 'fresh_install'; // default preset

	if (file_exists($this->INIFile)) {
	// only at installation first step
	$status = $this->CheckDatabase(false);
	if ($status && $this->AlreadyInstalled()) {
	$preset = 'already_installed';
	}
	}
	}

	$this->stepsPreset = $preset;
	}

	function GetVar($name)
	{
	return isset($_REQUEST[$name]) ? $_REQUEST[$name] : false;
	}

	/**
	* Performs needed intialization of data, that step requires
	*
	*/
	function InitStep()
	{
	$this->InitApplication();

	switch ($this->currentStep) {
	case 'check_paths':
	foreach ($this->writeableFolders as $folder_path) {
	$file_path = FULL_PATH.$folder_path;
	if (!is_writable($file_path)) {
	$this->errorMessage = 'Install cannot write to specified folder in the root directory of your installation';
	break;
	}
	}
	break;

	case 'db_config':
	$section_name = 'Database';
	$fields = Array ('DBType', 'DBHost', 'DBName', 'DBUser', 'DBUserPassword', 'TablePrefix');

	if (!isset($this->systemConfig[$section_name])) {
	$this->systemConfig[$section_name] = Array ();
	}

	// set fields
	foreach ($fields as $field_name) {
	$submit_value = $this->GetVar($field_name);

	if ($submit_value !== false) {
	$this->systemConfig[$section_name][$field_name] = $submit_value;
	}
	elseif (!isset($this->systemConfig[$section_name][$field_name])) {
	$this->systemConfig[$section_name][$field_name] = '';
	}
	}
	break;

	case 'choose_modules':
	// if no modules found, then proceed to next step
	$modules = $this->ScanModules();
	if (!$modules) {
	$this->currentStep = $this->GetNextStep();
	}
	break;

	case 'install_setup':
	if ($this->stepsPreset == 'already_installed') {
	// if preset was not choosen, then raise error
	$this->errorMessage = 'Please select action to perform';
	}
	else {
	// if preset was choosen, then check root password entered
	$user_name = $this->GetVar('user_name');
	$user_password = $this->GetVar('user_password');

	if ($user_name == 'root') {
	$sql = 'SELECT VariableValue
	FROM '.$this->systemConfig['Database']['TablePrefix'].'
	WHERE VariableName = "RootPass"';
	$root_password = $this->Conn->GetOne($sql);
	$user_password = md5( md5($user_password) . 'b38');
	if ($user_password != $root_password) {
	$this->errorMessage = 'Invalid User Name or Password. If you don\'t know your username or password, contact Intechnic Support';
	}
	}
	else {
	$this->errorMessage = 'By now only login using "root" username is supported';
	}
	}
	break;
	}

	$this->PerformValidation(); // returns validation status (just in case)
	}

	/**
	* Validates data entered by user
	*
	* @return bool
	*/
	function PerformValidation()
	{
	if ($this->GetVar('step') != $this->currentStep) {
	// just redirect from previous step, don't validate
	return true;
	}

	$status = true;

	switch ($this->currentStep) {
	case 'db_config':
	// 1. check if required fields are filled
	$section_name = 'Database';
	$required_fields = Array ('DBType', 'DBHost', 'DBName', 'DBUser');
	foreach ($required_fields as $required_field) {
	if (!$this->systemConfig[$section_name][$required_field]) {
	$status = false;
	$this->errorMessage = 'Please fill all required fields';
	break;
	}
	}
	if (!$status) break;

	// 2. check permissions, that use have in this database
	$status = $this->CheckDatabase();
	break;

	case 'root_password':
	// check, that password & verify password match
	$password = $this->Application->GetVar('root_password');
	$password_verify = $this->Application->GetVar('root_password_verify');

	if ($password != $password_verify) {
	$this->errorMessage = 'Passwords does not match';
	}
	elseif (strlen($password) < 4) {
	$this->errorMessage = 'Root Password must be at least 4 characters';
	}

	$status = $this->errorMessage == '';
	break;
	}

	return $status;
	}

	/**
	* Perform installation step actions
	*
	*/
	function Run()
	{
	if ($this->errorMessage) {
	// was error during data validation stage
	return ;
	}

	switch ($this->currentStep) {
	case 'db_config':
	// store db configuration
	$this->SaveConfig();

	// import base data into database
	$this->RunSQL('/core/install/install_schema.sql');
	$this->RunSQL('/core/install/install_data.sql');
	break;

	case 'root_password':
	// update root password in database
	$password = md5( md5($this->Application->GetVar('root_password')) . 'b38');
	- $sql = 'UPDATE '.TABLE_PREFIX.'ConfigurationValues
	- SET VariableValue = '.$this->Conn->qstr($password).'
	- WHERE VariableName = "RootPass"';
	- $this->Conn->Query($sql);
	-
	+ $this->SetConfigValue('RootPass', $password);
	+
	+ // set Site_Path (for SSL & old in-portal code)
	+ $this->SetConfigValue('Site_Path', BASE_PATH.'/');
	+
	// import base language for core (english)
	$this->ImportLanguage('/core/install/english');
	break;

	case 'choose_modules':
	// run module install scripts
	$modules = $this->Application->GetVar('modules');
	foreach ($modules as $module) {
	$install_file = MODULES_PATH.'/'.$module.'/install.php';
	if (file_exists($install_file)) {
	include_once($install_file);
	}
	}

	// scan themes
	$themes_helper =& $this->Application->recallObject('ThemesHelper');
	/* @var $themes_helper kThemesHelper */

	$themes_helper->refreshThemes();
	break;
	}

	if ($this->errorMessage) {
	// was error during run stage
	return ;
	}

	$this->currentStep = $this->GetNextStep();
	$this->InitStep(); // init next step (that will be shown now)

	$this->InitApplication();

	if ($this->currentStep == -1) {
	// step after last step -> redirect to admin
	$this->Application->Redirect('index', null, '', 'admin/index.php');
	}
	}

	+ /**
	+ * Sets new configuration variable value
	+ *
	+ * @param string $name
	+ * @param mixed $value
	+ */
	+ function SetConfigValue($name, $value)
	+ {
	+ $sql = 'UPDATE '.TABLE_PREFIX.'ConfigurationValues
	+ SET VariableValue = '.$this->Conn->qstr($value).'
	+ WHERE VariableName = '.$this->Conn->qstr($name);
	+ $this->Conn->Query($sql);
	+ }
	+
	function InitApplication()
	{
	if (!in_array($this->currentStep, $this->skipApplicationSteps) && !isset($this->Application)) {
	// step is allowed for application usage & it was not initialized in previous step
	global $debugger;
	include_once(FULL_PATH.'/core/kernel/startup.php');

	$this->Application =& kApplication::Instance();
	$this->Application->Init();
	$this->Conn =& $this->Application->GetADODBConnection();
	}
	}

	/**
	* Show next step screen
	*
	*/
	function Done($error_message = null)
	{
	if (isset($error_message)) {
	$this->errorMessage = $error_message;
	}

	include_once (FULL_PATH.'/'.REL_PATH.'/install/incs/install.tpl');

	if (isset($this->Application)) {
	$this->Application->Done();

	echo 'SID: ['.$this->Application->GetSID().']<br />';
	}

	exit;
	}

	function GetModuleVersion($module_name)
	{
	return '0.1.1';
	}

	function ConnectToDatabase()
	{
	include_once FULL_PATH.'/core/kernel/db/db_connection.php';

	$this->Conn = new kDBConnection($this->systemConfig['Database']['DBType'], Array(&$this, 'DBErrorHandler'));
	$this->Conn->Connect($this->systemConfig['Database']['DBHost'], $this->systemConfig['Database']['DBUser'], $this->systemConfig['Database']['DBUserPassword'], $this->systemConfig['Database']['DBName']);
	return $this->Conn->errorCode == 0;
	}

	/**
	* Checks if core is already installed
	*
	* @return bool
	*/
	function AlreadyInstalled()
	{
	return $this->TableExists('ConfigurationAdmin'); //,Category,Permissions');
	}

	function CheckDatabase($check_installed = true)
	{
	// perform various check type to database specified
	// 1. user is allowed to connect to database
	// 2. user has all types of permissions in database


	if (strlen($this->systemConfig['Database']['TablePrefix']) > 7) {
	$this->errorMessage = 'Table prefix should not be longer than 7 characters';
	return false;
	}

	// connect to database
	$status = $this->ConnectToDatabase();
	if ($status) {
	// if connected, then check if all sql statements work
	$sql_tests[] = 'DROP TABLE IF EXISTS test_table';
	$sql_tests[] = 'CREATE TABLE test_table(test_col mediumint(6))';
	$sql_tests[] = 'LOCK TABLES test_table WRITE';
	$sql_tests[] = 'INSERT INTO test_table(test_col) VALUES (5)';
	$sql_tests[] = 'UPDATE test_table SET test_col = 12';
	$sql_tests[] = 'UNLOCK TABLES';
	$sql_tests[] = 'ALTER TABLE test_table ADD COLUMN new_col varchar(10)';
	$sql_tests[] = 'SELECT * FROM test_table';
	$sql_tests[] = 'DELETE FROM test_table';
	$sql_tests[] = 'DROP TABLE IF EXISTS test_table';

	foreach ($sql_tests as $sql_test) {
	$this->Conn->Query($sql_test);
	if ($this->Conn->getErrorCode() != 0) {
	$status = false;
	break;
	}
	}

	if ($status) {
	// if statements work & connection made, then check table existance
	if ($check_installed && $this->AlreadyInstalled()) {
	$this->errorMessage = 'An In-Portal Database already exists at this location';
	return false;
	}
	}
	else {
	// user has insufficient permissions in database specified
	$db_error = 'Permission Error: ('.$this->Conn->getErrorCode().') '.$this->Conn->getErrorMsg();
	return false;
	}
	}
	else {
	// was error while connecting
	$this->errorMessage = 'Connection Error: ('.$this->Conn->getErrorCode().') '.$this->Conn->getErrorMsg();
	return false;
	}

	return true;
	}

	/**
	* Checks if all passed tables exists
	*
	* @param string $tables comma separated tables list
	* @return bool
	*/
	function TableExists($tables)
	{
	$prefix = $this->systemConfig['Database']['TablePrefix'];

	$all_found = true;
	$tables = explode(',', $tables);
	foreach ($tables as $table_name) {
	$sql = 'SHOW TABLES LIKE "'.$prefix.$table_name.'"';
	if (count($this->Conn->Query($sql)) == 0) {
	$all_found = false;
	break;
	}
	}

	return $all_found;
	}

	function RunSQL($filename, $replace_from = null, $replace_to = null)
	{
	if (!file_exists(FULL_PATH.$filename)) {
	return ;
	}

	$sqls = file_get_contents(FULL_PATH.$filename);

	$table_prefix = $this->systemConfig['Database']['TablePrefix'];

	// add prefix to all tables
	if (strlen($table_prefix) > 0) {
	$replacements = Array ('CREATE TABLE ', 'INSERT INTO ', 'UPDATE ', 'ALTER TABLE ');
	foreach ($replacements as $replacement) {
	$sqls = str_replace($replacement, $replacement.$table_prefix, $sqls);
	}
	$sqls = str_replace('DROP TABLE ', 'DROP TABLE IF EXISTS '.$table_prefix, $sqls);
	}

	if (isset($replace_from) && isset($replace_to)) {
	// replace something additionally, e.g. module root category
	$sqls = str_replace($replace_from, $replace_to, $sqls);
	}

	$sqls = explode(";\n", $sqls);

	foreach ($sqls as $sql) {
	$sql = trim($sql);
	if (!$sql \|\| substr($sql, 0, 1) == '#') {
	continue; // usually last line \|\| comment
	}
	$this->Conn->Query($sql);
	if ($this->Conn->getErrorCode() != 0) {
	$this->errorMessage = 'Error: ('.$this->Conn->getErrorCode().') '.$this->Conn->getErrorMsg().'<br /><br />Database Query:<pre>'.htmlspecialchars($sql).'</pre>';
	$this->Done();
	break;
	}
	}
	}

	function ImportLanguage($lang_file)
	{
	$lang_file = FULL_PATH.$lang_file.'.lang';
	if (!file_exists($lang_file)) {
	return ;
	}

	$lang_xml =& $this->Application->recallObjectP('LangXML', null, Array(), false); // false - don't use temp tables
	$lang_xml->Parse($lang_file, '\|0\|1\|2\|', '');
	}

	/**
	* Returns modules list found in modules folder
	*
	* @return Array
	*/
	function ScanModules()
	{
	static $modules = null;

	if (!isset($modules)) {
	$modules = Array();
	$fh = opendir(MODULES_PATH);
	while (($sub_folder = readdir($fh))) {
	$folder_path = MODULES_PATH.'/'.$sub_folder;
	if ($sub_folder != '.' && $sub_folder != '..' && is_dir($folder_path)) {
	if ($sub_folder == 'core') {
	// skip modules here
	continue;
	}
	// this is folder in MODULES_PATH directory
	if (file_exists($folder_path.'/install.php') && file_exists($folder_path.'/install/install_schema.sql')) {
	$modules[] = $sub_folder;
	}
	}
	}
	}

	return $modules;
	}

	/**
	* Returns content to show for current step
	*
	* @return string
	*/
	function GetStepBody()
	{
	$step_template = FULL_PATH.'/core/install/step_templates/'.$this->currentStep.'.tpl';
	if (file_exists($step_template)) {
	ob_start();
	include_once ($step_template);
	return ob_get_clean();
	}

	return '{step template "'.$this->currentStep.'" missing}';
	}

	/**
	* Parses step information file, cache result for current step ONLY & return it
	*
	* @return Array
	*/
	function &_getStepInfo()
	{
	static $info = Array('help_title' => null, 'step_title' => null, 'help_body' => null, 'queried' => false);

	if (!$info['queried']) {
	$fdata = file_get_contents($this->StepDBFile);

	$parser = xml_parser_create();
	xml_parse_into_struct($parser, $fdata, $values, $index);
	xml_parser_free($parser);

	foreach ($index['STEP'] as $section_index) {
	$step_data =& $values[$section_index];

	if ($step_data['attributes']['NAME'] == $this->currentStep) {
	$info['step_title'] = $step_data['attributes']['TITLE'];
	if (isset($step_data['attributes']['HELP_TITLE'])) {
	$info['help_title'] = $step_data['attributes']['HELP_TITLE'];
	}
	else {
	// if help title not set, then use step title
	$info['help_title'] = $step_data['attributes']['TITLE'];
	}
	$info['help_body'] = trim($step_data['value']);
	break;
	}
	}

	$info['queried'] = true;
	}

	return $info;
	}

	/**
	* Returns particular information abou current step
	*
	* @param string $info_type
	* @return string
	*/
	function GetStepInfo($info_type)
	{
	$step_info =& $this->_getStepInfo();

	if (isset($step_info[$info_type])) {
	return $step_info[$info_type];
	}

	return '{step "'.$this->currentStep.'"; param "'.$info_type.'" missing}';
	}

	/**
	* Returns passed steps titles
	*
	* @param Array $steps
	* @return Array
	* @see kInstaller:PrintSteps
	*/
	function _getStepTitles($steps)
	{
	$fdata = file_get_contents($this->StepDBFile);

	$parser = xml_parser_create();
	xml_parse_into_struct($parser, $fdata, $values, $index);
	xml_parser_free($parser);

	$ret = Array ();
	foreach ($index['STEP'] as $section_index) {
	$step_data =& $values[$section_index];
	if (in_array($step_data['attributes']['NAME'], $steps)) {
	$ret[ $step_data['attributes']['NAME'] ] = $step_data['attributes']['TITLE'];
	}
	}

	return $ret;
	}

	/**
	* Returns current step number in active steps_preset.
	* Value can't be cached, because same step can have different number in different presets
	*
	* @return int
	*/
	function GetStepNumber()
	{
	return array_search($this->currentStep, $this->steps[$this->stepsPreset]) + 1;
	}

	/**
	* Returns step name to process next
	*
	* @return string
	*/
	function GetNextStep()
	{
	$next_index = $this->GetStepNumber();
	if ($next_index > count($this->steps[$this->stepsPreset]) - 1) {
	return -1;
	}

	return $this->steps[$this->stepsPreset][$next_index];
	}

	/**
	* Returns step name, that was processed before this step
	*
	* @return string
	*/
	function GetPreviousStep()
	{
	$next_index = $this->GetStepNumber() - 1;
	if ($next_index < 0) {
	$next_index = 0;
	}

	return $this->steps[$this->stepsPreset][$next_index];
	}

	/**
	* Prints all steps from active steps preset and highlights current step
	*
	* @param string $active_tpl
	* @param string $passive_tpl
	* @return string
	*/
	function PrintSteps($active_tpl, $passive_tpl)
	{
	$ret = '';
	$step_titles = $this->_getStepTitles($this->steps[$this->stepsPreset]);

	foreach ($this->steps[$this->stepsPreset] as $step_name) {
	$template = $step_name == $this->currentStep ? $active_tpl : $passive_tpl;
	$ret .= sprintf($template, $step_titles[$step_name]);
	}

	return $ret;
	}

	function ParseConfig($parse_section = false)
	{
	if (!file_exists($this->INIFile)) {
	return Array();
	}

	if( file_exists($this->INIFile) && !is_readable($this->INIFile) ) {
	die('Could Not Open Ini File');
	}

	$contents = file($this->INIFile);

	$retval = Array();
	$section = '';
	$ln = 1;
	$resave = false;
	foreach ($contents as $line) {
	if ($ln == 1 && $line != '<'.'?'.'php die() ?'.">\n") {
	$resave = true;
	}

	$ln++;
	$line = trim($line);
	$line = eregi_replace(';[.]*','',$line);
	if (strlen($line) > 0) {
	//echo $line . " - ";
	if(eregi('^[[a-z]+]$',str_replace(' ', '', $line))) {
	//echo 'section';
	$section = substr($line, 1, (strlen($line) - 2));
	if ($parse_section) {
	$retval[$section] = array();
	}
	continue;
	} elseif (eregi('=',$line)) {
	//echo 'main element';
	list ($key, $val) = explode(' = ', $line);
	if (!$parse_section) {
	$retval[trim($key)] = str_replace('"', '', $val);
	}
	else {
	$retval[$section][trim($key)] = str_replace('"', '', $val);
	}
	}
	}
	}

	if ($resave) {
	$fp = fopen($this->INIFile, 'w');
	reset($contents);
	fwrite($fp,'<'.'?'.'php die() ?'.">\n\n");
	foreach ($contents as $line) {
	fwrite($fp,"$line");
	}
	fclose($fp);
	}

	return $retval;
	}

	function SaveConfig()
	{
	$fp = fopen($this->INIFile, 'w');
	fwrite($fp,'<'.'?'.'php die() ?'.">\n\n");

	foreach ($this->systemConfig as $section_name => $section_data) {
	fwrite($fp, '['.$section_name."]\n");
	foreach ($section_data as $key => $value) {
	fwrite($fp, $key.' = "'.$value.'"'."\n");
	}
	fwrite($fp, "\n");
	}
	fclose($fp);
	}

	/**
	* Installation error handler for sql errors
	*
	* @param int $code
	* @param string $msg
	* @param string $sql
	* @return bool
	* @access private
	*/
	function DBErrorHandler($code, $msg, $sql)
	{
	$this->errorMessage = 'Query: <br />'.htmlspecialchars($sql).'<br />execution result is error:<br />['.$code.'] '.$msg;
	return true;
	}

	/**
	* Installation error handler
	*
	* @param int $errno
	* @param string $errstr
	* @param string $errfile
	* @param int $errline
	* @param Array $errcontext
	*/
	function ErrorHandler($errno, $errstr, $errfile = '', $errline = '', $errcontext = '')
	{
	if ($errno == E_USER_ERROR) {
	// only react on user fatal errors
	$this->Done($errstr);
	}
	}
	}

	/*function print_pre($s)
	{
	echo '<pre>', print_r($s, true). '</pre>';
	}*/


	?>
	\ No newline at end of file

	Property changes on: branches/unlabeled/unlabeled-1.6.2/core/install.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.6.2.1
	\ No newline at end of property
	+1.6.2.2
	\ No newline at end of property
	Index: branches/unlabeled/unlabeled-1.45.2/admin/install/install_lib.php
	===================================================================
	--- branches/unlabeled/unlabeled-1.45.2/admin/install/install_lib.php (revision 6998)
	+++ branches/unlabeled/unlabeled-1.45.2/admin/install/install_lib.php (revision 6999)
	@@ -1,1123 +1,1123 @@
	<?php
	function minimum_php_version( $vercheck )
	{
	$minver = explode(".", $vercheck);
	$curver = explode(".", phpversion());
	if (($curver[0] < $minver[0])
	\|\| (($curver[0] == $minver[0])
	&& ($curver[1] < $minver[1]))
	\|\| (($curver[0] == $minver[0]) && ($curver[1] == $minver[1])
	&& ($curver[2][0] < $minver[2][0])))
	return false;
	else
	return true;
	}

	function VersionSort($a, $b)
	{
	if( preg_match('/inportal_upgrade_v(.*).(php\|sql)$/', $a, $rets) )
	{
	$a_version = $rets[1];
	$a_extension = $rets[2];
	}

	if( preg_match('/inportal_upgrade_v(.*).(php\|sql)$/', $b, $rets) )
	{
	$b_version = $rets[1];
	$b_extension = $rets[2];
	}
	if( !isset($a_version) \|\| !isset($b_version) ) return 0; // not php or sql file

	if($a_version == $b_version) // got PHP and SQL file for one version
	{
	if($a_extension == $b_extension)
	{
	return 0;
	}
	else
	{
	return ($a_extension == 'php') ? 1 : -1; // this makes .php extension go AFTER .sql in the sorting
	}
	}
	else
	{
	return (ConvertVersion($a_version) < ConvertVersion($b_version)) ? -1 : 1;
	}
	}

	function GetMaxPortalVersion($admindirname)
	{
	$dir = @dir($admindirname.'/install/upgrades');

	if (!$dir) return '';

	$upgrades_arr = Array();

	$version = '';
	while($file = $dir->read())
	{
	if ($file != "." && $file != ".." && !is_dir($admindirname.$file))
	{
	if (strstr($file, 'inportal_upgrade_v')) $upgrades_arr[] = $file;
	}
	}

	usort($upgrades_arr, "VersionSort");

	foreach($upgrades_arr as $file)
	{
	if( preg_match('/inportal_upgrade_v(.*).(php\|sql)$/', $file, $rets) )
	{
	$a_version = $rets[1];

	if (ConvertVersion($a_version) > ConvertVersion($version)) {
	$version = $a_version;
	}
	}
	}

	return $version;
	}

	function ConvertVersion($version)
	{
	$parts = explode('.', $version);

	$bin = '';
	foreach ($parts as $part) {
	$bin .= str_pad(decbin($part), 8, '0', STR_PAD_LEFT);
	}

	$dec = bindec($bin);

	return $dec;
	}

	function TableExists(&$ado, $tables)
	{
	global $g_TablePrefix;

	$t = explode(",",$tables);

	$i = $ado->MetaTables();
	for($x=0;$x<count($i);$x++)
	$i[$x] = strtolower($i[$x]);

	$AllFound = TRUE;
	for($tIndex=0;$tIndex<count($t);$tIndex++)
	{
	$table = $g_TablePrefix.$t[$tIndex];
	$table = strtolower($table);
	if(!in_array($table,$i))
	{
	$AllFound = FALSE;
	}

	}
	return $AllFound;
	}

	function set_ini_value($section, $key, $newvalue)
	{
	global $ini_vars;
	$ini_vars[$section][$key] = $newvalue;
	}

	function save_values()
	{
	// Should write something to somwere, but it doesn't :(
	global $ini_file,$ini_vars;

	//if( file_exists($ini_file) )
	//{
	$fp = fopen($ini_file, "w");
	fwrite($fp,'<'.'?'.'php die() ?'.">\n\n");
	foreach($ini_vars as $secname => $section)
	{
	fwrite($fp,"[".$secname."]\n");
	foreach($section as $key => $value) fwrite($fp,"$key = \"$value\"\n");
	fwrite($fp,"\n");
	}
	fclose($fp);
	//}
	}

	function getConnectionInterface($action, $dbo_type='adodb')
	{
	if($dbo_type == 'adodb')
	{
	switch($action)
	{
	case 'query': return 'Execute'; break;
	case 'errorno': return 'ErrorNo'; break;
	case 'errormsg': return 'ErrorMsg'; break;
	}
	}

	if($dbo_type == 'dbconnection')
	{
	switch($action)
	{
	case 'query': return 'Query'; break;
	case 'errorno': return 'getErrorCode'; break;
	case 'errormsg': return 'getErrorMsg'; break;
	}

	}
	}

	function RunSchemaFile(&$ado, $filename, $dbo_type='adodb')
	{
	if( file_exists($filename) )
	{
	$sql = file_get_contents($filename);
	if($sql) RunSchemaText($ado,$sql,$dbo_type);
	}
	}

	function RunSchemaText(&$ado, $sql, $dbo_type='adodb')
	{
	global $g_TablePrefix;

	if(strlen($g_TablePrefix))
	{
	$what = "CREATE TABLE ";
	$replace = "CREATE TABLE ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "DROP TABLE ";
	$replace = "DROP TABLE IF EXISTS ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "INSERT INTO ";
	$replace = "INSERT INTO ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "UPDATE ";
	$replace = "UPDATE ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "ALTER TABLE ";
	$replace = "ALTER TABLE ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);
	}

	$commands = explode("# --------------------------------------------------------",$sql);
	if(count($commands)>0)
	{
	$query_func = getConnectionInterface('query',$dbo_type);
	$errorno_func = getConnectionInterface('errorno',$dbo_type);
	$errormsg_func = getConnectionInterface('errormsg',$dbo_type);

	for($i = 0; $i < count($commands); $i++)
	{
	$cmd = $commands[$i];
	$cmd = trim($cmd);
	if(strlen($cmd)>0)
	{
	$ado->$query_func($cmd);
	if($ado->$errorno_func() != 0)
	{
	$db_error = $ado->$errormsg_func()." COMMAND:<PRE>$cmd</PRE>";
	}
	}
	}
	}
	}

	function RunSQLText(&$ado, $allsql, $dbo_type='adodb')
	{
	global $g_TablePrefix;

	$line = 0;
	$query_func = getConnectionInterface('query',$dbo_type);
	$errorno_func = getConnectionInterface('errorno',$dbo_type);
	$errormsg_func = getConnectionInterface('errormsg',$dbo_type);

	while($line<count($allsql))
	{
	$sql = $allsql[$line];
	if(strlen(trim($sql))>0 && substr($sql,0,1)!="#")
	{
	if(strlen($g_TablePrefix))
	{
	$what = "CREATE TABLE ";
	$replace = "CREATE TABLE ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "DELETE FROM ";
	$replace = "DELETE FROM ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "DROP TABLE ";
	$replace = "DROP TABLE IF EXISTS ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "DROP TABLE IF EXISTS ";
	$replace = "DROP TABLE IF EXISTS ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "INSERT INTO ";
	$replace = "INSERT INTO ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "UPDATE ";
	$replace = "UPDATE ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);

	$what = "ALTER TABLE ";
	$replace = "ALTER TABLE ".$g_TablePrefix;
	$sql = ereg_replace($what, $replace, $sql);
	}
	$sql = trim($sql);
	if(strlen($sql)>0)
	{
	$ado->$query_func($sql);
	if($ado->$errorno_func()!=0)
	{
	$db_error = $ado->$errormsg_func()." COMMAND:<PRE>$sql</PRE>";
	$error = TRUE;
	}
	}
	}
	$line++;
	}
	}

	function RunSQLFile(&$ado, $filename, $dbo_type='adodb')
	{
	if(file_exists($filename))
	{
	$allsql = file($filename);
	RunSQLText($ado,$allsql,$dbo_type);
	}
	}

	/**
	* Executes all sqls in selected file (in K4 style)
	*
	* @param string $filename
	* @param kDBConnection $db
	* @param mixed $replace_from
	* @param mixed $replace_to
	*/
	function K4_RunSQL($filename, $replace_from = null, $replace_to = null)
	{
	if (!file_exists(FULL_PATH.$filename)) {
	return ;
	}

	$db =& inst_GetADODBConnection(true);
	$sqls = file_get_contents(FULL_PATH.$filename);

	// add prefix to all tables
	if (strlen(TABLE_PREFIX) > 0) {
	$replacements = Array ('CREATE TABLE ', 'INSERT INTO ', 'UPDATE ', 'ALTER TABLE ');
	foreach ($replacements as $replacement) {
	$sqls = str_replace($replacement, $replacement.TABLE_PREFIX, $sqls);
	}
	$sqls = str_replace('DROP TABLE ', 'DROP TABLE IF EXISTS '.TABLE_PREFIX, $sqls);
	}

	if (isset($replace_from) && isset($replace_to)) {
	// replace something additionally, e.g. module root category
	$sqls = str_replace($replace_from, $replace_to, $sqls);
	}

	$sqls = explode(";\n", $sqls);

	foreach ($sqls as $sql) {
	$sql = trim($sql);
	if (!$sql \|\| substr($sql, 0, 1) == '#') {
	continue; // usually last line \|\| comment
	}
	$db->Query($sql);
	if ($db->getErrorCode() != 0) {
	$db_error = $db->getErrorMsg()." COMMAND:<PRE>$sql</PRE>";
	$error = true;
	// break;
	}
	}
	}

	function RunRestoreFile($ado,$filename,$FileOffset,$MaxLines)
	{
	$size = filesize($filename);

	if($FileOffset > $size)
	return -2;

	$fp = fopen($filename,"r");
	if(!$fp)
	return -1;

	if($FileOffset>0)
	{
	fseek($fp,$FileOffset);
	}
	else
	{
	$EndOfSQL = FALSE;
	$sql = "";
	while(!feof($fp) && !$EndOfSQL)
	{
	$l = fgets($fp,16384);
	if(substr($l,0,11)=="INSERT INTO")
	{
	$EndOfSQL = TRUE;
	}
	else
	{
	$sql .= $l;
	$FileOffset = ftell($fp) - strlen($l);
	}
	}
	if(strlen($sql))
	{
	RunSchemaText($ado,$sql);
	}
	fseek($fp,$FileOffset);
	}
	$LinesRead = 0;
	$sql = "";
	$AllSql = array();
	while($LinesRead < $MaxLines && !feof($fp))
	{
	$sql = fgets($fp, 16384);
	if(strlen($sql))
	{
	$AllSql[] = $sql;
	$LinesRead++;
	}
	}
	if(!feof($fp))
	{
	$FileOffset = ftell($fp);
	}
	else
	{
	$FileOffset = $TotalSize;
	}
	fclose($fp);
	if(count($AllSql)>0)
	RunSQLText($ado,$AllSql);
	return (int)$FileOffset;
	}


	function _inst_keyED($txt,$encrypt_key)
	{
	$encrypt_key = md5($encrypt_key);
	$ctr=0;
	$tmp = "";
	for ($i=0;$i<strlen($txt);$i++)
	{
	if ($ctr==strlen($encrypt_key)) $ctr=0;
	$tmp.= substr($txt,$i,1) ^ substr($encrypt_key,$ctr,1);
	$ctr++;
	}
	return $tmp;
	}


	function _inst_decrypt($txt,$key)
	{
	$txt = _inst_keyED($txt,$key);
	$tmp = "";
	for ($i=0;$i<strlen($txt);$i++)
	{
	$md5 = substr($txt,$i,1);
	$i++;
	$tmp.= (substr($txt,$i,1) ^ $md5);
	}
	return $tmp;
	}

	function inst_LoadFromRemote()
	{
	return "";
	}

	function mod_DLid()
	{
	global $DownloadId;
	echo $DownloadId."\n";
	die();
	}

	function ae666b1b8279502f4c4b570f133d513e($LoadRemote=FALSE,$file="")
	{
	return _inst_LoadLicense($LoadRemote,$file);
	}

	function _inst_LoadLicense($LoadRemote=FALSE,$file="")
	{
	global $path,$admin;

	$data = Array();

	if(!strlen($file))
	{
	$f = $path.$admin."/include/inportal.dat";
	}
	else
	$f = $file;
	if(file_exists($f))
	{
	$contents = file($f);
	$data[0] = base64_decode($contents[1]);
	$data[1] = $contents[2];
	}
	else
	if($LoadRemote)
	return $LoadFromRemote;
	return $data;
	}

	function inst_SaveLicense($data)
	{

	}

	function _inst_VerifyKey($domain,$k)
	{
	$key = md5($domain);
	$lkey = substr($key,0,strlen($key)/2);
	$rkey = substr($key,strlen($key)/2);
	$r = $rkey.$lkey;
	if($k==$r)
	return TRUE;
	return FALSE;
	}

	function a83570933e44bc66b31dd7127cf3f23a($txt)
	{
	return _inst_ParseLicense($txt);
	}

	function _inst_ParseLicense($txt)
	{
	global $i_User, $i_Pswd, $i_Keys;
	$data = _inst_decrypt($txt,"beagle");
	$i_Keys = array();
	$lines = explode("\n",$data);

	for($x=0;$x<count($lines);$x++)
	{
	$l = $lines[$x];
	$p = explode("=",$l,2);
	switch($p[0])
	{
	case "Username":
	$i_User = $p[1];
	break;
	case "UserPass":
	$i_Pswd = $p[1];
	break;
	default:
	if(substr($p[0],0,3)=="key")
	{
	$parts = explode("\|",$p[1]);
	if(_inst_VerifyKey($parts[0],$parts[1]))
	{
	unset($K);
	$k["domain"]=$parts[0];
	$k["key"]=$parts[1];
	$k["desc"]=$parts[2];
	$k["mod"]=$parts[3];
	$i_Keys[] = $k;
	}
	}
	break;
	}
	}
	}


	function de3ec1b7a142cccd0d51f03d24280744($domain)
	{
	_inst_falseIsLocalSite($domain);
	return _inst_IsLocalSite($domain);
	}

	function _inst_GetObscureValue($i)
	{
	$z = null;
	if ($i == 'x') return 0254;
	if ($i == 'z') return 0x7F.'.';
	if ($i >= 5 && $i < 7) return _inst_GetObscureValue($z)*_inst_GetObscureValue('e');
	if ($i > 30) return Array(0x6c,0x6f,0x63,0x61,0x6c,0x68,0x6f,0x73,0x74);
	if ($i > 20) return 99;
	if ($i > 10) return '.'.(_inst_GetObscureValue(6.5)+1);
	if ($i == 'a') return 0xa;
	}

	function _inst_Chr($val)
	{
	$x = _inst_GetObscureValue(25);
	$f = chr($x).chr($x+5).chr($x+15);
	return $f($val);
	}

	function _inst_IsLocalSite($domain)
	{
	$yy = '';
	$ee = _inst_GetObscureValue(35);
	foreach ($ee as $e) {
	$yy .= _inst_Chr($e);
	}
	$localb = FALSE;
	if(substr($domain,0,3)==_inst_GetObscureValue('x'))
	{
	$b = substr($domain,0,6);
	$p = explode(".",$domain);
	$subnet = $p[1];
	if($p[1]>15 && $p[1]<32)
	$localb=TRUE;
	}
	$zz = _inst_GetObscureValue('z')._inst_GetObscureValue(5).'.'.(int)_inst_GetObscureValue(7)._inst_GetObscureValue(12);
	$ff = _inst_GetObscureValue('z')+65;
	$hh = $ff-0x18;
	if($domain==$yy \|\| $domain==$zz \|\| substr($domain,0,7)==$ff._inst_Chr(46).$hh \|\|
	substr($domain,0,3)==_inst_GetObscureValue('a')._inst_Chr(46) \|\| $localb \|\| strpos($domain,".")==0)
	{
	return TRUE;
	}
	return FALSE;
	}

	function _inst_falseIsLocalSite($domain)
	{
	$localb = FALSE;
	if(substr($domain,0,3)=="172" \|\| $domain == '##code##')
	{
	$b = substr($domain,0,6);
	$p = explode(".",$domain);
	$subnet = $p[1];
	if($p[1]>15 && $p[1]<32)
	$localb=TRUE;
	}
	if($domain=="localhost" \|\| $domain=="127.0.0.1" \|\| substr($domain,0,7)=="192.168" \|\|
	substr($domain,0,3)=="10." \|\| $localb \|\| strpos($domain,".")==0)
	{
	return TRUE;
	}
	return FALSE;
	}

	function ed592fe427e1ce60e32ffcb0c82d8557($name)
	{
	return _inst_ModuleLicensed($name);
	}

	function _inst_ModuleLicensed($name)
	{
	global $i_Keys, $objConfig, $g_License, $g_Domain;

	$lic = base64_decode($g_License);
	_inst_ParseLicense($lic);

	$modules = array();
	if(!_inst_IsLocalSite($g_Domain))
	{
	for($x=0;$x<count($i_Keys);$x++)
	{
	$key = $i_Keys[$x];
	if (strlen(stristr($g_Domain,$key["domain"])))
	{
	$modules = explode(",",strtolower($key["mod"]));
	}
	}
	if(in_array(strtolower($name),$modules))
	{
	return TRUE;
	}
	else
	{
	return FALSE;
	}
	}
	else
	return TRUE;

	return FALSE;
	}

	function inst_parse_portal_ini($file, $parse_section = false) {
	if(!file_exists($file) && !is_readable($file))
	die("Could Not Open Ini File $file");

	$contents = file($file);

	$retval = array();

	$section = '';
	$ln = 1;
	$resave = false;
	foreach($contents as $line) {
	if ($ln == 1 && $line != '<'.'?'.'php die() ?'.">\n") {
	$resave = true;
	}
	$ln++;
	$line = trim($line);
	$line = eregi_replace(';[.]*','',$line);
	if(strlen($line) > 0) {
	if(eregi('^[[a-z]+]$',str_replace(' ', '', $line))) {
	$section = substr($line,1,(strlen($line)-2));
	if ($parse_section) {
	$retval[$section] = array();
	}
	continue;
	} elseif(eregi('=',$line)) {
	list($key,$val) = explode(' = ',$line);
	if (!$parse_section) {
	$retval[trim($key)] = str_replace('"', '', $val);
	}
	else {
	$retval[$section][trim($key)] = str_replace('"', '', $val);
	}
	} //end if
	} //end if
	} //end foreach
	if ($resave) {
	$fp = fopen($file, "w");
	reset($contents);
	fwrite($fp,'<'.'?'.'php die() ?'.">\n\n");
	foreach($contents as $line) fwrite($fp,"$line");
	fclose($fp);
	}

	return $retval;
	}

	function a48d819089308a9aeb447e7248b2587f()
	{
	return _inst_GetModuleList();
	}

	function _inst_GetModuleList()
	{
	global $rootpath,$pathchar,$admin, $pathtoroot;

	$path = $pathtoroot;

	$new = array();
	if ($dir = @opendir($path))
	{
	while (($file = readdir($dir)) !== false)
	{
	if($file !="." && $file !=".." && substr($file,0,1)!="_")
	{
	if(is_dir($path."/".$file))
	{
	$ModuleAdminDir = $path.$file.'/admin/';
	$inst_file = $ModuleAdminDir.'install.php';
	if( file_exists($inst_file) && file_exists($ModuleAdminDir.'install/inportal_schema.sql') )
	{
	if(_inst_ModuleLicensed($file)) {
	$new[$file] = $inst_file;
	}
	}
	}
	}
	}
	closedir($dir);
	}
	return array_keys($new);
	}

	function GetDirList ($dirName)
	{

	$filedates = array();
	$d = dir($dirName);

	while($entry = $d->read())
	{
	if ($entry != "." && $entry != "..")
	{
	if (!is_dir($dirName."/".$entry))
	{
	$filedate[]=$entry;
	}
	}
	}
	$d->close();
	return $filedate;
	}

	function GetLanguageList()
	{
	global $pathtoroot, $admin;

	$packs = array();
	$dir = $pathtoroot.$admin."/install/langpacks";
	$files = GetDirList($dir);

	if(is_array($files))
	{
	foreach($files as $f)
	{
	$p = pathinfo($f);
	if($p["extension"]=="lang")
	{
	$packs[] = $f;
	}
	}
	}
	return $packs;
	}

	function section_header($title, $return_result = false)
	{
	$ret = '<table border="0" cellpadding="2" cellspacing="0" class="tableborder_full" width="100%" height="30">'.
	'<tr><td class="tablenav" width="580" nowrap background="images/tabnav_left.jpg"><span class="tablenav_link"> '.$title.'</span>'.
	'</td><td align="right" class="tablenav" background="images/tabnav_back.jpg" width="100%">'.
	"<a class=\"link\" onclick=\"ShowHelp('in-portal:install');\"><img src=\"images/blue_bar_help.gif\" border=\"0\"></A>".
	'</td></tr></table>';
	if( $return_result )
	return $ret;
	else
	echo $ret;
	}

	function &VerifyDB($error_state, $next_state, $success_func = null, $db_must_exist = false)
	{
	// perform various check type to database specified
	// 1. user is allowed to connect to database
	// 2. user has all types of permissions in database
	global $state, $db_error;

	// enshure we use data from post & not from config
	$GLOBALS['g_DBType'] = $_POST["ServerType"];
	$GLOBALS['g_DBHost'] = $_POST["ServerHost"];
	$GLOBALS['g_DBName'] = $_POST["ServerDB"];
	$GLOBALS['g_DBUser'] = $_POST["ServerUser"];
	$GLOBALS['g_DBUserPassword'] = $_POST["ServerPass"];

	if (strlen($_POST['TablePrefix']) > 7) {
	$db_error = 'Table prefix should not be longer than 7 characters';
	$state = $error_state;
	return false;
	}

	// connect to database
	$ado =& inst_GetADODBConnection();
	if($ado->ErrorNo() != 0)
	{
	// was error while connecting
	$db_error = "Connection Error: (".$ado->ErrorNo().") ".$ado->ErrorMsg();
	$state = $error_state;

	}
	elseif( $ado->ErrorNo() == 0 )
	{
	// if connected, then check if all sql statements work
	$test_result = 1;

	$sql_tests[] = 'DROP TABLE IF EXISTS test_table';
	$sql_tests[] = 'CREATE TABLE test_table(test_col mediumint(6))';
	$sql_tests[] = 'LOCK TABLES test_table WRITE';
	$sql_tests[] = 'INSERT INTO test_table(test_col) VALUES (5)';
	$sql_tests[] = 'UPDATE test_table SET test_col = 12';
	$sql_tests[] = 'UNLOCK TABLES';
	$sql_tests[] = 'ALTER TABLE test_table ADD COLUMN new_col varchar(10)';
	$sql_tests[] = 'SELECT * FROM test_table';
	$sql_tests[] = 'DELETE FROM test_table';
	$sql_tests[] = 'DROP TABLE IF EXISTS test_table';

	foreach($sql_tests as $sql_test)
	{
	$ado->Execute($sql_test);
	if( $ado->ErrorNo()!=0 )
	{
	$test_result = 0;
	break;
	}
	}

	if($test_result == 1)
	{
	// if statements work & connection made, then check table existance
	$db_exists = TableExists($ado,"ConfigurationAdmin,Category,Permissions");
	if($db_exists != $db_must_exist)
	{
	$state = $error_state;
	$db_error = $db_must_exist ? 'An In-Portal Database already exists at this location' : 'An In-Portal Database was not found at this location';
	}
	else
	{
	$state = $next_state;
	if( isset($success_func) ) $success_func();
	}
	}
	else
	{
	// user has insufficient permissions in database specified
	$db_error = "Permission Error: (".$ado->ErrorNo().") ".$ado->ErrorMsg();
	$state = $error_state;
	}
	}
	return $ado;
	}

	function SaveDBConfig()
	{
	// save new database configuration
	set_ini_value("Database", "DBType",$_POST["ServerType"]);
	set_ini_value("Database", "DBHost",$_POST["ServerHost"]);
	set_ini_value("Database", "DBName",$_POST["ServerDB"]);
	set_ini_value("Database", "DBUser",$_POST["ServerUser"]);
	set_ini_value("Database", "DBUserPassword",$_POST["ServerPass"]);
	set_ini_value("Database","TablePrefix",$_POST["TablePrefix"]);
	save_values();
	$GLOBALS['include_file'] = 'install/install_finish.php';
	}

	function ReSetVar($var)
	{
	// define varible if not defined before
	if( !isset($GLOBALS[$var]) ) $GLOBALS[$var] = '';
	}

	// if globals.php not yet included (1st steps of install),
	// then define GetVar function
	if( !function_exists('GetVar') )
	{
	function GetVar($name, $post_priority = false)
	{
	if(!$post_priority) // follow gpc_order in php.ini
	return isset($_REQUEST[$name]) ? $_REQUEST[$name] : false;
	else // get variable from post 1stly if not found then from get
	return isset($_POST[$name]) && $_POST[$name] ? $_POST[$name] : ( isset($_GET[$name]) && $_GET[$name] ? $_GET[$name] : false );
	}
	}

	function RadioChecked($name, $value)
	{
	// return " checked" word in case if radio is checked
	$submit_value = GetVar($name);
	return $submit_value == $value ? ' checked' : '';
	}

	function StripDisallowed($string, $item_info)
	{
	$not_allowed = Array( ' ', '\\', '/', ':', '*', '?', '"', '<', '>', '\|',
	'~', '!', '@', '#', '$', '%', '^', '&', '(', ')',
	'+', '=', '-', '{', '}', ']', '[', "'", ';', '.', ',');

	$string = str_replace($not_allowed, '_', $string);
	$string = preg_replace('/(_+)/', '_', $string);
	$string = checkAutoFilename($string, $item_info);

	return $string;
	}

	function checkAutoFilename($filename, $item_info)
	{
	// 'table' => 'Category', 'id_field' => 'CategoryId', 'title_field' => 'Name'
	$item_id = $item_info['item_id'];
	$prefix = GetTablePrefix();
	$db =& inst_GetADODBConnection();

	$sql = 'SELECT '.$item_info['id_field'].' FROM '.$prefix.$item_info['table'].' WHERE Filename = '.$db->qstr($filename);
	$found_item_id = $db->GetOne($sql);
	$has_page = preg_match('/(.)_([\d]+)([a-z])$/', $filename, $rets);
	if( ($found_item_id != $item_id) \|\| $has_page ) // other category has same filename as ours OR we have filename, that ends with _number
	{
	$append = $found_item_id ? 'a' : '';
	if($has_page)
	{
	$filename = $rets[1].'_'.$rets[2];
	$append = $rets[3] ? $rets[3] : 'a';
	}

	$sql = 'SELECT '.$item_info['id_field'].' FROM '.$prefix.$item_info['table'].' WHERE (Filename = %s) AND ('.$item_info['id_field'].' != '.$item_id.')';
	while ( $db->GetOne( sprintf($sql, $db->qstr($filename.$append)) ) > 0 )
	{
	if (substr($append, -1) == 'z') $append .= 'a';
	$append = substr($append, 0, strlen($append) - 1) . chr( ord( substr($append, -1) ) + 1 );
	}

	return $filename.$append;
	}

	return $filename;
	}

	/**
	* [INSTALL] Perform operations required for each module separate install (from admin)
	*
	* @param string $module_name
	* @param bool $has_theme
	* @return bool
	*/
	function finalizeModuleInstall($module_name, $has_theme = true)
	{
	global $objThemes;

	$app =& kApplication::Instance();
	if (!$app->GetVar('redirect')) return false;

	if ($has_theme)
	{
	$objThemes->CreateMissingThemes(true);
	}

	// 2. import languagepack in case of separate install
	$lang_xml =& $app->recallObject('LangXML');
	$lang_xml->tables['phrases'] = TABLE_PREFIX.'Phrase';
	$lang_xml->tables['emailmessages'] = TABLE_PREFIX.'EmailMessage';

	$lang_path = FULL_PATH.'/'.$module_name.'/admin/install/langpacks';
	$lang_xml->Parse($lang_path.'/english.lang', '\|0\|1\|2\|', '');

	- $app->Redirect('modules/modules_list', Array('pass' => 'all', 'admin' => 1, 'RefreshTree' => 1), '', 'index.php');
	+ $app->Redirect('in-portal/modules/modules_list', Array('pass' => 'all', 'admin' => 1, 'RefreshTree' => 1), '', 'index.php');
	}

	/**
	* [UPGRADE] Initializes [cached] category/item templates with default values for each module
	*
	* @param string $module
	* @param string $category_template
	* @param string $item_template
	*/
	function updateItemCategoryTemplate($module, $category_template, $item_template)
	{
	$table_prefix = GetTablePrefix();
	$inst_ado =& inst_GetADODBConnection();

	// get module root category by module name
	$sql = 'SELECT RootCat
	FROM '.$table_prefix.'Modules
	WHERE Name = '.$inst_ado->qstr($module);
	$module_root = $inst_ado->GetOne($sql);

	// set category & item template to module root category
	$sql = 'UPDATE '.$table_prefix.'Category
	SET CategoryTemplate = '.$inst_ado->qstr($category_template).'
	WHERE CategoryId = '.$module_root;
	$inst_ado->Execute($sql);

	// set cached category & item templates to all sub-categories of module root category
	$sql = 'UPDATE '.$table_prefix.'Category
	SET CachedCategoryTemplate = '.$inst_ado->qstr($category_template).'
	WHERE ParentPath LIKE "\|'.$module_root.'\|%';
	$inst_ado->Execute($sql);
	}

	/**
	* [UPGRADE] Moves custom field values for prefix specified from CustomMetaData table to prefix dependant separate table
	*
	* @param string $prefix
	*/
	function convertCustomFields($prefix)
	{
	$application =& kApplication::Instance();

	$ml_helper =& $application->recallObject('kMultiLanguageHelper');
	$ml_helper->createFields($prefix.'-cdata', true);

	$db =& $application->GetADODBConnection();

	$custom_fields = $application->getUnitOption($prefix, 'CustomFields');
	if (!$custom_fields) {
	return true;
	}

	$custom_table = $application->getUnitOption($prefix.'-cdata', 'TableName');

	// copy value from Value field to l<lang_id>_Value field, where destination field is empty
	$m_lang = $application->GetVar('m_lang');
	$sql = 'UPDATE '.TABLE_PREFIX.'CustomMetaData
	SET l'.$m_lang.'_Value = Value
	WHERE LENGTH(l'.$m_lang.'_Value) = 0';
	$db->Query($sql);

	$i = 1;
	$field_mask = '';
	$language_count = $ml_helper->getLanguageCount();
	while ($i <= $language_count) {
	$field_mask .= 'cdata%1$s.l'.$i.'_Value AS l'.$i.'_cust_%1$s, ';
	$i++;
	}
	$field_mask = preg_replace('/(.*), $/', '\\1', $field_mask);

	$join_mask = 'LEFT JOIN '.TABLE_PREFIX.'CustomMetaData cdata%1$s ON main_table.ResourceId = cdata%1$s.ResourceId AND cdata%1$s.CustomFieldId = %1$s';

	$fields_sql = Array();
	$joins_sql = Array();
	foreach ($custom_fields as $custom_id => $custom_name) {
	array_push($fields_sql, sprintf($field_mask, $custom_id) );
	array_push($joins_sql, sprintf($join_mask, $custom_id));
	}

	$sql = 'INSERT INTO '.$custom_table.'
	SELECT 0 AS CustomDataId, main_table.ResourceId, '.implode(', ', $fields_sql).'
	FROM '.$application->getUnitOption($prefix, 'TableName').' main_table '.implode(' ', $joins_sql);
	$db->Query($sql);
	}

	/**
	* [INSTALL] Link custom field records with search config records + create custom field columns
	*
	* @param string $module_name
	* @param int $item_type
	*/
	function linkCustomFields($module_name, $prefix, $item_type)
	{
	$application =& kApplication::Instance();
	$db =& $application->GetADODBConnection();
	$sql = 'SELECT FieldName, CustomFieldId
	FROM '.TABLE_PREFIX.'CustomField
	WHERE Type = '.$item_type.' AND IsSystem = 0'; // config is not read here yet :( $application->getUnitOption('p', 'ItemType');
	$custom_fields = $db->GetCol($sql, 'CustomFieldId');
	foreach ($custom_fields as $cf_id => $cf_name) {
	$sql = 'UPDATE '.TABLE_PREFIX.'SearchConfig
	SET CustomFieldId = '.$cf_id.'
	WHERE (TableName = "CustomField") AND (LOWER(ModuleName) = "'.strtolower($module_name).'") AND (FieldName = '.$db->qstr($cf_name).')';
	$db->Query($sql);
	}

	$application->refreshModuleInfo(); // this module configs are now processed

	// because of configs was read only from installed before modules (in-portal), then reread configs
	$unit_config_reader =& $application->recallObject('kUnitConfigReader');
	$unit_config_reader->scanModules(MODULES_PATH.'/'.strtolower($module_name));

	// create correct columns in ProductsCustomData table
	$ml_helper =& $application->recallObject('kMultiLanguageHelper');
	$ml_helper->createFields($prefix.'-cdata', true);
	}

	function moveItemTemplatesToCustom($module_name, $prefix)
	{
	$application =& kApplication::Instance();
	$root_parent_path = $application->Conn->GetOne(
	'SELECT ParentPath FROM '.TABLE_PREFIX.'Category
	WHERE CategoryId = '.$application->ModuleInfo[$module_name]['RootCat']);
	$item_t_customfield = $application->Conn->GetOne('SELECT CustomFieldId FROM '.TABLE_PREFIX.'CustomField WHERE FieldName = \''.$prefix.'_ItemTemplate\'');
	$item_t_customfield = 'l1_cust_'.$item_t_customfield;

	$current_item_tpls = $application->Conn->Query(
	'SELECT ResourceId, ItemTemplate FROM '.TABLE_PREFIX.'Category
	WHERE ParentPath LIKE "'.$root_parent_path.'%" AND ItemTemplate != "" AND ItemTemplate IS NOT NULL');

	foreach ($current_item_tpls as $a_cat) {
	$has_cdata = $application->Conn->GetOne(
	'SELECT CustomDataId FROM '.TABLE_PREFIX.'CategoryCustomData
	WHERE ResourceId = '.$a_cat['ResourceId']);

	if (!$has_cdata) {
	$query = 'INSERT INTO '.TABLE_PREFIX.'CategoryCustomData (ResourceId) VALUES ('.$a_cat['ResourceId'].')';
	$application->Conn->Query($query);
	}

	$query = 'UPDATE '.TABLE_PREFIX.'CategoryCustomData
	SET '.$item_t_customfield.' = '.$application->Conn->qstr($a_cat['ItemTemplate']).'
	WHERE ResourceId = '.$a_cat['ResourceId'];
	$application->Conn->Query($query);
	}

	}
	?>

	Property changes on: branches/unlabeled/unlabeled-1.45.2/admin/install/install_lib.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.45.2.3
	\ No newline at end of property
	+1.45.2.4
	\ No newline at end of property

in-portalNo OneTemporaryActions

File Metadata

in-portalView Options

Event Timeline

in-portal
No OneTemporary
Actions

in-portal
View Options