Capitalization fix in memcached setting
[lhc/web/wiklou.git] / includes / GlobalFunctions.php
index 45a71d0..3da1c53 100644 (file)
@@ -3,6 +3,7 @@
 
 /**
  * Global functions used everywhere
+ * @package MediaWiki
  */
 
 /**
@@ -25,16 +26,18 @@ $wgTotalViews = -1;
  */
 $wgTotalEdits = -1;
 
+
 require_once( 'DatabaseFunctions.php' );
 require_once( 'UpdateClasses.php' );
 require_once( 'LogPage.php' );
+require_once( 'normal/UtfNormalUtil.php' );
 
 /**
  * Compatibility functions
  * PHP <4.3.x is not actively supported; 4.1.x and 4.2.x might or might not work.
  * <4.1.x will not work, as we use a number of features introduced in 4.1.0
  * such as the new autoglobals.
-*/
+ */
 if( !function_exists('iconv') ) {
        # iconv support is not in the default configuration and so may not be present.
        # Assume will only ever use utf-8 and iso-8859-1.
@@ -65,15 +68,14 @@ if( !function_exists('is_a') ) {
 
 # UTF-8 substr function based on a PHP manual comment
 if ( !function_exists( 'mb_substr' ) ) {
-       function mb_substr($str,$start) 
-       { 
-               preg_match_all("/./us", $str, $ar); 
+       function mb_substr( $str, $start ) { 
+               preg_match_all( '/./us', $str, $ar );
 
-               if(func_num_args() >= 3) { 
-                       $end = func_get_arg(2); 
-                       return join("",array_slice($ar[0],$start,$end)); 
+               if( func_num_args() >= 3 ) {
+                       $end = func_get_arg( 2 ); 
+                       return join( '', array_slice( $ar[0], $start, $end ) ); 
                } else { 
-                       return join("",array_slice($ar[0],$start)); 
+                       return join( '', array_slice( $ar[0], $start ) ); 
                }
        }
 }
@@ -88,8 +90,10 @@ if ( !function_exists( 'mb_substr' ) ) {
  */
 function do_html_entity_decode( $string, $quote_style=ENT_COMPAT, $charset='ISO-8859-1' ) {
        static $trans;
-       if( !isset( $trans ) ) {
+       static $savedCharset;
+       if( !isset( $trans ) || $savedCharset != $charset ) {
                $trans = array_flip( get_html_translation_table( HTML_ENTITIES, $quote_style ) );
+               $savedCharset = $charset;
                # Assumes $charset will always be the same through a run, and only understands
                # utf-8 or default. Note - mixing latin1 named entities and unicode numbered
                # ones will result in a bad link.
@@ -124,42 +128,19 @@ function wfSeedRandom() {
 }
 
 /**
- * Generates a URL from a URL-encoded title and a query string
- * Title::getLocalURL() is preferred in most cases
+ * Get a random decimal value between 0 and 1, in a way
+ * not likely to give duplicate values for any realistic
+ * number of articles.
  *
- * @param string $a URL encoded title
- * @param string $q URL (default '')
- */
-function wfLocalUrl( $a, $q = '' ) {
-       global $wgServer, $wgScript, $wgArticlePath;
-
-       $a = str_replace( ' ', '_', $a );
-
-       if ( '' == $a ) {
-               if( '' == $q ) {
-                       $a = $wgScript;
-               } else {
-                       $a = $wgScript.'?'.$q;
-               }
-       } else if ( '' == $q ) {
-               $a = str_replace( '$1', $a, $wgArticlePath );
-       } else if ($wgScript != '' ) {
-               $a = "{$wgScript}?title={$a}&{$q}";
-       } else { //XXX hackish solution for toplevel wikis
-               $a = "/{$a}?{$q}";
-       }
-       return $a;
-}
-
-/**
- * @todo document
- * @param string $a URL encoded title
- * @param string $q URL (default '')
+ * @return string
  */
-function wfLocalUrlE( $a, $q = '' )
-{
-       return htmlspecialchars( wfLocalUrl( $a, $q ) );
-       # die( "Call to obsolete function wfLocalUrlE()" );
+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();
+       $rand = number_format( mt_rand() * mt_rand()
+               / $max / $max, 12, '.', '' );
+       return $rand;
 }
 
 /**
@@ -223,38 +204,8 @@ function wfMungeToUtf8( $string ) {
  *
  */
 function wfUtf8Entity( $matches ) {
-       $char = $matches[0];
-       # Find the length
-       $z = ord( $char{0} );
-       if ( $z & 0x80 ) {
-               $length = 0;
-               while ( $z & 0x80 ) {
-                       $length++;
-                       $z <<= 1;
-               }
-       } else {
-               $length = 1;
-       }
-
-       if ( $length != strlen( $char ) ) {
-               return '';
-       }
-       if ( $length == 1 ) {
-               return $char;
-       }
-
-       # Mask off the length-determining bits and shift back to the original location
-       $z &= 0xff;
-       $z >>= $length;
-
-       # Add in the free bits from subsequent bytes
-       for ( $i=1; $i<$length; $i++ ) {
-               $z <<= 6;
-               $z |= ord( $char{$i} ) & 0x3f;
-       }
-
-       # Make entity
-       return "&#$z;";
+       $codepoint = utf8ToCodepoint( $matches[0] );
+       return "&#$codepoint;";
 }
 
 /**
@@ -266,7 +217,17 @@ function wfUtf8ToHTML($string) {
 }
 
 /**
- * @todo document
+ * Sends a line to the debug log if enabled or, optionally, to a comment in output.
+ * In normal operation this is a NOP.
+ *
+ * Controlling globals:
+ * $wgDebugLogFile - points to the log file
+ * $wgProfileOnly - if set, normal debug messages will not be recorded.
+ * $wgDebugRawPage - if false, 'action=raw' hits will not result in debug output.
+ * $wgDebugComments - if on, some debug items may appear in comments in the HTML output.
+ *
+ * @param string $text
+ * @param bool $logonly Set true to avoid appearing in HTML when $wgDebugComments is set
  */
 function wfDebug( $text, $logonly = false ) {
        global $wgOut, $wgDebugLogFile, $wgDebugComments, $wgProfileOnly, $wgDebugRawPage;
@@ -344,17 +305,13 @@ function wfReadOnly() {
        return is_file( $wgReadOnlyFile );
 }
 
-/**
- * Keys strings for replacement
- * @global array $wgReplacementKeys
- */
-$wgReplacementKeys = array( '$1', '$2', '$3', '$4', '$5', '$6', '$7', '$8', '$9' );
 
 /**
- * Get a message from anywhere
+ * Get a message from anywhere, for the UI elements
  */
 function wfMsg( $key ) {
        global $wgRequest;
+
        if ( $wgRequest->getVal( 'debugmsg' ) ) {
                if ( $key == 'linktrail' /* a special case where we want to return something specific */ )
                        return "/^()(.*)$/sD";
@@ -369,7 +326,27 @@ function wfMsg( $key ) {
 }
 
 /**
- * Get a message from the language file
+ * Get a message from anywhere, for the content
+ */
+function wfMsgForContent( $key ) {
+       global $wgRequest;
+       if ( $wgRequest->getVal( 'debugmsg' ) ) {
+               if ( $key == 'linktrail' /* a special case where we want to return something specific */ )
+                       return "/^()(.*)$/sD";
+               else
+                       return $key;
+       }
+       $args = func_get_args();
+       if ( count( $args ) ) {
+               array_shift( $args );
+       }
+       return wfMsgReal( $key, $args, true, true );
+    
+
+}
+
+/**
+ * Get a message from the language file, for the UI elements
  */
 function wfMsgNoDB( $key ) {
        $args = func_get_args();
@@ -380,17 +357,59 @@ function wfMsgNoDB( $key ) {
 }
 
 /**
- * Really get a message
+ * Get a message from the language file, for the content
  */
-function wfMsgReal( $key, $args, $useDB ) {
-       global $wgReplacementKeys, $wgMessageCache, $wgLang;
+function wfMsgNoDBForContent( $key ) {
+
+       $args = func_get_args();
+       if ( count( $args ) ) {
+               array_shift( $args );
+       }
+       return wfMsgReal( $key, $args, false, true );
+}
 
+
+/**
+ * Really get a message
+ */
+function wfMsgReal( $key, $args, $useDB, $forContent=false ) {
+       static $replacementKeys = array( '$1', '$2', '$3', '$4', '$5', '$6', '$7', '$8', '$9' );
+       global $wgParser, $wgMsgParserOptions;
+       global $wgContLang, $wgLanguageCode;
+       
        $fname = 'wfMsg';
        wfProfileIn( $fname );
-       if ( $wgMessageCache ) {
-               $message = $wgMessageCache->get( $key, $useDB );
-       } elseif ( $wgLang ) {
-               $message = $wgLang->getMessage( $key );
+       
+       if($forContent) {
+        global $wgMessageCache;
+        $cache = &$wgMessageCache;
+        $lang = &$wgContLang;
+    }
+    else {
+               if(in_array($wgLanguageCode, $wgContLang->getVariants())){
+                       global $wgLang, $wgMessageCache;
+                       $cache = &$wgMessageCache;
+                       $lang = $wgLang;
+               }
+        else {
+                       global $wgLang;
+               $cache = false;
+               $lang = &$wgLang;
+               }
+    }
+
+
+       if ( is_object($cache) ) {
+               $message = $cache->get( $key, $useDB, $forContent );
+       } elseif (is_object($lang)) {
+               wfSuppressWarnings();
+               $message = $lang->getMessage( $key );
+               wfRestoreWarnings();
+               if(!$message)
+                       $message = Language::getMessage($key);
+               if(strstr($message, '{{' ) !== false) {
+                       $message = $wgParser->transformMsg($message, $wgMsgParserOptions);
+               }
        } else {
                wfDebug( "No language object when getting $key\n" );
                $message = "&lt;$key&gt;";
@@ -398,12 +417,14 @@ function wfMsgReal( $key, $args, $useDB ) {
 
        # Replace arguments
        if( count( $args ) ) {
-               $message = str_replace( $wgReplacementKeys, $args, $message );
+               $message = str_replace( $replacementKeys, $args, $message );
        }
        wfProfileOut( $fname );
        return $message;
 }
 
+
+
 /**
  * Just like exit() but makes a note of it.
  * Commits open transactions except if the error parameter is set
@@ -505,15 +526,23 @@ function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false ) {
        $fmtLimit = $wgLang->formatNum( $limit );
        $prev = wfMsg( 'prevn', $fmtLimit );
        $next = wfMsg( 'nextn', $fmtLimit );
-       $link = wfUrlencode( $link );
-
+       
+       if( is_object( $link ) ) {
+               $title =& $link;
+       } else {
+               $title =& Title::newFromText( $link );
+               if( is_null( $title ) ) {
+                       return false;
+               }
+       }
+       
        $sk = $wgUser->getSkin();
        if ( 0 != $offset ) {
                $po = $offset - $limit;
                if ( $po < 0 ) { $po = 0; }
                $q = "limit={$limit}&offset={$po}";
                if ( '' != $query ) { $q .= '&'.$query; }
-               $plink = '<a href="' . wfLocalUrlE( $link, $q ) . "\">{$prev}</a>";
+               $plink = '<a href="' . $title->escapeLocalUrl( $q ) . "\">{$prev}</a>";
        } else { $plink = $prev; }
 
        $no = $offset + $limit;
@@ -523,13 +552,13 @@ function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false ) {
        if ( $atend ) {
                $nlink = $next;
        } else {
-               $nlink = '<a href="' . wfLocalUrlE( $link, $q ) . "\">{$next}</a>";
+               $nlink = '<a href="' . $title->escapeLocalUrl( $q ) . "\">{$next}</a>";
        }
-       $nums = wfNumLink( $offset, 20, $link , $query ) . ' | ' .
-         wfNumLink( $offset, 50, $link, $query ) . ' | ' .
-         wfNumLink( $offset, 100, $link, $query ) . ' | ' .
-         wfNumLink( $offset, 250, $link, $query ) . ' | ' .
-         wfNumLink( $offset, 500, $link, $query );
+       $nums = wfNumLink( $offset, 20, $title, $query ) . ' | ' .
+         wfNumLink( $offset, 50, $title, $query ) . ' | ' .
+         wfNumLink( $offset, 100, $title, $query ) . ' | ' .
+         wfNumLink( $offset, 250, $title, $query ) . ' | ' .
+         wfNumLink( $offset, 500, $title, $query );
 
        return wfMsg( 'viewprevnext', $plink, $nlink, $nums );
 }
@@ -537,14 +566,14 @@ function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false ) {
 /**
  * @todo document
  */
-function wfNumLink( $offset, $limit, $link, $query = '' ) {
+function wfNumLink( $offset, $limit, &$title, $query = '' ) {
        global $wgUser, $wgLang;
        if ( '' == $query ) { $q = ''; }
        else { $q = $query.'&'; }
        $q .= 'limit='.$limit.'&offset='.$offset;
 
        $fmtLimit = $wgLang->formatNum( $limit );
-       $s = '<a href="' . wfLocalUrlE( $link, $q ) . "\">{$fmtLimit}</a>";
+       $s = '<a href="' . $title->escapeLocalUrl( $q ) . "\">{$fmtLimit}</a>";
        return $s;
 }
 
@@ -679,7 +708,7 @@ function wfArrayToCGI( $array1, $array2 = NULL )
                        if ( '' != $cgi ) {
                                $cgi .= '&';
                        }
-                       $cgi .= $key.'='.$value;
+                       $cgi .= urlencode( $key ) . '=' . urlencode( $value );
                }
        }
        return $cgi;
@@ -830,8 +859,16 @@ function wfAcceptToPrefs( $accept, $def = '*/*' ) {
 }
 
 /**
- * @todo document
- * @private
+ * Checks if a given MIME type matches any of the keys in the given
+ * array. Basic wildcards are accepted in the array keys.
+ *
+ * Returns the matching MIME type (or wildcard) if a match, otherwise
+ * NULL if no match.
+ *
+ * @param string $type
+ * @param array $avail
+ * @return string
+ * @access private
  */
 function mimeTypeMatch( $type, $avail ) {
        if( array_key_exists($type, $avail) ) {
@@ -849,6 +886,15 @@ function mimeTypeMatch( $type, $avail ) {
 }
 
 /**
+ * Returns the 'best' match between a client's requested internet media types
+ * and the server's list of available types. Each list should be an associative
+ * array of type to preference (preference is a float between 0.0 and 1.0).
+ * Wildcards in the types are acceptable.
+ *
+ * @param array $cprefs Client's acceptable type list
+ * @param array $sprefs Server's offered types
+ * @return string
+ *
  * @todo FIXME: doesn't handle params like 'text/plain; charset=UTF-8'
  * XXX: generalize to negotiate other stuff
  */
@@ -899,31 +945,13 @@ function wfArrayLookup( $a, $b ) {
        return array_flip( array_intersect( array_flip( $a ), array_keys( $b ) ) );
 }
 
-
-/**
- * Ideally we'd be using actual time fields in the db
- * @todo fixme
- */
-function wfTimestamp2Unix( $ts ) {
-       return gmmktime( ( (int)substr( $ts, 8, 2) ),
-                 (int)substr( $ts, 10, 2 ), (int)substr( $ts, 12, 2 ),
-                 (int)substr( $ts, 4, 2 ), (int)substr( $ts, 6, 2 ),
-                 (int)substr( $ts, 0, 4 ) );
-}
-
 /**
- * @todo document
- */
-function wfUnix2Timestamp( $unixtime ) {
-       return gmdate( 'YmdHis', $unixtime );
-}
-
-/**
- * @todo document
+ * Convenience function; returns MediaWiki timestamp for the present time.
+ * @return string
  */
 function wfTimestampNow() {
        # return NOW
-       return gmdate( 'YmdHis' );
+       return wfTimestamp( TS_MW, time() );
 }
 
 /**
@@ -970,7 +998,7 @@ function wfRestoreWarnings() {
 
 /** Standard unix timestamp (number of seconds since 1 Jan 1970) */
 define('TS_UNIX',0);
-/** Mediawiki concatenated string timestamp (yyyymmddhhmmss) */
+/** MediaWiki concatenated string timestamp (yyyymmddhhmmss) */
 define('TS_MW',1);     
 /** Standard database timestamp (yyyy-mm-dd hh:mm:ss) */
 define('TS_DB',2);