<?php
/************************************************************************
 * This file is part of EspoCRM.
 *
 * EspoCRM - Open Source CRM application.
 * Copyright (C) 2014-2020 Yuri Kuznetsov, Taras Machyshyn, Oleksiy Avramenko
 * Website: https://www.espocrm.com
 *
 * EspoCRM is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * EspoCRM is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with EspoCRM. If not, see http://www.gnu.org/licenses/.
 *
 * The interactive user interfaces in modified source and object code versions
 * of this program must display Appropriate Legal Notices, as required under
 * Section 5 of the GNU General Public License version 3.
 *
 * In accordance with Section 7(b) of the GNU General Public License version 3,
 * these Appropriate Legal Notices must retain the display of the "EspoCRM" word.
 ************************************************************************/

namespace Espo\Core;

use Espo\Core\Exceptions\Error;

use Espo\Core\{
    InjectableFactory,
    Utils\File\Manager as FileManager,
    Utils\Metadata,
    Utils\Config,
    Utils\Util,
};

/**
 * Runs hooks. E.g. beforeSave, afterSave. Hooks can be located in a folder that matches a certain *entityType* or
 * in Common folder. Common hooks will be applied to any *entityType*.
 */
class HookManager
{
    const DEFAULT_ORDER = 9;

    private $data;

    private $hookListHash = [];

    private $hooks;

    protected $cacheFile = 'data/cache/application/hooks.php';

    protected $ignoredMethodList = [
        '__construct',
        'getDependencyList',
        'inject',
    ];

    protected $paths = [
        'corePath' => 'application/Espo/Hooks',
        'modulePath' => 'application/Espo/Modules/{*}/Hooks',
        'customPath' => 'custom/Espo/Custom/Hooks',
    ];

    public function __construct(
        InjectableFactory $injectableFactory,
        FileManager $fileManager,
        Metadata $metadata,
        Config $config
    ) {
        $this->injectableFactory = $injectableFactory;
        $this->fileManager = $fileManager;
        $this->metadata = $metadata;
        $this->config = $config;
    }

    public function process(string $scope, string $hookName, $injection = null, array $options = [], array $hookData = [])
    {
        if (!isset($this->data)) {
            $this->loadHooks();
        }

        $hookList = $this->getHookList($scope, $hookName);

        if (!empty($hookList)) {
            foreach ($hookList as $className) {
                if (empty($this->hooks[$className])) {
                    $this->hooks[$className] = $this->createHookByClassName($className);
                    if (empty($this->hooks[$className])) continue;
                }
                $hook = $this->hooks[$className];
                $hook->$hookName($injection, $options, $hookData);
            }
        }
    }

    protected function loadHooks()
    {
        if ($this->config->get('useCache') && file_exists($this->cacheFile)) {
            $this->data = $this->fileManager->getPhpContents($this->cacheFile);
            return;
        }

        $metadata = $this->metadata;

        $data = $this->getHookData($this->paths['customPath']);

        foreach ($metadata->getModuleList() as $moduleName) {
            $modulePath = str_replace('{*}', $moduleName, $this->paths['modulePath']);
            $data = $this->getHookData($modulePath, $data);
        }

        $data = $this->getHookData($this->paths['corePath'], $data);

        $this->data = $this->sortHooks($data);

        if ($this->config->get('useCache')) {
            $this->fileManager->putPhpContents($this->cacheFile, $this->data);
        }
    }

    protected function createHookByClassName(string $className) : object
    {
        if (!@class_exists($className)) {
            $GLOBALS['log']->error("Hook class '{$className}' does not exist.");
        }

        $obj = $this->injectableFactory->create($className);

        return $obj;
    }

    /**
     * Get and merge hook data by checking the files exist in $hookDirs
     *
     * @param $hookDirs - can be ['Espo/Hooks', 'Espo/Custom/Hooks', 'Espo/Modules/Crm/Hooks']
     */
    protected function getHookData($hookDirs, array $hookData = []) : array
    {
        if (is_string($hookDirs)) {
            $hookDirs = (array) $hookDirs;
        }

        foreach ($hookDirs as $hookDir) {
            if (!file_exists($hookDir)) {
                continue;
            }
            $fileList = $this->fileManager->getFileList($hookDir, 1, '\.php$', true);

            foreach ($fileList as $scopeName => $hookFiles) {
                $hookScopeDirPath = Util::concatPath($hookDir, $scopeName);
                $normalizedScopeName = Util::normilizeScopeName($scopeName);

                $scopeHooks = [];
                foreach ($hookFiles as $hookFile) {
                    $hookFilePath = Util::concatPath($hookScopeDirPath, $hookFile);
                    $className = Util::getClassName($hookFilePath);

                    $classMethods = get_class_methods($className);
                    $hookMethods = array_diff($classMethods, $this->ignoredMethodList);

                    $hookMethods = array_filter($hookMethods, function ($item) {
                        if (strpos($item, 'set') === 0) return false;
                        return true;
                    });

                    foreach ($hookMethods as $hookType) {
                        $entityHookData = $hookData[$normalizedScopeName][$hookType] ?? [];
                        if (!$this->hookExists($className, $entityHookData)) {
                            $hookData[$normalizedScopeName][$hookType][] = [
                                'className' => $className,
                                'order' => $className::$order ?? self::DEFAULT_ORDER,
                            ];
                        }
                    }
                }
            }
        }

        return $hookData;
    }

    /**
     * Sort hooks by the order param.
     */
    protected function sortHooks(array $hooks) : array
    {
        foreach ($hooks as $scopeName => &$scopeHooks) {
            foreach ($scopeHooks as $hookName => &$hookList) {
                usort($hookList, [$this, 'cmpHooks']);
            }
        }

        return $hooks;
    }

    /**
     * Get sorted hook list.
     */
    protected function getHookList(string $scope, string $hookName) : array
    {
        $key = $scope . '_' . $hookName;

        if (!isset($this->hookListHash[$key])) {
            $hookList = array();

            if (isset($this->data['Common'][$hookName])) {
                $hookList = $this->data['Common'][$hookName];
            }

            if (isset($this->data[$scope][$hookName])) {
                $hookList = array_merge($hookList, $this->data[$scope][$hookName]);
                usort($hookList, array($this, 'cmpHooks'));
            }

            $normalizedList = [];
            foreach ($hookList as $hookData) {
                $normalizedList[] = $hookData['className'];
            }

            $this->hookListHash[$key] = $normalizedList;
        }

        return $this->hookListHash[$key];
    }

    /**
     * Check if hook exists in the list.
     */
    protected function hookExists(string $className, array $hookData) : bool
    {
        $class = preg_replace('/^.*\\\(.*)$/', '$1', $className);

        foreach ($hookData as $hookData) {
            if (preg_match('/\\\\'.$class.'$/', $hookData['className'])) {
                return true;
            }
        }

        return false;
    }

    protected function cmpHooks($a, $b)
    {
        if ($a['order'] == $b['order']) {
            return 0;
        }

        return ($a['order'] < $b['order']) ? -1 : 1;
    }
}