<?php

/**

 * Multisite administration functions.

 *

 * @package WordPress

 * @subpackage Multisite

 * @since 3.0.0

 */

/**

 * Determines whether uploaded file exceeds space quota.

 *

 * @since 3.0.0

 *

 * @param array $file An element from the `$_FILES` array for a given file.

 * @return array The `$_FILES` array element with 'error' key set if file exceeds quota. 'error' is empty otherwise.

 */

function check_upload_size( $file ) {

	if ( get_site_option( 'upload_space_check_disabled' ) ) {

		return $file;

	}

	if ( $file['error'] > 0 ) { // There's already an error.

		return $file;

	}

	if ( defined( 'WP_IMPORTING' ) ) {

		return $file;

	}

	$space_left = get_upload_space_available();

	$file_size = filesize( $file['tmp_name'] );

	if ( $space_left < $file_size ) {

		/* translators: %s: Required disk space in kilobytes. */

		$file['error'] = sprintf( __( 'Not enough space to upload. %s KB needed.' ), number_format( ( $file_size - $space_left ) / KB_IN_BYTES ) );

	}

	if ( $file_size > ( KB_IN_BYTES * get_site_option( 'fileupload_maxk', 1500 ) ) ) {

		/* translators: %s: Maximum allowed file size in kilobytes. */

		$file['error'] = sprintf( __( 'This file is too big. Files must be less than %s KB in size.' ), get_site_option( 'fileupload_maxk', 1500 ) );

	}

	if ( upload_is_user_over_quota( false ) ) {

		$file['error'] = __( 'You have used your space quota. Please delete files before uploading.' );

	}

	if ( $file['error'] > 0 && ! isset( $_POST['html-upload'] ) && ! wp_doing_ajax() ) {

		wp_die( $file['error'] . ' <a href="javascript:history.go(-1)">' . __( 'Back' ) . '</a>' );

	}

	return $file;

}

/**

 * Deletes a site.

 *

 * @since 3.0.0

 * @since 5.1.0 Use wp_delete_site() internally to delete the site row from the database.

 *

 * @param int  $blog_id Site ID.

 * @param bool $drop    True if site's database tables should be dropped. Default false.

 */

function wpmu_delete_blog( $blog_id, $drop = false ) {

	$blog_id = (int) $blog_id;

	$switch = false;

	if ( get_current_blog_id() !== $blog_id ) {

		$switch = true;

		switch_to_blog( $blog_id );

	}

	$blog = get_site( $blog_id );

	$current_network = get_network();

	// If a full blog object is not available, do not destroy anything.

	if ( $drop && ! $blog ) {

		$drop = false;

	}

	// Don't destroy the initial, main, or root blog.

	if ( $drop

		&& ( 1 === $blog_id || is_main_site( $blog_id )

			|| ( $blog->path === $current_network->path && $blog->domain === $current_network->domain ) )

	) {

		$drop = false;

	}

	$upload_path = trim( get_option( 'upload_path' ) );

	// If ms_files_rewriting is enabled and upload_path is empty, wp_upload_dir is not reliable.

	if ( $drop && get_site_option( 'ms_files_rewriting' ) && empty( $upload_path ) ) {

		$drop = false;

	}

	if ( $drop ) {

		wp_delete_site( $blog_id );

	} else {

		/** This action is documented in wp-includes/ms-blogs.php */

		do_action_deprecated( 'delete_blog', array( $blog_id, false ), '5.1.0' );

		$users = get_users(

			array(

				'blog_id' => $blog_id,

				'fields'  => 'ids',

			)

		);

		// Remove users from this blog.

		if ( ! empty( $users ) ) {

			foreach ( $users as $user_id ) {

				remove_user_from_blog( $user_id, $blog_id );

			}

		}

		update_blog_status( $blog_id, 'deleted', 1 );

		/** This action is documented in wp-includes/ms-blogs.php */

		do_action_deprecated( 'deleted_blog', array( $blog_id, false ), '5.1.0' );

	}

	if ( $switch ) {

		restore_current_blog();

	}

}

/**

 * Deletes a user and all of their posts from the network.

 *

 * This function:

 *

 * - Deletes all posts (of all post types) authored by the user on all sites on the network

 * - Deletes all links owned by the user on all sites on the network

 * - Removes the user from all sites on the network

 * - Deletes the user from the database

 *

 * @since 3.0.0

 *

 * @global wpdb $wpdb WordPress database abstraction object.

 *

 * @param int $id The user ID.

 * @return bool True if the user was deleted, false otherwise.

 */

function wpmu_delete_user( $id ) {

	global $wpdb;

	if ( ! is_numeric( $id ) ) {

		return false;

	}

	$id   = (int) $id;

	$user = new WP_User( $id );

	if ( ! $user->exists() ) {

		return false;

	}

	// Global super-administrators are protected, and cannot be deleted.

	$_super_admins = get_super_admins();

	if ( in_array( $user->user_login, $_super_admins, true ) ) {

		return false;

	}

	/**

	 * Fires before a user is deleted from the network.

	 *

	 * @since MU (3.0.0)

	 * @since 5.5.0 Added the `$user` parameter.

	 *

	 * @param int     $id   ID of the user about to be deleted from the network.

	 * @param WP_User $user WP_User object of the user about to be deleted from the network.

	 */

	do_action( 'wpmu_delete_user', $id, $user );

	$blogs = get_blogs_of_user( $id );

	if ( ! empty( $blogs ) ) {

		foreach ( $blogs as $blog ) {

			switch_to_blog( $blog->userblog_id );

			remove_user_from_blog( $id, $blog->userblog_id );

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

			foreach ( (array) $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 );

				}

			}

			restore_current_blog();

		}

	}

	$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 );

	/** This action is documented in wp-admin/includes/user.php */

	do_action( 'deleted_user', $id, null, $user );

	return true;

}

/**

 * Checks whether a site has used its allotted upload space.

 *

 * @since MU (3.0.0)

 *

 * @param bool $display_message Optional. If set to true and the quota is exceeded,

 *                              a warning message is displayed. Default true.

 * @return bool True if user is over upload space quota, otherwise false.

 */

function upload_is_user_over_quota( $display_message = true ) {

	if ( get_site_option( 'upload_space_check_disabled' ) ) {

		return false;

	}

	$space_allowed = get_space_allowed();

	if ( ! is_numeric( $space_allowed ) ) {

		$space_allowed = 10; // Default space allowed is 10 MB.

	}

	$space_used = get_space_used();

	if ( ( $space_allowed - $space_used ) < 0 ) {

		if ( $display_message ) {

			printf(

				/* translators: %s: Allowed space allocation. */

				__( 'Sorry, you have used your space allocation of %s. Please delete some files to upload more files.' ),

				size_format( $space_allowed * MB_IN_BYTES )

			);

		}

		return true;

	} else {

		return false;

	}

}

/**

 * Displays the amount of disk space used by the current site. Not used in core.

 *

 * @since MU (3.0.0)

 */

function display_space_usage() {

	$space_allowed = get_space_allowed();

	$space_used    = get_space_used();

	$percent_used = ( $space_used / $space_allowed ) * 100;

	$space = size_format( $space_allowed * MB_IN_BYTES );

	?>

	<strong>

	<?php

		/* translators: Storage space that's been used. 1: Percentage of used space, 2: Total space allowed in megabytes or gigabytes. */

		printf( __( 'Used: %1$s%% of %2$s' ), number_format( $percent_used ), $space );

	?>

	</strong>

	<?php

}

/**

 * Gets the remaining upload space for this site.

 *

 * @since MU (3.0.0)

 *

 * @param int $size Current max size in bytes.

 * @return int Max size in bytes.

 */

function fix_import_form_size( $size ) {

	if ( upload_is_user_over_quota( false ) ) {

		return 0;

	}

	$available = get_upload_space_available();

	return min( $size, $available );

}

/**

 * Displays the site upload space quota setting form on the Edit Site Settings screen.

 *

 * @since 3.0.0

 *

 * @param int $id The ID of the site to display the setting for.

 */

function upload_space_setting( $id ) {

	switch_to_blog( $id );

	$quota = get_option( 'blog_upload_space' );

	restore_current_blog();

	if ( ! $quota ) {

		$quota = '';

	}

	?>

	<tr>

		<th><label for="blog-upload-space-number"><?php _e( 'Site Upload Space Quota' ); ?></label></th>

		<td>

			<input type="number" step="1" min="0" style="width: 100px"

				name="option[blog_upload_space]" id="blog-upload-space-number"

				aria-describedby="blog-upload-space-desc" value="<?php echo esc_attr( $quota ); ?>" />

			<span id="blog-upload-space-desc"><span class="screen-reader-text">

				<?php

				/* translators: Hidden accessibility text. */

				_e( 'Size in megabytes' );

				?>

			</span> <?php _e( 'MB (Leave blank for network default)' ); ?></span>

		</td>

	</tr>

	<?php

}

/**

 * Cleans the user cache for a specific user.

 *

 * @since 3.0.0

 *

 * @param int $id The user ID.

 * @return int|false The ID of the refreshed user or false if the user does not exist.

 */

function refresh_user_details( $id ) {

	$id = (int) $id;

	$user = get_userdata( $id );

	if ( ! $user ) {

		return false;

	}

	clean_user_cache( $user );

	return $id;

}

/**

 * Returns the language for a language code.

 *

 * @since 3.0.0

 *

 * @param string $code Optional. The two-letter language code. Default empty.

 * @return string The language corresponding to $code if it exists. If it does not exist,

 *                then the first two letters of $code is returned.

 */

function format_code_lang( $code = '' ) {

	$code       = strtolower( substr( $code, 0, 2 ) );

	$lang_codes = array(

		'aa' => 'Afar',

		'ab' => 'Abkhazian',

		'af' => 'Afrikaans',

		'ak' => 'Akan',

		'sq' => 'Albanian',

		'am' => 'Amharic',

		'ar' => 'Arabic',

		'an' => 'Aragonese',

		'hy' => 'Armenian',

		'as' => 'Assamese',

		'av' => 'Avaric',

		'ae' => 'Avestan',

		'ay' => 'Aymara',

		'az' => 'Azerbaijani',

		'ba' => 'Bashkir',

		'bm' => 'Bambara',

		'eu' => 'Basque',

		'be' => 'Belarusian',

		'bn' => 'Bengali',

		'bh' => 'Bihari',

		'bi' => 'Bislama',

		'bs' => 'Bosnian',

		'br' => 'Breton',

		'bg' => 'Bulgarian',

		'my' => 'Burmese',

		'ca' => 'Catalan; Valencian',

		'ch' => 'Chamorro',

		'ce' => 'Chechen',

		'zh' => 'Chinese',

		'cu' => 'Church Slavic; Old Slavonic; Church Slavonic; Old Bulgarian; Old Church Slavonic',

		'cv' => 'Chuvash',

		'kw' => 'Cornish',

		'co' => 'Corsican',

		'cr' => 'Cree',

		'cs' => 'Czech',

		'da' => 'Danish',

		'dv' => 'Divehi; Dhivehi; Maldivian',

		'nl' => 'Dutch; Flemish',

		'dz' => 'Dzongkha',

		'en' => 'English',

		'eo' => 'Esperanto',

		'et' => 'Estonian',

		'ee' => 'Ewe',

		'fo' => 'Faroese',

		'fj' => 'Fijjian',

		'fi' => 'Finnish',

		'fr' => 'French',

		'fy' => 'Western Frisian',

		'ff' => 'Fulah',

		'ka' => 'Georgian',

		'de' => 'German',

		'gd' => 'Gaelic; Scottish Gaelic',

		'ga' => 'Irish',

		'gl' => 'Galician',

		'gv' => 'Manx',

		'el' => 'Greek, Modern',

		'gn' => 'Guarani',

		'gu' => 'Gujarati',

		'ht' => 'Haitian; Haitian Creole',

		'ha' => 'Hausa',