Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 1
<?php
2
// This file is part of Moodle - http://moodle.org/
3
//
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.
8
//
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.
13
//
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/>.
16
 
17
/**
18
 * This script triggers a full purging of system caches,
19
 * this is useful mostly for developers who did not disable the caching.
20
 *
21
 * @package    core
22
 * @copyright  2010 Petr Skoda {@link http://skodak.org}
23
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
24
 */
25
 
26
require_once('../config.php');
27
require_once($CFG->libdir.'/adminlib.php');
28
 
29
$confirm = optional_param('confirm', 0, PARAM_BOOL);
30
$returnurl = optional_param('returnurl', '/admin/purgecaches.php', PARAM_LOCALURL);
31
$returnurl = new moodle_url($returnurl);
32
 
33
admin_externalpage_setup('purgecaches');
34
 
35
$form = new core_admin\form\purge_caches(null, ['returnurl' => $returnurl]);
36
 
37
// If we have got here as a confirmed aciton, do it.
38
if ($data = $form->get_data()) {
39
 
40
    // Valid request. Purge, and redirect the user back to where they came from.
41
    if (isset($data->all)) {
42
        purge_caches();
43
        $message = get_string('purgecachesfinished', 'admin');
44
    } else {
45
        purge_caches($data->purgeselectedoptions);
46
        $message = get_string('purgeselectedcachesfinished', 'admin');
47
    }
48
 
49
} else if ($confirm && confirm_sesskey()) {
50
    purge_caches();
51
    $message = get_string('purgecachesfinished', 'admin');
52
}
53
 
54
// Redirect and/or show notification message confirming cache(s) were purged.
55
if (isset($message)) {
56
    if (!$PAGE->url->compare($returnurl, URL_MATCH_BASE)) {
57
        redirect($returnurl, $message);
58
    }
59
 
60
    // We are already on the purge caches page, add the notification.
61
    \core\notification::add($message, \core\output\notification::NOTIFY_INFO);
62
}
63
 
64
// Otherwise, show a form to actually purge the caches.
65
 
66
echo $OUTPUT->header();
67
echo $OUTPUT->heading(get_string('purgecachespage', 'admin'));
68
 
69
echo $OUTPUT->box_start('generalbox', 'notice');
70
echo html_writer::tag('p', get_string('purgecachesconfirm', 'admin'));
71
echo $form->render();
72
echo $OUTPUT->box_end();
73
 
74
echo $OUTPUT->footer();