<?php

/*
 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between
 * Copyright (C) 2006-2009 Dan Fuhry
 * Installation package
 * libenanoinstall.php - Installation payload backend
 *
 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied
 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.
 */

$neutral_color = 'C';

function run_installer_stage($stage_id, $stage_name, $function, $failure_explanation, $allow_skip = true)
{
	static $resumed = false;
	static $resume_stack = array();
	
	if ( empty($resume_stack) && isset($_POST['resume_stack']) && preg_match('/[a-z_]+((\|[a-z_]+)+)/', $_POST['resume_stack']) )
	{
		$resume_stack = explode('|', $_POST['resume_stack']);
	}
	
	$already_run = false;
	if ( in_array($stage_id, $resume_stack) )
	{
		$already_run = true;
	}
	
	if ( !$resumed )
	{
		if ( !isset($_GET['sub']) )
			$resumed = true;
		if ( isset($_GET['sub']) && $_GET['sub'] == $stage_id )
		{
			$resumed = true;
		}
	}
	if ( !$resumed && $allow_skip )
	{
		echo_stage_success($stage_id, $stage_name);
		return false;
	}
	if ( !function_exists($function) )
		die('libenanoinstall: CRITICAL: function "' . $function . '" for ' . $stage_id . ' doesn\'t exist');
	$result = call_user_func($function, false, $already_run);
	if ( $result )
	{
		echo_stage_success($stage_id, $stage_name);
		$resume_stack[] = $stage_id;
		return true;
	}
	else
	{
		echo_stage_failure($stage_id, $stage_name, $failure_explanation, $resume_stack);
		return false;
	}
}

function start_install_table()
{
	echo '<table border="0" cellspacing="0" cellpadding="0" style="margin-top: 10px;">' . "\n";
}

function close_install_table()
{
	echo '</table>' . "\n\n";
	flush();
}

function echo_stage_success($stage_id, $stage_name)
{
	global $neutral_color;
	$neutral_color = ( $neutral_color == 'A' ) ? 'C' : 'A';
	echo '<tr><td style="width: 500px; background-color: #' . "{$neutral_color}{$neutral_color}FF{$neutral_color}{$neutral_color}" . '; padding: 0 5px;">' . htmlspecialchars($stage_name) . '</td><td style="padding: 0 5px;"><img alt="Done" src="../images/check.png" /></td></tr>' . "\n";
	flush();
}

function echo_stage_failure($stage_id, $stage_name, $failure_explanation, $resume_stack)
{
	global $neutral_color;
	global $lang;
	
	$neutral_color = ( $neutral_color == 'A' ) ? 'C' : 'A';
	echo '<tr><td style="width: 500px; background-color: #' . "FF{$neutral_color}{$neutral_color}{$neutral_color}{$neutral_color}" . '; padding: 0 5px;">' . htmlspecialchars($stage_name) . '</td><td style="padding: 0 5px;"><img alt="Failed" src="../images/checkbad.png" /></td></tr>' . "\n";
	flush();
	close_install_table();
	$post_data = '';
	$mysql_error = mysql_error();
	$file = ( defined('IN_ENANO_UPGRADE') ) ? 'upgrade.php' : 'install.php';
	foreach ( $_POST as $key => $value )
	{
		// FIXME: These should really also be sanitized for double quotes
		$value = htmlspecialchars($value);
		$key = htmlspecialchars($key);
		$post_data .= "          <input type=\"hidden\" name=\"$key\" value=\"$value\" />\n";
	}
	if ( $stage_id == 'renameconfig' )
		echo '<p>' . $failure_explanation . '</p>';
	else
		echo '<form action="' . $file . '?stage=install&amp;sub=' . $stage_id . '" method="post">
						' . $post_data . '
						<input type="hidden" name="resume_stack" value="' . htmlspecialchars(implode('|', $resume_stack)) . '" />
						<h3>' . $lang->get('meta_msg_err_stagefailed_title') . '</h3>
 						<p>' . $failure_explanation . '</p>
 						' . ( !empty($mysql_error) ? "<p>" . $lang->get('meta_msg_err_stagefailed_mysqlerror') . " $mysql_error</p>" : '' ) . '
 						<p>' . $lang->get('meta_msg_err_stagefailed_body') . '</p>
 						<p style="text-align: center;"><input type="submit" value="' . $lang->get('meta_btn_retry_installation') . '" /></p>
					</form>';
	global $ui;
	$ui->show_footer();
	exit;
}

function enano_perform_upgrade($target_rev)
{
	global $db, $session, $paths, $template, $plugins; // Common objects
	// Import version info
	global $enano_versions;
	// Import UI functions
	global $ui;
	// This is needed for upgrade abstraction
	global $dbdriver;
	
	// see if we're actually supposed to be in post-upgrade
	if ( getConfig('enano_version') == 'upg-' . installer_enano_version() )
	{
		// yep, fall out here to avoid errors
		return true;
	}
	
	//
	// Main upgrade stage
	//
	
	// Calculate which scripts to run
	$versions_avail = array();
	
	$dir = ENANO_ROOT . "/install/schemas/upgrade/$dbdriver/";
	if ( $dh = @opendir($dir) )
	{
		while ( $di = @readdir($dh) )
		{
			if ( preg_match('/^[0-9]+\.sql$/', $di) )
				$versions_avail[] = intval($di);
		}
	}
	else
	{
		return false;
	}
	
	// sort version list numerically
	asort($versions_avail);
	$versions_avail = array_values($versions_avail);
	
	$last_rev = $versions_avail[ count($versions_avail) - 1 ];
	
	$current_rev = getConfig('db_version', 0);
	
	if ( $last_rev <= $current_rev )
		return true;
	
	foreach ( $versions_avail as $i => $ver )
	{
		if ( $ver > $current_rev )
		{
			$upg_queue = array_slice($versions_avail, $i);
			break;
		}
	}
	
	// cap to target rev
	foreach ( $upg_queue as $i => $ver )
	{
		if ( $ver > $target_rev )
			unset($upg_queue[$i]);
	}
	
	// Perform upgrade
	foreach ( $upg_queue as $version )
	{
		$file = "{$dir}$version.sql";
		
		try
		{
			$parser = new SQL_Parser($file);
		}
		catch(Exception $e)
		{
			die("<pre>$e</pre>");
		}
		
		$parser->assign_vars(array(
			'TABLE_PREFIX' => table_prefix
		));
	
		$sql_list = $parser->parse();
		// Check for empty schema file
		if ( $sql_list[0] === ';' && count($sql_list) == 1 )
		{
			// It's empty, report success for this version
			// See below for explanation of why setConfig() is called here
			setConfig('db_version', $version);
			continue;
		}
		
		foreach ( $sql_list as $sql )
		{
			// check for '@' operator on query
			if ( substr($sql, 0, 1) == '@' )
			{
				// Yes - perform query but don't check for errors
				$db->sql_query($sql);
			}
			else
			{
				// Perform as normal
				if ( !$db->sql_query($sql) )
					$db->_die();
			}
		}
		
		// Is there an additional script (logic) to be run after the schema?
		$postscript = ENANO_ROOT . "/install/schemas/upgrade/$version.php";
		if ( file_exists($postscript) )
			@include($postscript);
		
		// The advantage of calling setConfig on the system version here?
		// Simple. If the upgrade fails, it will pick up from the last
		// version, not try to start again from the beginning. This will
		// still cause errors in most cases though. Eventually we probably
		// need some sort of query-numbering system that tracks in-progress
		// upgrades.
		
		setConfig('db_version', $version);
	}
}