Spacing cleanup
[lhc/web/wiklou.git] / includes / GlobalFunctions.php
index 3b19ae4..7acd3e8 100644 (file)
@@ -87,6 +87,29 @@ if ( !function_exists( 'array_diff_key' ) ) {
        }
 }
 
+/**
+ * Like array_diff( $a, $b ) except that it works with two-dimensional arrays.
+ */
+function wfArrayDiff2( $a, $b ) {
+       return array_udiff( $a, $b, 'wfArrayDiff2_cmp' );
+}
+function wfArrayDiff2_cmp( $a, $b ) {
+       if ( !is_array( $a ) ) {
+               return strcmp( $a, $b );
+       } elseif ( count( $a ) !== count( $b ) ) {
+               return count( $a ) < count( $b ) ? -1 : 1;
+       } else {
+               reset( $a );
+               reset( $b );
+               while( ( list( $keyA, $valueA ) = each( $a ) ) && ( list( $keyB, $valueB ) = each( $b ) ) ) {
+                       $cmp = strcmp( $valueA, $valueB );
+                       if ( $cmp !== 0 ) {
+                               return $cmp;
+                       }
+               }
+               return 0;
+       }
+}
 
 /**
  * Wrapper for clone(), for compatibility with PHP4-friendly extensions.
@@ -282,6 +305,11 @@ function wfReadOnly() {
        return (bool)$wgReadOnly;
 }
 
+function wfReadOnlyReason() {
+       global $wgReadOnly;
+       wfReadOnly();
+       return $wgReadOnly;
+}
 
 /**
  * Get a message from anywhere, for the current user language.
@@ -289,11 +317,6 @@ function wfReadOnly() {
  * Use wfMsgForContent() instead if the message should NOT
  * change depending on the user preferences.
  *
- * Note that the message may contain HTML, and is therefore
- * not safe for insertion anywhere. Some functions such as
- * addWikiText will do the escaping for you. Use wfMsgHtml()
- * if you need an escaped message.
- *
  * @param $key String: lookup key for the message, usually
  *    defined in languages/Language.php
  * 
@@ -470,15 +493,13 @@ function wfMsgReplaceArgs( $message, $args ) {
        // Replace arguments
        if ( count( $args ) ) {
                if ( is_array( $args[0] ) ) {
-                       foreach ( $args[0] as $key => $val ) {
-                               $message = str_replace( '$' . $key, $val, $message );
-                       }
-               } else {
-                       foreach( $args as $n => $param ) {
-                               $replacementKeys['$' . ($n + 1)] = $param;
-                       }
-                       $message = strtr( $message, $replacementKeys );
+                       $args = array_values( $args[0] );
+               }
+               $replacementKeys = array();
+               foreach( $args as $n => $param ) {
+                       $replacementKeys['$' . ($n + 1)] = $param;
                }
+               $message = strtr( $message, $replacementKeys );
        }
 
        return $message;
@@ -980,6 +1001,21 @@ function wfAppendQuery( $url, $query ) {
        return $url;
 }
 
+/**
+ * Expand a potentially local URL to a fully-qualified URL.
+ * Assumes $wgServer is correct. :)
+ * @param string $url, either fully-qualified or a local path + query
+ * @return string Fully-qualified URL
+ */
+function wfExpandUrl( $url ) {
+       if( substr( $url, 0, 1 ) == '/' ) {
+               global $wgServer;
+               return $wgServer . $url;
+       } else {
+               return $url;
+       }
+}
+
 /**
  * This is obsolete, use SquidUpdate::purge()
  * @deprecated
@@ -1826,10 +1862,12 @@ function wfShellExec( $cmd, &$retval=null ) {
        }
        wfDebug( "wfShellExec: $cmd\n" );
        
-       $output = array();
        $retval = 1; // error by default?
-       exec( $cmd, $output, $retval ); // returns the last line of output.
-       return implode( "\n", $output );
+       ob_start();
+       passthru( $cmd, $retval );
+       $output = ob_get_contents();
+       ob_end_clean();
+       return $output;
        
 }
 
@@ -1920,8 +1958,18 @@ function wfRelativePath( $path, $from ) {
        $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 )
@@ -1941,6 +1989,28 @@ function wfRelativePath( $path, $from ) {
        return implode( DIRECTORY_SEPARATOR, $pieces );
 }
 
+/**
+ * array_merge() does awful things with "numeric" indexes, including
+ * string indexes when happen to look like integers. When we want
+ * to merge arrays with arbitrary string indexes, we don't want our
+ * arrays to be randomly corrupted just because some of them consist
+ * of numbers.
+ *
+ * Fuck you, PHP. Fuck you in the ear!
+ *
+ * @param array $array1, [$array2, [...]]
+ * @return array
+ */
+function wfArrayMerge( $array1/* ... */ ) {
+       $out = $array1;
+       for( $i = 1; $i < func_num_args(); $i++ ) {
+               foreach( func_get_arg( $i ) as $key => $value ) {
+                       $out[$key] = $value;
+               }
+       }
+       return $out;
+}
+
 /**
  * Make a URL index, appropriate for the el_index field of externallinks.
  */
@@ -2269,7 +2339,7 @@ function &wfGetDB( $db = DB_LAST, $groups = array() ) {
  * @param mixed $title Title object or string. May be interwiki.
  * @param mixed $time Requested time for an archived image, or false for the 
  *                    current version. An image object will be returned which 
- *                    existed at or before the specified time.
+ *                    existed at the specified time.
  * @return File, or false if the file does not exist
  */
 function wfFindFile( $title, $time = false ) {
@@ -2363,3 +2433,41 @@ function wfMaxlagError( $host, $lag, $maxLag ) {
                echo "Waiting for a database server: $lag seconds lagged\n";
        }
 }
+
+/**
+ * Throws an E_USER_NOTICE saying that $function is deprecated
+ * @param string $function
+ * @return null
+ */
+function wfDeprecated( $function ) {
+       trigger_error( "Use of $function is deprecated", E_USER_NOTICE );
+}
+
+/**
+ * Sleep until the worst slave's replication lag is less than or equal to
+ * $maxLag, in seconds.  Use this when updating very large numbers of rows, as
+ * in maintenance scripts, to avoid causing too much lag.  Of course, this is
+ * a no-op if there are no slaves.
+ *
+ * Every time the function has to wait for a slave, it will print a message to
+ * that effect (and then sleep for a little while), so it's probably not best
+ * to use this outside maintenance scripts in its present form.
+ *
+ * @param int $maxLag
+ * @return null
+ */
+function wfWaitForSlaves( $maxLag ) {
+       global $wgLoadBalancer;
+       if( $maxLag ) {
+               list( $host, $lag ) = $wgLoadBalancer->getMaxLag();
+               while( $lag > $maxLag ) {
+                       $name = @gethostbyaddr( $host );
+                       if( $name !== false ) {
+                               $host = $name;
+                       }
+                       print "Waiting for $host (lagged $lag seconds)...\n";
+                       sleep($maxLag);
+                       list( $host, $lag ) = $wgLoadBalancer->getMaxLag();
+               }
+       }
+}