<?php

/**
 * ======================================================================
 * LICENSE: This file is subject to the terms and conditions defined in *
 * file 'license.txt', which is part of this source code package.       *
 * ======================================================================
 */

/**
 * AAM service for Backend Menu
 *
 * @package AAM
 * @version 6.9.13
 */
class AAM_Framework_Service_BackendMenu
{

    use AAM_Framework_Service_BaseTrait;

    /**
     * Return the complete backend menu list with permissions
     *
     * @param array $inline_context Context
     *
     * @return array
     *
     * @access public
     * @version 6.9.13
     */
    public function get_menu_list($inline_context = null)
    {
        $response = array();
        $subject  = $this->_get_subject($inline_context);
        $object   = $subject->getObject(AAM_Core_Object_Menu::OBJECT_TYPE);

        // Getting the menu cache so we can build the list
        $cache = AAM_Service_AdminMenu::getInstance()->getMenuCache();

        if (!empty($cache) && is_array($cache)) {
            foreach ($cache['menu'] as $item) {
                if (preg_match('/^separator/', $item['id'])) {
                    continue; //skip separator
                }

                array_push($response, $this->_prepare_menu(
                    $item, $object, true
                ));
            }
        }

        return $response;
    }

    /**
     * Get existing menu by ID
     *
     * @param int   $id             Sudo-id for the menu item
     * @param array $inline_context Runtime context
     *
     * @return array
     *
     * @access public
     * @version 6.9.13
     * @throws UnderflowException If menu does not exist
     */
    public function get_menu_by_id($id, $inline_context = null)
    {
        $found = false;

        foreach($this->get_menu_list($inline_context) as $menu) {
            if ($menu['id'] === $id) {
                $found = $menu;
            } elseif (isset($menu['children'])) {
                foreach($menu['children'] as $child) {
                    if ($child['id'] === $id) {
                        $found = $child;
                    }
                }
            }
        }

        if ($found === false) {
            throw new UnderflowException('Backend menu does not exist');
        }

        return $found;
    }

    /**
     * Update existing backend menu permission
     *
     * @param int   $id             Sudo-id for the menu item
     * @param bool  $is_restricted  Is restricted or not
     * @param array $inline_context Runtime context
     *
     * @return array
     *
     * @access public
     * @version 6.9.13
     * @throws UnderflowException If menu item does not exist
     * @throws Exception If fails to persist changes
     */
    public function update_menu_permission(
        $id, $is_restricted = true, $inline_context = null
    ) {
        $menu    = $this->get_menu_by_id($id);
        $subject = $this->_get_subject($inline_context);
        $object  = $subject->getObject(AAM_Core_Object_Menu::OBJECT_TYPE);

        if ($object->store($menu['slug'], $is_restricted) === false) {
            throw new Exception('Failed to persist the backend menu permission');
        }

        $subject->flushCache();

        return $this->get_menu_by_id($id);
    }

    /**
     * Delete menu permission
     *
     * @param int   $id             Sudo-id for the menu item
     * @param array $inline_context Runtime context
     *
     * @return array
     *
     * @access public
     * @version 6.9.13
     * @throws UnderflowException If rule does not exist
     * @throws Exception If fails to persist a rule
     */
    public function delete_menu_permission($id, $inline_context = null)
    {
        $subject = $this->_get_subject($inline_context);
        $object  = $subject->getObject(AAM_Core_Object_Menu::OBJECT_TYPE);
        $menu    = $this->get_menu_by_id($id);

        // Note! User can delete only explicitly set rule (overwritten rule)
        if ($menu['is_inherited'] === false) {
            $found       = false;
            $new_options = array();

            foreach($object->getExplicitOption() as $slug => $is_restricted) {
                if ($slug === $menu['slug']) {
                    $found = true;
                } else {
                    $new_options[$slug] = $is_restricted;
                }
            }

            if ($found) {
                $object->setExplicitOption($new_options);
                $success = $object->save();
            } else {
                throw new UnderflowException('Menu item does not exist');
            }
        } else {
            $success = true;
        }

        if (!$success) {
            throw new Exception('Failed to persist the rule');
        }

        $subject->flushCache();

        return $this->get_menu_by_id($id);
    }

    /**
     * Reset all backend menu permissions
     *
     * @param array $inline_context Runtime context
     *
     * @return array
     *
     * @access public
     * @version 6.9.13
     */
    public function reset_permissions($inline_context = null)
    {
        $response = array();

        // Reset the object
        $subject = $this->_get_subject($inline_context);
        $object  = $subject->getObject(AAM_Core_Object_Menu::OBJECT_TYPE);

        // Communicate about number of permissions that were deleted
        $response['deleted_permissions_count'] = count($object->getExplicitOption());

        // Reset
        $response['success'] = $object->reset();

        return $response;
    }

    /**
     * Call custom method registered by third-party
     *
     * @param string $name
     * @param array  $args
     *
     * @return mixed
     *
     * @access public
     * @version 6.9.13
     */
    public function __call($name, $args)
    {
        // Assuming that the last argument is always the inline context
        $context = array_pop($args);

        return apply_filters(
            "aam_backend_menu_service_{$name}",
            null,
            $args,
            $this->_get_subject($context),
            $this
        );
    }

    /**
     * Normalize and prepare the menu item model
     *
     * @param array                $menu_item
     * @param AAM_Core_Object_Menu $object,
     * @param bool                 $is_top_level
     *
     * @return array
     *
     * @access private
     * @version 6.9.13
     */
    private function _prepare_menu($menu_item, $object, $is_top_level = false) {
        // Add menu- prefix to define that this is the top level menu.
        // WordPress by default gives the same menu id to the first
        // submenu
        $slug     = ($is_top_level ? 'menu-' : '') . $menu_item['id'];
        $explicit = $object->getExplicitOption();

        $response = array(
            'id'            => abs(crc32($slug)),
            'slug'          => $slug,
            'uri'           => $this->_prepare_admin_uri($menu_item['id']),
            'name'          => $this->_filter_menu_name($menu_item['name']),
            'capability'    => $menu_item['cap'],
            'is_restricted' => $object->isRestricted($slug),
            'is_inherited'  => !array_key_exists($slug, $explicit)
        );

        if ($is_top_level) {
            $cache = AAM_Service_AdminMenu::getInstance()->getMenuCache();

            $response['children'] = $this->_get_submenu(
                $menu_item['id'],
                $cache['submenu'],
                $object
            );
        }

        return $response;
    }

    /**
     * Prepare admin URI for the menu item
     *
     * @param string $resource
     *
     * @return string
     *
     * @access private
     * @version 6.9.13
     */
    private function _prepare_admin_uri($resource)
    {
        if (!function_exists('get_plugin_page_hook')) {
            require_once ABSPATH . 'wp-admin/includes/plugin.php';
        }

        $hook = get_plugin_page_hook($resource, 'admin.php');
        $uri  = (!empty($hook) ? 'admin.php?page=' . $resource : $resource);

        return '/wp-admin/' . $uri;
    }

    /**
     * Filter menu name
     *
     * Strip any HTML tags from the menu name and also remove the trailing
     * numbers in case of Plugin or Comments menu name.
     *
     * @param string $name
     *
     * @return string
     *
     * @access protected
     * @version 6.9.13
     */
    private function _filter_menu_name($name)
    {
        $filtered = trim(wp_strip_all_tags(
            preg_replace('@<(span)[^>]*?>.*?</\\1>@si', '', $name),
            true
        ));

        return preg_replace('/([\d]+)$/', '', $filtered);
    }

    /**
     * Prepare filtered submenu
     *
     * @param string               $menu
     * @param array                $submenu,
     * @param AAM_Core_Object_Menu $object
     *
     * @return array
     *
     * @access private
     * @version 6.9.13
     */
    private function _get_submenu($menu, $submenu, $object)
    {
        $response = array();

        if (array_key_exists($menu, $submenu) && is_array($submenu[$menu])) {
            foreach ($submenu[$menu] as $item) {
                array_push($response, $this->_prepare_menu(array(
                    'name' => $item[0],
                    'id'   => $this->_normalize_menu_id($item[2]),
                    'cap'  => $item[1]
                ), $object));
            }
        }

        return $response;
    }

    /**
     * Normalize menu item
     *
     * @param string $menu
     *
     * @return string
     *
     * @access protected
     * @version 6.9.13
     */
    private function _normalize_menu_id($menu)
    {
        if (strpos($menu, 'customize.php') === 0) {
            $menu = 'customize.php';
        }

        return $menu;
    }

}