<?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

 * payload.php - Installer payload (the installation logic)

 *

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

 */

if ( !defined('IN_ENANO_INSTALL') )

  die();

return true;

function stg_sim_good()

{

  return true;

}

function stg_sim_bad()

{

  return true;

}

function stg_password_decode()

{

  global $db;

  static $pass = false;

  if ( $pass )

    return $pass;

  if ( !isset($_POST['crypt_data']) && !empty($_POST['password']) && $_POST['password'] === $_POST['password_confirm'] )

    $pass = $_POST['password'];

  $aes = AESCrypt::singleton(AES_BITS, AES_BLOCKSIZE);

  // retrieve encryption key

  $q = $db->sql_query('SELECT config_value FROM ' . table_prefix . 'config WHERE config_name=\'install_aes_key\';');

  if ( !$q )

    $db->_die();

  if ( $db->numrows() < 1 )

    return false;

  list($aes_key) = $db->fetchrow_num();

  $aes_key = hexdecode($aes_key);

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

  if ( !$pass )

    return false;

  return $pass; // Will be true if the password isn't crapped

}

function stg_make_private_key()

{

  global $db;

  static $site_key = false;

  if ( $site_key )

    return $site_key;

  // Is there already a key cached in the database?

  $q = $db->sql_query('SELECT config_value FROM ' . table_prefix . 'config WHERE config_name=\'site_aes_key\';');

  if ( !$q )

    $db->_die();

  if ( $db->numrows() > 0 )

  {

    list($site_key) = $db->fetchrow_num();

    $db->free_result();

    return $site_key;

  }

  $aes = AESCrypt::singleton(AES_BITS, AES_BLOCKSIZE);

  // This will use /dev/urandom if possible

  $site_key = $aes->gen_readymade_key();

  // Stash it in the database, don't check for errors though because we can always regenerate it

  $db->sql_query('INSERT INTO ' . table_prefix . 'config ( config_name, config_value ) VALUES ( \'site_aes_key\', \'' . $site_key . '\' );');

  return $site_key;

}

function stg_load_schema()

{

  global $db, $dbdriver, $installer_version, $lang_id, $languages;

  static $sql_parser = false;

  if ( is_object($sql_parser) )

    return $sql_parser->parse();

  $aes = AESCrypt::singleton(AES_BITS, AES_BLOCKSIZE);

  $hmac_secret = hexencode(AESCrypt::randkey(20), '', '');

  $site_key = stg_make_private_key();

  $site_key = hexdecode($site_key);

  $admin_pass_clean = stg_password_decode();

  $admin_pass = hmac_sha1($admin_pass_clean, $hmac_secret);

  unset($admin_pass_clean); // Security

  try

  {

    $sql_parser = new SQL_Parser( ENANO_ROOT . "/install/schemas/{$dbdriver}_stage2.sql" );

  }

  catch ( Exception $e )

  {

    echo "<pre>$e</pre>";

    return false;

  }

  $vars = array(

      'TABLE_PREFIX'         => table_prefix,

      'SITE_NAME'            => $db->escape($_POST['site_name']),

      'SITE_DESC'            => $db->escape($_POST['site_desc']),

      'COPYRIGHT'            => $db->escape($_POST['copyright']),

      // FIXME: update form

      'WIKI_MODE'            => ( isset($_POST['wiki_mode']) ? '1' : '0' ),

      'ENABLE_CACHE'         => ( is_writable( ENANO_ROOT . '/cache/' ) ? '1' : '0' ),

      'VERSION'              => $installer_version['version'],

      'ADMIN_USER'           => $db->escape($_POST['username']),

      'ADMIN_PASS'           => $admin_pass,

      'ADMIN_PASS_SALT'      => $hmac_secret,

      'ADMIN_EMAIL'          => $db->escape($_POST['email']),

      'REAL_NAME'            => '', // This has always been stubbed.

      'ADMIN_EMBED_PHP'      => strval(AUTH_DISALLOW),

      'UNIX_TIME'            => strval(time()),

      'IP_ADDRESS'           => $db->escape($_SERVER['REMOTE_ADDR'])

    );

  $sql_parser->assign_vars($vars);

  return true;

}

function stg_deliver_payload()

{

  global $db;

  $schema = stg_load_schema();

  foreach ( $schema as $sql )

  {

    if ( !$db->sql_query($sql) )

    {

      echo $db->get_error();

      return false;

    }

  }

  return true;

}

function stg_write_config()

{

  global $dbhost, $dbuser, $dbpasswd, $dbname, $dbdriver, $dbport;

  $db_data = array(

      'host' => str_replace("'", "\\'", $dbhost),

      'user' => str_replace("'", "\\'", $dbuser),

      'pass' => str_replace("'", "\\'", $dbpasswd),

      'name' => str_replace("'", "\\'", $dbname),

      'port' => intval($dbport),

      'tp' => table_prefix,

      'drv' => $dbdriver

    );

  // Retrieves the existing key

  $site_key = stg_make_private_key();

  // Determine contentPath

  switch ( @$_POST['url_scheme'] )

  {

    case 'standard':

    default:

      $sp_append = '/index.php?title=';

      break;

    case 'shortened':

      $sp_append = '/index.php/';

      break;

    case 'tiny':

      $sp_append = '/?/';

      break;

    case 'rewrite':

      $sp_append = '/';

      break;

  }

  $scriptpath = scriptPath;

  $contentpath = $scriptpath . $sp_append;

  $config_file = <<<EOF

<?php

/**

 * Enano site configuration

 * NOTE ON EDITING: You should almost never need to change anything in this

 * file. The only exceptions are when your DB password/other info is changed

 * or if you are moving your Enano installation to another directory.

 */

//

// DATABASE INFO

//

// Database type to use, currently mysql and postgresql are supported

\$dbdriver = '{$db_data['drv']}';

// Hostname of your database server, probably localhost

\$dbhost = '{$db_data['host']}';

// Port number for database server, probably 3306 (MySQL) or 5432 (PostgreSQL)

\$dbport = '{$db_data['port']}';

// Username used to connect to the database

\$dbuser = '{$db_data['user']}';

// Database password

\$dbpasswd = '{$db_data['pass']}';

// Name of the database

\$dbname = '{$db_data['name']}';

//

// CONSTANTS

//

// if they're already defined, no use re-defining them

if ( !defined('ENANO_CONSTANTS') )

{

  // The prefix for the tables in the database. Useful for holding more than

  // one Enano installation in the same database.

  define('table_prefix', '{$db_data['tp']}');

  // The path to Enano's files on your server, from the document root. If

  // Enano is installed in your document root this will be blank; installing

  // Enano in /enano/ will result in "/enano" here, etc.

  define('scriptPath', '$scriptpath');

  // The authoritative prefix for pages. This should be very literal: to

  // generate a URL on the site, the format is basically

  // contentPath . \$page_name. This is based off of scriptPath and the URL

  // scheme selected during installation. Pattern:

  //

  //    * Standard URLs:  scriptPath . '/index.php?title='

  //    * Shortened URLs: scriptPath . '/index.php/'

  //    * mod_rewrite:    scriptPath . '/'

  define('contentPath', '$contentpath');

  // Tell the Enano API that we're installed and that this file is complete

  define('ENANO_INSTALLED', 'You bet!');

  define('ENANO_CONSTANTS', '');

}

// The AES encryption key used to store passwords. We have a very specific

// reason for doing this; see the rationale at:

//   http://docs.enanocms.org/Help:Appendix_B

\$crypto_key = '$site_key';

EOF;

  // Write config file

  $ch = @fopen ( ENANO_ROOT . '/config.new.php', 'w' );

  if ( !$ch )

    return false;

  fwrite($ch, $config_file);

  fclose($ch);

  // If we are using mod_rewrite, also append any existing .htaccess

  if ( @$_POST['url_scheme'] === 'rewrite' )

  {

    $hh = @fopen ( ENANO_ROOT . '/.htaccess.new', 'w' );

    if ( !$hh )

      return false;

    $hhc = <<<EOF

#

# START ENANO RULES

#

# Enable mod_rewrite

RewriteEngine on

# Required under some aliased setups

RewriteBase $scriptpath

# Don't rewrite if the user requested a real directory or file

RewriteCond %{REQUEST_FILENAME} !-f

RewriteCond %{REQUEST_FILENAME} !-d

# Main rule - short and sweet

RewriteRule (.*) index.php?title=\$1 [L,QSA]

EOF;

    fwrite($hh, $hhc);

    fclose($hh);

  }

  return true;

}

function stg_language_setup()

{

  global $languages, $db;

  global $lang_id;

  $lang_info =& $languages[$lang_id];

  if ( !is_array($lang_info) )

    return false;

  // Install the language

  // ($lang_code, $lang_name_neutral, $lang_name_local, $lang_file = false)

  $result = install_language($lang_id, $lang_info['name_eng'], $lang_info['name'], ENANO_ROOT . "/language/{$lang_info['dir']}/core.json");

  if ( !$result )

    return false;

  $lang_local = new Language($lang_id);

  $lang_local->import( ENANO_ROOT . "/language/{$lang_info['dir']}/user.json" );

  $lang_local->import( ENANO_ROOT . "/language/{$lang_info['dir']}/tools.json" );

  $lang_local->import( ENANO_ROOT . "/language/{$lang_info['dir']}/admin.json" );

  $q = $db->sql_query('SELECT lang_id FROM ' . table_prefix . 'language ORDER BY lang_id DESC LIMIT 1;');

  if ( !$q )

    $db->_die();

  list($lang_id_int) = $db->fetchrow_num();

  $db->free_result();

  setConfig('default_language', $lang_id_int);

  return true;

}

function stg_add_content()

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  global $cache;

  global $languages;

  global $lang_id;

  $lang_info =& $languages[$lang_id];

  if ( !is_array($lang_info) )

    return false;

  if ( $_POST['default_content_type'] === 'tutorial' )

  {

    $dir = ENANO_ROOT . "/language/{$lang_info['dir']}/install/default-tutorial";

  }

  else

  {

    $dir = ENANO_ROOT . "/language/{$lang_info['dir']}/install/default-blank";

  }

  if ( !$dr = @opendir($dir) )

    return false;

  while ( $dh = @readdir($dr) )

  {

    if ( !preg_match('/\.txt$/', $dh) )

      continue;

    $page_contents = @file_get_contents("$dir/$dh");

    if ( empty($page_contents) )

      return false;

    $page_name = preg_replace('/\.txt$/', '', $dh);

    if ( !install_primitive_page_creator($page_name, 'Article', $page_contents) )

      return false;

  }

  closedir($dr);

  $cache->purge('page_meta');

  return true;

}

function install_primitive_page_creator($page_id, $namespace, $content)

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $page_title = $db->escape(str_replace('_', ' ', dirtify_page_id($page_id)));

  $author = $db->escape($_POST['username']);

  $page_id = $db->escape($page_id);

  $namespace = $db->escape($namespace);

  // yes, we do probably want strip_all_php ON.

  $content = RenderMan::preprocess_text($content, true, true);

  $now = time();

  // query 1: logs

  $q = $db->sql_query('INSERT INTO ' . table_prefix . "logs(time_id, date_string, log_type, action, page_id, namespace, author, page_text) VALUES\n"

                    . "  ( $now, 'DEPRECATED', 'page', 'edit', '$page_id', '$namespace', '$author', '$content');");

  if ( !$q )

  {

    echo $db->get_error();

    return false;

  }

  // query 2: page_text

  $q = $db->sql_query('INSERT INTO ' . table_prefix . "page_text(page_id, namespace, page_text) VALUES\n"

                    . "  ( '$page_id', '$namespace', '$content');");

  if ( !$q )

  {

    echo $db->get_error();

    return false;

  }

  // query 3: pages

  $q = $db->sql_query('INSERT INTO ' . table_prefix . "pages(page_order, name, urlname, namespace, special, visible, comments_on, protected, delvotes, delvote_ips) VALUES\n"

                    . "  (NULL, '$page_title', '$page_id', '$namespace', 0, 1, 1, 1, 0, '');");

  if ( !$q )

  {

    echo $db->get_error();

    return false;

  }

  return true;

}

function stg_init_logs()

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  global $installer_version;

  $q = $db->sql_query('INSERT INTO ' . table_prefix . 'logs(log_type,action,time_id,date_string,author,page_text,edit_summary) VALUES(\'security\', \'install_enano\', ' . time() . ', \'' . enano_date(ED_DATE | ED_TIME) . '\', \'' . $db->escape($_POST['username']) . '\', \'' . $db->escape(enano_version()) . '\', \'' . $db->escape($_SERVER['REMOTE_ADDR']) . '\');');

  if ( !$q )

  {

    echo '<p><tt>MySQL return: ' . $db->sql_error() . '</tt></p>';

    return false;

  }

  return true;

}

function stg_aes_cleanup()

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  $q = $db->sql_query('DELETE FROM ' . table_prefix . 'config WHERE config_name = \'install_aes_key\' OR config_name = \'site_aes_key\';');

  if ( !$q )

    $db->_die();

  return true;

}

function _stg_rename_config_revert()

{

  if ( file_exists('./config.php') )

  {

    @rename('./config.php', './config.new.php');

  }

  $handle = @fopen('./config.php.new', 'w');

  if ( !$handle )

    return false;

  $contents = '<?php $cryptkey = \'' . _INSTRESUME_AES_KEYBACKUP . '\'; ?>';

  fwrite($handle, $contents);

  fclose($handle);

  return true;

}

function stg_build_index()

{

  global $db, $session, $paths, $template, $plugins; // Common objects

  if ( $paths->rebuild_search_index() )

    return true;

  return false;

}

function stg_rename_config()

{

  if ( !@rename(ENANO_ROOT . '/config.new.php', ENANO_ROOT . '/config.php') )

  {

    echo '<p>Can\'t rename config.php</p>';

    _stg_rename_config_revert();

    return false;

  }

  if ( @filesize(ENANO_ROOT . '/.htaccess.new') > 1 )

  {

    // rename/possibly concatenate .htaccess.new

    $htaccess_base = '';

    if ( file_exists(ENANO_ROOT . '/.htaccess') )

      $htaccess_base .= @file_get_contents(ENANO_ROOT . '/.htaccess');

    if ( strlen($htaccess_base) > 0 && !preg_match("/\n$/", $htaccess_base) )

      $htaccess_base .= "\n\n";

    $htaccess_base .= @file_get_contents(ENANO_ROOT . '/.htaccess.new');

    if ( file_exists(ENANO_ROOT . '/.htaccess') )

    {

      $hh = @fopen(ENANO_ROOT . '/.htaccess', 'w');

      if ( !$hh )

        return false;

      fwrite($hh, $htaccess_base);

      fclose($hh);

      @unlink(ENANO_ROOT . '/.htaccess.new');

      return true;

    }

    else

    {

      return @rename(ENANO_ROOT . '/.htaccess.new', ENANO_ROOT . '/.htaccess');

    }