<?php

/**
 * Utilities for collecting data from config files
 *
 * @license    GPL 2 (http://www.gnu.org/licenses/gpl.html)
 * @author     Harry Fuecks <hfuecks@gmail.com>
 */

/*
 * line prefix used to negate single value config items
 * (scheme.conf & stopwords.conf), e.g.
 * !gopher
 */

use dokuwiki\Extension\AuthPlugin;
use dokuwiki\Extension\Event;

const DOKU_CONF_NEGATION = '!';

/**
 * Returns the (known) extension and mimetype of a given filename
 *
 * If $knownonly is true (the default), then only known extensions
 * are returned.
 *
 * @author Andreas Gohr <andi@splitbrain.org>
 *
 * @param string $file file name
 * @param bool   $knownonly
 * @return array with extension, mimetype and if it should be downloaded
 */
function mimetype($file, $knownonly = true)
{
    $mtypes = getMimeTypes();     // known mimetypes
    $ext    = strrpos($file, '.');
    if ($ext === false) {
        return [false, false, false];
    }
    $ext = strtolower(substr($file, $ext + 1));
    if (!isset($mtypes[$ext])) {
        if ($knownonly) {
            return [false, false, false];
        } else {
            return [$ext, 'application/octet-stream', true];
        }
    }
    if ($mtypes[$ext][0] == '!') {
        return [$ext, substr($mtypes[$ext], 1), true];
    } else {
        return [$ext, $mtypes[$ext], false];
    }
}

/**
 * returns a hash of mimetypes
 *
 * @author Andreas Gohr <andi@splitbrain.org>
 */
function getMimeTypes()
{
    static $mime = null;
    if (!$mime) {
        $mime = retrieveConfig('mime', 'confToHash');
        $mime = array_filter($mime);
    }
    return $mime;
}

/**
 * returns a hash of acronyms
 *
 * @author Harry Fuecks <hfuecks@gmail.com>
 */
function getAcronyms()
{
    static $acronyms = null;
    if (!$acronyms) {
        $acronyms = retrieveConfig('acronyms', 'confToHash');
        $acronyms = array_filter($acronyms, strlen(...));
    }
    return $acronyms;
}

/**
 * returns a hash of smileys
 *
 * @author Harry Fuecks <hfuecks@gmail.com>
 */
function getSmileys()
{
    static $smileys = null;
    if (!$smileys) {
        $smileys = retrieveConfig('smileys', 'confToHash');
        $smileys = array_filter($smileys, strlen(...));
    }
    return $smileys;
}

/**
 * returns a hash of entities
 *
 * @author Harry Fuecks <hfuecks@gmail.com>
 */
function getEntities()
{
    static $entities = null;
    if (!$entities) {
        $entities = retrieveConfig('entities', 'confToHash');
        $entities = array_filter($entities, strlen(...));
    }
    return $entities;
}

/**
 * returns a hash of interwikilinks
 *
 * @author Harry Fuecks <hfuecks@gmail.com>
 */
function getInterwiki()
{
    static $wikis = null;
    if (!$wikis) {
        $wikis = retrieveConfig('interwiki', 'confToHash', [true]);
        $wikis = array_filter($wikis, strlen(...));

        //add sepecial case 'this'
        $wikis['this'] = DOKU_URL . '{NAME}';
    }
    return $wikis;
}

/**
 * Returns the jquery script URLs for the versions defined in lib/scripts/jquery/versions
 *
 * @trigger CONFUTIL_CDN_SELECT
 * @return array
 */
function getCdnUrls()
{
    global $conf;

    // load version info
    $versions = [];
    $lines = file(DOKU_INC . 'lib/scripts/jquery/versions');
    foreach ($lines as $line) {
        $line = trim(preg_replace('/#.*$/', '', $line));
        if ($line === '') continue;
        [$key, $val] = sexplode('=', $line, 2, '');
        $key = trim($key);
        $val = trim($val);
        $versions[$key] = $val;
    }

    $src = [];
    $data = ['versions' => $versions, 'src' => &$src];
    $event = new Event('CONFUTIL_CDN_SELECT', $data);
    if ($event->advise_before()) {
        if (!$conf['jquerycdn']) {
            $jqmod = md5(implode('-', $versions));
            $src[] = DOKU_BASE . 'lib/exe/jquery.php' . '?tseed=' . $jqmod;
        } elseif ($conf['jquerycdn'] == 'jquery') {
            $src[] = sprintf('https://code.jquery.com/jquery-%s.min.js', $versions['JQ_VERSION']);
            $src[] = sprintf('https://code.jquery.com/ui/%s/jquery-ui.min.js', $versions['JQUI_VERSION']);
        } elseif ($conf['jquerycdn'] == 'cdnjs') {
            $src[] = sprintf(
                'https://cdnjs.cloudflare.com/ajax/libs/jquery/%s/jquery.min.js',
                $versions['JQ_VERSION']
            );
            $src[] = sprintf(
                'https://cdnjs.cloudflare.com/ajax/libs/jqueryui/%s/jquery-ui.min.js',
                $versions['JQUI_VERSION']
            );
        }
    }
    $event->advise_after();

    return $src;
}

/**
 * returns array of wordblock patterns
 *
 */
function getWordblocks()
{
    static $wordblocks = null;
    if (!$wordblocks) {
        $wordblocks = retrieveConfig('wordblock', 'file', null, 'array_merge_with_removal');
    }
    return $wordblocks;
}

/**
 * Gets the list of configured schemes
 *
 * @return array the schemes
 */
function getSchemes()
{
    static $schemes = null;
    if (!$schemes) {
        $schemes = retrieveConfig('scheme', 'file', null, 'array_merge_with_removal');
        $schemes = array_map(trim(...), $schemes);
        $schemes = preg_replace('/^#.*/', '', $schemes);
        $schemes = array_filter($schemes);
    }
    return $schemes;
}

/**
 * Builds a hash from an array of lines
 *
 * If $lower is set to true all hash keys are converted to
 * lower case.
 *
 * @author Harry Fuecks <hfuecks@gmail.com>
 * @author Andreas Gohr <andi@splitbrain.org>
 * @author Gina Haeussge <gina@foosel.net>
 *
 * @param array $lines
 * @param bool $lower
 *
 * @return array
 */
function linesToHash($lines, $lower = false)
{
    $conf = [];
    // remove BOM
    if (isset($lines[0]) && str_starts_with($lines[0], pack('CCC', 0xef, 0xbb, 0xbf)))
        $lines[0] = substr($lines[0], 3);
    foreach ($lines as $line) {
        //ignore comments (except escaped ones)
        $line = preg_replace('/(?<![&\\\\])#.*$/', '', $line);
        $line = str_replace('\\#', '#', $line);
        $line = trim($line);
        if ($line === '') continue;
        $line = preg_split('/\s+/', $line, 2);
        $line = array_pad($line, 2, '');
        // Build the associative array
        if ($lower) {
            $conf[strtolower($line[0])] = $line[1];
        } else {
            $conf[$line[0]] = $line[1];
        }
    }

    return $conf;
}

/**
 * Builds a hash from a configfile
 *
 * If $lower is set to true all hash keys are converted to
 * lower case.
 *
 * @author Harry Fuecks <hfuecks@gmail.com>
 * @author Andreas Gohr <andi@splitbrain.org>
 * @author Gina Haeussge <gina@foosel.net>
 *
 * @param string $file
 * @param bool $lower
 *
 * @return array
 */
function confToHash($file, $lower = false)
{
    $conf = [];
    $lines = @file($file);
    if (!$lines) return $conf;

    return linesToHash($lines, $lower);
}

/**
 * Read a json config file into an array
 *
 * @param string $file
 * @return array
 * @throws JsonException
 */
function jsonToArray($file)
{
    $json = file_get_contents($file);

    $conf = json_decode($json, true, 512, JSON_THROW_ON_ERROR);

    if ($conf === null) {
        return [];
    }

    return $conf;
}

/**
 * Retrieve the requested configuration information
 *
 * @author Chris Smith <chris@jalakai.co.uk>
 *
 * @param  string   $type     the configuration settings to be read, must correspond to a key/array in $config_cascade
 * @param  callback $fn       the function used to process the configuration file into an array
 * @param  array    $params   optional additional params to pass to the callback
 * @param  callback $combine  the function used to combine arrays of values read from different configuration files;
 *                            the function takes two parameters,
 *                               $combined - the already read & merged configuration values
 *                               $new - array of config values from the config cascade file being currently processed
 *                            and returns an array of the merged configuration values.
 * @return array    configuration values
 */
function retrieveConfig($type, $fn, $params = null, $combine = 'array_merge')
{
    global $config_cascade;

    if (!is_array($params)) $params = [];

    $combined = [];
    if (!is_array($config_cascade[$type])) trigger_error('Missing config cascade for "' . $type . '"', E_USER_WARNING);
    foreach (['default', 'local', 'protected'] as $config_group) {
        if (empty($config_cascade[$type][$config_group])) continue;
        foreach ($config_cascade[$type][$config_group] as $file) {
            if (file_exists($file)) {
                $config = call_user_func_array($fn, array_merge([$file], $params));
                $combined = $combine($combined, $config);
            }
        }
    }

    return $combined;
}

/**
 * Include the requested configuration information
 *
 * @author Chris Smith <chris@jalakai.co.uk>
 *
 * @param  string   $type     the configuration settings to be read, must correspond to a key/array in $config_cascade
 * @return array              list of files, default before local before protected
 */
function getConfigFiles($type)
{
    global $config_cascade;
    $files = [];

    if (!is_array($config_cascade[$type])) trigger_error('Missing config cascade for "' . $type . '"', E_USER_WARNING);
    foreach (['default', 'local', 'protected'] as $config_group) {
        if (empty($config_cascade[$type][$config_group])) continue;
        $files = array_merge($files, $config_cascade[$type][$config_group]);
    }

    return $files;
}

/**
 * check if the given action was disabled in config
 *
 * @author Andreas Gohr <andi@splitbrain.org>
 * @param string $action
 * @returns boolean true if enabled, false if disabled
 */
function actionOK($action)
{
    static $disabled = null;
    if (is_null($disabled) || defined('SIMPLE_TEST')) {
        global $conf;
        /** @var AuthPlugin $auth */
        global $auth;

        // prepare disabled actions array and handle legacy options
        $disabled = explode(',', $conf['disableactions']);
        $disabled = array_map(trim(...), $disabled);
        if (
            (isset($conf['openregister']) && !$conf['openregister']) || !$auth instanceof AuthPlugin
            || !$auth->canDo('addUser')
        ) {
            $disabled[] = 'register';
        }
        if (
            (isset($conf['resendpasswd']) && !$conf['resendpasswd']) || !$auth instanceof AuthPlugin
            || !$auth->canDo('modPass')
        ) {
            $disabled[] = 'resendpwd';
        }
        if ((isset($conf['subscribers']) && !$conf['subscribers']) || !$auth instanceof AuthPlugin) {
            $disabled[] = 'subscribe';
        }
        if (!$auth instanceof AuthPlugin || !$auth->canDo('Profile')) {
            $disabled[] = 'profile';
        }
        if (!$auth instanceof AuthPlugin || !$auth->canDo('delUser')) {
            $disabled[] = 'profile_delete';
        }
        if (!$auth instanceof AuthPlugin) {
            $disabled[] = 'login';
        }
        if (!$auth instanceof AuthPlugin || !$auth->canDo('logout')) {
            $disabled[] = 'logout';
        }
        $disabled = array_unique($disabled);
    }

    return !in_array($action, $disabled);
}

/**
 * check if headings should be used as link text for the specified link type
 *
 * @author Chris Smith <chris@jalakai.co.uk>
 *
 * @param   string  $linktype   'content'|'navigation', content applies to links in wiki text
 *                                                      navigation applies to all other links
 * @return  boolean             true if headings should be used for $linktype, false otherwise
 */
function useHeading($linktype)
{
    static $useHeading = null;
    if (defined('DOKU_UNITTEST')) $useHeading = null; // don't cache during unit tests

    if (is_null($useHeading)) {
        global $conf;

        if (!empty($conf['useheading'])) {
            switch ($conf['useheading']) {
                case 'content':
                    $useHeading['content'] = true;
                    break;

                case 'navigation':
                    $useHeading['navigation'] = true;
                    break;
                default:
                    $useHeading['content'] = true;
                    $useHeading['navigation'] = true;
            }
        } else {
            $useHeading = [];
        }
    }

    return (!empty($useHeading[$linktype]));
}

/**
 * obscure config data so information isn't plain text
 *
 * @param string       $str     data to be encoded
 * @param string       $code    encoding method, values: plain, base64, uuencode.
 * @return string               the encoded value
 */
function conf_encodeString($str, $code)
{
    return match ($code) {
        'base64' => '<b>' . base64_encode($str),
        'uuencode' => '<u>' . convert_uuencode($str),
        default => $str,
    };
}
/**
 * return obscured data as plain text
 *
 * @param  string      $str   encoded data
 * @return string             plain text
 */
function conf_decodeString($str)
{
    return match (substr($str, 0, 3)) {
        '<b>' => base64_decode(substr($str, 3)),
        '<u>' => convert_uudecode(substr($str, 3)),
        // not encoded (or unknown)
        default => $str,
    };
}

/**
 * array combination function to remove negated values (prefixed by !)
 *
 * @param  array $current
 * @param  array $new
 *
 * @return array the combined array, numeric keys reset
 */
function array_merge_with_removal($current, $new)
{
    foreach ($new as $val) {
        if (str_starts_with($val, DOKU_CONF_NEGATION)) {
            $idx = array_search(trim(substr($val, 1)), $current);
            if ($idx !== false) {
                unset($current[$idx]);
            }
        } else {
            $current[] = trim($val);
        }
    }

    return array_slice($current, 0);
}
//Setup VIM: ex: et ts=4 :
