<?php

/*

 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between

 * Version 1.1.1

 * Copyright (C) 2006-2007 Dan Fuhry

 * install.php - handles everything related to installation and initial configuration

 *

 * 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.

 */

@include('config.php');

if( ( defined('ENANO_INSTALLED') || defined('MIDGET_INSTALLED') ) && ((isset($_GET['mode']) && ($_GET['mode']!='finish' && $_GET['mode']!='css')) || !isset($_GET['mode'])))

{

  $_GET['title'] = 'Enano:Installation_locked';

  require('includes/common.php');

  die_friendly('Installation locked', '<p>The Enano installer has found a Enano installation in this directory. You MUST delete config.php if you want to re-install Enano.</p><p>If you wish to upgrade an older Enano installation to this version, please use the <a href="upgrade.php">upgrade script</a>.</p>');

  exit;

}

define('IN_ENANO_INSTALL', 'true');

define('ENANO_VERSION', '1.1.1');

// In beta versions, define ENANO_BETA_VERSION here

// This is required to make installation work right

define("ENANO_ALLOW_LOAD_NOLANG", 1);

if(!defined('scriptPath')) {

  $sp = dirname($_SERVER['REQUEST_URI']);

  if($sp == '/' || $sp == '\\') $sp = '';

  define('scriptPath', $sp);

}

if(!defined('contentPath')) {

  $sp = dirname($_SERVER['REQUEST_URI']);

  if($sp == '/' || $sp == '\\') $sp = '';

  define('contentPath', $sp);

}

global $_starttime, $this_page, $sideinfo;

$_starttime = microtime(true);

// Determine directory (special case for development servers)

if ( strpos(__FILE__, '/repo/') && file_exists('.enanodev') )

{

  $filename = str_replace('/repo/', '/', __FILE__);

}

else

{

  $filename = __FILE__;

}

define('ENANO_ROOT', dirname($filename));

function is_page($p)

{

  return true;

}

require('includes/wikiformat.php');

require('includes/constants.php');

require('includes/rijndael.php');

require('includes/functions.php');

strip_magic_quotes_gpc();

$neutral_color = 'C';

//

// INSTALLER LIBRARY

//

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['stage']) )

      $resumed = true;

    if ( isset($_GET['stage']) && $_GET['stage'] == $stage_id )

    {

      $resumed = true;

    }

  }

  if ( !$resumed && $allow_skip )

  {

    echo_stage_success($stage_id, "[dbg: skipped] $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">' . "\n";

  ob_start();

}

function close_install_table()

{

  echo '</table>' . "\n\n";

  ob_end_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/good.gif" /></td></tr>' . "\n";

  ob_flush();

  flush();

}

function echo_stage_failure($stage_id, $stage_name, $failure_explanation, $resume_stack)

{

  global $neutral_color;

  $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/bad.gif" /></td></tr>' . "\n";

  ob_flush();

  flush();

  close_install_table();

  $post_data = '';

  $mysql_error = mysql_error();

  foreach ( $_POST as $key => $value )

  {

    $value = htmlspecialchars($value);

    $key = htmlspecialchars($key);

    $post_data .= "          <input type=\"hidden\" name=\"$key\" value=\"$value\" />\n";

  }

  echo '<form action="install.php?mode=install&amp;stage=' . $stage_id . '" method="post">

          ' . $post_data . '

          <input type="hidden" name="resume_stack" value="' . htmlspecialchars(implode('|', $resume_stack)) . '" />

          <h3>Enano installation failed.</h3>

           <p>' . $failure_explanation . '</p>

           ' . ( !empty($mysql_error) ? "<p>The error returned from MySQL was: $mysql_error</p>" : '' ) . '

           <p>When you have corrected the error, click the button below to attempt to continue the installation.</p>

           <p style="text-align: center;"><input type="submit" value="Retry installation" /></p>

        </form>';

  global $template, $template_bak;

  if ( is_object($template_bak) )

    $template_bak->footer();

  else

    $template->footer();

  exit;

}

//

// INSTALLER STAGES

//

function stg_mysql_connect($act_get = false)

{

  static $conn = false;

  if ( $act_get )

    return $conn;

  $db_user =& $_POST['db_user'];

  $db_pass =& $_POST['db_pass'];

  $db_name =& $_POST['db_name'];

  if ( !preg_match('/^[a-z0-9_]+$/', $db_name) )

  {

    die('<pre>' . htmlspecialchars(print_r($_POST, true)) . '</pre>');

    $db_name = htmlspecialchars($db_name);

    die("<p>SECURITY: malformed database name \"$db_name\"</p>");

  }

  // First, try to connect using the normal credentials

  $conn = @mysql_connect($_POST['db_host'], $_POST['db_user'], $_POST['db_pass']);

  if ( !$conn )

  {

    // Connection failed. Do we have the root username and password?

    if ( !empty($_POST['db_root_user']) && !empty($_POST['db_root_pass']) )

    {

      $conn_root = @mysql_connect($_POST['db_host'], $_POST['db_root_user'], $_POST['db_root_pass']);

      if ( !$conn_root )

      {

        // Couldn't connect using either set of credentials. Bail out.

        return false;

      }

      unset($db_user, $db_pass);

      $db_user = mysql_real_escape_string($_POST['db_user']);

      $db_pass = mysql_real_escape_string($_POST['db_pass']);

      // Create the user account

      $q = @mysql_query("GRANT ALL PRIVILEGES ON test.* TO '{$db_user}'@'localhost' IDENTIFIED BY '$db_pass' WITH GRANT OPTION;", $conn_root);

      if ( !$q )

      {

        return false;

      }

      // Revoke privileges from test, we don't need them

      $q = @mysql_query("REVOKE ALL PRIVILEGES ON test.* FROM '{$db_user}'@'localhost';", $conn_root);

      if ( !$q )

      {

        return false;

      }

      if ( $_POST['db_host'] != 'localhost' && $_POST['db_host'] != '127.0.0.1' && $_POST['db_host'] != '::1' )

      {

        // If not connecting to a server running on localhost, allow from any host

        // this is safer than trying to detect the hostname of the webserver, but less secure

        $q = @mysql_query("GRANT ALL PRIVILEGES ON test.* TO '{$db_user}'@'%' IDENTIFIED BY '$db_pass' WITH GRANT OPTION;", $conn_root);

        if ( !$q )

        {

          return false;

        }

        // Revoke privileges from test, we don't need them

        $q = @mysql_query("REVOKE ALL PRIVILEGES ON test.* FROM '{$db_user}'@'%';", $conn_root);

        if ( !$q )

        {

          return false;

        }

      }

    }

  }

  $q = @mysql_query("USE $db_name;", $conn);

  if ( !$q )

  {

    // access denied to the database; try the whole root schenanegan again

    if ( !empty($_POST['db_root_user']) && !empty($_POST['db_root_pass']) )

    {

      $conn_root = @mysql_connect($_POST['db_host'], $_POST['db_root_user'], $_POST['db_root_pass']);

      if ( !$conn_root )

      {

        // Couldn't connect as root; bail out

        return false;

      }

      // create the database, if it doesn't exist

      $q = @mysql_query("CREATE DATABASE IF NOT EXISTS $db_name;", $conn_root);

      if ( !$q )

      {

        // this really should never fail, so don't give any tolerance to it

        return false;

      }

      unset($db_user, $db_pass);

      $db_user = mysql_real_escape_string($_POST['db_user']);

      $db_pass = mysql_real_escape_string($_POST['db_pass']);

      // we're in with root rights; grant access to the database

      $q = @mysql_query("GRANT ALL PRIVILEGES ON $db_name.* TO '{$db_user}'@'localhost';", $conn_root);

      if ( !$q )

      {

        return false;

      }

      if ( $_POST['db_host'] != 'localhost' && $_POST['db_host'] != '127.0.0.1' && $_POST['db_host'] != '::1' )

      {

        $q = @mysql_query("GRANT ALL PRIVILEGES ON $db_name.* TO '{$db_user}'@'%';", $conn_root);

        if ( !$q )

        {

          return false;

        }

      }

    }

    else

    {

      return false;

    }

    // try again

    $q = @mysql_query("USE $db_name;", $conn);

    if ( !$q )

    {

      // really failed this time; bail out

      return false;

    }

  }

  // connected and database exists

  return true;

}

function stg_drop_tables()

{

  $conn = stg_mysql_connect(true);

  if ( !$conn )

    return false;

  // Our list of tables included in Enano

  $tables = Array( 'categories', 'comments', 'config', 'logs', 'page_text', 'session_keys', 'pages', 'users', 'users_extra', 'themes', 'buddies', 'banlist', 'files', 'privmsgs', 'sidebar', 'hits', 'search_index', 'groups', 'group_members', 'acl', 'search_cache', 'tags', 'page_groups', 'page_group_members' );

  // Drop each table individually; if it fails, it probably means we're trying to drop a

  // table that didn't exist in the Enano version we're deleting the database for.

  foreach ( $tables as $table )

  {

    // Remember that table_prefix is sanitized.

    $table = "{$_POST['table_prefix']}$table";

    @mysql_query("DROP TABLE $table;", $conn);

  }

  return true;

}

function stg_decrypt_admin_pass($act_get = false)

{

  static $decrypted_pass = false;

  if ( $act_get )

    return $decrypted_pass;

  $aes = new AESCrypt(AES_BITS, AES_BLOCKSIZE);

  if ( !empty($_POST['crypt_data']) )

  {

    require('config.new.php');

    if ( !isset($cryptkey) )

    {

      return false;

    }

    define('_INSTRESUME_AES_KEYBACKUP', $key);

    $key = hexdecode($cryptkey);

    $decrypted_pass = $aes->decrypt($_POST['crypt_data'], $key, ENC_HEX);

  }

  else

  {

    $decrypted_pass = $_POST['admin_pass'];

  }

  if ( empty($decrypted_pass) )

    return false;

  return true;

}

function stg_generate_aes_key($act_get = false)

{

  static $key = false;

  if ( $act_get )

    return $key;

  $aes = new AESCrypt(AES_BITS, AES_BLOCKSIZE);

  $key = $aes->gen_readymade_key();

  return true;

}

function stg_parse_schema($act_get = false)

{

  static $schema;

  if ( $act_get )

    return $schema;

  $admin_pass = stg_decrypt_admin_pass(true);

  $key = stg_generate_aes_key(true);

  $aes = new AESCrypt(AES_BITS, AES_BLOCKSIZE);

  $key = $aes->hextostring($key);

  $admin_pass = $aes->encrypt($admin_pass, $key, ENC_HEX);

  $cacheonoff = is_writable(ENANO_ROOT.'/cache/') ? '1' : '0';

  $schema = file_get_contents('schema.sql');

  $schema = str_replace('{{SITE_NAME}}',    mysql_real_escape_string($_POST['sitename']   ), $schema);

  $schema = str_replace('{{SITE_DESC}}',    mysql_real_escape_string($_POST['sitedesc']   ), $schema);

  $schema = str_replace('{{COPYRIGHT}}',    mysql_real_escape_string($_POST['copyright']  ), $schema);

  $schema = str_replace('{{ADMIN_USER}}',   mysql_real_escape_string($_POST['admin_user'] ), $schema);

  $schema = str_replace('{{ADMIN_PASS}}',   mysql_real_escape_string($admin_pass          ), $schema);

  $schema = str_replace('{{ADMIN_EMAIL}}',  mysql_real_escape_string($_POST['admin_email']), $schema);

  $schema = str_replace('{{ENABLE_CACHE}}', mysql_real_escape_string($cacheonoff          ), $schema);

  $schema = str_replace('{{REAL_NAME}}',    '',                                              $schema);

  $schema = str_replace('{{TABLE_PREFIX}}', $_POST['table_prefix'],                          $schema);

  $schema = str_replace('{{VERSION}}',      ENANO_VERSION,                                   $schema);

  $schema = str_replace('{{ADMIN_EMBED_PHP}}', $_POST['admin_embed_php'],                    $schema);

  // Not anymore!! :-D

  // $schema = str_replace('{{BETA_VERSION}}', ENANO_BETA_VERSION,                              $schema);

  if(isset($_POST['wiki_mode']))

  {

    $schema = str_replace('{{WIKI_MODE}}', '1', $schema);

  }

  else

  {

    $schema = str_replace('{{WIKI_MODE}}', '0', $schema);

  }

  // Build an array of queries      

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

  foreach ( $schema as $i => $sql )

  {

    $query =& $schema[$i];

    $t = trim($query);

    if ( empty($t) || preg_match('/^(\#|--)/i', $t) )

    {

      unset($schema[$i]);

      unset($query);

    }

  }

  $schema = array_values($schema);

  $schema = implode("\n", $schema);

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

  foreach ( $schema as $i => $sql )

  {

    $query =& $schema[$i];

    if ( substr($query, ( strlen($query) - 1 ), 1 ) != ';' )

    {

      $query .= ';';

    }

  }

  return true;

}

function stg_install($_unused, $already_run)

{

  // This one's pretty easy.

  $conn = stg_mysql_connect(true);

  if ( !is_resource($conn) )

    return false;

  $schema = stg_parse_schema(true);

  if ( !is_array($schema) )

    return false;

  // If we're resuming installation, the encryption key was regenerated.

  // This means we'll have to update the encrypted password in the database.

  if ( $already_run )

  {

    $admin_pass = stg_decrypt_admin_pass(true);

    $key = stg_generate_aes_key(true);

    $aes = new AESCrypt(AES_BITS, AES_BLOCKSIZE);

    $key = $aes->hextostring($key);

    $admin_pass = $aes->encrypt($admin_pass, $key, ENC_HEX);

    $admin_user = mysql_real_escape_string($_POST['admin_user']);

    $q = @mysql_query("UPDATE {$_POST['table_prefix']}users SET password='$admin_pass' WHERE username='$admin_user';");

    if ( !$q )

    {

      echo '<p><tt>MySQL return: ' . mysql_error() . '</tt></p>';

      return false;

    }

    return true;

  }

  // OK, do the loop, baby!!!

  foreach($schema as $q)

  {

    $r = mysql_query($q, $conn);

    if ( !$r )

    {

      echo '<p><tt>MySQL return: ' . mysql_error() . '</tt></p>';

      return false;

    }

  }