GlobalFunctions.php

Go to the documentation of this file.

<?php
if ( !defined( 'MEDIAWIKI' ) ) {
    die( "This file is part of MediaWiki, it is not a valid entry point" );
}

use Liuggio\StatsdClient\Sender\SocketSender;
use MediaWiki\Logger\LoggerFactory;
use MediaWiki\Session\SessionManager;

// Hide compatibility functions from Doxygen

// hash_equals function only exists in PHP >= 5.6.0
// http://php.net/hash_equals
if ( !function_exists( 'hash_equals' ) ) {
    function hash_equals( $known_string, $user_string ) {
        // Strict type checking as in PHP's native implementation
        if ( !is_string( $known_string ) ) {
            trigger_error( 'hash_equals(): Expected known_string to be a string, ' .
                gettype( $known_string ) . ' given', E_USER_WARNING );

            return false;
        }

        if ( !is_string( $user_string ) ) {
            trigger_error( 'hash_equals(): Expected user_string to be a string, ' .
                gettype( $user_string ) . ' given', E_USER_WARNING );

            return false;
        }

        $known_string_len = strlen( $known_string );
        if ( $known_string_len !== strlen( $user_string ) ) {
            return false;
        }

        $result = 0;
        for ( $i = 0; $i < $known_string_len; $i++ ) {
            $result |= ord( $known_string[$i] ) ^ ord( $user_string[$i] );
        }

        return ( $result === 0 );
    }
}

function wfLoadExtension( $ext, $path = null ) {
    if ( !$path ) {
        global $wgExtensionDirectory;
        $path = "$wgExtensionDirectory/$ext/extension.json";
    }
    ExtensionRegistry::getInstance()->queue( $path );
}

function wfLoadExtensions( array $exts ) {
    global $wgExtensionDirectory;
    $registry = ExtensionRegistry::getInstance();
    foreach ( $exts as $ext ) {
        $registry->queue( "$wgExtensionDirectory/$ext/extension.json" );
    }
}

function wfLoadSkin( $skin, $path = null ) {
    if ( !$path ) {
        global $wgStyleDirectory;
        $path = "$wgStyleDirectory/$skin/skin.json";
    }
    ExtensionRegistry::getInstance()->queue( $path );
}

function wfLoadSkins( array $skins ) {
    global $wgStyleDirectory;
    $registry = ExtensionRegistry::getInstance();
    foreach ( $skins as $skin ) {
        $registry->queue( "$wgStyleDirectory/$skin/skin.json" );
    }
}

function wfArrayDiff2( $a, $b ) {
    return array_udiff( $a, $b, 'wfArrayDiff2_cmp' );
}

function wfArrayDiff2_cmp( $a, $b ) {
    if ( is_string( $a ) && is_string( $b ) ) {
        return strcmp( $a, $b );
    } elseif ( count( $a ) !== count( $b ) ) {
        return count( $a ) < count( $b ) ? -1 : 1;
    } else {
        reset( $a );
        reset( $b );
        while ( ( list( , $valueA ) = each( $a ) ) && ( list( , $valueB ) = each( $b ) ) ) {
            $cmp = strcmp( $valueA, $valueB );
            if ( $cmp !== 0 ) {
                return $cmp;
            }
        }
        return 0;
    }
}

function wfAppendToArrayIfNotDefault( $key, $value, $default, &$changed ) {
    if ( is_null( $changed ) ) {
        throw new MWException( 'GlobalFunctions::wfAppendToArrayIfNotDefault got null' );
    }
    if ( $default[$key] !== $value ) {
        $changed[$key] = $value;
    }
}

function wfMergeErrorArrays( /*...*/ ) {
    $args = func_get_args();
    $out = [];
    foreach ( $args as $errors ) {
        foreach ( $errors as $params ) {
            $originalParams = $params;
            if ( $params[0] instanceof MessageSpecifier ) {
                $msg = $params[0];
                $params = array_merge( [ $msg->getKey() ], $msg->getParams() );
            }
            # @todo FIXME: Sometimes get nested arrays for $params,
            # which leads to E_NOTICEs
            $spec = implode( "\t", $params );
            $out[$spec] = $originalParams;
        }
    }
    return array_values( $out );
}

function wfArrayInsertAfter( array $array, array $insert, $after ) {
    // Find the offset of the element to insert after.
    $keys = array_keys( $array );
    $offsetByKey = array_flip( $keys );

    $offset = $offsetByKey[$after];

    // Insert at the specified offset
    $before = array_slice( $array, 0, $offset + 1, true );
    $after = array_slice( $array, $offset + 1, count( $array ) - $offset, true );

    $output = $before + $insert + $after;

    return $output;
}

function wfObjectToArray( $objOrArray, $recursive = true ) {
    $array = [];
    if ( is_object( $objOrArray ) ) {
        $objOrArray = get_object_vars( $objOrArray );
    }
    foreach ( $objOrArray as $key => $value ) {
        if ( $recursive && ( is_object( $value ) || is_array( $value ) ) ) {
            $value = wfObjectToArray( $value );
        }

        $array[$key] = $value;
    }

    return $array;
}

function wfRandom() {
    // The maximum random value is "only" 2^31-1, so get two random
    // values to reduce the chance of dupes
    $max = mt_getrandmax() + 1;
    $rand = number_format( ( mt_rand() * $max + mt_rand() ) / $max / $max, 12, '.', '' );
    return $rand;
}

function wfRandomString( $length = 32 ) {
    $str = '';
    for ( $n = 0; $n < $length; $n += 7 ) {
        $str .= sprintf( '%07x', mt_rand() & 0xfffffff );
    }
    return substr( $str, 0, $length );
}

function wfUrlencode( $s ) {
    static $needle;

    if ( is_null( $s ) ) {
        $needle = null;
        return '';
    }

    if ( is_null( $needle ) ) {
        $needle = [ '%3B', '%40', '%24', '%21', '%2A', '%28', '%29', '%2C', '%2F', '%7E' ];
        if ( !isset( $_SERVER['SERVER_SOFTWARE'] ) ||
            ( strpos( $_SERVER['SERVER_SOFTWARE'], 'Microsoft-IIS/7' ) === false )
        ) {
            $needle[] = '%3A';
        }
    }

    $s = urlencode( $s );
    $s = str_ireplace(
        $needle,
        [ ';', '@', '$', '!', '*', '(', ')', ',', '/', '~', ':' ],
        $s
    );

    return $s;
}

function wfArrayToCgi( $array1, $array2 = null, $prefix = '' ) {
    if ( !is_null( $array2 ) ) {
        $array1 = $array1 + $array2;
    }

    $cgi = '';
    foreach ( $array1 as $key => $value ) {
        if ( !is_null( $value ) && $value !== false ) {
            if ( $cgi != '' ) {
                $cgi .= '&';
            }
            if ( $prefix !== '' ) {
                $key = $prefix . "[$key]";
            }
            if ( is_array( $value ) ) {
                $firstTime = true;
                foreach ( $value as $k => $v ) {
                    $cgi .= $firstTime ? '' : '&';
                    if ( is_array( $v ) ) {
                        $cgi .= wfArrayToCgi( $v, null, $key . "[$k]" );
                    } else {
                        $cgi .= urlencode( $key . "[$k]" ) . '=' . urlencode( $v );
                    }
                    $firstTime = false;
                }
            } else {
                if ( is_object( $value ) ) {
                    $value = $value->__toString();
                }
                $cgi .= urlencode( $key ) . '=' . urlencode( $value );
            }
        }
    }
    return $cgi;
}

function wfCgiToArray( $query ) {
    if ( isset( $query[0] ) && $query[0] == '?' ) {
        $query = substr( $query, 1 );
    }
    $bits = explode( '&', $query );
    $ret = [];
    foreach ( $bits as $bit ) {
        if ( $bit === '' ) {
            continue;
        }
        if ( strpos( $bit, '=' ) === false ) {
            // Pieces like &qwerty become 'qwerty' => '' (at least this is what php does)
            $key = $bit;
            $value = '';
        } else {
            list( $key, $value ) = explode( '=', $bit );
        }
        $key = urldecode( $key );
        $value = urldecode( $value );
        if ( strpos( $key, '[' ) !== false ) {
            $keys = array_reverse( explode( '[', $key ) );
            $key = array_pop( $keys );
            $temp = $value;
            foreach ( $keys as $k ) {
                $k = substr( $k, 0, -1 );
                $temp = [ $k => $temp ];
            }
            if ( isset( $ret[$key] ) ) {
                $ret[$key] = array_merge( $ret[$key], $temp );
            } else {
                $ret[$key] = $temp;
            }
        } else {
            $ret[$key] = $value;
        }
    }
    return $ret;
}

function wfAppendQuery( $url, $query ) {
    if ( is_array( $query ) ) {
        $query = wfArrayToCgi( $query );
    }
    if ( $query != '' ) {
        // Remove the fragment, if there is one
        $fragment = false;
        $hashPos = strpos( $url, '#' );
        if ( $hashPos !== false ) {
            $fragment = substr( $url, $hashPos );
            $url = substr( $url, 0, $hashPos );
        }

        // Add parameter
        if ( false === strpos( $url, '?' ) ) {
            $url .= '?';
        } else {
            $url .= '&';
        }
        $url .= $query;

        // Put the fragment back
        if ( $fragment !== false ) {
            $url .= $fragment;
        }
    }
    return $url;
}

function wfExpandUrl( $url, $defaultProto = PROTO_CURRENT ) {
    global $wgServer, $wgCanonicalServer, $wgInternalServer, $wgRequest,
        $wgHttpsPort;
    if ( $defaultProto === PROTO_CANONICAL ) {
        $serverUrl = $wgCanonicalServer;
    } elseif ( $defaultProto === PROTO_INTERNAL && $wgInternalServer !== false ) {
        // Make $wgInternalServer fall back to $wgServer if not set
        $serverUrl = $wgInternalServer;
    } else {
        $serverUrl = $wgServer;
        if ( $defaultProto === PROTO_CURRENT ) {
            $defaultProto = $wgRequest->getProtocol() . '://';
        }
    }

    // Analyze $serverUrl to obtain its protocol
    $bits = wfParseUrl( $serverUrl );
    $serverHasProto = $bits && $bits['scheme'] != '';

    if ( $defaultProto === PROTO_CANONICAL || $defaultProto === PROTO_INTERNAL ) {
        if ( $serverHasProto ) {
            $defaultProto = $bits['scheme'] . '://';
        } else {
            // $wgCanonicalServer or $wgInternalServer doesn't have a protocol.
            // This really isn't supposed to happen. Fall back to HTTP in this
            // ridiculous case.
            $defaultProto = PROTO_HTTP;
        }
    }

    $defaultProtoWithoutSlashes = substr( $defaultProto, 0, -2 );

    if ( substr( $url, 0, 2 ) == '//' ) {
        $url = $defaultProtoWithoutSlashes . $url;
    } elseif ( substr( $url, 0, 1 ) == '/' ) {
        // If $serverUrl is protocol-relative, prepend $defaultProtoWithoutSlashes,
        // otherwise leave it alone.
        $url = ( $serverHasProto ? '' : $defaultProtoWithoutSlashes ) . $serverUrl . $url;
    }

    $bits = wfParseUrl( $url );

    // ensure proper port for HTTPS arrives in URL
    // https://phabricator.wikimedia.org/T67184
    if ( $defaultProto === PROTO_HTTPS && $wgHttpsPort != 443 ) {
        $bits['port'] = $wgHttpsPort;
    }

    if ( $bits && isset( $bits['path'] ) ) {
        $bits['path'] = wfRemoveDotSegments( $bits['path'] );
        return wfAssembleUrl( $bits );
    } elseif ( $bits ) {
        # No path to expand
        return $url;
    } elseif ( substr( $url, 0, 1 ) != '/' ) {
        # URL is a relative path
        return wfRemoveDotSegments( $url );
    }

    # Expanded URL is not valid.
    return false;
}

function wfAssembleUrl( $urlParts ) {
    $result = '';

    if ( isset( $urlParts['delimiter'] ) ) {
        if ( isset( $urlParts['scheme'] ) ) {
            $result .= $urlParts['scheme'];
        }

        $result .= $urlParts['delimiter'];
    }

    if ( isset( $urlParts['host'] ) ) {
        if ( isset( $urlParts['user'] ) ) {
            $result .= $urlParts['user'];
            if ( isset( $urlParts['pass'] ) ) {
                $result .= ':' . $urlParts['pass'];
            }
            $result .= '@';
        }

        $result .= $urlParts['host'];

        if ( isset( $urlParts['port'] ) ) {
            $result .= ':' . $urlParts['port'];
        }
    }

    if ( isset( $urlParts['path'] ) ) {
        $result .= $urlParts['path'];
    }

    if ( isset( $urlParts['query'] ) ) {
        $result .= '?' . $urlParts['query'];
    }

    if ( isset( $urlParts['fragment'] ) ) {
        $result .= '#' . $urlParts['fragment'];
    }

    return $result;
}

function wfRemoveDotSegments( $urlPath ) {
    $output = '';
    $inputOffset = 0;
    $inputLength = strlen( $urlPath );

    while ( $inputOffset < $inputLength ) {
        $prefixLengthOne = substr( $urlPath, $inputOffset, 1 );
        $prefixLengthTwo = substr( $urlPath, $inputOffset, 2 );
        $prefixLengthThree = substr( $urlPath, $inputOffset, 3 );
        $prefixLengthFour = substr( $urlPath, $inputOffset, 4 );
        $trimOutput = false;

        if ( $prefixLengthTwo == './' ) {
            # Step A, remove leading "./"
            $inputOffset += 2;
        } elseif ( $prefixLengthThree == '../' ) {
            # Step A, remove leading "../"
            $inputOffset += 3;
        } elseif ( ( $prefixLengthTwo == '/.' ) && ( $inputOffset + 2 == $inputLength ) ) {
            # Step B, replace leading "/.$" with "/"
            $inputOffset += 1;
            $urlPath[$inputOffset] = '/';
        } elseif ( $prefixLengthThree == '/./' ) {
            # Step B, replace leading "/./" with "/"
            $inputOffset += 2;
        } elseif ( $prefixLengthThree == '/..' && ( $inputOffset + 3 == $inputLength ) ) {
            # Step C, replace leading "/..$" with "/" and
            # remove last path component in output
            $inputOffset += 2;
            $urlPath[$inputOffset] = '/';
            $trimOutput = true;
        } elseif ( $prefixLengthFour == '/../' ) {
            # Step C, replace leading "/../" with "/" and
            # remove last path component in output
            $inputOffset += 3;
            $trimOutput = true;
        } elseif ( ( $prefixLengthOne == '.' ) && ( $inputOffset + 1 == $inputLength ) ) {
            # Step D, remove "^.$"
            $inputOffset += 1;
        } elseif ( ( $prefixLengthTwo == '..' ) && ( $inputOffset + 2 == $inputLength ) ) {
            # Step D, remove "^..$"
            $inputOffset += 2;
        } else {
            # Step E, move leading path segment to output
            if ( $prefixLengthOne == '/' ) {
                $slashPos = strpos( $urlPath, '/', $inputOffset + 1 );
            } else {
                $slashPos = strpos( $urlPath, '/', $inputOffset );
            }
            if ( $slashPos === false ) {
                $output .= substr( $urlPath, $inputOffset );
                $inputOffset = $inputLength;
            } else {
                $output .= substr( $urlPath, $inputOffset, $slashPos - $inputOffset );
                $inputOffset += $slashPos - $inputOffset;
            }
        }

        if ( $trimOutput ) {
            $slashPos = strrpos( $output, '/' );
            if ( $slashPos === false ) {
                $output = '';
            } else {
                $output = substr( $output, 0, $slashPos );
            }
        }
    }

    return $output;
}

function wfUrlProtocols( $includeProtocolRelative = true ) {
    global $wgUrlProtocols;

    // Cache return values separately based on $includeProtocolRelative
    static $withProtRel = null, $withoutProtRel = null;
    $cachedValue = $includeProtocolRelative ? $withProtRel : $withoutProtRel;
    if ( !is_null( $cachedValue ) ) {
        return $cachedValue;
    }

    // Support old-style $wgUrlProtocols strings, for backwards compatibility
    // with LocalSettings files from 1.5
    if ( is_array( $wgUrlProtocols ) ) {
        $protocols = [];
        foreach ( $wgUrlProtocols as $protocol ) {
            // Filter out '//' if !$includeProtocolRelative
            if ( $includeProtocolRelative || $protocol !== '//' ) {
                $protocols[] = preg_quote( $protocol, '/' );
            }
        }

        $retval = implode( '|', $protocols );
    } else {
        // Ignore $includeProtocolRelative in this case
        // This case exists for pre-1.6 compatibility, and we can safely assume
        // that '//' won't appear in a pre-1.6 config because protocol-relative
        // URLs weren't supported until 1.18
        $retval = $wgUrlProtocols;
    }

    // Cache return value
    if ( $includeProtocolRelative ) {
        $withProtRel = $retval;
    } else {
        $withoutProtRel = $retval;
    }
    return $retval;
}

function wfUrlProtocolsWithoutProtRel() {
    return wfUrlProtocols( false );
}

function wfParseUrl( $url ) {
    global $wgUrlProtocols; // Allow all protocols defined in DefaultSettings/LocalSettings.php

    // Protocol-relative URLs are handled really badly by parse_url(). It's so
    // bad that the easiest way to handle them is to just prepend 'http:' and
    // strip the protocol out later.
    $wasRelative = substr( $url, 0, 2 ) == '//';
    if ( $wasRelative ) {
        $url = "http:$url";
    }
    MediaWiki\suppressWarnings();
    $bits = parse_url( $url );
    MediaWiki\restoreWarnings();
    // parse_url() returns an array without scheme for some invalid URLs, e.g.
    // parse_url("%0Ahttp://example.com") == [ 'host' => '%0Ahttp', 'path' => 'example.com' ]
    if ( !$bits || !isset( $bits['scheme'] ) ) {
        return false;
    }

    // parse_url() incorrectly handles schemes case-sensitively. Convert it to lowercase.
    $bits['scheme'] = strtolower( $bits['scheme'] );

    // most of the protocols are followed by ://, but mailto: and sometimes news: not, check for it
    if ( in_array( $bits['scheme'] . '://', $wgUrlProtocols ) ) {
        $bits['delimiter'] = '://';
    } elseif ( in_array( $bits['scheme'] . ':', $wgUrlProtocols ) ) {
        $bits['delimiter'] = ':';
        // parse_url detects for news: and mailto: the host part of an url as path
        // We have to correct this wrong detection
        if ( isset( $bits['path'] ) ) {
            $bits['host'] = $bits['path'];
            $bits['path'] = '';
        }
    } else {
        return false;
    }

    /* Provide an empty host for eg. file:/// urls (see bug 28627) */
    if ( !isset( $bits['host'] ) ) {
        $bits['host'] = '';

        // bug 45069
        if ( isset( $bits['path'] ) ) {
            /* parse_url loses the third / for file:///c:/ urls (but not on variants) */
            if ( substr( $bits['path'], 0, 1 ) !== '/' ) {
                $bits['path'] = '/' . $bits['path'];
            }
        } else {
            $bits['path'] = '';
        }
    }

    // If the URL was protocol-relative, fix scheme and delimiter
    if ( $wasRelative ) {
        $bits['scheme'] = '';
        $bits['delimiter'] = '//';
    }
    return $bits;
}

function wfExpandIRI( $url ) {
    return preg_replace_callback(
        '/((?:%[89A-F][0-9A-F])+)/i',
        'wfExpandIRI_callback',
        wfExpandUrl( $url )
    );
}

function wfExpandIRI_callback( $matches ) {
    return urldecode( $matches[1] );
}

function wfMakeUrlIndexes( $url ) {
    $bits = wfParseUrl( $url );

    // Reverse the labels in the hostname, convert to lower case
    // For emails reverse domainpart only
    if ( $bits['scheme'] == 'mailto' ) {
        $mailparts = explode( '@', $bits['host'], 2 );
        if ( count( $mailparts ) === 2 ) {
            $domainpart = strtolower( implode( '.', array_reverse( explode( '.', $mailparts[1] ) ) ) );
        } else {
            // No domain specified, don't mangle it
            $domainpart = '';
        }
        $reversedHost = $domainpart . '@' . $mailparts[0];
    } else {
        $reversedHost = strtolower( implode( '.', array_reverse( explode( '.', $bits['host'] ) ) ) );
    }
    // Add an extra dot to the end
    // Why? Is it in wrong place in mailto links?
    if ( substr( $reversedHost, -1, 1 ) !== '.' ) {
        $reversedHost .= '.';
    }
    // Reconstruct the pseudo-URL
    $prot = $bits['scheme'];
    $index = $prot . $bits['delimiter'] . $reversedHost;
    // Leave out user and password. Add the port, path, query and fragment
    if ( isset( $bits['port'] ) ) {
        $index .= ':' . $bits['port'];
    }
    if ( isset( $bits['path'] ) ) {
        $index .= $bits['path'];
    } else {
        $index .= '/';
    }
    if ( isset( $bits['query'] ) ) {
        $index .= '?' . $bits['query'];
    }
    if ( isset( $bits['fragment'] ) ) {
        $index .= '#' . $bits['fragment'];
    }

    if ( $prot == '' ) {
        return [ "http:$index", "https:$index" ];
    } else {
        return [ $index ];
    }
}

function wfMatchesDomainList( $url, $domains ) {
    $bits = wfParseUrl( $url );
    if ( is_array( $bits ) && isset( $bits['host'] ) ) {
        $host = '.' . $bits['host'];
        foreach ( (array)$domains as $domain ) {
            $domain = '.' . $domain;
            if ( substr( $host, -strlen( $domain ) ) === $domain ) {
                return true;
            }
        }
    }
    return false;
}

function wfDebug( $text, $dest = 'all', array $context = [] ) {
    global $wgDebugRawPage, $wgDebugLogPrefix;
    global $wgDebugTimestamps, $wgRequestTime;

    if ( !$wgDebugRawPage && wfIsDebugRawPage() ) {
        return;
    }

    $text = trim( $text );

    if ( $wgDebugTimestamps ) {
        $context['seconds_elapsed'] = sprintf(
            '%6.4f',
            microtime( true ) - $wgRequestTime
        );
        $context['memory_used'] = sprintf(
            '%5.1fM',
            ( memory_get_usage( true ) / ( 1024 * 1024 ) )
        );
    }

    if ( $wgDebugLogPrefix !== '' ) {
        $context['prefix'] = $wgDebugLogPrefix;
    }
    $context['private'] = ( $dest === false || $dest === 'private' );

    $logger = LoggerFactory::getInstance( 'wfDebug' );
    $logger->debug( $text, $context );
}

function wfIsDebugRawPage() {
    static $cache;
    if ( $cache !== null ) {
        return $cache;
    }
    # Check for raw action using $_GET not $wgRequest, since the latter might not be initialised yet
    if ( ( isset( $_GET['action'] ) && $_GET['action'] == 'raw' )
        || (
            isset( $_SERVER['SCRIPT_NAME'] )
            && substr( $_SERVER['SCRIPT_NAME'], -8 ) == 'load.php'
        )
    ) {
        $cache = true;
    } else {
        $cache = false;
    }
    return $cache;
}

function wfDebugMem( $exact = false ) {
    $mem = memory_get_usage();
    if ( !$exact ) {
        $mem = floor( $mem / 1024 ) . ' KiB';
    } else {
        $mem .= ' B';
    }
    wfDebug( "Memory usage: $mem\n" );
}

function wfDebugLog(
    $logGroup, $text, $dest = 'all', array $context = []
) {
    $text = trim( $text );

    $logger = LoggerFactory::getInstance( $logGroup );
    $context['private'] = ( $dest === false || $dest === 'private' );
    $logger->info( $text, $context );
}

function wfLogDBError( $text, array $context = [] ) {
    $logger = LoggerFactory::getInstance( 'wfLogDBError' );
    $logger->error( trim( $text ), $context );
}

function wfDeprecated( $function, $version = false, $component = false, $callerOffset = 2 ) {
    MWDebug::deprecated( $function, $version, $component, $callerOffset + 1 );
}

function wfWarn( $msg, $callerOffset = 1, $level = E_USER_NOTICE ) {
    MWDebug::warning( $msg, $callerOffset + 1, $level, 'auto' );
}

function wfLogWarning( $msg, $callerOffset = 1, $level = E_USER_WARNING ) {
    MWDebug::warning( $msg, $callerOffset + 1, $level, 'production' );
}

function wfErrorLog( $text, $file, array $context = [] ) {
    wfDeprecated( __METHOD__, '1.25' );
    $logger = LoggerFactory::getInstance( 'wfErrorLog' );
    $context['destination'] = $file;
    $logger->info( trim( $text ), $context );
}

function wfLogProfilingData() {
    global $wgDebugLogGroups, $wgDebugRawPage;

    $context = RequestContext::getMain();
    $request = $context->getRequest();

    $profiler = Profiler::instance();
    $profiler->setContext( $context );
    $profiler->logData();

    $config = $context->getConfig();
    if ( $config->get( 'StatsdServer' ) ) {
        try {
            $statsdServer = explode( ':', $config->get( 'StatsdServer' ) );
            $statsdHost = $statsdServer[0];
            $statsdPort = isset( $statsdServer[1] ) ? $statsdServer[1] : 8125;
            $statsdSender = new SocketSender( $statsdHost, $statsdPort );
            $statsdClient = new SamplingStatsdClient( $statsdSender, true, false );
            $statsdClient->send( $context->getStats()->getBuffer() );
        } catch ( Exception $ex ) {
            MWExceptionHandler::logException( $ex );
        }
    }

    # Profiling must actually be enabled...
    if ( $profiler instanceof ProfilerStub ) {
        return;
    }

    if ( isset( $wgDebugLogGroups['profileoutput'] )
        && $wgDebugLogGroups['profileoutput'] === false
    ) {
        // Explicitly disabled
        return;
    }
    if ( !$wgDebugRawPage && wfIsDebugRawPage() ) {
        return;
    }

    $ctx = [ 'elapsed' => $request->getElapsedTime() ];
    if ( !empty( $_SERVER['HTTP_X_FORWARDED_FOR'] ) ) {
        $ctx['forwarded_for'] = $_SERVER['HTTP_X_FORWARDED_FOR'];
    }
    if ( !empty( $_SERVER['HTTP_CLIENT_IP'] ) ) {
        $ctx['client_ip'] = $_SERVER['HTTP_CLIENT_IP'];
    }
    if ( !empty( $_SERVER['HTTP_FROM'] ) ) {
        $ctx['from'] = $_SERVER['HTTP_FROM'];
    }
    if ( isset( $ctx['forwarded_for'] ) ||
        isset( $ctx['client_ip'] ) ||
        isset( $ctx['from'] ) ) {
        $ctx['proxy'] = $_SERVER['REMOTE_ADDR'];
    }

    // Don't load $wgUser at this late stage just for statistics purposes
    // @todo FIXME: We can detect some anons even if it is not loaded.
    // See User::getId()
    $user = $context->getUser();
    $ctx['anon'] = $user->isItemLoaded( 'id' ) && $user->isAnon();

    // Command line script uses a FauxRequest object which does not have
    // any knowledge about an URL and throw an exception instead.
    try {
        $ctx['url'] = urldecode( $request->getRequestURL() );
    } catch ( Exception $ignored ) {
        // no-op
    }

    $ctx['output'] = $profiler->getOutput();

    $log = LoggerFactory::getInstance( 'profileoutput' );
    $log->info( "Elapsed: {elapsed}; URL: <{url}>\n{output}", $ctx );
}

function wfIncrStats( $key, $count = 1 ) {
    $stats = RequestContext::getMain()->getStats();
    $stats->updateCount( $key, $count );
}

function wfReadOnly() {
    return wfReadOnlyReason() !== false;
}

function wfReadOnlyReason() {
    $readOnly = wfConfiguredReadOnlyReason();
    if ( $readOnly !== false ) {
        return $readOnly;
    }

    static $lbReadOnly = null;
    if ( $lbReadOnly === null ) {
        // Callers use this method to be aware that data presented to a user
        // may be very stale and thus allowing submissions can be problematic.
        $lbReadOnly = wfGetLB()->getReadOnlyReason();
    }

    return $lbReadOnly;
}

function wfConfiguredReadOnlyReason() {
    global $wgReadOnly, $wgReadOnlyFile;

    if ( $wgReadOnly === null ) {
        // Set $wgReadOnly for faster access next time
        if ( is_file( $wgReadOnlyFile ) && filesize( $wgReadOnlyFile ) > 0 ) {
            $wgReadOnly = file_get_contents( $wgReadOnlyFile );
        } else {
            $wgReadOnly = false;
        }
    }

    return $wgReadOnly;
}

function wfGetLangObj( $langcode = false ) {
    # Identify which language to get or create a language object for.
    # Using is_object here due to Stub objects.
    if ( is_object( $langcode ) ) {
        # Great, we already have the object (hopefully)!
        return $langcode;
    }

    global $wgContLang, $wgLanguageCode;
    if ( $langcode === true || $langcode === $wgLanguageCode ) {
        # $langcode is the language code of the wikis content language object.
        # or it is a boolean and value is true
        return $wgContLang;
    }

    global $wgLang;
    if ( $langcode === false || $langcode === $wgLang->getCode() ) {
        # $langcode is the language code of user language object.
        # or it was a boolean and value is false
        return $wgLang;
    }

    $validCodes = array_keys( Language::fetchLanguageNames() );
    if ( in_array( $langcode, $validCodes ) ) {
        # $langcode corresponds to a valid language.
        return Language::factory( $langcode );
    }

    # $langcode is a string, but not a valid language code; use content language.
    wfDebug( "Invalid language code passed to wfGetLangObj, falling back to content language.\n" );
    return $wgContLang;
}

function wfMessage( $key /*...*/ ) {
    $params = func_get_args();
    array_shift( $params );
    if ( isset( $params[0] ) && is_array( $params[0] ) ) {
        $params = $params[0];
    }
    return new Message( $key, $params );
}

function wfMessageFallback( /*...*/ ) {
    $args = func_get_args();
    return call_user_func_array( 'Message::newFallbackSequence', $args );
}

function wfMsgReplaceArgs( $message, $args ) {
    # Fix windows line-endings
    # Some messages are split with explode("\n", $msg)
    $message = str_replace( "\r", '', $message );

    // Replace arguments
    if ( is_array( $args ) && $args ) {
        if ( is_array( $args[0] ) ) {
            $args = array_values( $args[0] );
        }
        $replacementKeys = [];
        foreach ( $args as $n => $param ) {
            $replacementKeys['$' . ( $n + 1 )] = $param;
        }
        $message = strtr( $message, $replacementKeys );
    }

    return $message;
}

function wfHostname() {
    static $host;
    if ( is_null( $host ) ) {

        # Hostname overriding
        global $wgOverrideHostname;
        if ( $wgOverrideHostname !== false ) {
            # Set static and skip any detection
            $host = $wgOverrideHostname;
            return $host;
        }

        if ( function_exists( 'posix_uname' ) ) {
            // This function not present on Windows
            $uname = posix_uname();
        } else {
            $uname = false;
        }
        if ( is_array( $uname ) && isset( $uname['nodename'] ) ) {
            $host = $uname['nodename'];
        } elseif ( getenv( 'COMPUTERNAME' ) ) {
            # Windows computer name
            $host = getenv( 'COMPUTERNAME' );
        } else {
            # This may be a virtual server.
            $host = $_SERVER['SERVER_NAME'];
        }
    }
    return $host;
}

function wfReportTime() {
    global $wgRequestTime, $wgShowHostnames;

    $responseTime = round( ( microtime( true ) - $wgRequestTime ) * 1000 );
    $reportVars = [ 'wgBackendResponseTime' => $responseTime ];
    if ( $wgShowHostnames ) {
        $reportVars['wgHostname'] = wfHostname();
    }
    return Skin::makeVariablesScript( $reportVars );
}

function wfDebugBacktrace( $limit = 0 ) {
    static $disabled = null;

    if ( is_null( $disabled ) ) {
        $disabled = !function_exists( 'debug_backtrace' );
        if ( $disabled ) {
            wfDebug( "debug_backtrace() is disabled\n" );
        }
    }
    if ( $disabled ) {
        return [];
    }

    if ( $limit ) {
        return array_slice( debug_backtrace( DEBUG_BACKTRACE_PROVIDE_OBJECT, $limit + 1 ), 1 );
    } else {
        return array_slice( debug_backtrace(), 1 );
    }
}

function wfBacktrace( $raw = null ) {
    global $wgCommandLineMode;

    if ( $raw === null ) {
        $raw = $wgCommandLineMode;
    }

    if ( $raw ) {
        $frameFormat = "%s line %s calls %s()\n";
        $traceFormat = "%s";
    } else {
        $frameFormat = "<li>%s line %s calls %s()</li>\n";
        $traceFormat = "<ul>\n%s</ul>\n";
    }

    $frames = array_map( function ( $frame ) use ( $frameFormat ) {
        $file = !empty( $frame['file'] ) ? basename( $frame['file'] ) : '-';
        $line = isset( $frame['line'] ) ? $frame['line'] : '-';
        $call = $frame['function'];
        if ( !empty( $frame['class'] ) ) {
            $call = $frame['class'] . $frame['type'] . $call;
        }
        return sprintf( $frameFormat, $file, $line, $call );
    }, wfDebugBacktrace() );

    return sprintf( $traceFormat, implode( '', $frames ) );
}

function wfGetCaller( $level = 2 ) {
    $backtrace = wfDebugBacktrace( $level + 1 );
    if ( isset( $backtrace[$level] ) ) {
        return wfFormatStackFrame( $backtrace[$level] );
    } else {
        return 'unknown';
    }
}

function wfGetAllCallers( $limit = 3 ) {
    $trace = array_reverse( wfDebugBacktrace() );
    if ( !$limit || $limit > count( $trace ) - 1 ) {
        $limit = count( $trace ) - 1;
    }
    $trace = array_slice( $trace, -$limit - 1, $limit );
    return implode( '/', array_map( 'wfFormatStackFrame', $trace ) );
}

function wfFormatStackFrame( $frame ) {
    if ( !isset( $frame['function'] ) ) {
        return 'NO_FUNCTION_GIVEN';
    }
    return isset( $frame['class'] ) && isset( $frame['type'] ) ?
        $frame['class'] . $frame['type'] . $frame['function'] :
        $frame['function'];
}

/* Some generic result counters, pulled out of SearchEngine */

function wfShowingResults( $offset, $limit ) {
    return wfMessage( 'showingresults' )->numParams( $limit, $offset + 1 )->parse();
}

function wfClientAcceptsGzip( $force = false ) {
    static $result = null;
    if ( $result === null || $force ) {
        $result = false;
        if ( isset( $_SERVER['HTTP_ACCEPT_ENCODING'] ) ) {
            # @todo FIXME: We may want to blacklist some broken browsers
            $m = [];
            if ( preg_match(
                    '/\bgzip(?:;(q)=([0-9]+(?:\.[0-9]+)))?\b/',
                    $_SERVER['HTTP_ACCEPT_ENCODING'],
                    $m
                )
            ) {
                if ( isset( $m[2] ) && ( $m[1] == 'q' ) && ( $m[2] == 0 ) ) {
                    $result = false;
                    return $result;
                }
                wfDebug( "wfClientAcceptsGzip: client accepts gzip.\n" );
                $result = true;
            }
        }
    }
    return $result;
}

function wfEscapeWikiText( $text ) {
    static $repl = null, $repl2 = null;
    if ( $repl === null ) {
        $repl = [
            '"' => '&#34;', '&' => '&#38;', "'" => '&#39;', '<' => '&#60;',
            '=' => '&#61;', '>' => '&#62;', '[' => '&#91;', ']' => '&#93;',
            '{' => '&#123;', '|' => '&#124;', '}' => '&#125;', ';' => '&#59;',
            "\n#" => "\n&#35;", "\r#" => "\r&#35;",
            "\n*" => "\n&#42;", "\r*" => "\r&#42;",
            "\n:" => "\n&#58;", "\r:" => "\r&#58;",
            "\n " => "\n&#32;", "\r " => "\r&#32;",
            "\n\n" => "\n&#10;", "\r\n" => "&#13;\n",
            "\n\r" => "\n&#13;", "\r\r" => "\r&#13;",
            "\n\t" => "\n&#9;", "\r\t" => "\r&#9;", // "\n\t\n" is treated like "\n\n"
            "\n----" => "\n&#45;---", "\r----" => "\r&#45;---",
            '__' => '_&#95;', '://' => '&#58;//',
        ];

        // We have to catch everything "\s" matches in PCRE
        foreach ( [ 'ISBN', 'RFC', 'PMID' ] as $magic ) {
            $repl["$magic "] = "$magic&#32;";
            $repl["$magic\t"] = "$magic&#9;";
            $repl["$magic\r"] = "$magic&#13;";
            $repl["$magic\n"] = "$magic&#10;";
            $repl["$magic\f"] = "$magic&#12;";
        }

        // And handle protocols that don't use "://"
        global $wgUrlProtocols;
        $repl2 = [];
        foreach ( $wgUrlProtocols as $prot ) {
            if ( substr( $prot, -1 ) === ':' ) {
                $repl2[] = preg_quote( substr( $prot, 0, -1 ), '/' );
            }
        }
        $repl2 = $repl2 ? '/\b(' . implode( '|', $repl2 ) . '):/i' : '/^(?!)/';
    }
    $text = substr( strtr( "\n$text", $repl ), 1 );
    $text = preg_replace( $repl2, '$1&#58;', $text );
    return $text;
}

function wfSetVar( &$dest, $source, $force = false ) {
    $temp = $dest;
    if ( !is_null( $source ) || $force ) {
        $dest = $source;
    }
    return $temp;
}

function wfSetBit( &$dest, $bit, $state = true ) {
    $temp = (bool)( $dest & $bit );
    if ( !is_null( $state ) ) {
        if ( $state ) {
            $dest |= $bit;
        } else {
            $dest &= ~$bit;
        }
    }
    return $temp;
}

function wfVarDump( $var ) {
    global $wgOut;
    $s = str_replace( "\n", "<br />\n", var_export( $var, true ) . "\n" );
    if ( headers_sent() || !isset( $wgOut ) || !is_object( $wgOut ) ) {
        print $s;
    } else {
        $wgOut->addHTML( $s );
    }
}

function wfHttpError( $code, $label, $desc ) {
    global $wgOut;
    HttpStatus::header( $code );
    if ( $wgOut ) {
        $wgOut->disable();
        $wgOut->sendCacheControl();
    }

    header( 'Content-type: text/html; charset=utf-8' );
    print '<!DOCTYPE html>' .
        '<html><head><title>' .
        htmlspecialchars( $label ) .
        '</title></head><body><h1>' .
        htmlspecialchars( $label ) .
        '</h1><p>' .
        nl2br( htmlspecialchars( $desc ) ) .
        "</p></body></html>\n";
}

function wfResetOutputBuffers( $resetGzipEncoding = true ) {
    if ( $resetGzipEncoding ) {
        // Suppress Content-Encoding and Content-Length
        // headers from 1.10+s wfOutputHandler
        global $wgDisableOutputCompression;
        $wgDisableOutputCompression = true;
    }
    while ( $status = ob_get_status() ) {
        if ( isset( $status['flags'] ) ) {
            $flags = PHP_OUTPUT_HANDLER_CLEANABLE | PHP_OUTPUT_HANDLER_REMOVABLE;
            $deleteable = ( $status['flags'] & $flags ) === $flags;
        } elseif ( isset( $status['del'] ) ) {
            $deleteable = $status['del'];
        } else {
            // Guess that any PHP-internal setting can't be removed.
            $deleteable = $status['type'] !== 0; /* PHP_OUTPUT_HANDLER_INTERNAL */
        }
        if ( !$deleteable ) {
            // Give up, and hope the result doesn't break
            // output behavior.
            break;
        }
        if ( $status['name'] === 'MediaWikiTestCase::wfResetOutputBuffersBarrier' ) {
            // Unit testing barrier to prevent this function from breaking PHPUnit.
            break;
        }
        if ( !ob_end_clean() ) {
            // Could not remove output buffer handler; abort now
            // to avoid getting in some kind of infinite loop.
            break;
        }
        if ( $resetGzipEncoding ) {
            if ( $status['name'] == 'ob_gzhandler' ) {
                // Reset the 'Content-Encoding' field set by this handler
                // so we can start fresh.
                header_remove( 'Content-Encoding' );
                break;
            }
        }
    }
}

function wfClearOutputBuffers() {
    wfResetOutputBuffers( false );
}

function wfAcceptToPrefs( $accept, $def = '*/*' ) {
    # No arg means accept anything (per HTTP spec)
    if ( !$accept ) {
        return [ $def => 1.0 ];
    }

    $prefs = [];

    $parts = explode( ',', $accept );

    foreach ( $parts as $part ) {
        # @todo FIXME: Doesn't deal with params like 'text/html; level=1'
        $values = explode( ';', trim( $part ) );
        $match = [];
        if ( count( $values ) == 1 ) {
            $prefs[$values[0]] = 1.0;
        } elseif ( preg_match( '/q\s*=\s*(\d*\.\d+)/', $values[1], $match ) ) {
            $prefs[$values[0]] = floatval( $match[1] );
        }
    }

    return $prefs;
}

function mimeTypeMatch( $type, $avail ) {
    if ( array_key_exists( $type, $avail ) ) {
        return $type;
    } else {
        $mainType = explode( '/', $type )[0];
        if ( array_key_exists( "$mainType/*", $avail ) ) {
            return "$mainType/*";
        } elseif ( array_key_exists( '*/*', $avail ) ) {
            return '*/*';
        } else {
            return null;
        }
    }
}

function wfNegotiateType( $cprefs, $sprefs ) {
    $combine = [];

    foreach ( array_keys( $sprefs ) as $type ) {
        $subType = explode( '/', $type )[1];
        if ( $subType != '*' ) {
            $ckey = mimeTypeMatch( $type, $cprefs );
            if ( $ckey ) {
                $combine[$type] = $sprefs[$type] * $cprefs[$ckey];
            }
        }
    }

    foreach ( array_keys( $cprefs ) as $type ) {
        $subType = explode( '/', $type )[1];
        if ( $subType != '*' && !array_key_exists( $type, $sprefs ) ) {
            $skey = mimeTypeMatch( $type, $sprefs );
            if ( $skey ) {
                $combine[$type] = $sprefs[$skey] * $cprefs[$type];
            }
        }
    }

    $bestq = 0;
    $besttype = null;

    foreach ( array_keys( $combine ) as $type ) {
        if ( $combine[$type] > $bestq ) {
            $besttype = $type;
            $bestq = $combine[$type];
        }
    }

    return $besttype;
}

function wfSuppressWarnings( $end = false ) {
    MediaWiki\suppressWarnings( $end );
}

function wfRestoreWarnings() {
    MediaWiki\suppressWarnings( true );
}

# Autodetect, convert and provide timestamps of various types

define( 'TS_UNIX', 0 );

define( 'TS_MW', 1 );

define( 'TS_DB', 2 );

define( 'TS_RFC2822', 3 );

define( 'TS_ISO_8601', 4 );

define( 'TS_EXIF', 5 );

define( 'TS_ORACLE', 6 );

define( 'TS_POSTGRES', 7 );

define( 'TS_ISO_8601_BASIC', 9 );

function wfTimestamp( $outputtype = TS_UNIX, $ts = 0 ) {
    try {
        $timestamp = new MWTimestamp( $ts );
        return $timestamp->getTimestamp( $outputtype );
    } catch ( TimestampException $e ) {
        wfDebug( "wfTimestamp() fed bogus time value: TYPE=$outputtype; VALUE=$ts\n" );
        return false;
    }
}

function wfTimestampOrNull( $outputtype = TS_UNIX, $ts = null ) {
    if ( is_null( $ts ) ) {
        return null;
    } else {
        return wfTimestamp( $outputtype, $ts );
    }
}

function wfTimestampNow() {
    # return NOW
    return wfTimestamp( TS_MW, time() );
}

function wfIsWindows() {
    static $isWindows = null;
    if ( $isWindows === null ) {
        $isWindows = strtoupper( substr( PHP_OS, 0, 3 ) ) === 'WIN';
    }
    return $isWindows;
}

function wfIsHHVM() {
    return defined( 'HHVM_VERSION' );
}

function wfTempDir() {
    global $wgTmpDirectory;

    if ( $wgTmpDirectory !== false ) {
        return $wgTmpDirectory;
    }

    $tmpDir = array_map( "getenv", [ 'TMPDIR', 'TMP', 'TEMP' ] );
    $tmpDir[] = sys_get_temp_dir();
    $tmpDir[] = ini_get( 'upload_tmp_dir' );

    foreach ( $tmpDir as $tmp ) {
        if ( $tmp && file_exists( $tmp ) && is_dir( $tmp ) && is_writable( $tmp ) ) {
            return $tmp;
        }
    }

    if ( wfIsWindows() ) {
        $tmp = sys_get_temp_dir() . DIRECTORY_SEPARATOR . 'mwtmp' . '-' . get_current_user();
        if ( !file_exists( $tmp ) ) {
            mkdir( $tmp );
        }
        if ( file_exists( $tmp ) && is_dir( $tmp ) && is_writable( $tmp ) ) {
            return $tmp;
        }
    }

    throw new MWException( 'No writable temporary directory could be found. ' .
        'Please set $wgTmpDirectory to a writable directory.' );
}

function wfMkdirParents( $dir, $mode = null, $caller = null ) {
    global $wgDirectoryMode;

    if ( FileBackend::isStoragePath( $dir ) ) { // sanity
        throw new MWException( __FUNCTION__ . " given storage path '$dir'." );
    }

    if ( !is_null( $caller ) ) {
        wfDebug( "$caller: called wfMkdirParents($dir)\n" );
    }

    if ( strval( $dir ) === '' || is_dir( $dir ) ) {
        return true;
    }

    $dir = str_replace( [ '\\', '/' ], DIRECTORY_SEPARATOR, $dir );

    if ( is_null( $mode ) ) {
        $mode = $wgDirectoryMode;
    }

    // Turn off the normal warning, we're doing our own below
    MediaWiki\suppressWarnings();
    $ok = mkdir( $dir, $mode, true ); // PHP5 <3
    MediaWiki\restoreWarnings();

    if ( !$ok ) {
        // directory may have been created on another request since we last checked
        if ( is_dir( $dir ) ) {
            return true;
        }

        // PHP doesn't report the path in its warning message, so add our own to aid in diagnosis.
        wfLogWarning( sprintf( "failed to mkdir \"%s\" mode 0%o", $dir, $mode ) );
    }
    return $ok;
}

function wfRecursiveRemoveDir( $dir ) {
    wfDebug( __FUNCTION__ . "( $dir )\n" );
    // taken from http://de3.php.net/manual/en/function.rmdir.php#98622
    if ( is_dir( $dir ) ) {
        $objects = scandir( $dir );
        foreach ( $objects as $object ) {
            if ( $object != "." && $object != ".." ) {
                if ( filetype( $dir . '/' . $object ) == "dir" ) {
                    wfRecursiveRemoveDir( $dir . '/' . $object );
                } else {
                    unlink( $dir . '/' . $object );
                }
            }
        }
        reset( $objects );
        rmdir( $dir );
    }
}

function wfPercent( $nr, $acc = 2, $round = true ) {
    $ret = sprintf( "%.${acc}f", $nr );
    return $round ? round( $ret, $acc ) . '%' : "$ret%";
}

function wfIniGetBool( $setting ) {
    $val = strtolower( ini_get( $setting ) );
    // 'on' and 'true' can't have whitespace around them, but '1' can.
    return $val == 'on'
        || $val == 'true'
        || $val == 'yes'
        || preg_match( "/^\s*[+-]?0*[1-9]/", $val ); // approx C atoi() function
}

function wfEscapeShellArg( /*...*/ ) {
    wfInitShellLocale();

    $args = func_get_args();
    if ( count( $args ) === 1 && is_array( reset( $args ) ) ) {
        // If only one argument has been passed, and that argument is an array,
        // treat it as a list of arguments
        $args = reset( $args );
    }

    $first = true;
    $retVal = '';
    foreach ( $args as $arg ) {
        if ( !$first ) {
            $retVal .= ' ';
        } else {
            $first = false;
        }

        if ( wfIsWindows() ) {
            // Escaping for an MSVC-style command line parser and CMD.EXE
            // @codingStandardsIgnoreStart For long URLs
            // Refs:
            //  * http://web.archive.org/web/20020708081031/http://mailman.lyra.org/pipermail/scite-interest/2002-March/000436.html
            //  * http://technet.microsoft.com/en-us/library/cc723564.aspx
            //  * Bug #13518
            //  * CR r63214
            // Double the backslashes before any double quotes. Escape the double quotes.
            // @codingStandardsIgnoreEnd
            $tokens = preg_split( '/(\\\\*")/', $arg, -1, PREG_SPLIT_DELIM_CAPTURE );
            $arg = '';
            $iteration = 0;
            foreach ( $tokens as $token ) {
                if ( $iteration % 2 == 1 ) {
                    // Delimiter, a double quote preceded by zero or more slashes
                    $arg .= str_replace( '\\', '\\\\', substr( $token, 0, -1 ) ) . '\\"';
                } elseif ( $iteration % 4 == 2 ) {
                    // ^ in $token will be outside quotes, need to be escaped
                    $arg .= str_replace( '^', '^^', $token );
                } else { // $iteration % 4 == 0
                    // ^ in $token will appear inside double quotes, so leave as is
                    $arg .= $token;
                }
                $iteration++;
            }
            // Double the backslashes before the end of the string, because
            // we will soon add a quote
            $m = [];
            if ( preg_match( '/^(.*?)(\\\\+)$/', $arg, $m ) ) {
                $arg = $m[1] . str_replace( '\\', '\\\\', $m[2] );
            }

            // Add surrounding quotes
            $retVal .= '"' . $arg . '"';
        } else {
            $retVal .= escapeshellarg( $arg );
        }
    }
    return $retVal;
}

function wfShellExecDisabled() {
    static $disabled = null;
    if ( is_null( $disabled ) ) {
        if ( !function_exists( 'proc_open' ) ) {
            wfDebug( "proc_open() is disabled\n" );
            $disabled = 'disabled';
        } else {
            $disabled = false;
        }
    }
    return $disabled;
}

function wfShellExec( $cmd, &$retval = null, $environ = [],
    $limits = [], $options = []
) {
    global $IP, $wgMaxShellMemory, $wgMaxShellFileSize, $wgMaxShellTime,
        $wgMaxShellWallClockTime, $wgShellCgroup;

    $disabled = wfShellExecDisabled();
    if ( $disabled ) {
        $retval = 1;
        return 'Unable to run external programs, proc_open() is disabled.';
    }

    $includeStderr = isset( $options['duplicateStderr'] ) && $options['duplicateStderr'];
    $profileMethod = isset( $options['profileMethod'] ) ? $options['profileMethod'] : wfGetCaller();

    wfInitShellLocale();

    $envcmd = '';
    foreach ( $environ as $k => $v ) {
        if ( wfIsWindows() ) {
            /* Surrounding a set in quotes (method used by wfEscapeShellArg) makes the quotes themselves
             * appear in the environment variable, so we must use carat escaping as documented in
             * http://technet.microsoft.com/en-us/library/cc723564.aspx
             * Note however that the quote isn't listed there, but is needed, and the parentheses
             * are listed there but doesn't appear to need it.
             */
            $envcmd .= "set $k=" . preg_replace( '/([&|()<>^"])/', '^\\1', $v ) . '&& ';
        } else {
            /* Assume this is a POSIX shell, thus required to accept variable assignments before the command
             * http://www.opengroup.org/onlinepubs/009695399/utilities/xcu_chap02.html#tag_02_09_01
             */
            $envcmd .= "$k=" . escapeshellarg( $v ) . ' ';
        }
    }
    if ( is_array( $cmd ) ) {
        $cmd = wfEscapeShellArg( $cmd );
    }

    $cmd = $envcmd . $cmd;

    $useLogPipe = false;
    if ( is_executable( '/bin/bash' ) ) {
        $time = intval( isset( $limits['time'] ) ? $limits['time'] : $wgMaxShellTime );
        if ( isset( $limits['walltime'] ) ) {
            $wallTime = intval( $limits['walltime'] );
        } elseif ( isset( $limits['time'] ) ) {
            $wallTime = $time;
        } else {
            $wallTime = intval( $wgMaxShellWallClockTime );
        }
        $mem = intval( isset( $limits['memory'] ) ? $limits['memory'] : $wgMaxShellMemory );
        $filesize = intval( isset( $limits['filesize'] ) ? $limits['filesize'] : $wgMaxShellFileSize );

        if ( $time > 0 || $mem > 0 || $filesize > 0 || $wallTime > 0 ) {
            $cmd = '/bin/bash ' . escapeshellarg( "$IP/includes/limit.sh" ) . ' ' .
                escapeshellarg( $cmd ) . ' ' .
                escapeshellarg(
                    "MW_INCLUDE_STDERR=" . ( $includeStderr ? '1' : '' ) . ';' .
                    "MW_CPU_LIMIT=$time; " .
                    'MW_CGROUP=' . escapeshellarg( $wgShellCgroup ) . '; ' .
                    "MW_MEM_LIMIT=$mem; " .
                    "MW_FILE_SIZE_LIMIT=$filesize; " .
                    "MW_WALL_CLOCK_LIMIT=$wallTime; " .
                    "MW_USE_LOG_PIPE=yes"
                );
            $useLogPipe = true;
        } elseif ( $includeStderr ) {
            $cmd .= ' 2>&1';
        }
    } elseif ( $includeStderr ) {
        $cmd .= ' 2>&1';
    }
    wfDebug( "wfShellExec: $cmd\n" );

    // Don't try to execute commands that exceed Linux's MAX_ARG_STRLEN.
    // Other platforms may be more accomodating, but we don't want to be
    // accomodating, because very long commands probably include user
    // input. See T129506.
    if ( strlen( $cmd ) > SHELL_MAX_ARG_STRLEN ) {
        throw new Exception( __METHOD__ .
            '(): total length of $cmd must not exceed SHELL_MAX_ARG_STRLEN' );
    }

    $desc = [
        0 => [ 'file', 'php://stdin', 'r' ],
        1 => [ 'pipe', 'w' ],
        2 => [ 'file', 'php://stderr', 'w' ] ];
    if ( $useLogPipe ) {
        $desc[3] = [ 'pipe', 'w' ];
    }
    $pipes = null;
    $scoped = Profiler::instance()->scopedProfileIn( __FUNCTION__ . '-' . $profileMethod );
    $proc = proc_open( $cmd, $desc, $pipes );
    if ( !$proc ) {
        wfDebugLog( 'exec', "proc_open() failed: $cmd" );
        $retval = -1;
        return '';
    }
    $outBuffer = $logBuffer = '';
    $emptyArray = [];
    $status = false;
    $logMsg = false;

    /* According to the documentation, it is possible for stream_select()
     * to fail due to EINTR. I haven't managed to induce this in testing
     * despite sending various signals. If it did happen, the error
     * message would take the form:
     *
     * stream_select(): unable to select [4]: Interrupted system call (max_fd=5)
     *
     * where [4] is the value of the macro EINTR and "Interrupted system
     * call" is string which according to the Linux manual is "possibly"
     * localised according to LC_MESSAGES.
     */
    $eintr = defined( 'SOCKET_EINTR' ) ? SOCKET_EINTR : 4;
    $eintrMessage = "stream_select(): unable to select [$eintr]";

    $running = true;
    $timeout = null;
    $numReadyPipes = 0;

    while ( $running === true || $numReadyPipes !== 0 ) {
        if ( $running ) {
            $status = proc_get_status( $proc );
            // If the process has terminated, switch to nonblocking selects
            // for getting any data still waiting to be read.
            if ( !$status['running'] ) {
                $running = false;
                $timeout = 0;
            }
        }

        $readyPipes = $pipes;

        // Clear last error
        // @codingStandardsIgnoreStart Generic.PHP.NoSilencedErrors.Discouraged
        @trigger_error( '' );
        $numReadyPipes = @stream_select( $readyPipes, $emptyArray, $emptyArray, $timeout );
        if ( $numReadyPipes === false ) {
            // @codingStandardsIgnoreEnd
            $error = error_get_last();
            if ( strncmp( $error['message'], $eintrMessage, strlen( $eintrMessage ) ) == 0 ) {
                continue;
            } else {
                trigger_error( $error['message'], E_USER_WARNING );
                $logMsg = $error['message'];
                break;
            }
        }
        foreach ( $readyPipes as $fd => $pipe ) {
            $block = fread( $pipe, 65536 );
            if ( $block === '' ) {
                // End of file
                fclose( $pipes[$fd] );
                unset( $pipes[$fd] );
                if ( !$pipes ) {
                    break 2;
                }
            } elseif ( $block === false ) {
                // Read error
                $logMsg = "Error reading from pipe";
                break 2;
            } elseif ( $fd == 1 ) {
                // From stdout
                $outBuffer .= $block;
            } elseif ( $fd == 3 ) {
                // From log FD
                $logBuffer .= $block;
                if ( strpos( $block, "\n" ) !== false ) {
                    $lines = explode( "\n", $logBuffer );
                    $logBuffer = array_pop( $lines );
                    foreach ( $lines as $line ) {
                        wfDebugLog( 'exec', $line );
                    }
                }
            }
        }
    }

    foreach ( $pipes as $pipe ) {
        fclose( $pipe );
    }

    // Use the status previously collected if possible, since proc_get_status()
    // just calls waitpid() which will not return anything useful the second time.
    if ( $running ) {
        $status = proc_get_status( $proc );
    }

    if ( $logMsg !== false ) {
        // Read/select error
        $retval = -1;
        proc_close( $proc );
    } elseif ( $status['signaled'] ) {
        $logMsg = "Exited with signal {$status['termsig']}";
        $retval = 128 + $status['termsig'];
        proc_close( $proc );
    } else {
        if ( $status['running'] ) {
            $retval = proc_close( $proc );
        } else {
            $retval = $status['exitcode'];
            proc_close( $proc );
        }
        if ( $retval == 127 ) {
            $logMsg = "Possibly missing executable file";
        } elseif ( $retval >= 129 && $retval <= 192 ) {
            $logMsg = "Probably exited with signal " . ( $retval - 128 );
        }
    }

    if ( $logMsg !== false ) {
        wfDebugLog( 'exec', "$logMsg: $cmd" );
    }

    return $outBuffer;
}

function wfShellExecWithStderr( $cmd, &$retval = null, $environ = [], $limits = [] ) {
    return wfShellExec( $cmd, $retval, $environ, $limits,
        [ 'duplicateStderr' => true, 'profileMethod' => wfGetCaller() ] );
}

function wfInitShellLocale() {
    static $done = false;
    if ( $done ) {
        return;
    }
    $done = true;
    global $wgShellLocale;
    putenv( "LC_CTYPE=$wgShellLocale" );
    setlocale( LC_CTYPE, $wgShellLocale );
}

function wfShellWikiCmd( $script, array $parameters = [], array $options = [] ) {
    global $wgPhpCli;
    // Give site config file a chance to run the script in a wrapper.
    // The caller may likely want to call wfBasename() on $script.
    Hooks::run( 'wfShellWikiCmd', [ &$script, &$parameters, &$options ] );
    $cmd = isset( $options['php'] ) ? [ $options['php'] ] : [ $wgPhpCli ];
    if ( isset( $options['wrapper'] ) ) {
        $cmd[] = $options['wrapper'];
    }
    $cmd[] = $script;
    // Escape each parameter for shell
    return wfEscapeShellArg( array_merge( $cmd, $parameters ) );
}

function wfMerge( $old, $mine, $yours, &$result ) {
    global $wgDiff3;

    # This check may also protect against code injection in
    # case of broken installations.
    MediaWiki\suppressWarnings();
    $haveDiff3 = $wgDiff3 && file_exists( $wgDiff3 );
    MediaWiki\restoreWarnings();

    if ( !$haveDiff3 ) {
        wfDebug( "diff3 not found\n" );
        return false;
    }

    # Make temporary files
    $td = wfTempDir();
    $oldtextFile = fopen( $oldtextName = tempnam( $td, 'merge-old-' ), 'w' );
    $mytextFile = fopen( $mytextName = tempnam( $td, 'merge-mine-' ), 'w' );
    $yourtextFile = fopen( $yourtextName = tempnam( $td, 'merge-your-' ), 'w' );

    # NOTE: diff3 issues a warning to stderr if any of the files does not end with
    #       a newline character. To avoid this, we normalize the trailing whitespace before
    #       creating the diff.

    fwrite( $oldtextFile, rtrim( $old ) . "\n" );
    fclose( $oldtextFile );
    fwrite( $mytextFile, rtrim( $mine ) . "\n" );
    fclose( $mytextFile );
    fwrite( $yourtextFile, rtrim( $yours ) . "\n" );
    fclose( $yourtextFile );

    # Check for a conflict
    $cmd = wfEscapeShellArg( $wgDiff3, '-a', '--overlap-only', $mytextName,
        $oldtextName, $yourtextName );
    $handle = popen( $cmd, 'r' );

    if ( fgets( $handle, 1024 ) ) {
        $conflict = true;
    } else {
        $conflict = false;
    }
    pclose( $handle );

    # Merge differences
    $cmd = wfEscapeShellArg( $wgDiff3, '-a', '-e', '--merge', $mytextName,
        $oldtextName, $yourtextName );
    $handle = popen( $cmd, 'r' );
    $result = '';
    do {
        $data = fread( $handle, 8192 );
        if ( strlen( $data ) == 0 ) {
            break;
        }
        $result .= $data;
    } while ( true );
    pclose( $handle );
    unlink( $mytextName );
    unlink( $oldtextName );
    unlink( $yourtextName );

    if ( $result === '' && $old !== '' && !$conflict ) {
        wfDebug( "Unexpected null result from diff3. Command: $cmd\n" );
        $conflict = true;
    }
    return !$conflict;
}

function wfDiff( $before, $after, $params = '-u' ) {
    if ( $before == $after ) {
        return '';
    }

    global $wgDiff;
    MediaWiki\suppressWarnings();
    $haveDiff = $wgDiff && file_exists( $wgDiff );
    MediaWiki\restoreWarnings();

    # This check may also protect against code injection in
    # case of broken installations.
    if ( !$haveDiff ) {
        wfDebug( "diff executable not found\n" );
        $diffs = new Diff( explode( "\n", $before ), explode( "\n", $after ) );
        $format = new UnifiedDiffFormatter();
        return $format->format( $diffs );
    }

    # Make temporary files
    $td = wfTempDir();
    $oldtextFile = fopen( $oldtextName = tempnam( $td, 'merge-old-' ), 'w' );
    $newtextFile = fopen( $newtextName = tempnam( $td, 'merge-your-' ), 'w' );

    fwrite( $oldtextFile, $before );
    fclose( $oldtextFile );
    fwrite( $newtextFile, $after );
    fclose( $newtextFile );

    // Get the diff of the two files
    $cmd = "$wgDiff " . $params . ' ' . wfEscapeShellArg( $oldtextName, $newtextName );

    $h = popen( $cmd, 'r' );
    if ( !$h ) {
        unlink( $oldtextName );
        unlink( $newtextName );
        throw new Exception( __METHOD__ . '(): popen() failed' );
    }

    $diff = '';

    do {
        $data = fread( $h, 8192 );
        if ( strlen( $data ) == 0 ) {
            break;
        }
        $diff .= $data;
    } while ( true );

    // Clean up
    pclose( $h );
    unlink( $oldtextName );
    unlink( $newtextName );

    // Kill the --- and +++ lines. They're not useful.
    $diff_lines = explode( "\n", $diff );
    if ( isset( $diff_lines[0] ) && strpos( $diff_lines[0], '---' ) === 0 ) {
        unset( $diff_lines[0] );
    }
    if ( isset( $diff_lines[1] ) && strpos( $diff_lines[1], '+++' ) === 0 ) {
        unset( $diff_lines[1] );
    }

    $diff = implode( "\n", $diff_lines );

    return $diff;
}

function wfUsePHP( $req_ver ) {
    $php_ver = PHP_VERSION;

    if ( version_compare( $php_ver, (string)$req_ver, '<' ) ) {
        throw new MWException( "PHP $req_ver required--this is only $php_ver" );
    }
}

function wfUseMW( $req_ver ) {
    global $wgVersion;

    if ( version_compare( $wgVersion, (string)$req_ver, '<' ) ) {
        throw new MWException( "MediaWiki $req_ver required--this is only $wgVersion" );
    }
}

function wfBaseName( $path, $suffix = '' ) {
    if ( $suffix == '' ) {
        $encSuffix = '';
    } else {
        $encSuffix = '(?:' . preg_quote( $suffix, '#' ) . ')?';
    }

    $matches = [];
    if ( preg_match( "#([^/\\\\]*?){$encSuffix}[/\\\\]*$#", $path, $matches ) ) {
        return $matches[1];
    } else {
        return '';
    }
}

function wfRelativePath( $path, $from ) {
    // Normalize mixed input on Windows...
    $path = str_replace( '/', DIRECTORY_SEPARATOR, $path );
    $from = str_replace( '/', DIRECTORY_SEPARATOR, $from );

    // Trim trailing slashes -- fix for drive root
    $path = rtrim( $path, DIRECTORY_SEPARATOR );
    $from = rtrim( $from, DIRECTORY_SEPARATOR );

    $pieces = explode( DIRECTORY_SEPARATOR, dirname( $path ) );
    $against = explode( DIRECTORY_SEPARATOR, $from );

    if ( $pieces[0] !== $against[0] ) {
        // Non-matching Windows drive letters?
        // Return a full path.
        return $path;
    }

    // Trim off common prefix
    while ( count( $pieces ) && count( $against )
        && $pieces[0] == $against[0] ) {
        array_shift( $pieces );
        array_shift( $against );
    }

    // relative dots to bump us to the parent
    while ( count( $against ) ) {
        array_unshift( $pieces, '..' );
        array_shift( $against );
    }

    array_push( $pieces, wfBaseName( $path ) );

    return implode( DIRECTORY_SEPARATOR, $pieces );
}

function wfBaseConvert( $input, $sourceBase, $destBase, $pad = 1,
    $lowercase = true, $engine = 'auto'
) {
    return Wikimedia\base_convert( $input, $sourceBase, $destBase, $pad, $lowercase, $engine );
}

function wfFixSessionID() {
    wfDeprecated( __FUNCTION__, '1.27' );
}

function wfResetSessionID() {
    wfDeprecated( __FUNCTION__, '1.27' );
    $session = SessionManager::getGlobalSession();
    $delay = $session->delaySave();

    $session->resetId();

    // Make sure a session is started, since that's what the old
    // wfResetSessionID() did.
    if ( session_id() !== $session->getId() ) {
        wfSetupSession( $session->getId() );
    }

    ScopedCallback::consume( $delay );
}

function wfSetupSession( $sessionId = false ) {
    wfDeprecated( __FUNCTION__, '1.27' );

    if ( $sessionId ) {
        session_id( $sessionId );
    }

    $session = SessionManager::getGlobalSession();
    $session->persist();

    if ( session_id() !== $session->getId() ) {
        session_id( $session->getId() );
    }
    MediaWiki\quietCall( 'session_start' );
}

function wfGetPrecompiledData( $name ) {
    global $IP;

    $file = "$IP/serialized/$name";
    if ( file_exists( $file ) ) {
        $blob = file_get_contents( $file );
        if ( $blob ) {
            return unserialize( $blob );
        }
    }
    return false;
}

function wfMemcKey( /*...*/ ) {
    return call_user_func_array(
        [ ObjectCache::getLocalClusterInstance(), 'makeKey' ],
        func_get_args()
    );
}

function wfForeignMemcKey( $db, $prefix /*...*/ ) {
    $args = array_slice( func_get_args(), 2 );
    $keyspace = $prefix ? "$db-$prefix" : $db;
    return call_user_func_array(
        [ ObjectCache::getLocalClusterInstance(), 'makeKeyInternal' ],
        [ $keyspace, $args ]
    );
}

function wfGlobalCacheKey( /*...*/ ) {
    return call_user_func_array(
        [ ObjectCache::getLocalClusterInstance(), 'makeGlobalKey' ],
        func_get_args()
    );
}

function wfWikiID() {
    global $wgDBprefix, $wgDBname;
    if ( $wgDBprefix ) {
        return "$wgDBname-$wgDBprefix";
    } else {
        return $wgDBname;
    }
}

function wfSplitWikiID( $wiki ) {
    $bits = explode( '-', $wiki, 2 );
    if ( count( $bits ) < 2 ) {
        $bits[] = '';
    }
    return $bits;
}

function wfGetDB( $db, $groups = [], $wiki = false ) {
    return wfGetLB( $wiki )->getConnection( $db, $groups, $wiki );
}

function wfGetLB( $wiki = false ) {
    if ( $wiki === false ) {
        return \MediaWiki\MediaWikiServices::getInstance()->getDBLoadBalancer();
    } else {
        $factory = \MediaWiki\MediaWikiServices::getInstance()->getDBLoadBalancerFactory();
        return $factory->getMainLB( $wiki );
    }
}

function wfGetLBFactory() {
    return \MediaWiki\MediaWikiServices::getInstance()->getDBLoadBalancerFactory();
}

function wfFindFile( $title, $options = [] ) {
    return RepoGroup::singleton()->findFile( $title, $options );
}

function wfLocalFile( $title ) {
    return RepoGroup::singleton()->getLocalRepo()->newFile( $title );
}

function wfQueriesMustScale() {
    global $wgMiserMode;
    return $wgMiserMode
        || ( SiteStats::pages() > 100000
        && SiteStats::edits() > 1000000
        && SiteStats::users() > 10000 );
}

function wfScript( $script = 'index' ) {
    global $wgScriptPath, $wgScript, $wgLoadScript;
    if ( $script === 'index' ) {
        return $wgScript;
    } elseif ( $script === 'load' ) {
        return $wgLoadScript;
    } else {
        return "{$wgScriptPath}/{$script}.php";
    }
}

function wfGetScriptUrl() {
    if ( isset( $_SERVER['SCRIPT_NAME'] ) ) {
        /* as it was called, minus the query string.
         *
         * Some sites use Apache rewrite rules to handle subdomains,
         * and have PHP set up in a weird way that causes PHP_SELF
         * to contain the rewritten URL instead of the one that the
         * outside world sees.
         *
         * If in this mode, use SCRIPT_URL instead, which mod_rewrite
         * provides containing the "before" URL.
         */
        return $_SERVER['SCRIPT_NAME'];
    } else {
        return $_SERVER['URL'];
    }
}

function wfBoolToStr( $value ) {
    return $value ? 'true' : 'false';
}

function wfGetNull() {
    return wfIsWindows() ? 'NUL' : '/dev/null';
}

function wfWaitForSlaves(
    $ifWritesSince = null, $wiki = false, $cluster = false, $timeout = null
) {
    if ( $timeout === null ) {
        $timeout = ( PHP_SAPI === 'cli' ) ? 86400 : 10;
    }

    if ( $cluster === '*' ) {
        $cluster = false;
        $wiki = false;
    } elseif ( $wiki === false ) {
        $wiki = wfWikiID();
    }

    try {
        wfGetLBFactory()->waitForReplication( [
            'wiki' => $wiki,
            'cluster' => $cluster,
            'timeout' => $timeout,
            // B/C: first argument used to be "max seconds of lag"; ignore such values
            'ifWritesSince' => ( $ifWritesSince > 1e9 ) ? $ifWritesSince : null
        ] );
    } catch ( DBReplicationWaitError $e ) {
        return false;
    }

    return true;
}

function wfCountDown( $seconds ) {
    for ( $i = $seconds; $i >= 0; $i-- ) {
        if ( $i != $seconds ) {
            echo str_repeat( "\x08", strlen( $i + 1 ) );
        }
        echo $i;
        flush();
        if ( $i ) {
            sleep( 1 );
        }
    }
    echo "\n";
}

function wfStripIllegalFilenameChars( $name ) {
    global $wgIllegalFileChars;
    $illegalFileChars = $wgIllegalFileChars ? "|[" . $wgIllegalFileChars . "]" : '';
    $name = preg_replace(
        "/[^" . Title::legalChars() . "]" . $illegalFileChars . "/",
        '-',
        $name
    );
    // $wgIllegalFileChars may not include '/' and '\', so we still need to do this
    $name = wfBaseName( $name );
    return $name;
}

function wfMemoryLimit() {
    global $wgMemoryLimit;
    $memlimit = wfShorthandToInteger( ini_get( 'memory_limit' ) );
    if ( $memlimit != -1 ) {
        $conflimit = wfShorthandToInteger( $wgMemoryLimit );
        if ( $conflimit == -1 ) {
            wfDebug( "Removing PHP's memory limit\n" );
            MediaWiki\suppressWarnings();
            ini_set( 'memory_limit', $conflimit );
            MediaWiki\restoreWarnings();
            return $conflimit;
        } elseif ( $conflimit > $memlimit ) {
            wfDebug( "Raising PHP's memory limit to $conflimit bytes\n" );
            MediaWiki\suppressWarnings();
            ini_set( 'memory_limit', $conflimit );
            MediaWiki\restoreWarnings();
            return $conflimit;
        }
    }
    return $memlimit;
}

function wfTransactionalTimeLimit() {
    global $wgTransactionalTimeLimit;

    $timeLimit = ini_get( 'max_execution_time' );
    // Note that CLI scripts use 0
    if ( $timeLimit > 0 && $wgTransactionalTimeLimit > $timeLimit ) {
        set_time_limit( $wgTransactionalTimeLimit );
    }

    ignore_user_abort( true ); // ignore client disconnects

    return $timeLimit;
}

function wfShorthandToInteger( $string = '', $default = -1 ) {
    $string = trim( $string );
    if ( $string === '' ) {
        return $default;
    }
    $last = $string[strlen( $string ) - 1];
    $val = intval( $string );
    switch ( $last ) {
        case 'g':
        case 'G':
            $val *= 1024;
            // break intentionally missing
        case 'm':
        case 'M':
            $val *= 1024;
            // break intentionally missing
        case 'k':
        case 'K':
            $val *= 1024;
    }

    return $val;
}

function wfBCP47( $code ) {
    $codeSegment = explode( '-', $code );
    $codeBCP = [];
    foreach ( $codeSegment as $segNo => $seg ) {
        // when previous segment is x, it is a private segment and should be lc
        if ( $segNo > 0 && strtolower( $codeSegment[( $segNo - 1 )] ) == 'x' ) {
            $codeBCP[$segNo] = strtolower( $seg );
        // ISO 3166 country code
        } elseif ( ( strlen( $seg ) == 2 ) && ( $segNo > 0 ) ) {
            $codeBCP[$segNo] = strtoupper( $seg );
        // ISO 15924 script code
        } elseif ( ( strlen( $seg ) == 4 ) && ( $segNo > 0 ) ) {
            $codeBCP[$segNo] = ucfirst( strtolower( $seg ) );
        // Use lowercase for other cases
        } else {
            $codeBCP[$segNo] = strtolower( $seg );
        }
    }
    $langCode = implode( '-', $codeBCP );
    return $langCode;
}

function wfGetCache( $cacheType ) {
    return ObjectCache::getInstance( $cacheType );
}

function wfGetMainCache() {
    global $wgMainCacheType;
    return ObjectCache::getInstance( $wgMainCacheType );
}

function wfGetMessageCacheStorage() {
    global $wgMessageCacheType;
    return ObjectCache::getInstance( $wgMessageCacheType );
}

function wfGetParserCacheStorage() {
    global $wgParserCacheType;
    return ObjectCache::getInstance( $wgParserCacheType );
}

function wfRunHooks( $event, array $args = [], $deprecatedVersion = null ) {
    return Hooks::run( $event, $args, $deprecatedVersion );
}

function wfUnpack( $format, $data, $length = false ) {
    if ( $length !== false ) {
        $realLen = strlen( $data );
        if ( $realLen < $length ) {
            throw new MWException( "Tried to use wfUnpack on a "
                . "string of length $realLen, but needed one "
                . "of at least length $length."
            );
        }
    }

    MediaWiki\suppressWarnings();
    $result = unpack( $format, $data );
    MediaWiki\restoreWarnings();

    if ( $result === false ) {
        // If it cannot extract the packed data.
        throw new MWException( "unpack could not unpack binary data" );
    }
    return $result;
}

function wfIsBadImage( $name, $contextTitle = false, $blacklist = null ) {
    # Handle redirects; callers almost always hit wfFindFile() anyway,
    # so just use that method because it has a fast process cache.
    $file = wfFindFile( $name ); // get the final name
    $name = $file ? $file->getTitle()->getDBkey() : $name;

    # Run the extension hook
    $bad = false;
    if ( !Hooks::run( 'BadImage', [ $name, &$bad ] ) ) {
        return $bad;
    }

    $cache = ObjectCache::getLocalServerInstance( 'hash' );
    $key = wfMemcKey( 'bad-image-list', ( $blacklist === null ) ? 'default' : md5( $blacklist ) );
    $badImages = $cache->get( $key );

    if ( $badImages === false ) { // cache miss
        if ( $blacklist === null ) {
            $blacklist = wfMessage( 'bad_image_list' )->inContentLanguage()->plain(); // site list
        }
        # Build the list now
        $badImages = [];
        $lines = explode( "\n", $blacklist );
        foreach ( $lines as $line ) {
            # List items only
            if ( substr( $line, 0, 1 ) !== '*' ) {
                continue;
            }

            # Find all links
            $m = [];
            if ( !preg_match_all( '/\[\[:?(.*?)\]\]/', $line, $m ) ) {
                continue;
            }

            $exceptions = [];
            $imageDBkey = false;
            foreach ( $m[1] as $i => $titleText ) {
                $title = Title::newFromText( $titleText );
                if ( !is_null( $title ) ) {
                    if ( $i == 0 ) {
                        $imageDBkey = $title->getDBkey();
                    } else {
                        $exceptions[$title->getPrefixedDBkey()] = true;
                    }
                }
            }

            if ( $imageDBkey !== false ) {
                $badImages[$imageDBkey] = $exceptions;
            }
        }
        $cache->set( $key, $badImages, 60 );
    }

    $contextKey = $contextTitle ? $contextTitle->getPrefixedDBkey() : false;
    $bad = isset( $badImages[$name] ) && !isset( $badImages[$name][$contextKey] );

    return $bad;
}

function wfCanIPUseHTTPS( $ip ) {
    $canDo = true;
    Hooks::run( 'CanIPUseHTTPS', [ $ip, &$canDo ] );
    return !!$canDo;
}

function wfIsInfinity( $str ) {
    $infinityValues = [ 'infinite', 'indefinite', 'infinity', 'never' ];
    return in_array( $str, $infinityValues );
}

function wfThumbIsStandard( File $file, array $params ) {
    global $wgThumbLimits, $wgImageLimits, $wgResponsiveImages;

    $multipliers = [ 1 ];
    if ( $wgResponsiveImages ) {
        // These available sizes are hardcoded currently elsewhere in MediaWiki.
        // @see Linker::processResponsiveImages
        $multipliers[] = 1.5;
        $multipliers[] = 2;
    }

    $handler = $file->getHandler();
    if ( !$handler || !isset( $params['width'] ) ) {
        return false;
    }

    $basicParams = [];
    if ( isset( $params['page'] ) ) {
        $basicParams['page'] = $params['page'];
    }

    $thumbLimits = [];
    $imageLimits = [];
    // Expand limits to account for multipliers
    foreach ( $multipliers as $multiplier ) {
        $thumbLimits = array_merge( $thumbLimits, array_map(
            function ( $width ) use ( $multiplier ) {
                return round( $width * $multiplier );
            }, $wgThumbLimits )
        );
        $imageLimits = array_merge( $imageLimits, array_map(
            function ( $pair ) use ( $multiplier ) {
                return [
                    round( $pair[0] * $multiplier ),
                    round( $pair[1] * $multiplier ),
                ];
            }, $wgImageLimits )
        );
    }

    // Check if the width matches one of $wgThumbLimits
    if ( in_array( $params['width'], $thumbLimits ) ) {
        $normalParams = $basicParams + [ 'width' => $params['width'] ];
        // Append any default values to the map (e.g. "lossy", "lossless", ...)
        $handler->normaliseParams( $file, $normalParams );
    } else {
        // If not, then check if the width matchs one of $wgImageLimits
        $match = false;
        foreach ( $imageLimits as $pair ) {
            $normalParams = $basicParams + [ 'width' => $pair[0], 'height' => $pair[1] ];
            // Decide whether the thumbnail should be scaled on width or height.
            // Also append any default values to the map (e.g. "lossy", "lossless", ...)
            $handler->normaliseParams( $file, $normalParams );
            // Check if this standard thumbnail size maps to the given width
            if ( $normalParams['width'] == $params['width'] ) {
                $match = true;
                break;
            }
        }
        if ( !$match ) {
            return false; // not standard for description pages
        }
    }

    // Check that the given values for non-page, non-width, params are just defaults
    foreach ( $params as $key => $value ) {
        if ( !isset( $normalParams[$key] ) || $normalParams[$key] != $value ) {
            return false;
        }
    }

    return true;
}

function wfArrayPlus2d( array $baseArray, array $newValues ) {
    // First merge items that are in both arrays
    foreach ( $baseArray as $name => &$groupVal ) {
        if ( isset( $newValues[$name] ) ) {
            $groupVal += $newValues[$name];
        }
    }
    // Now add items that didn't exist yet
    $baseArray += $newValues;

    return $baseArray;
}