<?php
/**
 * @package         Modals
 * @version         12.3.5
 * 
 * @author          Peter van Westen <info@regularlabs.com>
 * @link            http://regularlabs.com
 * @copyright       Copyright © 2023 Regular Labs All Rights Reserved
 * @license         http://www.gnu.org/licenses/gpl-2.0.html GNU/GPL
 */

namespace RegularLabs\Plugin\System\Modals;

defined('_JEXEC') or die;

use ContentHelperRoute;
use Joomla\CMS\Factory as JFactory;
use Joomla\CMS\Language\Text as JText;
use RegularLabs\Library\File as RL_File;
use RegularLabs\Library\PluginTag as RL_PluginTag;
use RegularLabs\Library\RegEx as RL_RegEx;
use RegularLabs\Library\StringHelper as RL_String;

class Link
{
    public static function build($attributes, $data, $content = '')
    {

        if (isset($data['image']))
        {
            $attributes->href = $data['image'];
            $data['image']    = 'true';

        }

        $params = Params::get();

        self::setVideoUrl($attributes, $data);

        if (empty($attributes->href))
        {
            return '';
        }

        $isexternal = RL_File::isExternal($attributes->href);
        $ismedia    = isset($data['image']) || RL_File::isMedia($attributes->href, $params->mediafiles);
        $isvideo    = File::isVideo($attributes->href, $data);
        $fullpage   = (empty($data['fullpage']) || $isexternal) ? false : (bool) $data['fullpage'];
        $isiframe   = $fullpage || File::isIframe($attributes->href, $data);
        $class      = ! empty($data['classname']) ? [$data['classname']] : [];

        if (isset($attributes->{'data-modal-title'}) && ! isset($data['title']))
        {
            $data['title'] = $attributes->{'data-modal-title'};
            unset($attributes->{'data-modal-title'});
        }

        if (isset($attributes->title) && ! isset($data['title']))
        {
            $data['title'] = $attributes->title;
            unset($attributes->title);
        }

        if (isset($attributes->{'data-modal-description'}) && ! isset($data['description']))
        {
            $data['description'] = $attributes->{'data-modal-description'};
            unset($attributes->{'data-modal-description'});
        }

        if ($ismedia)
        {
            $class[]       = 'is_image';
            $data['image'] = 'true';

            if ( ! isset($data['title']))
            {
                $auto_titles = $data['auto_titles'] ?? $params->auto_titles;
                $title_case  = $data['title_case'] ?? $params->title_case;
                if ($auto_titles)
                {
                    $data['title'] = File::getTitle($attributes->href, $title_case);
                }
            }

            if ($params->retinaurl && ! $isexternal && ! File::retinaImageExists($attributes->href))
            {
                $data['retinaurl'] = 'false';
            }
        }
        unset($data['auto_titles']);

        // Force/overrule certain data values
        if ($isiframe || ($isexternal && ! $ismedia))
        {
            // use iframe mode for external urls
            $data['iframe'] = 'true';
            Data::setDataWidthHeight($data, $isexternal);
        }

        if ($isvideo)
        {
            $class[]       = 'is_video';
            $data['video'] = 'true';
        }

        if ($attributes->href && $attributes->href[0] != '#' && ! $isexternal && ! $ismedia && ! $isvideo)
        {
            $attributes->href = Document::addUrlAttributes($attributes->href, $isiframe, $fullpage, ! empty($data['print']));
        }


        if (empty($data['title']))
        {
            $class[]       = 'no_title';
            $data['title'] = '';
        }

        $data['classname'] = implode(' ', $class);


        // Add aria label for empty links for accessibility
        if (empty($content))
        {
            $label = isset($attributes->title)
                ? $attributes->title
                : (isset($data['title'])
                    ? self::cleanTitle($data['title'])
                    : ''
                );

            $attributes->{'aria-label'} = $label ?: 'Popup link';
        }

        return
            '<a'
            . Data::flattenAttributeList($attributes)
            . Data::flattenDataAttributeList($data)
            . '>'
            . $content;
    }

    public static function get($string, $link = '', $content = '')
    {
        [$attributes, $data, $extra] = self::getData($string, $link);

        $link = self::build($attributes, $data, $content);
        $link .= $link ? '</a>' : '';

        return [$link, $extra];
    }

    public static function getAttributeList($string)
    {
        $attributes = (object) [];

        if ( ! $string)
        {
            return $attributes;
        }

        $params = Params::get();

        RL_RegEx::matchAll('([a-z0-9_-]+)\s*=\s*(?:"(.*?)"|\'(.*?)\')', $string, $params);

        if (empty($params))
        {
            return $attributes;
        }

        foreach ($params as $param)
        {
            $attributes->{$param[1]} = $param[3] ?? $param[2];
        }

        return $attributes;
    }

    public static function getData($string, $link = '')
    {
        $params = Params::get();

        $attributes = self::prepareAttributeList($link);

        RL_PluginTag::protectSpecialChars($string);

        $is_old_syntax =
            (strpos($string, '|') !== false)
            && (strpos($string, '="') === false && strpos($string, '=&quot;') === false);

        if ($is_old_syntax)
        {
            // Replace open attribute with open=1
            $string = RL_RegEx::replace('(^|\|)open($|\|)', '\1open=1\2', $string);

            // Add empty url attribute to beginning if no url/href attribute is there,
            // to prevent issues with grabbing values from old syntax
            if (RL_RegEx::match('^([a-z]+)=', $string, $match))
            {
                if ($match[1] != 'url' && $match[1] != 'href')
                {
                    $string = 'url=|' . $string;
                }
            }
        }

        RL_PluginTag::unprotectSpecialChars($string);

        // Get the values from the tag
        $tag = RL_PluginTag::getAttributesFromString($string, 'url', $params->booleans);

        $key_aliases = [
            'url'              => ['href', 'link', 'src'],
        ];

        RL_PluginTag::replaceKeyAliases($tag, $key_aliases);

        if ( ! empty($tag->url))
        {
            $attributes->href = self::cleanUrl($tag->url);
        }
        unset($tag->url);

        if ( ! empty($tag->target))
        {
            $attributes->target = $tag->target;
        }
        unset($tag->target);

        $extra = '';


        $attributes->id = $tag->id ?? '';
        unset($tag->id);

        $attributes->class .= ! empty($tag->class) ? ' ' . $tag->class : '';
        unset($tag->class);

        $attributes->style = $tag->style ?? '';
        unset($tag->style);

        if ( ! empty($tag->title))
        {
            $tag->title        = self::translateString($tag->title);
            $attributes->title = RL_String::removeHtml($tag->title);
        }

        if ( ! empty($tag->description))
        {
            $tag->description = self::translateString($tag->description);
        }

        // move onSomething params to attributes, except the modal callbacks
        $callbacks = ['onopen', 'onload', 'oncomplete', 'oncleanup', 'onclosed'];
        foreach ($tag as $key => $val)
        {
            if (
                substr($key, 0, 2) == 'on'
                && ! in_array(strtolower($key), $callbacks)
                && is_string($val)
            )
            {
                $attributes->{$key} = $val;
                unset($tag->{$key});
            }
        }

        $data = [];


        // set data by values set in tag
        foreach ($tag as $key => $val)
        {
            $data[strtolower($key)] = $val;
        }

        return [$attributes, $data, $extra];
    }

    private static function addUrlParameter($url, $key, $value = '')
    {
        if (empty($key))
        {
            return $url;
        }

        $key = ltrim($key, '?&');

        if (RL_RegEx::match('[\?&]' . $key . '=', $url))
        {
            return $url;
        }

        $query = $key;

        if ($value)
        {
            $query .= '=' . $value;
        }

        return $url . (strpos($url, '?') === false ? '?' : '&') . $query;
    }

    private static function cleanTitle($string)
    {
        $string = str_replace('<div class="modals_description">', ' - ', $string);

        return RL_String::removeHtml($string);
    }

    private static function cleanUrl($url)
    {
        return RL_RegEx::replace('<a[^>]*>(.*?)</a>', '\1', $url);
    }

    private static function fixUrlVimeo($url)
    {
        $regex = '(?:^vimeo=|vimeo\.com/(?:video/)?)(?<id>[0-9]+)(?<query>.*)$';

        if ( ! RL_RegEx::match($regex, trim($url), $match))
        {
            return $url;
        }

        $url = 'https://player.vimeo.com/video/' . $match['id'];

        $url = self::addUrlParameter($url, $match['query']);

        return $url;
    }

    private static function fixUrlYoutube($url)
    {
        $regex = '(?:^youtube=|youtu\.be/?|youtube\.com/embed/?|youtube\.com\/watch\?v=)(?<id>[^/&\?]+)(?:\?|&amp;|&)?(?<query>.*)$';

        if ( ! RL_RegEx::match($regex, trim($url), $match))
        {
            return $url;
        }

        $url = 'https://www.youtube.com/embed/' . $match['id'];

        $url = self::addUrlParameter($url, $match['query']);
        $url = self::addUrlParameter($url, 'wmode', 'transparent');

        return $url;
    }

    private static function fixVideoUrl($url, &$data)
    {
        switch (true)
        {
            case(
                strpos($url, 'youtu.be') !== false
                || strpos($url, 'youtube.com') !== false
            ) :
                $data['video'] = 'true';

                return self::fixUrlYoutube($url);

            case(
                strpos($url, 'vimeo.com') !== false
            ) :
                $data['video'] = 'true';

                return self::fixUrlVimeo($url);

            default:
                return $url;
        }
    }

    private static function prepareAttributeList($link)
    {
        $params = Params::get();

        $attributes        = (object) [];
        $attributes->href  = '';
        $attributes->class = $params->class;
        $attributes->id    = '';

        if ( ! $link)
        {
            return $attributes;
        }

        $link_attributes = self::getAttributeList(trim($link));

        foreach ($link_attributes as $key => $val)
        {
            $key = trim($key);
            $val = trim($val);

            if ($key == '' || $val == '')
            {
                continue;
            }

            if ($key == 'class')
            {
                $attributes->{$key} = trim($attributes->{$key} . ' ' . $val);
                continue;
            }

            $attributes->{$key} = $val;
        }

        return $attributes;
    }

    private static function setVideoUrl(&$attributes, &$data)
    {

        $attributes->href = self::fixVideoUrl($attributes->href, $data);
    }

    private static function translateString($string = '')
    {
        if (empty($string) || ! RL_RegEx::match('^[A-Z][A-Z0-9_]+$', $string))
        {
            return $string;
        }

        return JText::_($string);
    }
}