<?php

/**

 * WordPress user administration API.

 *

 * @package WordPress

 * @subpackage Administration

 */

/**

 * Creates a new user from the "Users" form using $_POST information.

 *

 * @since 2.0.0

 *

 */

function add_user() {

	return edit_user();

}

/**

 * Edit user settings based on contents of $_POST

 *

 * Used on user-edit.php and profile.php to manage and process user options, passwords etc.

 *

 * @since 2.0.0

 *

 * @param int $user_id Optional. User ID.

 */

function edit_user( $user_id = 0 ) {

	$user = new stdClass;

	if ( $user_id ) {

		$update = true;

		$user->ID = (int) $user_id;

		$userdata = get_userdata( $user_id );

		$user->user_login = wp_slash( $userdata->user_login );

	} else {

		$update = false;

	}

	if ( !$update && isset( $_POST['user_login'] ) )

		$user->user_login = sanitize_user($_POST['user_login'], true);

	$pass1 = $pass2 = '';

	if ( isset( $_POST['pass1'] ) )

		$pass1 = $_POST['pass1'];

	if ( isset( $_POST['pass2'] ) )

		$pass2 = $_POST['pass2'];

	if ( isset( $_POST['role'] ) && current_user_can( 'edit_users' ) ) {

		$new_role = sanitize_text_field( $_POST['role'] );

		$potential_role = isset($wp_roles->role_objects[$new_role]) ? $wp_roles->role_objects[$new_role] : false;

		// Don't let anyone with 'edit_users' (admins) edit their own role to something without it.

		// Multisite super admins can freely edit their blog roles -- they possess all caps.

		if ( ( is_multisite() && current_user_can( 'manage_sites' ) ) || $user_id != get_current_user_id() || ($potential_role && $potential_role->has_cap( 'edit_users' ) ) )

			$user->role = $new_role;

		// If the new role isn't editable by the logged-in user die with error

		$editable_roles = get_editable_roles();

		if ( ! empty( $new_role ) && empty( $editable_roles[$new_role] ) )

	}

	if ( isset( $_POST['email'] ))

		$user->user_email = sanitize_text_field( wp_unslash( $_POST['email'] ) );

	if ( isset( $_POST['url'] ) ) {

		if ( empty ( $_POST['url'] ) || $_POST['url'] == 'http://' ) {

			$user->user_url = '';

		} else {

			$user->user_url = esc_url_raw( $_POST['url'] );

			$protocols = implode( '|', array_map( 'preg_quote', wp_allowed_protocols() ) );

			$user->user_url = preg_match('/^(' . $protocols . '):/is', $user->user_url) ? $user->user_url : 'http://'.$user->user_url;

		}

	}

	if ( isset( $_POST['first_name'] ) )

		$user->first_name = sanitize_text_field( $_POST['first_name'] );

	if ( isset( $_POST['last_name'] ) )

		$user->last_name = sanitize_text_field( $_POST['last_name'] );

	if ( isset( $_POST['nickname'] ) )

		$user->nickname = sanitize_text_field( $_POST['nickname'] );

	if ( isset( $_POST['display_name'] ) )

		$user->display_name = sanitize_text_field( $_POST['display_name'] );

	if ( isset( $_POST['description'] ) )

		$user->description = trim( $_POST['description'] );

	foreach ( wp_get_user_contact_methods( $user ) as $method => $name ) {

		if ( isset( $_POST[$method] ))

			$user->$method = sanitize_text_field( $_POST[$method] );

	}

	if ( $update ) {

		$user->admin_color = isset( $_POST['admin_color'] ) ? sanitize_text_field( $_POST['admin_color'] ) : 'fresh';

		$user->show_admin_bar_front = isset( $_POST['admin_bar_front'] ) ? 'true' : 'false';

	}

	$user->comment_shortcuts = isset( $_POST['comment_shortcuts'] ) && 'true' == $_POST['comment_shortcuts'] ? 'true' : '';

	$user->use_ssl = 0;

	if ( !empty($_POST['use_ssl']) )

		$user->use_ssl = 1;

	$errors = new WP_Error();

	/* checking that username has been typed */

	if ( $user->user_login == '' )

		$errors->add( 'user_login', __( '<strong>ERROR</strong>: Please enter a username.' ) );

	/**

	 * Fires before the password and confirm password fields are checked for congruity.

	 *

	 * @since 1.5.1

	 *

	 * @param string $user_login The username.

	 */

	do_action_ref_array( 'check_passwords', array( $user->user_login, &$pass1, &$pass2 ) );

	}

		$errors->add( 'pass', __( '<strong>ERROR</strong>: Passwords may not contain the character "\\".' ), array( 'form-field' => 'pass1' ) );

	if ( !empty( $pass1 ) )

		$user->user_pass = $pass1;

	if ( !$update && isset( $_POST['user_login'] ) && !validate_username( $_POST['user_login'] ) )

		$errors->add( 'user_login', __( '<strong>ERROR</strong>: This username is invalid because it uses illegal characters. Please enter a valid username.' ));

	if ( !$update && username_exists( $user->user_login ) )

		$errors->add( 'user_login', __( '<strong>ERROR</strong>: This username is already registered. Please choose another one.' ));

	if ( empty( $user->user_email ) ) {

	} elseif ( !is_email( $user->user_email ) ) {

		$errors->add( 'invalid_email', __( '<strong>ERROR</strong>: The email address isn&#8217;t correct.' ), array( 'form-field' => 'email' ) );

	} elseif ( ( $owner_id = email_exists($user->user_email) ) && ( !$update || ( $owner_id != $user->ID ) ) ) {

		$errors->add( 'email_exists', __('<strong>ERROR</strong>: This email is already registered, please choose another one.'), array( 'form-field' => 'email' ) );

	}

	/**

	 * Fires before user profile update errors are returned.

	 *

	 * @since 2.8.0

	 *

	 */

	do_action_ref_array( 'user_profile_update_errors', array( &$errors, $update, &$user ) );

	if ( $errors->get_error_codes() )

		return $errors;

	if ( $update ) {

		$user_id = wp_update_user( $user );

	} else {

		$user_id = wp_insert_user( $user );

	}

	return $user_id;

}

/**

 * Fetch a filtered list of user roles that the current user is

 * allowed to edit.

 *

 * Simple function who's main purpose is to allow filtering of the

 * list of roles in the $wp_roles object so that plugins can remove

 * inappropriate ones depending on the situation or user making edits.

 * Specifically because without filtering anyone with the edit_users

 * capability can edit others to be administrators, even if they are

 * only editors or authors. This filter allows admins to delegate

 * user management.

 *

 * @since 2.8.0

 *

 * @return array

 */

function get_editable_roles() {

	/**

	 *

	 * @since 2.8.0

	 *

	 * @param array $all_roles List of roles.

	 */

	$editable_roles = apply_filters( 'editable_roles', $all_roles );

	return $editable_roles;

}

/**

 * Retrieve user data and filter it.

 *

 * @since 2.0.5

 *

 * @param int $user_id User ID.

 * @return WP_User|bool WP_User object on success, false on failure.

 */

function get_user_to_edit( $user_id ) {

	$user = get_userdata( $user_id );

	if ( $user )

		$user->filter = 'edit';

	return $user;

}

/**

 * Retrieve the user's drafts.

 *

 * @since 2.0.0

 *

 * @param int $user_id User ID.

 * @return array

 */

function get_users_drafts( $user_id ) {

	global $wpdb;

	$query = $wpdb->prepare("SELECT ID, post_title FROM $wpdb->posts WHERE post_type = 'post' AND post_status = 'draft' AND post_author = %d ORDER BY post_modified DESC", $user_id);

	/**

	 *

	 * @since 2.0.0

	 *

	 * @param string $query The user's drafts query string.

	 */

	$query = apply_filters( 'get_users_drafts', $query );

	return $wpdb->get_results( $query );

}

/**

 * Remove user and optionally reassign posts and links to another user.

 *

 * If the $reassign parameter is not assigned to a User ID, then all posts will

 * being deleted will be run after the posts are either reassigned or deleted.

 * The user meta will also be deleted that are for that User ID.

 *

 * @since 2.0.0

 *

 * @param int $id User ID.

 * @param int $reassign Optional. Reassign posts and links to new User ID.

 * @return bool True when finished.

 */

function wp_delete_user( $id, $reassign = null ) {

	global $wpdb;

	$id = (int) $id;

	$user = new WP_User( $id );

	if ( !$user->exists() )

		return false;

	// Normalize $reassign to null or a user ID. 'novalue' was an older default.

	if ( 'novalue' === $reassign ) {

		$reassign = null;

	} elseif ( null !== $reassign ) {

		$reassign = (int) $reassign;

	}

	/**

	 * Fires immediately before a user is deleted from the database.

	 *

	 * @since 2.0.0

	 *

	 * @param int      $id       ID of the user to delete.

	 * @param int|null $reassign ID of the user to reassign posts and links to.

	 *                           Default null, for no reassignment.

	 */

	do_action( 'delete_user', $id, $reassign );

	if ( null === $reassign ) {

		$post_types_to_delete = array();

		foreach ( get_post_types( array(), 'objects' ) as $post_type ) {

			if ( $post_type->delete_with_user ) {

				$post_types_to_delete[] = $post_type->name;

			} elseif ( null === $post_type->delete_with_user && post_type_supports( $post_type->name, 'author' ) ) {

				$post_types_to_delete[] = $post_type->name;

			}

		}

		/**

		 *

		 * @since 3.4.0

		 *

		 * @param array $post_types_to_delete Post types to delete.

		 * @param int   $id                   User ID.

		 */

		$post_types_to_delete = apply_filters( 'post_types_to_delete_with_user', $post_types_to_delete, $id );

		$post_types_to_delete = implode( "', '", $post_types_to_delete );

		$post_ids = $wpdb->get_col( $wpdb->prepare( "SELECT ID FROM $wpdb->posts WHERE post_author = %d AND post_type IN ('$post_types_to_delete')", $id ) );

		if ( $post_ids ) {

			foreach ( $post_ids as $post_id )

				wp_delete_post( $post_id );

		}

		// Clean links

		$link_ids = $wpdb->get_col( $wpdb->prepare("SELECT link_id FROM $wpdb->links WHERE link_owner = %d", $id) );

		if ( $link_ids ) {

			foreach ( $link_ids as $link_id )

				wp_delete_link($link_id);

		}

	} else {

		$post_ids = $wpdb->get_col( $wpdb->prepare( "SELECT ID FROM $wpdb->posts WHERE post_author = %d", $id ) );

		$wpdb->update( $wpdb->posts, array('post_author' => $reassign), array('post_author' => $id) );

		if ( ! empty( $post_ids ) ) {

			foreach ( $post_ids as $post_id )

				clean_post_cache( $post_id );

		}

		$link_ids = $wpdb->get_col( $wpdb->prepare("SELECT link_id FROM $wpdb->links WHERE link_owner = %d", $id) );

		$wpdb->update( $wpdb->links, array('link_owner' => $reassign), array('link_owner' => $id) );

		if ( ! empty( $link_ids ) ) {

			foreach ( $link_ids as $link_id )

				clean_bookmark_cache( $link_id );

		}

	}

	// FINALLY, delete user

	if ( is_multisite() ) {

		remove_user_from_blog( $id, get_current_blog_id() );

	} else {

		$meta = $wpdb->get_col( $wpdb->prepare( "SELECT umeta_id FROM $wpdb->usermeta WHERE user_id = %d", $id ) );

		foreach ( $meta as $mid )

			delete_metadata_by_mid( 'user', $mid );

		$wpdb->delete( $wpdb->users, array( 'ID' => $id ) );

	}

	clean_user_cache( $user );