CaffGeek/MBACNationals

View on GitHub
Web.Admin/2014/wordpress/wp-admin/includes/ms.php

Summary

Maintainability
F
3 days
Test Coverage
<?php
/**
 * Multisite administration functions.
 *
 * @package WordPress
 * @subpackage Multisite
 * @since 3.0.0
 */

/**
 * Determine if uploaded file exceeds space quota.
 *
 * @since 3.0.0
 *
 * @param array $file $_FILES array for a given file.
 * @return array $_FILES array 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 )
        $file['error'] = sprintf( __( 'Not enough space to upload. %1$s KB needed.' ), number_format( ($file_size - $space_left) /1024 ) );
    if ( $file_size > ( 1024 * get_site_option( 'fileupload_maxk', 1500 ) ) )
        $file['error'] = sprintf(__('This file is too big. Files must be less than %1$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_die( $file['error'] . ' <a href="javascript:history.go(-1)">' . __( 'Back' ) . '</a>' );

    return $file;
}
add_filter( 'wp_handle_upload_prefilter', 'check_upload_size' );

/**
 * Delete a blog
 *
 * @since 3.0.0
 *
 * @param int $blog_id Blog ID
 * @param bool $drop True if blog's table should be dropped. Default is false.
 * @return void
 */
function wpmu_delete_blog( $blog_id, $drop = false ) {
    global $wpdb;

    $switch = false;
    if ( get_current_blog_id() != $blog_id ) {
        $switch = true;
        switch_to_blog( $blog_id );
    }

    $blog = get_blog_details( $blog_id );
    /**
     * Fires before a blog is deleted.
     *
     * @since MU
     *
     * @param int  $blog_id The blog ID.
     * @param bool $drop    True if blog's table should be dropped. Default is false.
     */
    do_action( 'delete_blog', $blog_id, $drop );

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

    $current_site = get_current_site();

    // Don't destroy the initial, main, or root blog.
    if ( $drop && ( 1 == $blog_id || is_main_site( $blog_id ) || ( $blog->path == $current_site->path && $blog->domain == $current_site->domain ) ) )
        $drop = false;

    if ( $drop ) {
        $tables = $wpdb->tables( 'blog' );
        /**
         * Filter the tables to drop when the blog is deleted.
         *
         * @since MU
         *
         * @param array $tables  The blog tables to be dropped.
         * @param int   $blog_id The ID of the blog to drop tables for.
         */
        $drop_tables = apply_filters( 'wpmu_drop_tables', $tables, $blog_id );

        foreach ( (array) $drop_tables as $table ) {
            $wpdb->query( "DROP TABLE IF EXISTS `$table`" );
        }

        $wpdb->delete( $wpdb->blogs, array( 'blog_id' => $blog_id ) );

        $uploads = wp_upload_dir();
        /**
         * Filter the upload base directory to delete when the blog is deleted.
         *
         * @since MU
         *
         * @param string $uploads['basedir'] Uploads path without subdirectory. @see wp_upload_dir()
         * @param int    $blog_id            The blog ID.
         */
        $dir = apply_filters( 'wpmu_delete_blog_upload_dir', $uploads['basedir'], $blog_id );
        $dir = rtrim( $dir, DIRECTORY_SEPARATOR );
        $top_dir = $dir;
        $stack = array($dir);
        $index = 0;

        while ( $index < count( $stack ) ) {
            # Get indexed directory from stack
            $dir = $stack[$index];

            $dh = @opendir( $dir );
            if ( $dh ) {
                while ( ( $file = @readdir( $dh ) ) !== false ) {
                    if ( $file == '.' || $file == '..' )
                        continue;

                    if ( @is_dir( $dir . DIRECTORY_SEPARATOR . $file ) )
                        $stack[] = $dir . DIRECTORY_SEPARATOR . $file;
                    else if ( @is_file( $dir . DIRECTORY_SEPARATOR . $file ) )
                        @unlink( $dir . DIRECTORY_SEPARATOR . $file );
                }
                @closedir( $dh );
            }
            $index++;
        }

        $stack = array_reverse( $stack ); // Last added dirs are deepest
        foreach( (array) $stack as $dir ) {
            if ( $dir != $top_dir)
            @rmdir( $dir );
        }

        clean_blog_cache( $blog );
    }

    if ( $switch )
        restore_current_blog();
}

// @todo Merge with wp_delete_user() ?
function wpmu_delete_user( $id ) {
    global $wpdb;

    $id = (int) $id;
    $user = new WP_User( $id );

    if ( !$user->exists() )
        return false;
    /**
     * Fires before a user is deleted from the network.
     *
     * @since MU
     *
     * @param int $id ID of the user about to be deleted from the network.
     */
    do_action( 'wpmu_delete_user', $id );

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

    return true;
}

function update_option_new_admin_email( $old_value, $value ) {
    $email = get_option( 'admin_email' );
    if ( $value == get_option( 'admin_email' ) || !is_email( $value ) )
        return;

    $hash = md5( $value. time() .mt_rand() );
    $new_admin_email = array(
        'hash' => $hash,
        'newemail' => $value
    );
    update_option( 'adminhash', $new_admin_email );

    $email_text = __( 'Dear user,

You recently requested to have the administration email address on
your site changed.
If this is correct, please click on the following link to change it:
###ADMIN_URL###

You can safely ignore and delete this email if you do not want to
take this action.

This email has been sent to ###EMAIL###

Regards,
All at ###SITENAME###
###SITEURL###' );

    /**
     * Filter the email text sent when the site admin email is changed.
     *
     * The following strings have a special meaning and will get replaced dynamically:
     * ###ADMIN_URL### The link to click on to confirm the email change. Required otherwise this functunalty is will break.
     * ###EMAIL###     The new email.
     * ###SITENAME###  The name of the site.
     * ###SITEURL###   The URL to the site.
     *
     * @since MU
     *
     * @param string $email_text      Text in the email.
     * @param string $new_admin_email New admin email that the current administration email was changed to.
     */
    $content = apply_filters( 'new_admin_email_content', $email_text, $new_admin_email );

    $content = str_replace( '###ADMIN_URL###', esc_url( admin_url( 'options.php?adminhash='.$hash ) ), $content );
    $content = str_replace( '###EMAIL###', $value, $content );
    $content = str_replace( '###SITENAME###', get_site_option( 'site_name' ), $content );
    $content = str_replace( '###SITEURL###', network_home_url(), $content );

    wp_mail( $value, sprintf( __( '[%s] New Admin Email Address' ), wp_specialchars_decode( get_option( 'blogname' ) ) ), $content );
}
add_action( 'update_option_new_admin_email', 'update_option_new_admin_email', 10, 2 );
add_action( 'add_option_new_admin_email', 'update_option_new_admin_email', 10, 2 );

function send_confirmation_on_profile_email() {
    global $errors, $wpdb;
    $current_user = wp_get_current_user();
    if ( ! is_object($errors) )
        $errors = new WP_Error();

    if ( $current_user->ID != $_POST['user_id'] )
        return false;

    if ( $current_user->user_email != $_POST['email'] ) {
        if ( !is_email( $_POST['email'] ) ) {
            $errors->add( 'user_email', __( "<strong>ERROR</strong>: The email address isn&#8217;t correct." ), array( 'form-field' => 'email' ) );
            return;
        }

        if ( $wpdb->get_var( $wpdb->prepare( "SELECT user_email FROM {$wpdb->users} WHERE user_email=%s", $_POST['email'] ) ) ) {
            $errors->add( 'user_email', __( "<strong>ERROR</strong>: The email address is already used." ), array( 'form-field' => 'email' ) );
            delete_option( $current_user->ID . '_new_email' );
            return;
        }

        $hash = md5( $_POST['email'] . time() . mt_rand() );
        $new_user_email = array(
                'hash' => $hash,
                'newemail' => $_POST['email']
                );
        update_option( $current_user->ID . '_new_email', $new_user_email );

        $email_text = __( 'Dear user,

You recently requested to have the email address on your account changed.
If this is correct, please click on the following link to change it:
###ADMIN_URL###

You can safely ignore and delete this email if you do not want to
take this action.

This email has been sent to ###EMAIL###

Regards,
All at ###SITENAME###
###SITEURL###' );

        /**
         * Filter the email text sent when a user changes emails.
         *
         * The following strings have a special meaning and will get replaced dynamically:
         * ###ADMIN_URL### The link to click on to confirm the email change. Required otherwise this functunalty is will break.
         * ###EMAIL### The new email.
         * ###SITENAME### The name of the site.
         * ###SITEURL### The URL to the site.
         *
         * @since MU
         *
         * @param string $email_text     Text in the email.
         * @param string $new_user_email New user email that the current user has changed to.
         */
        $content = apply_filters( 'new_user_email_content', $email_text, $new_user_email );

        $content = str_replace( '###ADMIN_URL###', esc_url( admin_url( 'profile.php?newuseremail='.$hash ) ), $content );
        $content = str_replace( '###EMAIL###', $_POST['email'], $content);
        $content = str_replace( '###SITENAME###', get_site_option( 'site_name' ), $content );
        $content = str_replace( '###SITEURL###', network_home_url(), $content );

        wp_mail( $_POST['email'], sprintf( __( '[%s] New Email Address' ), wp_specialchars_decode( get_option( 'blogname' ) ) ), $content );
        $_POST['email'] = $current_user->user_email;
    }
}
add_action( 'personal_options_update', 'send_confirmation_on_profile_email' );

function new_user_email_admin_notice() {
    if ( strpos( $_SERVER['PHP_SELF'], 'profile.php' ) && isset( $_GET['updated'] ) && $email = get_option( get_current_user_id() . '_new_email' ) )
        echo "<div class='update-nag'>" . sprintf( __( "Your email address has not been updated yet. Please check your inbox at %s for a confirmation email." ), $email['newemail'] ) . "</div>";
}
add_action( 'admin_notices', 'new_user_email_admin_notice' );

/**
 * Check whether a blog has used its allotted upload space.
 *
 * @since MU
 *
 * @param bool $echo Optional. If $echo is set and the quota is exceeded, a warning message is echoed. Default is true.
 * @return int
 */
function upload_is_user_over_quota( $echo = true ) {
    if ( get_site_option( 'upload_space_check_disabled' ) )
        return false;

    $space_allowed = get_space_allowed();
    if ( empty( $space_allowed ) || !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 ( $echo )
            _e( 'Sorry, you have used your space allocation. Please delete some files to upload more files.' );
        return true;
    } else {
        return false;
    }
}

/**
 * Displays the amount of disk space used by the current blog. Not used in core.
 *
 * @since MU
 */
function display_space_usage() {
    $space_allowed = get_space_allowed();
    $space_used = get_space_used();

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

    if ( $space_allowed > 1000 ) {
        $space = number_format( $space_allowed / 1024 );
        /* translators: Gigabytes */
        $space .= __( 'GB' );
    } else {
        $space = number_format( $space_allowed );
        /* translators: Megabytes */
        $space .= __( 'MB' );
    }
    ?>
    <strong><?php printf( __( 'Used: %1$s%% of %2$s' ), number_format( $percent_used ), $space ); ?></strong>
    <?php
}

/**
 * Get the remaining upload space for this blog.
 *
 * @since MU
 * @uses upload_is_user_over_quota()
 * @uses get_space_allowed()
 * @uses get_upload_space_available()
 *
 * @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 ) == true )
        return 0;

    $available = get_upload_space_available();
    return min( $size, $available );
}

// Edit blog upload space setting on Edit Blog page
function upload_space_setting( $id ) {
    switch_to_blog( $id );
    $quota = get_option( 'blog_upload_space' );
    restore_current_blog();

    if ( !$quota )
        $quota = '';

    ?>
    <tr>
        <th><?php _e( 'Site Upload Space Quota '); ?></th>
        <td><input type="number" step="1" min="0" style="width: 100px" name="option[blog_upload_space]" value="<?php echo $quota; ?>" /> <?php _e( 'MB (Leave blank for network default)' ); ?></td>
    </tr>
    <?php
}
add_action( 'wpmueditblogaction', 'upload_space_setting' );

function update_user_status( $id, $pref, $value, $deprecated = null ) {
    global $wpdb;

    if ( null !== $deprecated )
        _deprecated_argument( __FUNCTION__, '3.1' );

    $wpdb->update( $wpdb->users, array( sanitize_key( $pref ) => $value ), array( 'ID' => $id ) );

    $user = new WP_User( $id );
    clean_user_cache( $user );

    if ( $pref == 'spam' ) {
        if ( $value == 1 ) {
            /**
             * Fires after the user is marked as a SPAM user.
             *
             * @since 3.0.0
             *
             * @param int $id ID of the user marked as SPAM.
             */
            do_action( 'make_spam_user', $id );
        } else {
            /**
             * Fires after the user is marked as a HAM user. Opposite of SPAM.
             *
             * @since 3.0.0
             *
             * @param int $id ID of the user marked as HAM.
             */
            do_action( 'make_ham_user', $id );
        }
    }

    return $value;
}

function refresh_user_details( $id ) {
    $id = (int) $id;

    if ( !$user = get_userdata( $id ) )
        return false;

    clean_user_cache( $user );

    return $id;
}

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', 'he' => 'Hebrew', 'hz' => 'Herero', 'hi' => 'Hindi', 'ho' => 'Hiri Motu', 'hu' => 'Hungarian', 'ig' => 'Igbo', 'is' => 'Icelandic', 'io' => 'Ido', 'ii' => 'Sichuan Yi', 'iu' => 'Inuktitut', 'ie' => 'Interlingue',
        'ia' => 'Interlingua (International Auxiliary Language Association)', 'id' => 'Indonesian', 'ik' => 'Inupiaq', 'it' => 'Italian', 'jv' => 'Javanese', 'ja' => 'Japanese', 'kl' => 'Kalaallisut; Greenlandic', 'kn' => 'Kannada', 'ks' => 'Kashmiri', 'kr' => 'Kanuri', 'kk' => 'Kazakh', 'km' => 'Central Khmer', 'ki' => 'Kikuyu; Gikuyu', 'rw' => 'Kinyarwanda', 'ky' => 'Kirghiz; Kyrgyz',
        'kv' => 'Komi', 'kg' => 'Kongo', 'ko' => 'Korean', 'kj' => 'Kuanyama; Kwanyama', 'ku' => 'Kurdish', 'lo' => 'Lao', 'la' => 'Latin', 'lv' => 'Latvian', 'li' => 'Limburgan; Limburger; Limburgish', 'ln' => 'Lingala', 'lt' => 'Lithuanian', 'lb' => 'Luxembourgish; Letzeburgesch', 'lu' => 'Luba-Katanga', 'lg' => 'Ganda', 'mk' => 'Macedonian', 'mh' => 'Marshallese', 'ml' => 'Malayalam',
        'mi' => 'Maori', 'mr' => 'Marathi', 'ms' => 'Malay', 'mg' => 'Malagasy', 'mt' => 'Maltese', 'mo' => 'Moldavian', 'mn' => 'Mongolian', 'na' => 'Nauru', 'nv' => 'Navajo; Navaho', 'nr' => 'Ndebele, South; South Ndebele', 'nd' => 'Ndebele, North; North Ndebele', 'ng' => 'Ndonga', 'ne' => 'Nepali', 'nn' => 'Norwegian Nynorsk; Nynorsk, Norwegian', 'nb' => 'Bokmål, Norwegian, Norwegian Bokmål',
        'no' => 'Norwegian', 'ny' => 'Chichewa; Chewa; Nyanja', 'oc' => 'Occitan, Provençal', 'oj' => 'Ojibwa', 'or' => 'Oriya', 'om' => 'Oromo', 'os' => 'Ossetian; Ossetic', 'pa' => 'Panjabi; Punjabi', 'fa' => 'Persian', 'pi' => 'Pali', 'pl' => 'Polish', 'pt' => 'Portuguese', 'ps' => 'Pushto', 'qu' => 'Quechua', 'rm' => 'Romansh', 'ro' => 'Romanian', 'rn' => 'Rundi', 'ru' => 'Russian',
        'sg' => 'Sango', 'sa' => 'Sanskrit', 'sr' => 'Serbian', 'hr' => 'Croatian', 'si' => 'Sinhala; Sinhalese', 'sk' => 'Slovak', 'sl' => 'Slovenian', 'se' => 'Northern Sami', 'sm' => 'Samoan', 'sn' => 'Shona', 'sd' => 'Sindhi', 'so' => 'Somali', 'st' => 'Sotho, Southern', 'es' => 'Spanish; Castilian', 'sc' => 'Sardinian', 'ss' => 'Swati', 'su' => 'Sundanese', 'sw' => 'Swahili',
        'sv' => 'Swedish', 'ty' => 'Tahitian', 'ta' => 'Tamil', 'tt' => 'Tatar', 'te' => 'Telugu', 'tg' => 'Tajik', 'tl' => 'Tagalog', 'th' => 'Thai', 'bo' => 'Tibetan', 'ti' => 'Tigrinya', 'to' => 'Tonga (Tonga Islands)', 'tn' => 'Tswana', 'ts' => 'Tsonga', 'tk' => 'Turkmen', 'tr' => 'Turkish', 'tw' => 'Twi', 'ug' => 'Uighur; Uyghur', 'uk' => 'Ukrainian', 'ur' => 'Urdu', 'uz' => 'Uzbek',
        've' => 'Venda', 'vi' => 'Vietnamese', 'vo' => 'Volapük', 'cy' => 'Welsh','wa' => 'Walloon','wo' => 'Wolof', 'xh' => 'Xhosa', 'yi' => 'Yiddish', 'yo' => 'Yoruba', 'za' => 'Zhuang; Chuang', 'zu' => 'Zulu' );

    /**
     * Filter the language codes.
     *
     * @since MU
     *
     * @param array  $lang_codes Key/value pair of language codes where key is the short version.
     * @param string $code       A two-letter designation of the language.
     */
    $lang_codes = apply_filters( 'lang_codes', $lang_codes, $code );
    return strtr( $code, $lang_codes );
}

function sync_category_tag_slugs( $term, $taxonomy ) {
    if ( global_terms_enabled() && ( $taxonomy == 'category' || $taxonomy == 'post_tag' ) ) {
        if ( is_object( $term ) ) {
            $term->slug = sanitize_title( $term->name );
        } else {
            $term['slug'] = sanitize_title( $term['name'] );
        }
    }
    return $term;
}
add_filter( 'get_term', 'sync_category_tag_slugs', 10, 2 );

function _access_denied_splash() {
    if ( ! is_user_logged_in() || is_network_admin() )
        return;

    $blogs = get_blogs_of_user( get_current_user_id() );

    if ( wp_list_filter( $blogs, array( 'userblog_id' => get_current_blog_id() ) ) )
        return;

    $blog_name = get_bloginfo( 'name' );

    if ( empty( $blogs ) )
        wp_die( sprintf( __( 'You attempted to access the "%1$s" dashboard, but you do not currently have privileges on this site. If you believe you should be able to access the "%1$s" dashboard, please contact your network administrator.' ), $blog_name ) );

    $output = '<p>' . sprintf( __( 'You attempted to access the "%1$s" dashboard, but you do not currently have privileges on this site. If you believe you should be able to access the "%1$s" dashboard, please contact your network administrator.' ), $blog_name ) . '</p>';
    $output .= '<p>' . __( 'If you reached this screen by accident and meant to visit one of your own sites, here are some shortcuts to help you find your way.' ) . '</p>';

    $output .= '<h3>' . __('Your Sites') . '</h3>';
    $output .= '<table>';

    foreach ( $blogs as $blog ) {
        $output .= '<tr>';
        $output .= "<td>{$blog->blogname}</td>";
        $output .= '<td><a href="' . esc_url( get_admin_url( $blog->userblog_id ) ) . '">' . __( 'Visit Dashboard' ) . '</a> | ' .
            '<a href="' . esc_url( get_home_url( $blog->userblog_id ) ). '">' . __( 'View Site' ) . '</a></td>';
        $output .= '</tr>';
    }

    $output .= '</table>';

    wp_die( $output );
}
add_action( 'admin_page_access_denied', '_access_denied_splash', 99 );

function check_import_new_users( $permission ) {
    if ( !is_super_admin() )
        return false;
    return true;
}
add_filter( 'import_allow_create_users', 'check_import_new_users' );
// See "import_allow_fetch_attachments" and "import_attachment_size_limit" filters too.

function mu_dropdown_languages( $lang_files = array(), $current = '' ) {
    $flag = false;
    $output = array();

    foreach ( (array) $lang_files as $val ) {
        $code_lang = basename( $val, '.mo' );

        if ( $code_lang == 'en_US' ) { // American English
            $flag = true;
            $ae = __( 'American English' );
            $output[$ae] = '<option value="' . esc_attr( $code_lang ) . '"' . selected( $current, $code_lang, false ) . '> ' . $ae . '</option>';
        } elseif ( $code_lang == 'en_GB' ) { // British English
            $flag = true;
            $be = __( 'British English' );
            $output[$be] = '<option value="' . esc_attr( $code_lang ) . '"' . selected( $current, $code_lang, false ) . '> ' . $be . '</option>';
        } else {
            $translated = format_code_lang( $code_lang );
            $output[$translated] = '<option value="' . esc_attr( $code_lang ) . '"' . selected( $current, $code_lang, false ) . '> ' . esc_html ( $translated ) . '</option>';
        }

    }

    if ( $flag === false ) // WordPress english
        $output[] = '<option value=""' . selected( $current, '', false ) . '>' . __( 'English' ) . "</option>";

    // Order by name
    uksort( $output, 'strnatcasecmp' );
    /**
     * Filter the languages available in the dropdown.
     *
     * @since MU
     *
     * @param array $output     HTML output of the dropdown.
     * @param array $lang_files Available language files.
     * @param string $current   The current language code.
     */
    $output = apply_filters( 'mu_dropdown_languages', $output, $lang_files, $current );
    echo implode( "\n\t", $output );
}

function site_admin_notice() {
    global $wp_db_version;
    if ( !is_super_admin() )
        return false;
    if ( get_site_option( 'wpmu_upgrade_site' ) != $wp_db_version )
        echo "<div class='update-nag'>" . sprintf( __( 'Thank you for Updating! Please visit the <a href="%s">Upgrade Network</a> page to update all your sites.' ), esc_url( network_admin_url( 'upgrade.php' ) ) ) . "</div>";
}
add_action( 'admin_notices', 'site_admin_notice' );
add_action( 'network_admin_notices', 'site_admin_notice' );

function avoid_blog_page_permalink_collision( $data, $postarr ) {
    if ( is_subdomain_install() )
        return $data;
    if ( $data['post_type'] != 'page' )
        return $data;
    if ( !isset( $data['post_name'] ) || $data['post_name'] == '' )
        return $data;
    if ( !is_main_site() )
        return $data;

    $post_name = $data['post_name'];
    $c = 0;
    while( $c < 10 && get_id_from_blogname( $post_name ) ) {
        $post_name .= mt_rand( 1, 10 );
        $c ++;
    }
    if ( $post_name != $data['post_name'] ) {
        $data['post_name'] = $post_name;
    }
    return $data;
}
add_filter( 'wp_insert_post_data', 'avoid_blog_page_permalink_collision', 10, 2 );

function choose_primary_blog() {
    ?>
    <table class="form-table">
    <tr>
    <?php /* translators: My sites label */ ?>
        <th scope="row"><?php _e( 'Primary Site' ); ?></th>
        <td>
        <?php
        $all_blogs = get_blogs_of_user( get_current_user_id() );
        $primary_blog = get_user_meta( get_current_user_id(), 'primary_blog', true );
        if ( count( $all_blogs ) > 1 ) {
            $found = false;
            ?>
            <select name="primary_blog">
                <?php foreach( (array) $all_blogs as $blog ) {
                    if ( $primary_blog == $blog->userblog_id )
                        $found = true;
                    ?><option value="<?php echo $blog->userblog_id ?>"<?php selected( $primary_blog, $blog->userblog_id ); ?>><?php echo esc_url( get_home_url( $blog->userblog_id ) ) ?></option><?php
                } ?>
            </select>
            <?php
            if ( !$found ) {
                $blog = array_shift( $all_blogs );
                update_user_meta( get_current_user_id(), 'primary_blog', $blog->userblog_id );
            }
        } elseif ( count( $all_blogs ) == 1 ) {
            $blog = array_shift( $all_blogs );
            echo $blog->domain;
            if ( $primary_blog != $blog->userblog_id ) // Set the primary blog again if it's out of sync with blog list.
                update_user_meta( get_current_user_id(), 'primary_blog', $blog->userblog_id );
        } else {
            echo "N/A";
        }
        ?>
        </td>
    </tr>
    <?php if ( in_array( get_site_option( 'registration' ), array( 'all', 'blog' ) ) ) : ?>
        <tr>
            <th scope="row" colspan="2" class="th-full">
                <?php
                $signup_url = network_site_url( 'wp-signup.php' );
                /** This filter is documented in wp-login.php */
                ?>
                <a href="<?php echo apply_filters( 'wp_signup_location', $signup_url ); ?>"><?php _e( 'Create a New Site' ); ?></a>
            </th>
        </tr>
    <?php endif; ?>
    </table>
    <?php
}

/**
 * Grants Super Admin privileges.
 *
 * @since 3.0.0
 * @param int $user_id ID of the user to be granted Super Admin privileges.
 * @return bool True on success, false on failure. This can fail when the user is
 *              already a super admin or when the $super_admins global is defined.
 */
function grant_super_admin( $user_id ) {
    // If global super_admins override is defined, there is nothing to do here.
    if ( isset( $GLOBALS['super_admins'] ) ) {
        return false;
    }

    /**
     * Fires before the user is granted Super Admin privileges.
     *
     * @since 3.0.0
     *
     * @param int $user_id ID of the user that is about to be granted Super Admin privileges.
     */
    do_action( 'grant_super_admin', $user_id );

    // Directly fetch site_admins instead of using get_super_admins()
    $super_admins = get_site_option( 'site_admins', array( 'admin' ) );

    $user = get_userdata( $user_id );
    if ( $user && ! in_array( $user->user_login, $super_admins ) ) {
        $super_admins[] = $user->user_login;
        update_site_option( 'site_admins' , $super_admins );

        /**
         * Fires after the user is granted Super Admin privileges.
         *
         * @since 3.0.0
         *
         * @param int $user_id ID of the user that was granted Super Admin privileges.
         */
        do_action( 'granted_super_admin', $user_id );
        return true;
    }
    return false;
}

/**
 * Revokes Super Admin privileges.
 *
 * @since 3.0.0
 * @param int $user_id ID of the user Super Admin privileges to be revoked from.
 * @return bool True on success, false on failure. This can fail when the user's email
 *              is the network admin email or when the $super_admins global is defined.
 */
function revoke_super_admin( $user_id ) {
    // If global super_admins override is defined, there is nothing to do here.
    if ( isset( $GLOBALS['super_admins'] ) ) {
        return false;
    }

    /**
     * Fires before the user's Super Admin privileges are revoked.
     *
     * @since 3.0.0
     *
     * @param int $user_id ID of the user Super Admin privileges are being revoked from.
     */
    do_action( 'revoke_super_admin', $user_id );

    // Directly fetch site_admins instead of using get_super_admins()
    $super_admins = get_site_option( 'site_admins', array( 'admin' ) );

    $user = get_userdata( $user_id );
    if ( $user && 0 !== strcasecmp( $user->user_email, get_site_option( 'admin_email' ) ) ) {
        if ( false !== ( $key = array_search( $user->user_login, $super_admins ) ) ) {
            unset( $super_admins[$key] );
            update_site_option( 'site_admins', $super_admins );

            /**
             * Fires after the user's Super Admin privileges are revoked.
             *
             * @since 3.0.0
             *
             * @param int $user_id ID of the user Super Admin privileges were revoked from.
             */
            do_action( 'revoked_super_admin', $user_id );
            return true;
        }
    }
    return false;
}

/**
 * Whether or not we can edit this network from this page
 *
 * By default editing of network is restricted to the Network Admin for that site_id this allows for this to be overridden
 *
 * @since 3.1.0
 * @param integer $site_id The network/site ID to check.
 */
function can_edit_network( $site_id ) {
    global $wpdb;

    if ( $site_id == $wpdb->siteid )
        $result = true;
    else
        $result = false;

    /**
     * Filter whether this network can be edited from this page.
     *
     * @since 3.1.0
     *
     * @param bool $result  Whether the network can be edited from this page.
     * @param int  $site_id The network/site ID to check.
     */
    return apply_filters( 'can_edit_network', $result, $site_id );
}

/**
 * Thickbox image paths for Network Admin.
 *
 * @since 3.1.0
 * @access private
 */
function _thickbox_path_admin_subfolder() {
?>
<script type="text/javascript">
//<![CDATA[
var tb_pathToImage = "../../wp-includes/js/thickbox/loadingAnimation.gif";
//]]>
</script>
<?php
}