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 MediaWiki\Logger\LoggerFactory;
use MediaWiki\ProcOpenError;
use MediaWiki\Session\SessionManager;
use MediaWiki\MediaWikiServices;
use MediaWiki\Shell\Shell;
use Wikimedia\ScopedCallback;
use Wikimedia\WrappedString;

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 );
    } else {
        reset( $a );
        reset( $b );
        while ( key( $a ) !== null && key( $b ) !== null ) {
            $valueA = current( $a );
            $valueB = current( $b );
            $cmp = strcmp( $valueA, $valueB );
            if ( $cmp !== 0 ) {
                return $cmp;
            }
            next( $a );
            next( $b );
        }
        return 0;
    }
}

function wfArrayFilter( array $arr, callable $callback ) {
    return array_filter( $arr, $callback, ARRAY_FILTER_USE_BOTH );
}

function wfArrayFilterByKey( array $arr, callable $callback ) {
    return array_filter( $arr, $callback, ARRAY_FILTER_USE_KEY );
}

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 ) {
    $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 ( strpos( $url, '?' ) === false ) {
            $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.
        if ( $serverHasProto ) {
            $url = $serverUrl . $url;
        } else {
            // If an HTTPS URL is synthesized from a protocol-relative $wgServer, allow the
            // user to override the port number (T67184)
            if ( $defaultProto === PROTO_HTTPS && $wgHttpsPort != 443 ) {
                if ( isset( $bits['port'] ) ) {
                    throw new Exception( 'A protocol-relative $wgServer may not contain a port number' );
                }
                $url = $defaultProtoWithoutSlashes . $serverUrl . ':' . $wgHttpsPort . $url;
            } else {
                $url = $defaultProtoWithoutSlashes . $serverUrl . $url;
            }
        }
    }

    $bits = wfParseUrl( $url );

    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 wfGetServerUrl( $proto ) {
    $url = wfExpandUrl( '/', $proto );
    return substr( $url, 0, -1 );
}

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";
    }
    Wikimedia\suppressWarnings();
    $bits = parse_url( $url );
    Wikimedia\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 T30627) */
    if ( !isset( $bits['host'] ) ) {
        $bits['host'] = '';

        // See T47069
        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',
        function ( array $matches ) {
            return urldecode( $matches[1] );
        },
        wfExpandUrl( $url )
    );
}

function wfMakeUrlIndexes( $url ) {
    wfDeprecated( __FUNCTION__, '1.33' );
    return LinkFilter::makeIndexes( $url );
}

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;

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

    $text = trim( $text );

    if ( $wgDebugTimestamps ) {
        $context['seconds_elapsed'] = sprintf(
            '%6.4f',
            microtime( true ) - $_SERVER['REQUEST_TIME_FLOAT']
        );
        $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
    // phpcs:ignore MediaWiki.Usage.SuperGlobalsUsage.SuperGlobals
    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 wfLogProfilingData() {
    global $wgDebugLogGroups, $wgDebugRawPage;

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

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

    // Send out any buffered statsd metrics as needed
    MediaWiki::emitBufferedStatsdData(
        MediaWikiServices::getInstance()->getStatsdDataFactory(),
        $context->getConfig()
    );

    // 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 = MediaWikiServices::getInstance()->getStatsdDataFactory();
    $stats->updateCount( $key, $count );
}

function wfReadOnly() {
    return MediaWikiServices::getInstance()->getReadOnlyMode()
        ->isReadOnly();
}

function wfReadOnlyReason() {
    return MediaWikiServices::getInstance()->getReadOnlyMode()
        ->getReason();
}

function wfConfiguredReadOnlyReason() {
    return MediaWikiServices::getInstance()->getConfiguredReadOnlyMode()
        ->getReason();
}

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 $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 MediaWikiServices::getInstance()->getContentLanguage();
    }

    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 MediaWikiServices::getInstance()->getContentLanguage();
}

function wfMessage( $key, ...$params ) {
    $message = new Message( $key );

    // We call Message::params() to reduce code duplication
    if ( $params ) {
        $message->params( ...$params );
    }

    return $message;
}

function wfMessageFallback( ...$keys ) {
    return Message::newFallbackSequence( ...$keys );
}

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( $nonce = null ) {
    global $wgShowHostnames;

    $elapsed = ( microtime( true ) - $_SERVER['REQUEST_TIME_FLOAT'] );
    // seconds to milliseconds
    $responseTime = round( $elapsed * 1000 );
    $reportVars = [ 'wgBackendResponseTime' => $responseTime ];
    if ( $wgShowHostnames ) {
        $reportVars['wgHostname'] = wfHostname();
    }
    return Skin::makeVariablesScript( $reportVars, $nonce );
}

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 = $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 ) {
    global $wgEnableMagicLinks;
    static $repl = null, $repl2 = null;
    if ( $repl === null || defined( 'MW_PARSER_TEST' ) || defined( 'MW_PHPUNIT_TEST' ) ) {
        // Tests depend upon being able to change $wgEnableMagicLinks, so don't cache
        // in those situations
        $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;//',
        ];

        $magicLinks = array_keys( array_filter( $wgEnableMagicLinks ) );
        // We have to catch everything "\s" matches in PCRE
        foreach ( $magicLinks 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();
    }

    MediaWiki\HeaderCallback::warnIfHeadersSent();
    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 OutputHandler::handle.
        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 ) {
    Wikimedia\suppressWarnings( $end );
}

function wfRestoreWarnings() {
    Wikimedia\restoreWarnings();
}

function wfTimestamp( $outputtype = TS_UNIX, $ts = 0 ) {
    $ret = MWTimestamp::convert( $outputtype, $ts );
    if ( $ret === false ) {
        wfDebug( "wfTimestamp() fed bogus time value: TYPE=$outputtype; VALUE=$ts\n" );
    }
    return $ret;
}

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

function wfTimestampNow() {
    # return NOW
    return MWTimestamp::now( TS_MW );
}

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 wfIsCLI() {
    return PHP_SAPI === 'cli' || PHP_SAPI === 'phpdbg';
}

function wfTempDir() {
    global $wgTmpDirectory;

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

    return TempFSFile::getUsableTempDirectory();
}

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
    Wikimedia\suppressWarnings();
    $ok = mkdir( $dir, $mode, true ); // PHP5 <3
    Wikimedia\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 https://secure.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 ) {
    return wfStringToBool( ini_get( $setting ) );
}

function wfStringToBool( $val ) {
    $val = strtolower( $val );
    // '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( ...$args ) {
    return Shell::escape( ...$args );
}

function wfShellExec( $cmd, &$retval = null, $environ = [],
    $limits = [], $options = []
) {
    if ( Shell::isDisabled() ) {
        $retval = 1;
        // Backwards compatibility be upon us...
        return 'Unable to run external programs, proc_open() is disabled.';
    }

    if ( is_array( $cmd ) ) {
        $cmd = Shell::escape( $cmd );
    }

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

    try {
        $result = Shell::command( [] )
            ->unsafeParams( (array)$cmd )
            ->environment( $environ )
            ->limits( $limits )
            ->includeStderr( $includeStderr )
            ->profileMethod( $profileMethod )
            // For b/c
            ->restrict( Shell::RESTRICT_NONE )
            ->execute();
    } catch ( ProcOpenError $ex ) {
        $retval = -1;
        return '';
    }

    $retval = $result->getExitCode();

    return $result->getStdout();
}

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

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 = [ $options['php'] ?? $wgPhpCli ];
    if ( isset( $options['wrapper'] ) ) {
        $cmd[] = $options['wrapper'];
    }
    $cmd[] = $script;
    // Escape each parameter for shell
    return Shell::escape( array_merge( $cmd, $parameters ) );
}

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

    # This check may also protect against code injection in
    # case of broken installations.
    Wikimedia\suppressWarnings();
    $haveDiff3 = $wgDiff3 && file_exists( $wgDiff3 );
    Wikimedia\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 = Shell::escape( $wgDiff3, '-a', '--overlap-only', $mytextName,
        $oldtextName, $yourtextName );
    $handle = popen( $cmd, 'r' );

    $mergeAttemptResult = '';
    do {
        $data = fread( $handle, 8192 );
        if ( strlen( $data ) == 0 ) {
            break;
        }
        $mergeAttemptResult .= $data;
    } while ( true );
    pclose( $handle );

    $conflict = $mergeAttemptResult !== '';

    # Merge differences
    $cmd = Shell::escape( $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;
    Wikimedia\suppressWarnings();
    $haveDiff = $wgDiff && file_exists( $wgDiff );
    Wikimedia\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 . ' ' . Shell::escape( $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 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 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() );
    }
    Wikimedia\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( ...$args ) {
    return ObjectCache::getLocalClusterInstance()->makeKey( ...$args );
}

function wfForeignMemcKey( $db, $prefix, ...$args ) {
    $keyspace = $prefix ? "$db-$prefix" : $db;
    return ObjectCache::getLocalClusterInstance()->makeKeyInternal( $keyspace, $args );
}

function wfGlobalCacheKey( ...$args ) {
    return ObjectCache::getLocalClusterInstance()->makeGlobalKey( ...$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 MediaWikiServices::getInstance()->getDBLoadBalancer();
    } else {
        $factory = MediaWikiServices::getInstance()->getDBLoadBalancerFactory();
        return $factory->getMainLB( $wiki );
    }
}

function wfGetLBFactory() {
    return 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
) {
    $lbFactory = MediaWikiServices::getInstance()->getDBLoadBalancerFactory();

    if ( $cluster === '*' ) {
        $cluster = false;
        $domain = false;
    } elseif ( $wiki === false ) {
        $domain = $lbFactory->getLocalDomainID();
    } else {
        $domain = $wiki;
    }

    $opts = [
        'domain' => $domain,
        'cluster' => $cluster,
        // B/C: first argument used to be "max seconds of lag"; ignore such values
        'ifWritesSince' => ( $ifWritesSince > 1e9 ) ? $ifWritesSince : null
    ];
    if ( $timeout !== null ) {
        $opts['timeout'] = $timeout;
    }

    return $lbFactory->waitForReplication( $opts );
}

function wfCountDown( $seconds ) {
    wfDeprecated( __FUNCTION__, '1.31' );
    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" );
            Wikimedia\suppressWarnings();
            ini_set( 'memory_limit', $conflimit );
            Wikimedia\restoreWarnings();
            return $conflimit;
        } elseif ( $conflimit > $memlimit ) {
            wfDebug( "Raising PHP's memory limit to $conflimit bytes\n" );
            Wikimedia\suppressWarnings();
            ini_set( 'memory_limit', $conflimit );
            Wikimedia\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 ) {
    wfDeprecated( __METHOD__, '1.31' );
    return LanguageCode::bcp47( $code );
}

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

function wfGetMainCache() {
    return ObjectCache::getLocalClusterInstance();
}

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

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."
            );
        }
    }

    Wikimedia\suppressWarnings();
    $result = unpack( $format, $data );
    Wikimedia\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 (bool)$bad;
    }

    $cache = ObjectCache::getLocalServerInstance( 'hash' );
    $key = $cache->makeKey(
        '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 ) {
    // These are hardcoded elsewhere in MediaWiki (e.g. mediawiki.special.block.js).
    $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;
}

function wfGetRusage() {
    if ( !function_exists( 'getrusage' ) ) {
        return false;
    } elseif ( defined( 'HHVM_VERSION' ) && PHP_OS === 'Linux' ) {
        return getrusage( 2 /* RUSAGE_THREAD */ );
    } else {
        return getrusage( 0 /* RUSAGE_SELF */ );
    }
}