|
@@ -0,0 +1,310 @@
|
|
|
+<?php
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ * Chamilo LMS
|
|
|
+ *
|
|
|
+ * Update the Chamilo database from an older Chamilo version
|
|
|
+ * Notice : This script has to be included by index.php
|
|
|
+ * or update_courses.php (deprecated).
|
|
|
+ *
|
|
|
+ * @package chamilo.install
|
|
|
+ * @todo
|
|
|
+ * - conditional changing of tables. Currently we execute for example
|
|
|
+ * ALTER TABLE $dbNameForm.cours
|
|
|
+ * instructions without checking wether this is necessary.
|
|
|
+ * - reorganise code into functions
|
|
|
+ * @todo use database library
|
|
|
+ */
|
|
|
+
|
|
|
+$old_file_version = '1.8.8';
|
|
|
+$new_file_version = '1.9.0';
|
|
|
+
|
|
|
+
|
|
|
+if (defined('SYSTEM_INSTALLATION')) {
|
|
|
+
|
|
|
+
|
|
|
+ if (!file_exists('../inc/conf/configuration.php')) {
|
|
|
+ echo '<strong>'.get_lang('Error').' !</strong> Chamilo '.implode('|', $updateFromVersion).' '.get_lang('HasNotBeenFound').'.<br /><br />
|
|
|
+ '.get_lang('PleasGoBackToStep1').'.
|
|
|
+ <p><button type="submit" class="back" name="step1" value="< '.get_lang('Back').'">'.get_lang('Back').'</button></p>
|
|
|
+ </td></tr></table></form></body></html>';
|
|
|
+ exit ();
|
|
|
+ }
|
|
|
+
|
|
|
+ $_configuration['db_glue'] = get_config_param('dbGlu');
|
|
|
+
|
|
|
+ if ($singleDbForm) {
|
|
|
+ $_configuration['table_prefix'] = get_config_param('courseTablePrefix');
|
|
|
+ $_configuration['main_database'] = get_config_param('mainDbName');
|
|
|
+ $_configuration['db_prefix'] = get_config_param('dbNamePrefix');
|
|
|
+ }
|
|
|
+
|
|
|
+ $dbScormForm = preg_replace('/[^a-zA-Z0-9_\-]/', '', $dbScormForm);
|
|
|
+
|
|
|
+ if (!empty($dbPrefixForm) && strpos($dbScormForm, $dbPrefixForm) !== 0) {
|
|
|
+ $dbScormForm = $dbPrefixForm.$dbScormForm;
|
|
|
+ }
|
|
|
+
|
|
|
+ if (empty($dbScormForm) || $dbScormForm == 'mysql' || $dbScormForm == $dbPrefixForm) {
|
|
|
+ $dbScormForm = $dbPrefixForm.'scorm';
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ $only_test = false;
|
|
|
+ $log = 0;
|
|
|
+ if (defined('SYSTEM_INSTALLATION')) {
|
|
|
+
|
|
|
+ if ($singleDbForm) {
|
|
|
+ $dbStatsForm = $dbNameForm;
|
|
|
+ $dbScormForm = $dbNameForm;
|
|
|
+ $dbUserForm = $dbNameForm;
|
|
|
+ }
|
|
|
+
|
|
|
+ * Update the databases "pre" migration
|
|
|
+ */
|
|
|
+ include '../lang/english/create_course.inc.php';
|
|
|
+
|
|
|
+ if ($languageForm != 'english') {
|
|
|
+
|
|
|
+ include '../lang/'.$languageForm.'/create_course.inc.php';
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+ $m_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'main');
|
|
|
+ if (count($m_q_list) > 0) {
|
|
|
+
|
|
|
+
|
|
|
+ * We connect to the right DB first to make sure we can use the queries
|
|
|
+ * without a database name
|
|
|
+ */
|
|
|
+ if (strlen($dbNameForm) > 40) {
|
|
|
+ error_log('Database name '.$dbNameForm.' is too long, skipping', 0);
|
|
|
+ } elseif (!in_array($dbNameForm, $dblist)) {
|
|
|
+ error_log('Database '.$dbNameForm.' was not found, skipping', 0);
|
|
|
+ } else {
|
|
|
+ Database::select_db($dbNameForm);
|
|
|
+ foreach ($m_q_list as $query){
|
|
|
+ if ($only_test) {
|
|
|
+ error_log("Database::query($dbNameForm,$query)", 0);
|
|
|
+ } else {
|
|
|
+ $res = Database::query($query);
|
|
|
+ if ($log) {
|
|
|
+ error_log("In $dbNameForm, executed: $query", 0);
|
|
|
+ }
|
|
|
+ if ($res === false) {
|
|
|
+ error_log('Error in '.$query.': '.Database::error());
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ $m_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-post.sql', 'main');
|
|
|
+ if (count($m_q_list) > 0) {
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ if (strlen($dbNameForm) > 40) {
|
|
|
+ error_log('Database name '.$dbNameForm.' is too long, skipping', 0);
|
|
|
+ } elseif (!in_array($dbNameForm,$dblist)) {
|
|
|
+ error_log('Database '.$dbNameForm.' was not found, skipping', 0);
|
|
|
+ } else {
|
|
|
+ Database::select_db($dbNameForm);
|
|
|
+ foreach ($m_q_list as $query) {
|
|
|
+ if ($only_test) {
|
|
|
+ error_log("Database::query($dbNameForm,$query)", 0);
|
|
|
+ } else {
|
|
|
+ $res = Database::query($query);
|
|
|
+ if ($log) {
|
|
|
+ error_log("In $dbNameForm, executed: $query", 0);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ */
|
|
|
+
|
|
|
+
|
|
|
+ $s_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'stats');
|
|
|
+ if (count($s_q_list) > 0) {
|
|
|
+
|
|
|
+
|
|
|
+ * We connect to the right DB first to make sure we can use the queries
|
|
|
+ * without a database name
|
|
|
+ */
|
|
|
+ if (strlen($dbStatsForm) > 40) {
|
|
|
+ error_log('Database name '.$dbStatsForm.' is too long, skipping', 0);
|
|
|
+ } elseif (!in_array($dbStatsForm, $dblist)){
|
|
|
+ error_log('Database '.$dbStatsForm.' was not found, skipping', 0);
|
|
|
+ } else {
|
|
|
+ Database::select_db($dbStatsForm);
|
|
|
+
|
|
|
+ foreach ($s_q_list as $query) {
|
|
|
+ if ($only_test) {
|
|
|
+ error_log("Database::query($dbStatsForm,$query)", 0);
|
|
|
+ } else {
|
|
|
+ $res = Database::query($query);
|
|
|
+ if ($log) {
|
|
|
+ error_log("In $dbStatsForm, executed: $query", 0);
|
|
|
+ }
|
|
|
+ if ($res === false) {
|
|
|
+ error_log('Error in '.$query.': '.Database::error());
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ $u_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'user');
|
|
|
+ if (count($u_q_list) > 0) {
|
|
|
+
|
|
|
+
|
|
|
+ * We connect to the right DB first to make sure we can use the queries
|
|
|
+ * without a database name
|
|
|
+ */
|
|
|
+ if (strlen($dbUserForm) > 40) {
|
|
|
+ error_log('Database name '.$dbUserForm.' is too long, skipping', 0);
|
|
|
+ } elseif (!in_array($dbUserForm,$dblist)) {
|
|
|
+ error_log('Database '.$dbUserForm.' was not found, skipping', 0);
|
|
|
+ } else {
|
|
|
+ Database::select_db($dbUserForm);
|
|
|
+ foreach ($u_q_list as $query) {
|
|
|
+ if ($only_test) {
|
|
|
+ error_log("Database::query($dbUserForm,$query)", 0);
|
|
|
+ error_log("In $dbUserForm, executed: $query", 0);
|
|
|
+ } else {
|
|
|
+ $res = Database::query($query);
|
|
|
+ if ($res === false) {
|
|
|
+ error_log('Error in '.$query.': '.Database::error());
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+ }
|
|
|
+
|
|
|
+ $prefix = '';
|
|
|
+ if ($singleDbForm) {
|
|
|
+ $prefix = get_config_param ('table_prefix');
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+ $c_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-pre.sql', 'course');
|
|
|
+ if (count($c_q_list) > 0) {
|
|
|
+
|
|
|
+ if (strlen($dbNameForm) > 40) {
|
|
|
+ error_log('Database name '.$dbNameForm.' is too long, skipping', 0);
|
|
|
+ } elseif(!in_array($dbNameForm, $dblist)) {
|
|
|
+ error_log('Database '.$dbNameForm.' was not found, skipping', 0);
|
|
|
+ } else {
|
|
|
+ Database::select_db($dbNameForm);
|
|
|
+ $res = Database::query("SELECT code,db_name,directory,course_language FROM course WHERE target_course_code IS NULL ORDER BY code");
|
|
|
+
|
|
|
+ if ($res === false) { die('Error while querying the courses list in update_db-1.8.6.2-1.8.7.inc.php'); }
|
|
|
+
|
|
|
+ if (Database::num_rows($res) > 0) {
|
|
|
+ $i = 0;
|
|
|
+ $list = array();
|
|
|
+ while ($row = Database::fetch_array($res)) {
|
|
|
+ $list[] = $row;
|
|
|
+ $i++;
|
|
|
+ }
|
|
|
+ foreach ($list as $row_course) {
|
|
|
+
|
|
|
+
|
|
|
+ * We connect to the right DB first to make sure we can use the queries
|
|
|
+ * without a database name
|
|
|
+ */
|
|
|
+ if (!$singleDbForm) {
|
|
|
+ Database::select_db($row_course['db_name']);
|
|
|
+ }
|
|
|
+
|
|
|
+ foreach ($c_q_list as $query) {
|
|
|
+ if ($singleDbForm) {
|
|
|
+ $query = preg_replace('/^(UPDATE|ALTER TABLE|CREATE TABLE|DROP TABLE|INSERT INTO|DELETE FROM)\s+(\w*)(.*)$/', "$1 $prefix{$row_course['db_name']}_$2$3", $query);
|
|
|
+ }
|
|
|
+
|
|
|
+ if ($only_test) {
|
|
|
+ error_log("Database::query(".$row_course['db_name'].",$query)", 0);
|
|
|
+ } else {
|
|
|
+ $res = Database::query($query);
|
|
|
+ if ($log) {
|
|
|
+ error_log("In ".$row_course['db_name'].", executed: $query", 0);
|
|
|
+ }
|
|
|
+ if ($res === false) {
|
|
|
+ error_log('Error in '.$query.': '.Database::error());
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ $c_q_list = get_sql_file_contents('migrate-db-'.$old_file_version.'-'.$new_file_version.'-post.sql', 'course');
|
|
|
+ if (count($c_q_list) > 0) {
|
|
|
+
|
|
|
+ if (strlen($dbNameForm) > 40) {
|
|
|
+ error_log('Database name '.$dbNameForm.' is too long, skipping', 0);
|
|
|
+ } elseif (!in_array($dbNameForm, $dblist)) {
|
|
|
+ error_log('Database '.$dbNameForm.' was not found, skipping', 0);
|
|
|
+ } else {
|
|
|
+ Database::select_db($dbNameForm);
|
|
|
+ $res = Database::query("SELECT code,db_name,directory,course_language FROM course WHERE target_course_code IS NULL");
|
|
|
+ if ($res === false) { die('Error while querying the courses list in update_db-1.8.7-1.8.8.inc.php'); }
|
|
|
+ if (Database::num_rows($res) > 0) {
|
|
|
+ $i = 0;
|
|
|
+ while ($row = Database::fetch_array($res)) {
|
|
|
+ $list[] = $row;
|
|
|
+ $i++;
|
|
|
+ }
|
|
|
+ foreach ($list as $row) {
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ $prefix_course = $prefix;
|
|
|
+ if ($singleDbForm) {
|
|
|
+ $prefix_course = $prefix.$row['db_name']."_";
|
|
|
+ } else {
|
|
|
+ Database::select_db($row['db_name']);
|
|
|
+ }
|
|
|
+
|
|
|
+ foreach($c_q_list as $query) {
|
|
|
+ if ($singleDbForm) {
|
|
|
+ $query = preg_replace('/^(UPDATE|ALTER TABLE|CREATE TABLE|DROP TABLE|INSERT INTO|DELETE FROM)\s+(\w*)(.*)$/', "$1 $prefix$2$3", $query);
|
|
|
+ }
|
|
|
+ if ($only_test) {
|
|
|
+ error_log("Database::query(".$row['db_name'].",$query)", 0);
|
|
|
+ } else {
|
|
|
+ $res = Database::query($query);
|
|
|
+ if ($log) {
|
|
|
+ error_log("In ".$row['db_name'].", executed: $query", 0);
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ */
|
|
|
+
|
|
|
+
|
|
|
+} else {
|
|
|
+
|
|
|
+ echo 'You are not allowed here !';
|
|
|
+
|
|
|
+}
|