EVOLUTION-MANAGER

Edit File: setup.php

<?php

$config_file = dirname(__FILE__).'/gacl.ini.php';

require_once(dirname(__FILE__).'/admin/gacl_admin.inc.php');
require_once(ADODB_DIR .'/adodb-xmlschema.inc.php');

$db_table_prefix = $gacl->_db_table_prefix;
$db_type = $gacl->_db_type;
$db_name = $gacl->_db_name;
$db_host = $gacl->_db_host;
$db_user = $gacl->_db_user;
$db_password = $gacl->_db_password;

$failed = 0;

echo 'Configuration: 
driver = '.$db_type.', 
host = '.$db_host.', 
user = '.$db_user.', 
database = '.$db_name.', 
table prefix = '.$db_table_prefix.'';

function echo_success($text) {
	echo 'Success! '.$text." \n";
}

function echo_failed($text) {
	global $failed;
	echo 'Failed! '.$text." \n";
	$failed++;
}

function echo_normal($text) {
	echo $text." \n";
}

/*
 * Test database connection
 */
echo 'Testing database connection... '."\n";

if (is_object($db->_connectionID)) {
	echo_success('Connected to &quot;'.$db_type.'&quot; database on &quot;'.$db_host.'&quot;.');
} else {
	echo_failed('ERROR connecting to database, 
			are you sure you specified the proper host, user name, password, and database in admin/gacl_admin.inc.php? 
			Did you create the database, and give read/write permissions to &quot;'.$db_user.'&quot; already?');
	exit;
}

/*
 * Do database specific stuff.
 */
echo 'Testing database type... '."\n";

switch ( $db_type ) {
	case ($db_type == "mysql" OR $db_type == "mysqlt" OR $db_type == "maxsql" OR $db_type == "mysqli" OR $db_type == "mysqli_mod" ):
		echo_success("Compatible database type \"$db_type\" detected!");
		echo_normal("Making sure database \"$db_name\" exists...");

$databases = $db->GetCol("show databases");

if (in_array($db_name, $databases) ) {
			echo_success("Good, database \"$db_name\" already exists!");
		} else {
			echo_normal("Database \"$db_name\" does not exist!");
			echo_normal("Lets try to create it...");

if (!$db->Execute("create database $db_name") ) {
				echo_failed("Database \"$db_name\" could not be created, please do so manually.");
			} else {
				echo_success("Good, database \"$db_name\" has been created!!");

//Reconnect. Hrmm, this is kinda weird.
				$db->Connect($db_host, $db_user, $db_password, $db_name);
			}
		}

break;
	case ( $db_type == "postgres8" OR $db_type == "postgres7" ):
		echo_success("Compatible database type \"$db_type\" detected!");

echo_normal("Making sure database \"$db_name\" exists...");

$databases = $db->GetCol("select datname from pg_database");

//Reconnect. Hrmm, this is kinda weird.
				$db->Connect($db_host, $db_user, $db_password, $db_name);
			}
		}

break;

case "oci8-po":
		echo_success("Compatible database type \"$db_type\" detected!");

echo_normal("Making sure database \"$db_name\" exists...");

$databases = $db->GetCol("select '$db_name' from dual");

if (in_array($db_name, $databases) ) {
				echo_success("Good, database \"$db_name\" already exists!");
		} else {
				echo_normal("Database \"$db_name\" does not exist!");
				echo_normal("Lets try to create it...");

if (!$db->Execute("create database $db_name") ) {
						echo_failed("Database \"$db_name\" could not be created, please do so manually.");
				} else {
						echo_success("Good, database \"$db_name\" has been created!!");

//Reconnect. Hrmm, this is kinda weird.
						$db->Connect($db_host, $db_user, $db_password, $db_name);
				}
		}

break;

case "mssql":
		echo_success("Compatible database type \"$db_type\" detected!");

echo_normal("Making sure database \"$db_name\" exists...");

$databases = $db->GetCol("select CATALOG_NAME from INFORMATION_SCHEMA.SCHEMATA");

if (in_array($db_name, $databases) ) {
				echo_success("Good, database \"$db_name\" already exists!");
		} else {
				echo_normal("Database \"$db_name\" does not exist!");
				echo_normal("Lets try to create it...");

if (!$db->Execute("create database $db_name") ) {
						echo_failed("Database \"$db_name\" could not be created, please do so manually.");
				} else {
						echo_success("Good, database \"$db_name\" has been created!!");

//Reconnect. Hrmm, this is kinda weird.
						$db->Connect($db_host, $db_user, $db_password, $db_name);
				}
		}

break;

default:
		echo_normal("Sorry, setup.php currently does not fully support \"$db_type\" databases.
					 I'm assuming you've already created the database \"$db_name\", attempting to create tables.
					 Please email $author_email code to detect if a database is created or not so full support for \"$db_type\" can be added.");
}

/*
 * Attempt to create tables
 */
// Create the schema object and build the query array.
$schema = new adoSchema($db);
$schema->SetPrefix($db_table_prefix, FALSE); //set $underscore == FALSE

// Build the SQL array
$schema->ParseSchema(dirname(__FILE__).'/schema.xml');

// maybe display this if $gacl->debug is true?
if ($gacl->_debug) {
	print "Here's the SQL to do the build: \n<code>";
	print $schema->getSQL('html');
	print "</code>\n";
	// exit;
}

// Execute the SQL on the database
#ADODB's xmlschema is being lame, continue on error.
$schema->ContinueOnError(TRUE);
$result = $schema->ExecuteSchema();

if ($result != 2) {
  echo_failed('Failed creating tables. Please enable DEBUG mode (set it to TRUE in $gacl_options near top of admin/gacl_admin.inc.php) to see the error and try again. You will most likely need to delete any tables already created.');
}

if ( $failed <= 0 ) {
	echo_success('
First Step of Access Control Installation Successful!!! ');
} else {
	echo_failed('Please fix the above errors and try again. ');
}
?>