Proyectos de Subversion Moodle

<?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/>.

/**

 * Change a users email address

 *

 * @copyright 1999 Martin Dougiamas  http://dougiamas.com

 * @license http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 * @package core_user

 */

require_once('../config.php');

require_once($CFG->libdir.'/adminlib.php');

require_once($CFG->dirroot.'/user/editlib.php');

require_once($CFG->dirroot.'/user/lib.php');

$key = required_param('key', PARAM_ALPHANUM);

$id  = required_param('id', PARAM_INT);

$PAGE->set_url('/user/emailupdate.php', array('id' => $id, 'key' => $key));

$PAGE->set_context(context_system::instance());

if (!$user = $DB->get_record('user', array('id' => $id))) {

    throw new \moodle_exception('invaliduserid');

}

$preferences = get_user_preferences(null, null, $user->id);

$a = new stdClass();

$a->fullname = fullname($user, true);

$stremailupdate = get_string('emailupdate', 'auth', $a);

$PAGE->set_title($stremailupdate);

$PAGE->set_heading(format_string($SITE->fullname) . ": $stremailupdate");

// Validate the key.

$errormessage = get_string('auth_invalidnewemailkey', 'auth');

try {

    $userkey = validate_user_key($key, 'core_user/email_change', null);

} catch (moodle_exception $e) {

    $userkey = null;

    $errormessage = $e->getMessage();

}

if (empty($preferences['newemailattemptsleft'])) {

    redirect("$CFG->wwwroot/user/view.php?id=$user->id");

} else if ($preferences['newemailattemptsleft'] < 1) {

    cancel_email_update($user->id);

    echo $OUTPUT->header();

    echo $OUTPUT->box(get_string('auth_outofnewemailupdateattempts', 'auth'), 'center');

    echo $OUTPUT->footer();

} else if ($userkey && $userkey->userid == $user->id) {

    // Key validated, continue with email update.

    $olduser = clone($user);

    cancel_email_update($user->id);

    $user->email = $preferences['newemail'];

    // Detect duplicate before saving.

    if (empty($CFG->allowaccountssameemail)) {

        // Make a case-insensitive query for the given email address.

        $select = $DB->sql_equal('email', ':email', false) . ' AND mnethostid = :mnethostid AND id <> :userid';

        $params = array(

            'email' => $user->email,

            'mnethostid' => $CFG->mnet_localhost_id,

            'userid' => $user->id

        );

        // If there are other user(s) that already have the same email, cancel and redirect.

        if ($DB->record_exists_select('user', $select, $params)) {

            redirect(new moodle_url('/user/view.php', ['id' => $user->id]), get_string('emailnowexists', 'auth'));

        }

    }

    // Update user email.

    $authplugin = get_auth_plugin($user->auth);

    $authplugin->user_update($olduser, $user);

    user_update_user($user, false);

    $a->email = $user->email;

    redirect(

        new moodle_url('/user/view.php', ['id' => $user->id]),

        get_string('emailupdatesuccess', 'auth', $a),

        null,

        \core\output\notification::NOTIFY_SUCCESS

    );

} else {

    $preferences['newemailattemptsleft']--;

    set_user_preference('newemailattemptsleft', $preferences['newemailattemptsleft'], $user->id);

    echo $OUTPUT->header();

    echo $OUTPUT->box($errormessage, 'center');

    echo $OUTPUT->footer();

}