2 // This file is part of Moodle - http://moodle.org/
4 // Moodle is free software: you can redistribute it and/or modify
5 // it under the terms of the GNU General Public License as published by
6 // the Free Software Foundation, either version 3 of the License, or
7 // (at your option) any later version.
9 // Moodle is distributed in the hope that it will be useful,
10 // but WITHOUT ANY WARRANTY; without even the implied warranty of
11 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 // GNU General Public License for more details.
14 // You should have received a copy of the GNU General Public License
15 // along with Moodle. If not, see <http://www.gnu.org/licenses/>.
18 * The administration and management interface for the cache setup and configuration.
20 * This file is part of Moodle's cache API, affectionately called MUC.
24 * @copyright 2012 Sam Hemelryk
25 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
28 require_once('../config.php');
29 require_once($CFG->dirroot
.'/lib/adminlib.php');
30 require_once($CFG->dirroot
.'/cache/locallib.php');
31 require_once($CFG->dirroot
.'/cache/forms.php');
33 // The first time the user visits this page we are going to reparse the definitions.
34 // Just ensures that everything is up to date.
35 // We flag is session so that this only happens once as people are likely to hit
36 // this page several times if making changes.
37 if (empty($SESSION->cacheadminreparsedefinitions
)) {
38 cache_helper
::update_definitions();
39 $SESSION->cacheadminreparsedefinitions
= true;
42 $action = optional_param('action', null, PARAM_ALPHA
);
44 admin_externalpage_setup('cacheconfig');
45 $context = context_system
::instance();
47 $stores = cache_administration_helper
::get_store_instance_summaries();
48 $plugins = cache_administration_helper
::get_store_plugin_summaries();
49 $definitions = cache_administration_helper
::get_definition_summaries();
50 $defaultmodestores = cache_administration_helper
::get_default_mode_stores();
51 $locks = cache_administration_helper
::get_lock_summaries();
53 $title = new lang_string('cacheadmin', 'cache');
56 $notifysuccess = true;
58 if (!empty($action) && confirm_sesskey()) {
60 case 'rescandefinitions' : // Rescan definitions.
61 cache_config_writer
::update_definitions();
64 case 'addstore' : // Add the requested store.
65 $plugin = required_param('plugin', PARAM_PLUGIN
);
66 if (!$plugins[$plugin]['canaddinstance']) {
67 print_error('ex_unmetstorerequirements', 'cache');
69 $mform = cache_administration_helper
::get_add_store_form($plugin);
70 $title = get_string('addstore', 'cache', $plugins[$plugin]['name']);
71 if ($mform->is_cancelled()) {
73 } else if ($data = $mform->get_data()) {
74 $config = cache_administration_helper
::get_store_configuration_from_data($data);
75 $writer = cache_config_writer
::instance();
76 unset($config['lock']);
77 foreach ($writer->get_locks() as $lock => $lockconfig) {
78 if ($lock == $data->lock
) {
79 $config['lock'] = $data->lock
;
82 $writer->add_store_instance($data->name
, $data->plugin
, $config);
83 redirect($PAGE->url
, get_string('addstoresuccess', 'cache', $plugins[$plugin]['name']), 5);
86 case 'editstore' : // Edit the requested store.
87 $plugin = required_param('plugin', PARAM_PLUGIN
);
88 $store = required_param('store', PARAM_TEXT
);
89 $mform = cache_administration_helper
::get_edit_store_form($plugin, $store);
90 $title = get_string('addstore', 'cache', $plugins[$plugin]['name']);
91 if ($mform->is_cancelled()) {
93 } else if ($data = $mform->get_data()) {
94 $config = cache_administration_helper
::get_store_configuration_from_data($data);
95 $writer = cache_config_writer
::instance();
97 unset($config['lock']);
98 foreach ($writer->get_locks() as $lock => $lockconfig) {
99 if ($lock == $data->lock
) {
100 $config['lock'] = $data->lock
;
103 $writer->edit_store_instance($data->name
, $data->plugin
, $config);
104 redirect($PAGE->url
, get_string('editstoresuccess', 'cache', $plugins[$plugin]['name']), 5);
107 case 'deletestore' : // Delete a given store.
108 $store = required_param('store', PARAM_TEXT
);
109 $confirm = optional_param('confirm', false, PARAM_BOOL
);
111 if (!array_key_exists($store, $stores)) {
112 $notifysuccess = false;
113 $notification = get_string('invalidstore', 'cache');
114 } else if ($stores[$store]['mappings'] > 0) {
115 $notifysuccess = false;
116 $notification = get_string('deletestorehasmappings', 'cache');
119 if ($notifysuccess) {
121 $title = get_string('confirmstoredeletion', 'cache');
122 $params = array('store' => $store, 'confirm' => 1, 'action' => $action, 'sesskey' => sesskey());
123 $url = new moodle_url($PAGE->url
, $params);
124 $button = new single_button($url, get_string('deletestore', 'cache'));
126 $PAGE->set_title($title);
127 $PAGE->set_heading($SITE->fullname
);
128 echo $OUTPUT->header();
129 echo $OUTPUT->heading($title);
130 $confirmation = get_string('deletestoreconfirmation', 'cache', $stores[$store]['name']);
131 echo $OUTPUT->confirm($confirmation, $button, $PAGE->url
);
132 echo $OUTPUT->footer();
135 $writer = cache_config_writer
::instance();
136 $writer->delete_store_instance($store);
137 redirect($PAGE->url
, get_string('deletestoresuccess', 'cache'), 5);
141 case 'editdefinitionmapping' : // Edit definition mappings.
142 $definition = required_param('definition', PARAM_SAFEPATH
);
143 if (!array_key_exists($definition, $definitions)) {
144 throw new cache_exception('Invalid cache definition requested');
146 $title = get_string('editdefinitionmappings', 'cache', $definition);
147 $mform = new cache_definition_mappings_form($PAGE->url
, array('definition' => $definition));
148 if ($mform->is_cancelled()) {
149 redirect($PAGE->url
);
150 } else if ($data = $mform->get_data()) {
151 $writer = cache_config_writer
::instance();
153 foreach ($data->mappings
as $mapping) {
154 if (!empty($mapping)) {
155 $mappings[] = $mapping;
158 $writer->set_definition_mappings($definition, $mappings);
159 redirect($PAGE->url
);
162 case 'editdefinitionsharing' :
163 $definition = required_param('definition', PARAM_SAFEPATH
);
164 if (!array_key_exists($definition, $definitions)) {
165 throw new cache_exception('Invalid cache definition requested');
167 $title = get_string('editdefinitionsharing', 'cache', $definition);
168 $sharingoptions = $definitions[$definition]['sharingoptions'];
169 $customdata = array('definition' => $definition, 'sharingoptions' => $sharingoptions);
170 $mform = new cache_definition_sharing_form($PAGE->url
, $customdata);
171 $mform->set_data(array(
172 'sharing' => $definitions[$definition]['selectedsharingoption'],
173 'userinputsharingkey' => $definitions[$definition]['userinputsharingkey']
175 if ($mform->is_cancelled()) {
176 redirect($PAGE->url
);
177 } else if ($data = $mform->get_data()) {
178 $component = $definitions[$definition]['component'];
179 $area = $definitions[$definition]['area'];
180 // Purge the stores removing stale data before we alter the sharing option.
181 cache_helper
::purge_stores_used_by_definition($component, $area);
182 $writer = cache_config_writer
::instance();
183 $sharing = array_sum(array_keys($data->sharing
));
184 $userinputsharingkey = $data->userinputsharingkey
;
185 $writer->set_definition_sharing($definition, $sharing, $userinputsharingkey);
186 redirect($PAGE->url
);
189 case 'editmodemappings': // Edit default mode mappings.
190 $mform = new cache_mode_mappings_form(null, $stores);
191 $mform->set_data(array(
192 'mode_'.cache_store
::MODE_APPLICATION
=> key($defaultmodestores[cache_store
::MODE_APPLICATION
]),
193 'mode_'.cache_store
::MODE_SESSION
=> key($defaultmodestores[cache_store
::MODE_SESSION
]),
194 'mode_'.cache_store
::MODE_REQUEST
=> key($defaultmodestores[cache_store
::MODE_REQUEST
]),
196 if ($mform->is_cancelled()) {
197 redirect($PAGE->url
);
198 } else if ($data = $mform->get_data()) {
200 cache_store
::MODE_APPLICATION
=> array($data->{'mode_'.cache_store
::MODE_APPLICATION
}),
201 cache_store
::MODE_SESSION
=> array($data->{'mode_'.cache_store
::MODE_SESSION
}),
202 cache_store
::MODE_REQUEST
=> array($data->{'mode_'.cache_store
::MODE_REQUEST
}),
204 $writer = cache_config_writer
::instance();
205 $writer->set_mode_mappings($mappings);
206 redirect($PAGE->url
);
210 case 'purgedefinition': // Purge a specific definition.
211 $definition = required_param('definition', PARAM_SAFEPATH
);
212 list($component, $area) = explode('/', $definition, 2);
213 $factory = cache_factory
::instance();
214 $definition = $factory->create_definition($component, $area);
215 if ($definition->has_required_identifiers()) {
216 // We will have to purge the stores used by this definition.
217 cache_helper
::purge_stores_used_by_definition($component, $area);
219 // Alrighty we can purge just the data belonging to this definition.
220 cache_helper
::purge_by_definition($component, $area);
222 redirect($PAGE->url
, get_string('purgedefinitionsuccess', 'cache'), 5);
226 case 'purge': // Purge a store cache.
227 $store = required_param('store', PARAM_TEXT
);
228 cache_helper
::purge_store($store);
229 redirect($PAGE->url
, get_string('purgestoresuccess', 'cache'), 5);
232 case 'newlockinstance':
233 // Adds a new lock instance.
234 $lock = required_param('lock', PARAM_ALPHANUMEXT
);
235 $mform = cache_administration_helper
::get_add_lock_form($lock);
236 if ($mform->is_cancelled()) {
237 redirect($PAGE->url
);
238 } else if ($data = $mform->get_data()) {
239 $factory = cache_factory
::instance();
240 $config = $factory->create_config_instance(true);
242 $data = cache_administration_helper
::get_lock_configuration_from_data($lock, $data);
243 $config->add_lock_instance($name, $lock, $data);
244 redirect($PAGE->url
, get_string('addlocksuccess', 'cache', $name), 5);
248 // Deletes a lock instance.
249 $lock = required_param('lock', PARAM_ALPHANUMEXT
);
250 $confirm = optional_param('confirm', false, PARAM_BOOL
);
251 if (!array_key_exists($lock, $locks)) {
252 $notifysuccess = false;
253 $notification = get_string('invalidlock', 'cache');
254 } else if ($locks[$lock]['uses'] > 0) {
255 $notifysuccess = false;
256 $notification = get_string('deletelockhasuses', 'cache');
258 if ($notifysuccess) {
260 $title = get_string('confirmlockdeletion', 'cache');
261 $params = array('lock' => $lock, 'confirm' => 1, 'action' => $action, 'sesskey' => sesskey());
262 $url = new moodle_url($PAGE->url
, $params);
263 $button = new single_button($url, get_string('deletelock', 'cache'));
265 $PAGE->set_title($title);
266 $PAGE->set_heading($SITE->fullname
);
267 echo $OUTPUT->header();
268 echo $OUTPUT->heading($title);
269 $confirmation = get_string('deletelockconfirmation', 'cache', $lock);
270 echo $OUTPUT->confirm($confirmation, $button, $PAGE->url
);
271 echo $OUTPUT->footer();
274 $writer = cache_config_writer
::instance();
275 $writer->delete_lock_instance($lock);
276 redirect($PAGE->url
, get_string('deletelocksuccess', 'cache'), 5);
283 $PAGE->set_title($title);
284 $PAGE->set_heading($SITE->fullname
);
285 /* @var core_cache_renderer $renderer */
286 $renderer = $PAGE->get_renderer('core_cache');
288 echo $renderer->header();
289 echo $renderer->heading($title);
291 if (!is_null($notification)) {
292 echo $renderer->notification($notification, ($notifysuccess)?
'notifysuccess' : 'notifyproblem');
295 if ($mform instanceof moodleform
) {
298 echo $renderer->store_plugin_summaries($plugins);
299 echo $renderer->store_instance_summariers($stores, $plugins);
300 echo $renderer->definition_summaries($definitions, $context);
301 echo $renderer->lock_summaries($locks);
303 $applicationstore = join(', ', $defaultmodestores[cache_store
::MODE_APPLICATION
]);
304 $sessionstore = join(', ', $defaultmodestores[cache_store
::MODE_SESSION
]);
305 $requeststore = join(', ', $defaultmodestores[cache_store
::MODE_REQUEST
]);
306 $editurl = new moodle_url('/cache/admin.php', array('action' => 'editmodemappings', 'sesskey' => sesskey()));
307 echo $renderer->mode_mappings($applicationstore, $sessionstore, $requeststore, $editurl);
310 echo $renderer->footer();