<?php
// This file is part of Moodle - http://moodle.org/
//
// Moodle 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.
//
// Moodle 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 Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**
 * Cache display administration helper.
 *
 * This file is part of Moodle's cache API, affectionately called MUC.
 * It contains the components that are requried in order to use caching.
 *
 * @package    core
 * @category   cache
 * @author     Peter Burnett <peterburnett@catalyst-au.net>
 * @copyright  2020 Catalyst IT
 * @copyright  2012 Sam Hemelryk
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

namespace core_cache\local;

use cache_store, cache_factory, cache_config_writer, cache_helper;
use core\output\notification;

/**
 * A cache helper for administration tasks
 *
 * @package    core
 * @category   cache
 * @copyright  2020 Peter Burnett <peterburnett@catalyst-au.net>
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */
class administration_display_helper extends \core_cache\administration_helper {

    /**
     * Please do not call constructor directly. Use cache_factory::get_administration_display_helper() instead.
     */
    public function __construct() {
        // Nothing to do here.
    }

    /**
     * Returns all of the actions that can be performed on a definition.
     *
     * @param context $context the system context.
     * @param array $definitionsummary information about this cache, from the array returned by
     *      core_cache\administration_helper::get_definition_summaries(). Currently only 'sharingoptions'
     *      element is used.
     * @return array of actions. Each action is an action_url.
     */
    public function get_definition_actions(\context $context, array $definitionsummary): array {
        global $OUTPUT;
        if (has_capability('moodle/site:config', $context)) {
            $actions = array();
            // Edit mappings.
            $actions[] = $OUTPUT->action_link(
                new \moodle_url('/cache/admin.php', array('action' => 'editdefinitionmapping',
                    'definition' => $definitionsummary['id'])),
                get_string('editmappings', 'cache')
            );
            // Edit sharing.
            if (count($definitionsummary['sharingoptions']) > 1) {
                $actions[] = $OUTPUT->action_link(
                    new \moodle_url('/cache/admin.php', array('action' => 'editdefinitionsharing',
                        'definition' => $definitionsummary['id'])),
                    get_string('editsharing', 'cache')
                );
            }
            // Purge.
            $actions[] = $OUTPUT->action_link(
                new \moodle_url('/cache/admin.php', array('action' => 'purgedefinition',
                    'definition' => $definitionsummary['id'], 'sesskey' => sesskey())),
                get_string('purge', 'cache')
            );
            return $actions;
        }
        return array();
    }

    /**
     * Returns all of the actions that can be performed on a store.
     *
     * @param string $name The name of the store
     * @param array $storedetails information about this store, from the array returned by
     *      core_cache\administration_helper::get_store_instance_summaries().
     * @return array of actions. Each action is an action_url.
     */
    public function get_store_instance_actions(string $name, array $storedetails): array {
        global $OUTPUT;
        $actions = array();
        if (has_capability('moodle/site:config', \context_system::instance())) {
            $baseurl = new \moodle_url('/cache/admin.php', array('store' => $name));
            if (empty($storedetails['default'])) {
                // Edit store.
                $actions[] = $OUTPUT->action_link(
                    new \moodle_url($baseurl, array('action' => 'editstore', 'plugin' => $storedetails['plugin'])),
                    get_string('editstore', 'cache')
                );
                // Delete store.
                $actions[] = $OUTPUT->action_link(
                    new \moodle_url($baseurl, array('action' => 'deletestore')),
                    get_string('deletestore', 'cache')
                );
            }
            // Purge store.
            $actions[] = $OUTPUT->action_link(
                new \moodle_url($baseurl, array('action' => 'purgestore', 'sesskey' => sesskey())),
                get_string('purge', 'cache')
            );
        }
        return $actions;
    }

    /**
     * Returns all of the actions that can be performed on a plugin.
     *
     * @param string $name The name of the plugin
     * @param array $plugindetails information about this store, from the array returned by
     *      core_cache\administration_helper::get_store_plugin_summaries().
     * @return array of actions. Each action is an action_url.
     */
    public function get_store_plugin_actions(string $name, array $plugindetails): array {
        global $OUTPUT;
        $actions = array();
        if (has_capability('moodle/site:config', \context_system::instance())) {
            if (!empty($plugindetails['canaddinstance'])) {
                $url = new \moodle_url('/cache/admin.php',
                    array('action' => 'addstore', 'plugin' => $name));
                $actions[] = $OUTPUT->action_link(
                    $url,
                    get_string('addinstance', 'cache')
                );
            }
        }
        return $actions;
    }

    /**
     * Returns a form that can be used to add a store instance.
     *
     * @param string $plugin The plugin to add an instance of
     * @return cachestore_addinstance_form
     * @throws coding_exception
     */
    public function get_add_store_form(string $plugin): \cachestore_addinstance_form {
        global $CFG; // Needed for includes.
        $plugins = \core_component::get_plugin_list('cachestore');
        if (!array_key_exists($plugin, $plugins)) {
            throw new \coding_exception('Invalid cache plugin used when trying to create an edit form.');
        }
        $plugindir = $plugins[$plugin];
        $class = 'cachestore_addinstance_form';
        if (file_exists($plugindir.'/addinstanceform.php')) {
            require_once($plugindir.'/addinstanceform.php');
            if (class_exists('cachestore_'.$plugin.'_addinstance_form')) {
                $class = 'cachestore_'.$plugin.'_addinstance_form';
                if (!array_key_exists('cachestore_addinstance_form', class_parents($class))) {
                    throw new \coding_exception('Cache plugin add instance forms must extend cachestore_addinstance_form');
                }
            }
        }

        $locks = $this->get_possible_locks_for_stores($plugindir, $plugin);

        $url = new \moodle_url('/cache/admin.php', array('action' => 'addstore'));
        return new $class($url, array('plugin' => $plugin, 'store' => null, 'locks' => $locks));
    }

    /**
     * Returns a form that can be used to edit a store instance.
     *
     * @param string $plugin
     * @param string $store
     * @return cachestore_addinstance_form
     * @throws coding_exception
     */
    public function get_edit_store_form(string $plugin, string $store): \cachestore_addinstance_form {
        global $CFG; // Needed for includes.
        $plugins = \core_component::get_plugin_list('cachestore');
        if (!array_key_exists($plugin, $plugins)) {
            throw new \coding_exception('Invalid cache plugin used when trying to create an edit form.');
        }
        $factory = \cache_factory::instance();
        $config = $factory->create_config_instance();
        $stores = $config->get_all_stores();
        if (!array_key_exists($store, $stores)) {
            throw new \coding_exception('Invalid store name given when trying to create an edit form.');
        }
        $plugindir = $plugins[$plugin];
        $class = 'cachestore_addinstance_form';
        if (file_exists($plugindir.'/addinstanceform.php')) {
            require_once($plugindir.'/addinstanceform.php');
            if (class_exists('cachestore_'.$plugin.'_addinstance_form')) {
                $class = 'cachestore_'.$plugin.'_addinstance_form';
                if (!array_key_exists('cachestore_addinstance_form', class_parents($class))) {
                    throw new \coding_exception('Cache plugin add instance forms must extend cachestore_addinstance_form');
                }
            }
        }

        $locks = $this->get_possible_locks_for_stores($plugindir, $plugin);

        $url = new \moodle_url('/cache/admin.php', array('action' => 'editstore', 'plugin' => $plugin, 'store' => $store));
        $editform = new $class($url, array('plugin' => $plugin, 'store' => $store, 'locks' => $locks));
        if (isset($stores[$store]['lock'])) {
            $editform->set_data(array('lock' => $stores[$store]['lock']));
        }
        // See if the cachestore is going to want to load data for the form.
        // If it has a customised add instance form then it is going to want to.
        $storeclass = 'cachestore_'.$plugin;
        $storedata = $stores[$store];
        if (array_key_exists('configuration', $storedata) &&
            array_key_exists('cache_is_configurable', class_implements($storeclass))) {
            $storeclass::config_set_edit_form_data($editform, $storedata['configuration']);
        }
        return $editform;
    }

    /**
     * Returns an array of suitable lock instances for use with this plugin, or false if the plugin handles locking itself.
     *
     * @param string $plugindir
     * @param string $plugin
     * @return array|false
     */
    protected function get_possible_locks_for_stores(string $plugindir, string $plugin) {
        global $CFG; // Needed for includes.
        $supportsnativelocking = false;
        if (file_exists($plugindir.'/lib.php')) {
            require_once($plugindir.'/lib.php');
            $pluginclass = 'cachestore_'.$plugin;
            if (class_exists($pluginclass)) {
                $supportsnativelocking = array_key_exists('cache_is_lockable', class_implements($pluginclass));
            }
        }

        if (!$supportsnativelocking) {
            $config = \cache_config::instance();
            $locks = array();
            foreach ($config->get_locks() as $lock => $conf) {
                if (!empty($conf['default'])) {
                    $name = get_string($lock, 'cache');
                } else {
                    $name = $lock;
                }
                $locks[$lock] = $name;
            }
        } else {
            $locks = false;
        }

        return $locks;
    }

    /**
     * Processes the results of the add/edit instance form data for a plugin returning an array of config information suitable to
     * store in configuration.
     *
     * @param stdClass $data The mform data.
     * @return array
     * @throws coding_exception
     */
    public function get_store_configuration_from_data(\stdClass $data): array {
        global $CFG;
        $file = $CFG->dirroot.'/cache/stores/'.$data->plugin.'/lib.php';
        if (!file_exists($file)) {
            throw new \coding_exception('Invalid cache plugin provided. '.$file);
        }
        require_once($file);
        $class = 'cachestore_'.$data->plugin;
        if (!class_exists($class)) {
            throw new \coding_exception('Invalid cache plugin provided.');
        }
        if (array_key_exists('cache_is_configurable', class_implements($class))) {
            return $class::config_get_configuration_array($data);
        }
        return array();
    }

    /**
     * Returns an array of lock plugins for which we can add an instance.
     *
     * Suitable for use within an mform select element.
     *
     * @return array
     */
    public function get_addable_lock_options(): array {
        $plugins = \core_component::get_plugin_list_with_class('cachelock', '', 'lib.php');
        $options = array();
        $len = strlen('cachelock_');
        foreach ($plugins as $plugin => $class) {
            $method = "$class::can_add_instance";
            if (is_callable($method) && !call_user_func($method)) {
                // Can't add an instance of this plugin.
                continue;
            }
            $options[substr($plugin, $len)] = get_string('pluginname', $plugin);
        }
        return $options;
    }

    /**
     * Gets the form to use when adding a lock instance.
     *
     * @param string $plugin
     * @param array $lockplugin
     * @return cache_lock_form
     * @throws coding_exception
     */
    public function get_add_lock_form(string $plugin, array $lockplugin = null): \cache_lock_form {
        global $CFG; // Needed for includes.
        $plugins = \core_component::get_plugin_list('cachelock');
        if (!array_key_exists($plugin, $plugins)) {
            throw new \coding_exception('Invalid cache lock plugin requested when trying to create a form.');
        }
        $plugindir = $plugins[$plugin];
        $class = 'cache_lock_form';
        if (file_exists($plugindir.'/addinstanceform.php') && in_array('cache_is_configurable', class_implements($class))) {
            require_once($plugindir.'/addinstanceform.php');
            if (class_exists('cachelock_'.$plugin.'_addinstance_form')) {
                $class = 'cachelock_'.$plugin.'_addinstance_form';
                if (!array_key_exists('cache_lock_form', class_parents($class))) {
                    throw new \coding_exception('Cache lock plugin add instance forms must extend cache_lock_form');
                }
            }
        }
        return new $class(null, array('lock' => $plugin));
    }

    /**
     * Gets configuration data from a new lock instance form.
     *
     * @param string $plugin
     * @param stdClass $data
     * @return array
     * @throws coding_exception
     */
    public function get_lock_configuration_from_data(string $plugin, \stdClass $data): array {
        global $CFG;
        $file = $CFG->dirroot.'/cache/locks/'.$plugin.'/lib.php';
        if (!file_exists($file)) {
            throw new \coding_exception('Invalid cache plugin provided. '.$file);
        }
        require_once($file);
        $class = 'cachelock_'.$plugin;
        if (!class_exists($class)) {
            throw new \coding_exception('Invalid cache plugin provided.');
        }
        if (array_key_exists('cache_is_configurable', class_implements($class))) {
            return $class::config_get_configuration_array($data);
        }
        return array();
    }

    /**
     * Handles the page actions, based on the parameter.
     *
     * @param string $action the action to handle.
     * @param array $forminfo an empty array to be overridden and set.
     * @return array the empty or overridden forminfo array.
     */
    public function perform_cache_actions(string $action, array $forminfo): array {
        switch ($action) {
            case 'rescandefinitions' : // Rescan definitions.
                $this->action_rescan_definition();
                break;

            case 'addstore' : // Add the requested store.
                $forminfo = $this->action_addstore();
                break;

            case 'editstore' : // Edit the requested store.
                $forminfo = $this->action_editstore();
                break;

            case 'deletestore' : // Delete a given store.
                $this->action_deletestore($action);
                break;

            case 'editdefinitionmapping' : // Edit definition mappings.
                $forminfo = $this->action_editdefinitionmapping();
                break;

            case 'editdefinitionsharing' : // Edit definition sharing.
                $forminfo = $this->action_editdefinitionsharing();
                break;

            case 'editmodemappings': // Edit default mode mappings.
                $forminfo = $this->action_editmodemappings();
                break;

            case 'purgedefinition': // Purge a specific definition.
                $this->action_purgedefinition();
                break;

            case 'purgestore':
            case 'purge': // Purge a store cache.
                $this->action_purge();
                break;

            case 'newlockinstance':
                $forminfo = $this->action_newlockinstance();
                break;

            case 'deletelock':
                // Deletes a lock instance.
                $this->action_deletelock($action);
                break;
        }

        return $forminfo;
    }

    /**
     * Performs the rescan definition action.
     *
     * @return void
     */
    public function action_rescan_definition() {
        global $PAGE;

        require_sesskey();
        \cache_config_writer::update_definitions();
        redirect($PAGE->url);
    }

    /**
     * Performs the add store action.
     *
     * @return array an array of the form to display to the user, and the page title.
     */
    public function action_addstore() : array {
        global $PAGE;
        $storepluginsummaries = $this->get_store_plugin_summaries();

        $plugin = required_param('plugin', PARAM_PLUGIN);
        if (!$storepluginsummaries[$plugin]['canaddinstance']) {
            throw new \moodle_exception('ex_unmetstorerequirements', 'cache');
        }
        $mform = $this->get_add_store_form($plugin);
        $title = get_string('addstore', 'cache', $storepluginsummaries[$plugin]['name']);
        if ($mform->is_cancelled()) {
            redirect($PAGE->url);
        } else if ($data = $mform->get_data()) {
            $config = $this->get_store_configuration_from_data($data);
            $writer = \cache_config_writer::instance();
            unset($config['lock']);
            foreach ($writer->get_locks() as $lock => $lockconfig) {
                if ($lock == $data->lock) {
                    $config['lock'] = $data->lock;
                }
            }
            $writer->add_store_instance($data->name, $data->plugin, $config);
            redirect($PAGE->url, get_string('addstoresuccess', 'cache', $storepluginsummaries[$plugin]['name']), 5);
        }

        $PAGE->navbar->add(get_string('addstore', 'cache', 'cache'), $PAGE->url);
        return array('form' => $mform, 'title' => $title);
    }

    /**
     * Performs the edit store action.
     *
     * @return array an array of the form to display, and the page title.
     */
    public function action_editstore(): array {
        global $PAGE;
        $storepluginsummaries = $this->get_store_plugin_summaries();

        $plugin = required_param('plugin', PARAM_PLUGIN);
        $store = required_param('store', PARAM_TEXT);
        $mform = $this->get_edit_store_form($plugin, $store);
        $title = get_string('addstore', 'cache', $storepluginsummaries[$plugin]['name']);
        if ($mform->is_cancelled()) {
            redirect($PAGE->url);
        } else if ($data = $mform->get_data()) {
            $config = $this->get_store_configuration_from_data($data);
            $writer = \cache_config_writer::instance();

            unset($config['lock']);
            foreach ($writer->get_locks() as $lock => $lockconfig) {
                if ($lock == $data->lock) {
                    $config['lock'] = $data->lock;
                }
            }
            $writer->edit_store_instance($data->name, $data->plugin, $config);
            redirect($PAGE->url, get_string('editstoresuccess', 'cache', $storepluginsummaries[$plugin]['name']), 5);
        }

        return array('form' => $mform, 'title' => $title);
    }

    /**
     * Performs the deletestore action.
     *
     * @param string $action the action calling to this function.
     */
    public function action_deletestore(string $action): void {
        global $OUTPUT, $PAGE, $SITE;
        $notifysuccess = true;
        $storeinstancesummaries = $this->get_store_instance_summaries();

        $store = required_param('store', PARAM_TEXT);
        $confirm = optional_param('confirm', false, PARAM_BOOL);

        if (!array_key_exists($store, $storeinstancesummaries)) {
            $notifysuccess = false;
            $notification = get_string('invalidstore', 'cache');
        } else if ($storeinstancesummaries[$store]['mappings'] > 0) {
            $notifysuccess = false;
            $notification = get_string('deletestorehasmappings', 'cache');
        }

        if ($notifysuccess) {
            if (!$confirm) {
                $title = get_string('confirmstoredeletion', 'cache');
                $params = array('store' => $store, 'confirm' => 1, 'action' => $action, 'sesskey' => sesskey());
                $url = new \moodle_url($PAGE->url, $params);
                $button = new \single_button($url, get_string('deletestore', 'cache'));

                $PAGE->set_title($title);
                $PAGE->set_heading($SITE->fullname);
                echo $OUTPUT->header();
                echo $OUTPUT->heading($title);
                $confirmation = get_string('deletestoreconfirmation', 'cache', $storeinstancesummaries[$store]['name']);
                echo $OUTPUT->confirm($confirmation, $button, $PAGE->url);
                echo $OUTPUT->footer();
                exit;
            } else {
                require_sesskey();
                $writer = \cache_config_writer::instance();
                $writer->delete_store_instance($store);
                redirect($PAGE->url, get_string('deletestoresuccess', 'cache'), 5);
            }
        } else {
            redirect($PAGE->url, $notification, null, notification::NOTIFY_ERROR);
        }
    }

    /**
     * Performs the edit definition mapping action.
     *
     * @return array an array of the form to display, and the page title.
     * @throws cache_exception
     */
    public function action_editdefinitionmapping(): array {
        global $PAGE;
        $definitionsummaries = $this->get_definition_summaries();

        $definition = required_param('definition', PARAM_SAFEPATH);
        if (!array_key_exists($definition, $definitionsummaries)) {
            throw new \cache_exception('Invalid cache definition requested');
        }
        $title = get_string('editdefinitionmappings', 'cache', $definition);
        $mform = new \cache_definition_mappings_form($PAGE->url, array('definition' => $definition));
        if ($mform->is_cancelled()) {
            redirect($PAGE->url);
        } else if ($data = $mform->get_data()) {
            $writer = \cache_config_writer::instance();
            $mappings = array();
            foreach ($data->mappings as $mapping) {
                if (!empty($mapping)) {
                    $mappings[] = $mapping;
                }
            }
            $writer->set_definition_mappings($definition, $mappings);
            redirect($PAGE->url);
        }

        $PAGE->navbar->add(get_string('updatedefinitionmapping', 'cache'), $PAGE->url);
        return array('form' => $mform, 'title' => $title);
    }

    /**
     * Performs the edit definition sharing action.
     *
     * @return array an array of the edit definition sharing form, and the page title.
     */
    public function action_editdefinitionsharing(): array {
        global $PAGE;
        $definitionsummaries = $this->get_definition_summaries();

        $definition = required_param('definition', PARAM_SAFEPATH);
        if (!array_key_exists($definition, $definitionsummaries)) {
            throw new \cache_exception('Invalid cache definition requested');
        }
        $title = get_string('editdefinitionsharing', 'cache', $definition);
        $sharingoptions = $definitionsummaries[$definition]['sharingoptions'];
        $customdata = array('definition' => $definition, 'sharingoptions' => $sharingoptions);
        $mform = new \cache_definition_sharing_form($PAGE->url, $customdata);
        $mform->set_data(array(
            'sharing' => $definitionsummaries[$definition]['selectedsharingoption'],
            'userinputsharingkey' => $definitionsummaries[$definition]['userinputsharingkey']
        ));
        if ($mform->is_cancelled()) {
            redirect($PAGE->url);
        } else if ($data = $mform->get_data()) {
            $component = $definitionsummaries[$definition]['component'];
            $area = $definitionsummaries[$definition]['area'];
            // Purge the stores removing stale data before we alter the sharing option.
            \cache_helper::purge_stores_used_by_definition($component, $area);
            $writer = \cache_config_writer::instance();
            $sharing = array_sum(array_keys($data->sharing));
            $userinputsharingkey = $data->userinputsharingkey;
            $writer->set_definition_sharing($definition, $sharing, $userinputsharingkey);
            redirect($PAGE->url);
        }

        $PAGE->navbar->add(get_string('updatedefinitionsharing', 'cache'), $PAGE->url);
        return array('form' => $mform, 'title' => $title);
    }

    /**
     * Performs the edit mode mappings action.
     *
     * @return array an array of the edit mode mappings form.
     */
    public function action_editmodemappings(): array {
        global $PAGE;
        $storeinstancesummaries = $this->get_store_instance_summaries();
        $defaultmodestores = $this->get_default_mode_stores();

        $mform = new \cache_mode_mappings_form(null, $storeinstancesummaries);
        $mform->set_data(array(
            'mode_'.cache_store::MODE_APPLICATION => key($defaultmodestores[cache_store::MODE_APPLICATION]),
            'mode_'.cache_store::MODE_SESSION => key($defaultmodestores[cache_store::MODE_SESSION]),
            'mode_'.cache_store::MODE_REQUEST => key($defaultmodestores[cache_store::MODE_REQUEST]),
        ));
        if ($mform->is_cancelled()) {
            redirect($PAGE->url);
        } else if ($data = $mform->get_data()) {
            $mappings = array(
                cache_store::MODE_APPLICATION => array($data->{'mode_'.cache_store::MODE_APPLICATION}),
                cache_store::MODE_SESSION => array($data->{'mode_'.cache_store::MODE_SESSION}),
                cache_store::MODE_REQUEST => array($data->{'mode_'.cache_store::MODE_REQUEST}),
            );
            $writer = cache_config_writer::instance();
            $writer->set_mode_mappings($mappings);
            redirect($PAGE->url);
        }

        return array('form' => $mform);
    }

    /**
     * Performs the purge definition action.
     *
     * @return void
     */
    public function action_purgedefinition() {
        global $PAGE;

        require_sesskey();
        $id = required_param('definition', PARAM_SAFEPATH);
        list($component, $area) = explode('/', $id, 2);
        $factory = cache_factory::instance();
        $definition = $factory->create_definition($component, $area);
        if ($definition->has_required_identifiers()) {
            // We will have to purge the stores used by this definition.
            cache_helper::purge_stores_used_by_definition($component, $area);
        } else {
            // Alrighty we can purge just the data belonging to this definition.
            cache_helper::purge_by_definition($component, $area);
        }

        $message = get_string('purgexdefinitionsuccess', 'cache', [
                    'name' => $definition->get_name(),
                    'component' => $component,
                    'area' => $area,
                ]);
        $purgeagainlink = \html_writer::link(new \moodle_url('/cache/admin.php', [
                'action' => 'purgedefinition', 'sesskey' => sesskey(), 'definition' => $id]),
                get_string('purgeagain', 'cache'));
        redirect($PAGE->url, $message . ' ' . $purgeagainlink, 5);
    }

    /**
     * Performs the purge action.
     *
     * @return void
     */
    public function action_purge() {
        global $PAGE;

        require_sesskey();
        $store = required_param('store', PARAM_TEXT);
        cache_helper::purge_store($store);
        $message = get_string('purgexstoresuccess', 'cache', ['store' => $store]);
        $purgeagainlink = \html_writer::link(new \moodle_url('/cache/admin.php', [
                'action' => 'purgestore', 'sesskey' => sesskey(), 'store' => $store]),
                get_string('purgeagain', 'cache'));
        redirect($PAGE->url, $message . ' ' . $purgeagainlink, 5);
    }

    /**
     * Performs the new lock instance action.
     *
     * @return array An array containing the new lock instance form.
     */
    public function action_newlockinstance(): array {
        global $PAGE;

        // Adds a new lock instance.
        $lock = required_param('lock', PARAM_ALPHANUMEXT);
        $mform = $this->get_add_lock_form($lock);
        if ($mform->is_cancelled()) {
            redirect($PAGE->url);
        } else if ($data = $mform->get_data()) {
            $factory = cache_factory::instance();
            $config = $factory->create_config_instance(true);
            $name = $data->name;
            $data = $this->get_lock_configuration_from_data($lock, $data);
            $config->add_lock_instance($name, $lock, $data);
            redirect($PAGE->url, get_string('addlocksuccess', 'cache', $name), 5);
        }

        return array('form' => $mform);
    }

    /**
     * Performs the delete lock action.
     *
     * @param string $action the action calling this function.
     */
    public function action_deletelock(string $action): void {
        global $OUTPUT, $PAGE, $SITE;
        $notifysuccess = true;
        $locks = $this->get_lock_summaries();

        $lock = required_param('lock', PARAM_ALPHANUMEXT);
        $confirm = optional_param('confirm', false, PARAM_BOOL);
        if (!array_key_exists($lock, $locks)) {
            $notifysuccess = false;
            $notification = get_string('invalidlock', 'cache');
        } else if ($locks[$lock]['uses'] > 0) {
            $notifysuccess = false;
            $notification = get_string('deletelockhasuses', 'cache');
        }
        if ($notifysuccess) {
            if (!$confirm) {
                $title = get_string('confirmlockdeletion', 'cache');
                $params = array('lock' => $lock, 'confirm' => 1, 'action' => $action, 'sesskey' => sesskey());
                $url = new \moodle_url($PAGE->url, $params);
                $button = new \single_button($url, get_string('deletelock', 'cache'));

                $PAGE->set_title($title);
                $PAGE->set_heading($SITE->fullname);
                echo $OUTPUT->header();
                echo $OUTPUT->heading($title);
                $confirmation = get_string('deletelockconfirmation', 'cache', $lock);
                echo $OUTPUT->confirm($confirmation, $button, $PAGE->url);
                echo $OUTPUT->footer();
                exit;
            } else {
                require_sesskey();
                $writer = cache_config_writer::instance();
                $writer->delete_lock_instance($lock);
                redirect($PAGE->url, get_string('deletelocksuccess', 'cache'), 5);
            }
        } else {
            redirect($PAGE->url, $notification, null, notification::NOTIFY_ERROR);
        }
    }

    /**
     * Outputs the main admin page by generating it through the renderer.
     *
     * @param \core_cache\output\renderer $renderer the renderer to use to generate the page.
     * @return string the HTML for the admin page.
     */
    public function generate_admin_page(\core_cache\output\renderer $renderer): string {
        $context = \context_system::instance();
        $html = '';

        $storepluginsummaries = $this->get_store_plugin_summaries();
        $storeinstancesummaries = $this->get_store_instance_summaries();
        $definitionsummaries = $this->get_definition_summaries();
        $defaultmodestores = $this->get_default_mode_stores();
        $locks = $this->get_lock_summaries();

        $html .= $renderer->store_plugin_summaries($storepluginsummaries);
        $html .= $renderer->store_instance_summariers($storeinstancesummaries, $storepluginsummaries);
        $html .= $renderer->definition_summaries($definitionsummaries, $context);
        $html .= $renderer->lock_summaries($locks);
        $html .= $renderer->additional_lock_actions();

        $applicationstore = join(', ', $defaultmodestores[cache_store::MODE_APPLICATION]);
        $sessionstore = join(', ', $defaultmodestores[cache_store::MODE_SESSION]);
        $requeststore = join(', ', $defaultmodestores[cache_store::MODE_REQUEST]);
        $editurl = new \moodle_url('/cache/admin.php', array('action' => 'editmodemappings'));
        $html .= $renderer->mode_mappings($applicationstore, $sessionstore, $requeststore, $editurl);

        return $html;
    }

    /**
     * Gets usage information about the whole cache system.
     *
     * This is a slow function and should only be used on an admin information page.
     *
     * The returned array lists all cache definitions with fields 'cacheid' and 'stores'. For
     * each store, the following fields are available:
     *
     * - name (store name)
     * - class (e.g. cachestore_redis)
     * - supported (true if we have any information)
     * - items (number of items stored)
     * - mean (mean size of item)
     * - sd (standard deviation for item sizes)
     * - margin (margin of error for mean at 95% confidence)
     * - storetotal (total usage for store if known, otherwise null)
     *
     * The storetotal field will be the same for every cache that uses the same store.
     *
     * @param int $samplekeys Number of keys to sample when checking size of large caches
     * @return array Details of cache usage
     */
    public function get_usage(int $samplekeys): array {
        $results = [];

        $factory = cache_factory::instance();

        // Check the caches we already have an instance of, so we don't make another one...
        $got = $factory->get_caches_in_use();
        $gotid = [];
        foreach ($got as $longid => $unused) {
            // The IDs here can be of the form cacheid/morestuff if there are parameters in the
            // cache. Any entry for a cacheid is good enough to consider that we don't need to make
            // another entry ourselves, so we remove the extra bits and track the basic cache id.
            $gotid[preg_replace('~^([^/]+/[^/]+)/.*$~', '$1', $longid)] = true;
        }

        $storetotals = [];

        $config = $factory->create_config_instance();
        foreach ($config->get_definitions() as $configdetails) {
            if (!array_key_exists($configdetails['component'] . '/' .  $configdetails['area'], $gotid)) {
                // Where possible (if it doesn't need identifiers), make an instance of the cache, otherwise
                // we can't get the store instances for it (and it won't show up in the list).
                if (empty($configdetails['requireidentifiers'])) {
                    \cache::make($configdetails['component'], $configdetails['area']);
                }
            }
            $definition = $factory->create_definition($configdetails['component'], $configdetails['area']);
            $stores = $factory->get_store_instances_in_use($definition);

            // Create object for results about this cache definition.
            $currentresult = (object)['cacheid' => $definition->get_id(), 'stores' => []];
            $results[$currentresult->cacheid] = $currentresult;

            /** @var cache_store $store */
            foreach ($stores as $store) {
                // Skip static cache.
                if ($store instanceof \cachestore_static) {
                    continue;
                }

                // Get cache size details from store.
                $currentstore = $store->cache_size_details($samplekeys);

                // Add in basic information about store.
                $currentstore->name = $store->my_name();
                $currentstore->class = get_class($store);

                // Add in store total.
                if (!array_key_exists($currentstore->name, $storetotals)) {
                    $storetotals[$currentstore->name] = $store->store_total_size();
                }
                $currentstore->storetotal = $storetotals[$currentstore->name];

                $currentresult->stores[] = $currentstore;
            }
        }

        ksort($results);
        return $results;
    }
}
