<?php

if (!defined('AOWOW_REVISION'))
    die('illegal access');

if (!CLI)
    die('not in cli mode');


/*********************************************/
/* string setup steps together for first use */
/*********************************************/

function setup() : void
{
    require_once 'setup/tools/sqlGen.class.php';
    require_once 'setup/tools/fileGen.class.php';

    SqlGen::init(SqlGen::MODE_FIRSTRUN);
    FileGen::init(FileGen::MODE_FIRSTRUN);


    /****************/
    /* define steps */
    /****************/

    $upd   = [[], []];                                      // ref to pass commands from 'update' to 'sync'
    $steps = array(
        // clisetup, params, test function, introText, errorText
        ['dbconfig',          [null, null],               'testDB',    'Please enter your database credentials.', 'could not establish connection to:'],
        ['siteconfig',        [null, null],               'testSelf',  'SITE_HOST and STATIC_HOST '.CLI::bold('must').' be set. Also enable FORCE_SSL if needed. You may also want to change other variables such as NAME, NAME_SHORT or LOCALES.', 'could not access:'],
        // sql- and build- stuff here
        ['SqlGen::generate',  'dungeonmap',               null, null, null],
        ['SqlGen::generate',  'skilllineability',         null, null, null],
        ['SqlGen::generate',  'soundemitters',            null, null, null],
        ['SqlGen::generate',  'worldmaparea',             null, null, null],
        ['SqlGen::generate',  'areatrigger',              null, null, null],
        ['SqlGen::generate',  'achievementcriteria',      null, null, null],
        ['SqlGen::generate',  'glyphproperties',          null, null, null],
        ['SqlGen::generate',  'itemenchantment',          null, null, null],
        ['SqlGen::generate',  'itemenchantmentcondition', null, null, null],
        ['SqlGen::generate',  'itemextendedcost',         null, null, null],
        ['SqlGen::generate',  'itemlimitcategory',        null, null, null],
        ['SqlGen::generate',  'itemrandomproppoints',     null, null, null],
        ['SqlGen::generate',  'lock',                     null, null, null],
        ['SqlGen::generate',  'mails',                    null, null, null],
        ['SqlGen::generate',  'scalingstatdistribution',  null, null, null],
        ['SqlGen::generate',  'scalingstatvalues',        null, null, null],
        ['SqlGen::generate',  'spellfocusobject',         null, null, null],
        ['SqlGen::generate',  'spellrange',               null, null, null],
        ['SqlGen::generate',  'spellvariables',           null, null, null],
        ['SqlGen::generate',  'totemcategory',            null, null, null],
        ['SqlGen::generate',  'talents',                  null, null, null],
        ['SqlGen::generate',  'classes',                  null, null, null],
        ['SqlGen::generate',  'factions',                 null, null, null],
        ['SqlGen::generate',  'factiontemplate',          null, null, null],
        ['SqlGen::generate',  'holidays',                 null, null, null],
        ['SqlGen::generate',  'icons',                    null, null, null],
        ['SqlGen::generate',  'itemrandomenchant',        null, null, null],
        ['SqlGen::generate',  'races',                    null, null, null],
        ['SqlGen::generate',  'shapeshiftforms',          null, null, null],
        ['SqlGen::generate',  'skillline',                null, null, null],
        ['SqlGen::generate',  'emotes',                   null, null, null],
        ['SqlGen::generate',  'achievement',              null, null, null],
        ['SqlGen::generate',  'creature',                 null, null, null],
        ['SqlGen::generate',  'currencies',               null, null, null],
        ['SqlGen::generate',  'events',                   null, null, null],
        ['SqlGen::generate',  'objects',                  null, null, null],
        ['SqlGen::generate',  'pet',                      null, null, null],
        ['SqlGen::generate',  'quests',                   null, null, null],
        ['SqlGen::generate',  'quests_startend',          null, null, null],
        ['SqlGen::generate',  'spell',                    null, null, null],
        ['SqlGen::generate',  'spelldifficulty',          null, null, null],
        ['SqlGen::generate',  'taxi',                     null, null, null],
        ['SqlGen::generate',  'titles',                   null, null, null],
        ['SqlGen::generate',  'items',                    null, null, null],
        ['FileGen::generate', 'complexImg',               null, null, null],    // alphamaps generated here are requires for spawns/waypoints
        ['SqlGen::generate',  'zones',                    null, null, null],
        ['SqlGen::generate',  'spawns',                   null, null, null],    // this one ^_^
        ['SqlGen::generate',  'itemset',                  null, null, null],
        ['SqlGen::generate',  'item_stats',               null, null, null],
        ['SqlGen::generate',  'source',                   null, null, null],
        ['SqlGen::generate',  'sounds',                   null, null, null],
        ['SqlGen::generate',  'declinedwords',            null, null, null],
        ['FileGen::generate', 'soundfiles',               null, null, null],
        ['FileGen::generate', 'searchplugin',             null, null, null],
        ['FileGen::generate', 'power',                    null, null, null],
        ['FileGen::generate', 'searchboxScript',          null, null, null],
        ['FileGen::generate', 'demo',                     null, null, null],
        ['FileGen::generate', 'searchboxBody',            null, null, null],
        ['FileGen::generate', 'realmMenu',                null, null, null],
        ['FileGen::generate', 'locales',                  null, null, null],
        ['FileGen::generate', 'itemScaling',              null, null, null],
        ['FileGen::generate', 'realms',                   null, null, null],
        ['FileGen::generate', 'statistics',               null, null, null],
        ['FileGen::generate', 'simpleImg',                null, null, null],
        ['FileGen::generate', 'talentCalc',               null, null, null],
        ['FileGen::generate', 'pets',                     null, null, null],
        ['FileGen::generate', 'talentIcons',              null, null, null],
        ['FileGen::generate', 'glyphs',                   null, null, null],
        ['FileGen::generate', 'itemsets',                 null, null, null],
        ['FileGen::generate', 'enchants',                 null, null, null],
        ['FileGen::generate', 'gems',                     null, null, null],
        ['FileGen::generate', 'profiler',                 null, null, null],
        ['FileGen::generate', 'weightPresets',            null, null, null],
        ['FileGen::generate', 'markup',                   null, null, null],
        // apply sql-updates from repository
        ['update',            &$upd,                      null, null, null],
        ['sync',              &$upd,                      null, null, null],
        ['account',           [null, null],               'testAcc',  'Please create your admin account.', 'There is no user with administrator privileges in the DB.']
    );


    /**********/
    /* helper */
    /**********/

    $saveProgress = function(int $nStep) : void
    {
        $h = fopen('cache/firstrun', 'w');
        fwrite($h, AOWOW_REVISION."\n".($nStep + 1)."\n");
        fclose($h);
    };

    function testDB(array &$error) : bool
    {
        require 'config/config.php';

        $error   = [];
        foreach (['aowow', 'world', 'auth'] as $idx => $what)
        {
            if ($what == 'auth' && (empty($AoWoWconf['auth']) || empty($AoWoWconf['auth']['host'])))
                continue;

            // init proper access for further setup
            if (DB::test($AoWoWconf[$what], $err))
            {
                DB::load($idx, $AoWoWconf[$what]);
                switch ($idx)
                {
                    case DB_AOWOW:
                        if (DB::Aowow()->selectCell('SHOW TABLES LIKE ?', 'aowow_dbversion'))
                            Cfg::load();                    // first time load after successful db setup
                        else
                            $error[] = ' * '.$what.': doesn\'t seem to contain aowow tables!';
                        break;
                    case DB_WORLD:
                        if (!DB::World()->selectCell('SHOW TABLES LIKE ?', 'version'))
                            $error[] = ' * '.$what.': doesn\'t seem to contain TrinityCore world tables!';
                        else if (DB::World()->selectCell('SELECT `cache_id` FROM `version`') < TDB_WORLD_MINIMUM_VER)
                            $error[] = ' * '.$what.': TDB world db is structurally outdated! (min rev.: '.CLI::bold(TDB_WORLD_MINIMUM_VER).')';
                        break;
                    default:
                       // no further checks at this time
                }
            }
            else
                $error[] = ' * '.$what.': '.$err;
        }

        return empty($error);
    }

    function testSelf(array &$error) : bool
    {
        $error = [];
        $test  = function(&$protocol, &$host, $testFile, &$rCode)
        {
            $res = get_headers($protocol.$host.$testFile, true);

            if (!preg_match("/HTTP\/[0-9\.]+\s+([0-9]+)/", $res[0], $m))
                return false;

            $rCode = $m[1];

            if ($rCode == 200)
                return true;

            if ($rCode == 301 || $rCode == 302)
            {
                if (!empty($res['Location']) && preg_match("/(https?:\/\/)(.*)".strtr($testFile, ['/' => '\/', '.' => '\.'])."/i", is_array($res['Location']) ? array_pop($res['Location']) : $res['Location'], $n))
                {
                    $protocol = $n[1];
                    $host     = $n[2];
                }

                return false;
            }

            $rCode = 0;
            return false;
        };

        if (!DB::isConnected(DB_AOWOW))
        {
            $error[] = ' * not connected to DB';
            return false;
        }

        $prot  = Cfg::get('FORCE_SSL') ? 'https://' : 'http://';
        $cases = array(
            'site_host'   => [$prot, Cfg::get('SITE_HOST'),   '/README.md'],
            'static_host' => [$prot, Cfg::get('STATIC_HOST'), '/css/aowow.css']
        );

        foreach ($cases as $conf => [$protocol, $host, $testFile])
        {
            if ($host)
            {
                if (!$test($protocol, $host, $testFile, $resp))
                {
                    if ($resp == 301 || $resp == 302)
                    {
                        CLI::write('self test received status '.CLI::bold($resp).' (page moved) for '.$conf.', pointing to: '.$protocol.$host.$testFile, CLI::LOG_WARN);
                        if (!CLI::read(['x' => ['should '.CLI::bold($conf).' be set to '.CLI::bold($host).' and force_ssl be updated? (y/n)', true, true, '/y|n/i']], $uiYN) || !$uiYN || strtolower($uiYN['x']) == 'n')
                            $error[] = ' * '.$protocol.$host.$testFile.' ['.$resp.']';
                        else
                        {
                            Cfg::set($conf, $host);
                            Cfg::set('FORCE_SSL', $protocol == 'https://');
                        }

                        CLI::write();
                    }
                    else
                        $error[] = ' * '.$protocol.$host.$testFile.' ['.$resp.']';
                }
            }
            else
                $error[] = ' * '.strtoupper($conf).' is empty';
        }

        return empty($error);
    }

    function testAcc(array &$error) : bool
    {
        $error = [];
        return !!DB::Aowow()->selectCell('SELECT `id` FROM ?_account WHERE `userPerms` = 1');
    }


    /********************/
    /* get current step */
    /********************/

    $startStep = 0;
    if (file_exists('cache/firstrun'))
    {
        $rows = file('cache/firstrun');
        if ((int)$rows[0] == AOWOW_REVISION)
            $startStep = (int)$rows[1];
    }

    if (CLISetup::getOpt('help'))
    {
        CLI::write();
        CLI::write('  usage: php aowow --setup [--locales: --mpqDataDir:]', -1, false);
        CLI::write();
        CLI::write('  Initially essential connection information are set up and basic connectivity tests are run afterwards.', -1, false);
        CLI::write('  In the main stage dbc and world data is compiled into the database and required sound, image and data files are generated.', -1, false);
        CLI::write('    This does not require further input and will take about 15-20 minutes, plus 10 minutes per additional locale.', -1, false);
        CLI::write('  Lastly pending updates are applied and you are prompted to create an administrator account.', -1, false);

        if ($startStep)
        {
            CLI::write();
            CLI::write('  You are currently on step '.($startStep + 1).' / '.count($steps).'. You can resume or restart the setup process.', -1, false);
        }

        CLI::write();
        return;
    }

    if ($startStep)
    {

        CLI::write('Found firstrun progression info. (Halted on subscript '.($steps[$startStep][1][0] ? $steps[$startStep][1] : $steps[$startStep][0]).')', CLI::LOG_INFO);
        $msg = '';
        if (!CLI::read(['x' => ['continue setup? (y/n)', true, true, '/y|n/i']], $uiYN) || !$uiYN || strtolower($uiYN['x']) == 'n')
        {
            $msg = 'Starting setup from scratch...';
            $startStep = 0;
        }
        else
            $msg = 'Resuming setup from step '.$startStep.'...';

        CLI::write();
        CLI::write($msg);
        sleep(1);
    }


    /*******/
    /* run */
    /*******/

    CLISetup::siteLock(CLISetup::LOCK_ON);

    foreach ($steps as $idx => $step)
    {
        if ($startStep > $idx)
            continue;

        if (!strpos($step[0], '::') && !is_callable($step[0]))
            require_once 'setup/tools/clisetup/'.$step[0].'.func.php';

        if ($step[3])
        {
            CLI::write($step[3]);

            if (!CLI::read([['Press any key to continue', true]]))    // we don't actually care about the input
                return;
        }

        while (true)
        {
            if (strpos($step[0], '::'))
                $res = call_user_func($step[0], $step[1]);
            else
            {
                $args = &$step[1];                          // see: https://github.com/php/php-src/issues/14202
                $res = $step[0]($args[0], $args[1]);
            }

            // check script result
            if ($step[2])
            {
                $errors = [];
                if (!$step[2]($errors))
                {
                    CLI::write($step[4], CLI::LOG_ERROR);
                    foreach ($errors as $e)
                        CLI::write($e);
                }
                else
                {
                    $saveProgress($idx);
                    break;
                }
            }
            else if ($res !== false)
            {
                $saveProgress($idx);
                break;
            }

            if (CLI::read(['x' => ['['.CLI::bold('c').']ontinue anyway? ['.CLI::bold('r').']etry? ['.CLI::bold('a').']bort?', true, true, '/c|r|a/i']], $uiCRA) && $uiCRA)
            {
                CLI::write();
                switch(strtolower($uiCRA['x']))
                {
                    case 'c':
                        $saveProgress($idx);
                        break 2;
                    case 'r':
                        break;
                    case 'a':
                        return;
                }
            }
            else
            {
                CLI::write();
                return;
            }
        }
    }

    unlink('cache/firstrun');
    CLISetup::siteLock(CLISetup::LOCK_OFF);
    CLI::write('setup finished', CLI::LOG_OK);
    return;
}

?>