<?php

use AcyMailing\Classes\UserClass;

trait ManagetextInsertion
{
    private array $noIfStatementTags = [];

    public function replaceContent(object &$email): void
    {
        $this->replaceRandom($email);
        $this->handleAnchors($email);
        $this->fixPicturesOutlook($email);
    }

    public function replaceUserInformation(object &$email, ?object &$user, bool $send = true): void
    {
        $this->pluginHelper->cleanHtml($email->body);
        $this->pluginHelper->replaceVideos($email->body);

        $this->removeText($email);
        $this->ifStatement($email, $user);
        $this->replaceTranslations($email, $user);
        $this->replaceConfigValues($email);
    }

    /**
     * Replaces tags such as {trans:ACYM_MY_TRANSLATION}
     */
    private function replaceTranslations(&$email, $user)
    {
        //load the tags
        $tags = $this->pluginHelper->extractTags($email, 'trans');
        if (empty($tags)) {
            return;
        }

        $tagsReplaced = [];
        foreach ($tags as $i => $oneTag) {
            $val = '';
            // Complex tag (contains "|param1|param2|...") for dynamic text with values to replace
            $arrayVal = [];
            foreach ($oneTag as $valname => $oneValue) {
                if ($valname == 'id') {
                    $val = trim(acym_stripTags($oneValue));
                } elseif ($valname != 'default') {
                    // Recreate tags (not before to prevent premature end of tag when parsing)
                    $arrayVal[] = '{'.$valname.'}';
                }
            }

            if (empty($val)) {
                continue;
            }
            if (!empty($user->language)) {
                $language = $user->language;
            } elseif (!empty($email->language)) {
                $language = $email->language;
            } else {
                $language = acym_getLanguageTag();
            }

            $previousLanguage = acym_setLanguage($language);
            acym_loadLanguage($language);

            static $done = false;
            if (!$done && strpos($val, 'COM_USERS') !== false) {
                $done = true;
                //Com_users? Let's load the com_users language file then!

                acym_loadLanguageFile('com_users');
            }
            if (!empty($arrayVal)) {
                $translation = acym_translation($val);
                $paramsIncluded = vsprintf($translation, $arrayVal);
                if ($translation === $paramsIncluded) {
                    $translation = preg_replace(
                        '/\{[A-Z_]+\}/',
                        '%s',
                        $translation
                    );
                    $paramsIncluded = vsprintf($translation, $arrayVal);
                }
                $tagsReplaced[$i] = nl2br($paramsIncluded);
            } else {
                $tagsReplaced[$i] = acym_translation($val);
            }

            if (empty($previousLanguage)) $previousLanguage = acym_getLanguageTag();
            acym_setLanguage($previousLanguage);
            acym_loadLanguage($previousLanguage);
        }

        //We replace standard tags
        $this->pluginHelper->replaceTags($email, $tagsReplaced, true);
    }

    private function replaceConfigValues(&$email)
    {
        $tags = $this->pluginHelper->extractTags($email, 'config');
        if (empty($tags)) {
            return;
        }

        $tagsReplaced = [];
        foreach ($tags as $i => $oneTag) {
            if (trim($oneTag->id) === 'sitename') {
                // We do not allow all config values for now only sitename.
                $tagsReplaced[$i] = acym_getCMSConfig('sitename');
            }
        }

        $this->pluginHelper->replaceTags($email, $tagsReplaced, true);
    }

    private function replaceRandom(&$email)
    {
        $randTag = $this->pluginHelper->extractTags($email, 'rand');
        if (empty($randTag)) {
            return;
        }
        foreach ($randTag as $oneRandTag) {
            $results[$oneRandTag->id] = explode(';', $oneRandTag->id);
            $randNumber = acym_rand(0, count($results[$oneRandTag->id]) - 1);
            $results[$oneRandTag->id][count($results[$oneRandTag->id])] = $results[$oneRandTag->id][$randNumber];
        }

        $tags = [];
        foreach (array_keys($results) as $oneResult) {
            $tags['{rand:'.$oneResult.'}'] = end($results[$oneResult]);
        }

        if (empty($tags)) {
            return;
        }
        $this->pluginHelper->replaceTags($email, $tags, true);
    }

    private function ifStatement(&$email, $user, $loop = 1)
    {
        if (empty($email->id) || isset($this->noIfStatementTags[$email->id])) {
            return;
        }

        $isAdmin = acym_isAdmin();

        if ($loop > 3) {
            if ($isAdmin) {
                acym_display('You cannot have more than 3 nested {if} tags.', 'warning');
            }

            return;
        }

        $match = '#{if:(((?!{if).)*)}(((?!{if).)*){/if}#Uis';
        $variables = ['subject', 'body', 'altbody', 'From', 'FromName', 'ReplyTo'];
        $found = false;
        $results = [];
        foreach ($variables as $var) {
            if (empty($email->$var)) continue;

            if (is_array($email->$var)) {
                foreach ($email->$var as $i => &$arrayField) {
                    if (empty($arrayField) || !is_array($arrayField)) continue;

                    foreach ($arrayField as $key => &$oneval) {
                        $found = preg_match_all($match, $oneval, $results[$var.$i.'-'.$key]) || $found;
                        if (empty($results[$var.$i.'-'.$key][0])) unset($results[$var.$i.'-'.$key]);
                    }
                }
            } else {
                $found = preg_match_all($match, $email->$var, $results[$var]) || $found;
                //we unset the results so that we won't handle it later... it will save some memory and processing
                if (empty($results[$var][0])) unset($results[$var]);
            }
        }

        //If we didn't find anything...
        if (!$found) {
            if ($loop == 1) {
                $this->noIfStatementTags[$email->id] = true;
            }

            return;
        }

        // Handles error messages
        static $alreadyHandled = false;

        $userClass = new UserClass();
        if (!empty($user->id)) {
            $acymUser = $userClass->getOneByIdWithCustomFields($user->id);
        }
        $tags = [];
        foreach ($results as $allresults) {
            foreach ($allresults[0] as $i => $oneTag) {
                if (empty($user->id)) {
                    $tags[$oneTag] = '';
                    continue;
                }

                //Don't need to process twice a tag we already have!
                if (isset($tags[$oneTag])) {
                    continue;
                }
                //We explode each argument of the tag
                $allresults[1][$i] = html_entity_decode($allresults[1][$i]);
                if (
                    !preg_match('#^(.+)(!=|<|>|&gt;|&lt;|!~)([^=!<>~]+)$#is', $allresults[1][$i], $operators)
                    && !preg_match('#^(.+)(=|~)([^=!<>~]+)$#is', $allresults[1][$i], $operators)
                ) {
                    if ($isAdmin) {
                        acym_enqueueMessage(acym_translationSprintf('ACYM_OPERATION_NOT_FOUND', $allresults[1][$i]), 'error');
                    }
                    $tags[$oneTag] = $allresults[3][$i];
                    continue;
                }
                $field = trim($operators[1]);
                $prop = '';

                $operatorsParts = explode('.', $operators[1]);
                $type = 'acym';
                if (count($operatorsParts) > 1 && in_array($operatorsParts[0], ['acym', 'joomla', 'var'])) {
                    $type = $operatorsParts[0];
                    unset($operatorsParts[0]);
                    $field = implode('.', $operatorsParts);
                }

                // Handle Joomla fields first
                if ($type === 'joomla') {
                    if (!empty($user->userid)) {
                        if ($field === 'gid') {
                            //We have an userid... lets load its groups then!
                            $prop = implode(';', acym_loadResultArray('SELECT group_id FROM #__user_usergroup_map WHERE user_id = '.intval($user->userid)));
                        } else {
                            //We need to load the value for that field...
                            $juser = acym_loadObject('SELECT * FROM #__users WHERE id = '.intval($user->userid));
                            if (isset($juser->{$field})) {
                                $prop = strtolower($juser->{$field});
                            } else {
                                if ($isAdmin && !$alreadyHandled) {
                                    acym_enqueueMessage('User variable not set: '.$field.' in '.$allresults[1][$i], 'error');
                                }
                                $alreadyHandled = true;
                            }
                        }
                    }
                } elseif ($type === 'var') {
                    // Static var to have a tag inside an if condition, for example {if:var.{cbtag:name}=adrien}...{/if}
                    $prop = strtolower($field);
                } else {
                    // AcyMailing fields
                    if (!isset($acymUser[$field])) {
                        // We make sure to display it only once
                        if ($isAdmin && !$alreadyHandled) {
                            acym_enqueueMessage('User variable not set: '.$field.' in '.$allresults[1][$i], 'error');
                        }
                        $alreadyHandled = true;
                    } else {
                        $prop = strtolower($acymUser[$field]);
                    }
                }

                $tags[$oneTag] = '';
                $val = strtolower(trim($operators[3]));
                $prop = acym_stripTags($prop);
                //We can handle several propositions in one if it contains ; such as {if:category=34;214;53}...
                if ($operators[2] === '=' && ($prop == $val || in_array($prop, explode(';', $val)) || in_array($val, explode(';', $prop)))) {
                    $tags[$oneTag] = $allresults[3][$i];
                } elseif ($operators[2] === '!=' && $prop != $val) {
                    $tags[$oneTag] = $allresults[3][$i];
                } elseif (($operators[2] === '>' || $operators[2] === '&gt;') && $prop > $val) {
                    $tags[$oneTag] = $allresults[3][$i];
                } elseif (($operators[2] === '<' || $operators[2] === '&lt;') && $prop < $val) {
                    $tags[$oneTag] = $allresults[3][$i];
                } elseif ($operators[2] === '~' && strpos($prop, $val) !== false) {
                    $tags[$oneTag] = $allresults[3][$i];
                } elseif ($operators[2] === '!~' && strpos($prop, $val) === false) {
                    $tags[$oneTag] = $allresults[3][$i];
                }
            }
        }

        $this->pluginHelper->replaceTags($email, $tags, true);

        $this->ifStatement($email, $user, $loop + 1);
    }

    private function removeText(&$email)
    {
        //Remove text
        $removeText = '{reg},{/reg},{pub},{/pub}';
        if (!empty($removeText)) {
            $removeArray = explode(',', trim($removeText, ' ,'));
            if (!empty($email->body)) {
                $email->body = str_replace($removeArray, '', $email->body);
            }
        }


        $removetags = 'youtube';
        if (!empty($removetags)) {
            $regex = [];
            $removeArray = explode(',', trim($removetags, ' ,'));
            foreach ($removeArray as $oneTag) {
                if (empty($oneTag)) {
                    continue;
                }
                $regex[] = '#(?:{|%7B)'.preg_quote($oneTag, '#').'(?:}|%7D).*(?:{|%7B)/'.preg_quote($oneTag, '#').'(?:}|%7D)#Uis';
                $regex[] = '#(?:{|%7B)'.preg_quote($oneTag, '#').'[^}]*(?:}|%7D)#Uis';
            }

            if (!empty($email->body)) {
                $email->body = preg_replace($regex, '', $email->body);
            }
        }
    }

    private function handleAnchors(&$email)
    {
        if (empty($email->body)) return;

        $newBody = preg_replace('/(<a +href="#[^"]*"[^>]*) target="_blank"([^>]*>)/Uis', '$1 $2', $email->body);

        if (!empty($newBody)) $email->body = $newBody;
    }

    /**
     * Make sure each image has a width/height
     * This function can be used by plugins as well
     */
    public function fixPicturesOutlook(&$email)
    {
        $this->addPictureDimensions($email->body);
        $this->addPictureAlign($email->body);
    }

    public function addPictureDimensions(&$html)
    {
        if (!preg_match_all('#(<img)([^>]*>)#i', $html, $results)) {
            return;
        }

        $replace = [];
        $widthheight = ['width', 'height'];
        foreach ($results[0] as $num => $oneResult) {
            $add = [];
            foreach ($widthheight as $whword) {
                //We only add it if the picture does not already have the height/width and only if the height is specified as px
                //About the second regex, we make sure to ignore all line-height or other similar CSS styles by making sure it does not start with a character or an underscore or an hyphen.
                if (preg_match('#'.$whword.' *=#i', $oneResult) || !preg_match('#[^a-z_\-]'.$whword.' *:([0-9 ]{1,8})px#i', $oneResult, $resultWH)) continue;

                //We don't have the width= ... but we have one width:...
                //We make sure it's not an empty one...
                if (empty($resultWH[1])) continue;
                //Let's add the width as img parameter then
                $add[] = $whword.'="'.trim($resultWH[1]).'" ';
            }

            if (!empty($add)) {
                $replace[$oneResult] = '<img '.implode(' ', $add).$results[2][$num];
            }
        }

        //Nothing to do
        if (!empty($replace)) {
            $html = str_replace(array_keys($replace), $replace, $html);
            preg_match_all('#(<img)([^>]*>)#i', $html, $results);
        }

        static $replace = [];
        foreach ($results[0] as $num => $oneResult) {
            if (isset($replace[$oneResult])) continue;
            if (strpos($oneResult, 'width=') || strpos($oneResult, 'height=')) continue;
            if (preg_match('#[^a-z_\-]width *:([0-9 ]{1,8})#i', $oneResult, $res)) continue;
            if (preg_match('#[^a-z_\-]height *:([0-9 ]{1,8})#i', $oneResult, $res)) continue;
            if (!preg_match('#src="([^"]*)"#i', $oneResult, $url)) continue;

            //Ok we have an url, it's $url[1]
            $imageUrl = $url[1];

            //If the getimagesize failed, we don't want to do it again and again and again...
            $replace[$oneResult] = $oneResult;

            //We are nice guys... sometimes users use www. or not... so we convert both, same thing for httpS or http
            $base = str_replace(['http://www.', 'https://www.', 'http://', 'https://'], '', ACYM_LIVE);
            $replacements = ['https://www.'.$base, 'http://www.'.$base, 'https://'.$base, 'http://'.$base];
            $localpict = false;
            foreach ($replacements as $oneReplacement) {
                if (strpos($imageUrl, $oneReplacement) === false) continue;

                $imageUrl = str_replace(
                    [$oneReplacement, '/'],
                    [ACYM_ROOT, DS],
                    urldecode($imageUrl)
                );
                $localpict = true;
                break;
            }

            //It's not a local picture... we skip it, we don't want to try to load it, it will take too much time
            if (!$localpict) continue;

            $dim = @getimagesize($imageUrl);
            //could not load the picture...
            if (!$dim) continue;
            if (empty($dim[0]) || empty($dim[1])) continue;

            $replace[$oneResult] = str_replace('<img', '<img width="'.$dim[0].'" height="'.$dim[1].'"', $oneResult);
        }

        if (!empty($replace)) {
            $html = str_replace(array_keys($replace), $replace, $html);
        }
    }

    public function addPictureAlign(&$html)
    {
        preg_match_all('#< *img([^>]*)>#Ui', $html, $allPictures);

        foreach ($allPictures[0] as $i => $onePict) {
            // 1 - We add a align="right" or align="left" for the pictures in order to have good result on Outlook 2007
            if (strpos($onePict, 'align=') !== false) continue;
            if (!preg_match('#(style="[^"]*)(float *: *)(right|left|top|bottom|middle)#Ui', $onePict, $pictParams)) continue;

            $newPict = str_replace('<img', '<img align="'.$pictParams[3].'" ', $onePict);
            $html = str_replace($onePict, $newPict, $html);


            // 2 - We also add a hspace based on the margin parameter
            if (strpos($onePict, 'hspace=') !== false) continue;

            $hspace = 5;
            if (preg_match('#margin(-right|-left)? *:([^";]*)#i', $onePict, $margins)) {
                //If we have spaces, it may be a margin:34px 24px 78px; format.
                $currentMargins = explode(' ', trim($margins[2]));
                //If we have more than one param then we always use the second one (which is "right")... if not we use the first one
                $myMargin = (count($currentMargins) > 1) ? $currentMargins[1] : $currentMargins[0];
                //We use it only if it's in px
                if (strpos($myMargin, 'px') !== false) $hspace = preg_replace('#[^0-9]#i', '', $myMargin);
            }

            $lastPict = str_replace('<img', '<img hspace="'.$hspace.'" ', $newPict);

            $html = str_replace($newPict, $lastPict, $html);
        }
    }
}