<?php

/**
 * Kunena Component
 *
 * @package         Kunena.Framework
 * @subpackage      HTML
 *
 * @copyright       Copyright (C) 2008 - @currentyear@ Kunena Team. All rights reserved.
 * @license         https://www.gnu.org/copyleft/gpl.html GNU/GPL
 * @link            https://www.kunena.org
 **/

namespace Kunena\Forum\Libraries\Html;

\defined('_JEXEC') or die();

use Exception;
use Joomla\CMS\Factory;
use Joomla\CMS\HTML\HTMLHelper;
use Joomla\CMS\Plugin\PluginHelper;
use Joomla\Database\Exception\ExecutionFailureException;
use Joomla\Registry\Registry;
use Joomla\String\StringHelper;
use Kunena\Forum\Libraries\BBCode\KunenaBBCode;
use Kunena\Forum\Libraries\Error\KunenaError;
use Kunena\Forum\Libraries\Factory\KunenaFactory;
use Kunena\Forum\Libraries\Image\KunenaImage;
use Kunena\Forum\Libraries\Profiler\KunenaProfiler;
use stdClass;

/**
 * Class KunenaHtmlParser
 *
 * @since   Kunena 6.0
 */
abstract class KunenaParser
{
    /**
     * @var     null
     * @since   Kunena 6.0
     */
    public static $emoticons = null;

    /**
     * @var     boolean
     * @since   Kunena 6.0
     */
    public static $relative = true;

    /**
     * @param   bool  $grayscale    grayscale deprecated parameter since K6.4
     * @param   bool  $emoticonbar  emoticonbar
     * @param   bool  $addPath      addPath
     *
     * @return  array
     *
     * @throws  Exception
     * @since   Kunena 6.0
     */
    public static function getEmoticons($grayscale = false, $emoticonbar = false, $addPath = true): array
    {
        $db = Factory::getContainer()->get('DatabaseDriver');

        $query = $db->createQuery()
            ->select([$db->quoteName('code'), $db->quoteName('location', 'file')])
            ->from($db->quoteName('#__kunena_smileys'));

        if ($emoticonbar == true) {
            $query->where($db->quoteName('emoticonbar') . ' = 1');
        }

        $db->setQuery($query);

        try {
            $smilies = $db->loadObjectList();
        } catch (ExecutionFailureException $e) {
            KunenaError::displayDatabaseError($e);
        }

        $smileyArray = [];
        $template    = KunenaFactory::getTemplate();

        foreach ($smilies as $smiley) {
            $newstring = substr($smiley->file, -4);

            if ($newstring == '.svg') {
                $emoticon         = new stdClass();
                $emoticon->path   = $template->getSmileyPath($smiley->file);
                $emoticon->width  = 32;
                $emoticon->height = 32;
                $emoticon->type   = 'svg';
            } else {
                $smileyProperties = KunenaImage::getImageFileProperties($template->getSmileyPath($smiley->file));
                $emoticon         = new stdClass();
                $emoticon->path   = $template->getSmileyPath($smiley->file);
                $emoticon->width  = $smileyProperties->width;
                $emoticon->height = $smileyProperties->height;
                $emoticon->type   = $smileyProperties->type;
            }

            // We load all smileys in array, so we can sort them
            if ($addPath) {
                $smileyArray[$smiley->code] = $template->getSmileyPath($smiley->file);
            } else {
                $smileyArray[$smiley->code] = $smiley->file;
            }
        }

        if ($emoticonbar == 0) {
            // Don't sort when it's only for use in the emoticonbar
            array_multisort(array_keys($smileyArray), SORT_DESC, $smileyArray);
            reset($smileyArray);
        }

        return $smileyArray;
    }

    /**
     * @param   string  $txt     text
     * @param   int     $len     len
     * @param   string  $target  target
     *
     * @return  false|string
     *
     * @throws Exception
     * @since   Kunena 6.0
     */
    public static function parseText($txt, $len = 0, $target = 'title')
    {
        if (!$txt) {
            return false;
        }

        if ($len && StringHelper::strlen($txt) > $len) {
            $txt = StringHelper::substr($txt, 0, $len) . ' ...';
        }

        $txt = self::escape($txt);
        $txt = preg_replace('/(\S{30})/u', '\1', $txt);
        $txt = self::prepareContent($txt, $target);

        return $txt;
    }

    /**
     * @param   string  $string  string
     *
     * @return  string
     *
     * @since   Kunena 6.0
     */
    public static function escape(string $string): string
    {
        return htmlspecialchars($string, ENT_COMPAT, 'UTF-8');
    }

    /**
     * @param   string  $content  content
     * @param   string  $target   target
     *
     * @return  string
     *
     * @throws Exception
     * @since   Kunena 6.0
     */
    public static function &prepareContent(&$content, $target = 'body')
    {
        $params       = new Registry(PluginHelper::getPlugin('system', 'kunena')->params);
        $events       = (int) $params->get('jcontentevents', false);
        $event_target = (array) $params->get('jcontentevent_target', []);

        if ($content && $events && \in_array($target, $event_target)) {
            $content = HTMLHelper::_('content.prepare', $content, $params, 'kunena.contentprepare.' . $target);
        }

        return $content;
    }

    /**
     * @param   string  $txt      text
     * @param   null    $parent   parent
     * @param   int     $len      len
     * @param   string  $context  context
     * @param   string  $target   target
     *
     * @return  false|string
     *
     * @throws Exception
     * @since   Kunena 6.0
     */
    public static function parseBBCode($txt, $parent = null, $len = 0, $context = '', $target = 'message')
    {
        if (!$txt) {
            return false;
        }

        KunenaProfiler::getInstance() ? KunenaProfiler::instance()->start('function ' . __CLASS__ . '::' . __FUNCTION__ . '()') : null;

        $bbcode         = KunenaBbcode::getInstance(self::$relative);
        $bbcode->parent = $parent;
        $bbcode->SetLimit($len);
        $bbcode->context = $context;
        $bbcode->SetPlainMode(false);
        $txt = $bbcode->Parse($txt);
        $txt = self::prepareContent($txt, $target);

        KunenaProfiler::getInstance() ? KunenaProfiler::instance()->stop('function ' . __CLASS__ . '::' . __FUNCTION__ . '()') : null;

        return $txt;
    }

    /**
     * @param   string  $txt     text
     * @param   int     $len     len
     * @param   string  $target  target
     *
     * @return  false|string
     *
     * @throws Exception
     * @since   Kunena 6.0
     */
    public static function plainBBCode(string $txt, $len = 0, $target = 'message')
    {
        if (!$txt) {
            return false;
        }

        $bbcode = KunenaBbcode::getInstance(self::$relative);
        $bbcode->SetLimit($len);
        $bbcode->SetPlainMode(true);
        $txt = $bbcode->Parse($txt);
        $txt = self::prepareContent($txt, $target);

        return $txt;
    }

    /**
     * @param   string  $txt     text
     * @param   int     $len     len
     * @param   bool    $html    html
     * @param   string  $target  target
     *
     * @return  false|string
     *
     * @throws Exception
     * @since   Kunena 6.0
     */
    public static function stripBBCode(string $txt, $len = 0, $html = true, $target = 'message')
    {
        if (!$txt) {
            return false;
        }

        $txt = preg_replace('/\[confidential\](.*?)\[\/confidential\]/s', '', $txt);
        $txt = preg_replace('/\[color(.*?)\](.*?)\[\/color\]/s', '', $txt);
        $txt = preg_replace('/\[hide\](.*?)\[\/hide\]/s', '', $txt);
        $txt = preg_replace('/\[spoiler\](.*?)\[\/spoiler\]/s', '', $txt);
        $txt = preg_replace('/\[code(.*?)\](.*?)\[\/code]/s', '', $txt);
        $txt = preg_replace('/\[attachment(.*?)\](.*?)\[\/attachment]/s', '', $txt);
        $txt = preg_replace('/\[attachment]/s', '', $txt);
        $txt = preg_replace('/\[article\](.*?)\[\/article]/s', '', $txt);
        $txt = preg_replace('/\[video(.*?)\](.*?)\[\/video]/s', '', $txt);
        $txt = preg_replace('/\[img(.*?)\](.*?)\[\/img]/s', '', $txt);
        $txt = preg_replace('/\[image]/s', '', $txt);
        $txt = preg_replace('/\[url(.*?)\](.*?)\[\/url]/s', '', $txt);
        $txt = preg_replace('/\[quote(.*?)\](.*?)\[\/quote]/s', '', $txt);
        $txt = preg_replace('/\[spoiler(.*?)\](.*?)\[\/spoiler]/s', '', $txt);
        $txt = preg_replace('/\[tweet(.*?)\](.*?)\[\/tweet]/s', '', $txt);
        $txt = preg_replace('/\[instagram(.*?)\](.*?)\[\/instagram]/s', '', $txt);
        $txt = preg_replace('/\[soundcloud(.*?)\](.*?)\[\/soundcloud]/s', '', $txt);
        $txt = preg_replace('/\[PRIVATE(.*?)\]/s', '', $txt);

        if (PluginHelper::isEnabled('content', 'emailcloak')) {
            $pattern     = "/[^@\s]*@[^@\s]*\.[^@\s]*/";
            $replacement = ' ';
            $txt         = preg_replace($pattern, $replacement, $txt);
        }

        $bbcode                   = KunenaBBCode::getInstance(self::$relative);
        $bbcode->autoLink_disable = 1;
        $bbcode->SetLimit($len);
        $bbcode->SetPlainMode(true);
        $bbcode->SetAllowAmpersand($html);
        $txt = $bbcode->Parse($txt);
        $txt = self::prepareContent($txt, $target);
        $txt = strip_tags($txt);

        if (!$html) {
            $txt = $bbcode->UnHTMLEncode($txt);
        }

        return $txt;
    }
}