<?php

// (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
//
// All Rights Reserved. See copyright.txt for details and a complete list of authors.
// Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
// $Id$

//this script may only be included - so its better to die if called directly.
if (strpos($_SERVER['SCRIPT_NAME'], basename(__FILE__)) !== false) {
    header('location: index.php');
    exit;
}

use Laminas\Config\Config;
use Tiki\Command\ConsoleSetupException;
use Tiki\Installer\Installer;
use Tiki\TikiInit;

require_once('lib/init/initlib.php');

// Define lang and load translation functions
if (! empty($_REQUEST['lang'])) {
    $language = $prefs['site_language'] = $prefs['language'] = $_REQUEST['lang'];
} else {
    $language = $prefs['site_language'] = $prefs['language'] = 'en';
}
include_once('lib/init/tra.php');

$local_php = TikiInit::getCredentialsFile();
global $default_api_tiki, $api_tiki, $db_tiki, $dbversion_tiki, $host_tiki, $user_tiki, $pass_tiki, $dbs_tiki, $tikidomain, $tikidomainslash, $dbfail_url;
$re = false;
if (file_exists($local_php)) {
    $re = include($local_php);
}

// This should be impossible
if (! isset($client_charset)) {
    $client_charset = 'utf8mb4';
}

$credentials = [
    'api_tiki' => empty($api_tiki) ? $default_api_tiki : $api_tiki,
    'api_tiki_forced' => ! empty($api_tiki),
    'primary' => false,
    'shadow' => false,
];

if ($parts = TikiInit::getEnvironmentCredentials()) {
    $credentials['primary'] = $parts;
    $re = true;
} else {
    if (isset($shadow_host, $shadow_user, $shadow_pass, $shadow_dbs)) {
        $credentials['shadow'] = [
            'host' => $shadow_host,
            'user' => $shadow_user,
            'pass' => $shadow_pass,
            'dbs' => $shadow_dbs,
            'charset' => $client_charset,
            'socket' => isset($socket_tiki) ? $socket_tiki : null,
        ];
    }

    if (isset($host_tiki, $user_tiki, $pass_tiki, $dbs_tiki)) {
        $credentials['primary'] = [
            'host' => $host_tiki,
            'user' => $user_tiki,
            'pass' => $pass_tiki,
            'dbs' => $dbs_tiki,
            'charset' => $client_charset,
            'socket' => null,
        ];
    }
}

unset($host_map, $db_tiki, $host_tiki, $user_tiki, $pass_tiki, $dbs_tiki, $shadow_user, $shadow_pass, $shadow_host, $shadow_dbs);

global $systemConfiguration;
$systemConfiguration = new Config(
    [
        'preference' => [],
        'rules' => [],
    ],
    ['readOnly' => false]
);
if (isset($_SERVER['TIKI_INI_FILE'])) {
    if (! is_readable($_SERVER['TIKI_INI_FILE'])) {
        $error = $_SERVER['TIKI_INI_FILE'] . ' could not be read' . PHP_EOL ;
        if (defined('TIKI_CONSOLE')) {
            throw new ConsoleSetupException($error, 1001);
        }
        echo $error;
        exit(1);
    }

    $configReader = new Tiki_Config_Ini();
    $configReader->setFilterSection(isset($_SERVER['TIKI_INI_IDENTIFIER']) ? $_SERVER['TIKI_INI_IDENTIFIER'] : null);
    $configData = $configReader->fromFile($_SERVER['TIKI_INI_FILE']);
    $systemConfiguration = $systemConfiguration->merge(new Laminas\Config\Config($configData));
}
if (isset($system_configuration_file)) {
    if (! is_readable($system_configuration_file)) {
        $error = $system_configuration_file . ' could not be read' . PHP_EOL ;
        if (defined('TIKI_CONSOLE')) {
            throw new ConsoleSetupException($error, 1001);
        }
        echo $error;
        exit(1);
    }
    if (! isset($system_configuration_identifier)) {
        $system_configuration_identifier = null;
    }
    $configReader = new Tiki_Config_Ini();
    $configReader->setFilterSection($system_configuration_identifier);

    if (preg_match('/\.ini.php$/', $system_configuration_file)) {
        $retrieveIniContent = function ($system_configuration_file) {
            ob_start();
            include($system_configuration_file);
            $system_configuration_file_content = ob_get_contents();
            ob_end_clean();

            return $system_configuration_file_content;
        };

        $system_configuration_content = $retrieveIniContent($system_configuration_file);
        $configData = $configReader->fromString($system_configuration_content);
    } else {
        $configData = $configReader->fromFile($system_configuration_file);
    }

    $systemConfiguration = $systemConfiguration->merge(new Config($configData));
}

if ($re === false) {
    if (! defined('TIKI_IN_INSTALLER')) {
        if (http_response_code() === false) { // if we are running in cli
            $error = "Cannot initiate database. Tiki is not installed. See http://doc.tiki.org/Installation for more information.\n";

            if (defined('TIKI_CONSOLE')) {
                throw new ConsoleSetupException($error, 1001);
            }
            echo "\e[31m" . $error . "\e[0m";
        } elseif (! empty($dbfail_url)) {
            header('HTTP/1.0 503 Service Unavailable', true, 503);
            header('Retry-After: 300');
            header('location: ' . $dbfail_url);
        } else {
            header('HTTP/1.0 503 Service Unavailable', true, 503);
            header('Retry-After: 300');
            header('location: tiki-install.php');
        }
        exit(1);
    }
    // we are in the installer don't redirect...
    return;
}

if ($dbversion_tiki == '1.10') {
    $dbversion_tiki = '2.0';
}

/**
 *
 */
class TikiDbLegacyErrorHandler implements TikiDb_ErrorHandler
{
    /**
     * @param TikiDb $db
     * @param $query
     * @param $values
     * @param $result
     */
    public function handle(TikiDb $db, $query, $values, $result) // {{{
    {
        global $prefs;
        $smarty = TikiLib::lib('smarty');
        $msg = $db->getErrorMessage();
        $q = $query;
        if (is_array($values)) {
            foreach ($values as $v) {
                if (is_null($v)) {
                    $v = 'NULL';
                } else {
                    $v = "'" . addslashes($v) . "'";
                }
                $pos = strpos($q, '?');
                if ($pos !== false) {
                    $q = substr($q, 0, $pos) . "$v" . substr($q, $pos + 1);
                }
            }
        }

        if (function_exists('xdebug_get_function_stack')) {
            $stacktrace = mydumpstack(xdebug_get_function_stack());
        } else {
            $stacktrace = false;
        }

        require_once 'installer/installlib.php';
        $installer = Installer::getInstance();

        require_once('tiki-setup.php');

        $smarty->assign('msg', $msg);
        $smarty->assign('base_query', $query);
        $smarty->assign('values', $values);
        $smarty->assign('built_query', $q);
        $smarty->assign('stacktrace', $stacktrace);
        $smarty->assign('requires_update', $installer->requiresUpdate());

        header("Cache-Control: no-cache, pre-check=0, post-check=0");

        if (defined('TIKI_CONSOLE')) {
            throw new ConsoleSetupException($msg, 1001);
        }
        $smarty->display('database-connection-error.tpl');
        $this->log($msg . ' - ' . $q);

        exit(1);
    }
    /**
     * @param $msg
     */
    public function log($msg)
    {
        global $user, $tikilib;
        $query = 'insert into `tiki_actionlog` (`objectType`,`action`,`object`,`user`,`ip`,`lastModif`, `comment`, `client`) values (?,?,?,?,?,?,?,?)';
        $result = $tikilib->query($query, ['system', 'db error', 'system', $user, $tikilib->get_ip_address(), $tikilib->now, $msg, substr($_SERVER['HTTP_USER_AGENT'], 0, 200)]);
    }
}

$initializer = new TikiDb_Initializer();
$initializer->setPreferredConnector($credentials['api_tiki']);
$initializer->setInitializeCallback(
    function ($db) {
        global $db_table_prefix, $common_users_table_prefix, $db_tiki;

        $db->setServerType($db_tiki);

        if (! defined('TIKI_CONSOLE')) {
            $db->setErrorHandler(new TikiDbLegacyErrorHandler());
        }

        if (isset($db_table_prefix)) {
            $db->setTablePrefix($db_table_prefix);
        }

        if (isset($common_users_table_prefix)) {
            $db->setUsersTablePrefix($common_users_table_prefix);
        }
    }
);

try {
    $db = $initializer->getConnection($credentials['primary']);
} catch (Error $e) {
    $db = null;
}

if (! $db && ! defined('TIKI_IN_INSTALLER')) {
    if (http_response_code() === false) {  // if running in cli
        $error = 'Did you forget to start your database or is there a problem connecting to it?';
        if (defined('TIKI_CONSOLE')) {
            throw new ConsoleSetupException($error, 1001);
        }
            die("\e[31m" . $error . "\e[0m\n");
    }
    header('HTTP/1.0 503 Service Unavailable', true, 503);
    header('Retry-After: 300');
    if (! empty($dbfail_url)) {
        header('location: ' . $dbfail_url);
        exit(1);
    }
    echo file_get_contents('templates/database_connection_error.html');
    die(1);
}

if ($db) {
    TikiDb::set($db);
    $sql_mode = $db->getOne("SELECT @@sql_mode");
    if (! empty($sql_mode)) {
        $sql_mode = str_replace(',,', ',', preg_replace('/ONLY_FULL_GROUP_BY/', '', $sql_mode));
        $db->query("SET @@sql_mode = " . $db->qstr($sql_mode));
    }
}

if ($credentials['shadow']) {
    global $dbMaster, $dbSlave;
    // Set-up the replication
    $dbMaster = $db;

    try {
        if ($dbSlave = $initializer->getConnection($credentials['shadow'])) {
            $db = new TikiDb_MasterSlaveDispatch($dbMaster, $dbSlave);
            TikiDb::set($db);
        }
    } catch (Exception $e) {
        // Just a slave, ignore
    }
}

unset($credentials);

/**
 * @param $stack
 * @return string
 */
function mydumpstack($stack)
{
    $o = '';
    foreach ($stack as $line) {
        $o .= '* ' . $line['file'] . " : " . $line['line'] . " -> " . $line['function'] . "(" . var_export($line['params'], true) . ")<br />";
    }
    return $o;
}