BUG#93 Fix handling of <nowiki> in templates
[lhc/web/wiklou.git] / includes / GlobalFunctions.php
index 0548766..0688d4a 100644 (file)
@@ -1,23 +1,42 @@
 <?php
-# Global functions used everywhere
 # $Id$
 
+/**
+ * Global functions used everywhere
+ * @package MediaWiki
+ */
+
+/**
+ * Some globals and requires needed
+ */
+/**
+ * Total number of articles
+ * @global integer $wgNumberOfArticles
+ */
 $wgNumberOfArticles = -1; # Unset
+/**
+ * Total number of views
+ * @global integer $wgTotalViews
+ */
 $wgTotalViews = -1;
+/**
+ * Total number of edits
+ * @global integer $wgTotalEdits
+ */
 $wgTotalEdits = -1;
 
+
 require_once( 'DatabaseFunctions.php' );
 require_once( 'UpdateClasses.php' );
 require_once( 'LogPage.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.
-
+ * 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.
@@ -46,8 +65,29 @@ if( !function_exists('is_a') ) {
        }
 }
 
-# html_entity_decode exists in PHP 4.3.0+ but is FATALLY BROKEN even then,
-# with no UTF-8 support.
+# 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); 
+
+               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)); 
+               }
+       }
+}
+
+/**
+ * html_entity_decode exists in PHP 4.3.0+ but is FATALLY BROKEN even then,
+ * with no UTF-8 support.
+ *
+ * @param string $string String having html entities
+ * @param $quote_style
+ * @param string $charset Encoding set to use (default 'ISO-8859-1')
+ */
 function do_html_entity_decode( $string, $quote_style=ENT_COMPAT, $charset='ISO-8859-1' ) {
        static $trans;
        if( !isset( $trans ) ) {
@@ -62,12 +102,20 @@ function do_html_entity_decode( $string, $quote_style=ENT_COMPAT, $charset='ISO-
        return strtr( $string, $trans );
 }
 
+
+/**
+ * Where as we got a random seed
+ * @var bool $wgTotalViews
+ */
 $wgRandomSeeded = false;
 
-# Seed Mersenne Twister
-# Only necessary in PHP < 4.2.0
-function wfSeedRandom()
-{
+/**
+ * Seed Mersenne Twister
+ * Only necessary in PHP < 4.2.0
+ *
+ * @return bool
+ */
+function wfSeedRandom() {
        global $wgRandomSeeded;
 
        if ( ! $wgRandomSeeded && version_compare( phpversion(), '4.2.0' ) < 0 ) {
@@ -77,11 +125,14 @@ function wfSeedRandom()
        }
 }
 
-# Generates a URL from a URL-encoded title and a query string
-# Title::getLocalURL() is preferred in most cases
-#
-function wfLocalUrl( $a, $q = '' )
-{
+/**
+ * Generates a URL from a URL-encoded title and a query string
+ * Title::getLocalURL() is preferred in most cases
+ *
+ * @param string $a URL encoded title
+ * @param string $q URL (default '')
+ */
+function wfLocalUrl( $a, $q = '' ) {
        global $wgServer, $wgScript, $wgArticlePath;
 
        $a = str_replace( ' ', '_', $a );
@@ -90,61 +141,37 @@ function wfLocalUrl( $a, $q = '' )
                if( '' == $q ) {
                        $a = $wgScript;
                } else {
-                       $a = "{$wgScript}?{$q}";
-               }       
+                       $a = $wgScript.'?'.$q;
+               }
        } else if ( '' == $q ) {
-               $a = str_replace( "$1", $a, $wgArticlePath );
+               $a = str_replace( '$1', $a, $wgArticlePath );
        } else if ($wgScript != '' ) {
-               $a = "{$wgScript}?title={$a}&{$q}";     
+               $a = "{$wgScript}?title={$a}&{$q}";
        } else { //XXX hackish solution for toplevel wikis
-               $a = "/{$a}?{$q}";      
+               $a = "/{$a}?{$q}";
        }
        return $a;
 }
 
+/**
+ * @todo document
+ * @param string $a URL encoded title
+ * @param string $q URL (default '')
+ */
 function wfLocalUrlE( $a, $q = '' )
 {
-       return wfEscapeHTML( wfLocalUrl( $a, $q ) );
+       return htmlspecialchars( wfLocalUrl( $a, $q ) );
        # die( "Call to obsolete function wfLocalUrlE()" );
 }
 
-function wfFullUrl( $a, $q = '' ) {
-       wfDebugDieBacktrace( 'Call to obsolete function wfFullUrl(); use Title::getFullURL' );
-}
-
-function wfFullUrlE( $a, $q = '' ) {
-       wfDebugDieBacktrace( 'Call to obsolete function wfFullUrlE(); use Title::getFullUrlE' );
-
-}
-
-// orphan function wfThumbUrl( $img )
-//{
-//     global $wgUploadPath;
-//
-//     $nt = Title::newFromText( $img );
-//     if( !$nt ) return "";
-//
-//     $name = $nt->getDBkey();
-//     $hash = md5( $name );
-//
-//     $url = "{$wgUploadPath}/thumb/" . $hash{0} . "/" .
-//       substr( $hash, 0, 2 ) . "/{$name}";
-//     return wfUrlencode( $url );
-//}
-
-
-function wfImageArchiveUrl( $name )
-{
-       global $wgUploadPath;
-
-       $hash = md5( substr( $name, 15) );
-       $url = "{$wgUploadPath}/archive/" . $hash{0} . "/" .
-         substr( $hash, 0, 2 ) . "/{$name}";
-       return wfUrlencode($url);
-}
-
-function wfUrlencode ( $s )
-{
+/**
+ * We want / and : to be included as literal characters in our title URLs.
+ * %2F in the page titles seems to fatally break for some reason.
+ *
+ * @param string $s
+ * @return string
+*/
+function wfUrlencode ( $s ) {
        $s = urlencode( $s );
        $s = preg_replace( '/%3[Aa]/', ':', $s );
        $s = preg_replace( '/%2[Ff]/', '/', $s );
@@ -152,23 +179,36 @@ function wfUrlencode ( $s )
        return $s;
 }
 
-function wfUtf8Sequence($codepoint) {
+/**
+ * Return the UTF-8 sequence for a given Unicode code point.
+ * Currently doesn't work for values outside the Basic Multilingual Plane.
+ *
+ * @param string $codepoint UTF-8 code point.
+ * @return string HTML UTF-8 Entitie such as '&#1234;'.
+ */
+function wfUtf8Sequence( $codepoint ) {
        if($codepoint <         0x80) return chr($codepoint);
        if($codepoint <    0x800) return chr($codepoint >>      6 & 0x3f | 0xc0) .
                                                                         chr($codepoint           & 0x3f | 0x80);
        if($codepoint <  0x10000) return chr($codepoint >> 12 & 0x0f | 0xe0) .
                                                                         chr($codepoint >>      6 & 0x3f | 0x80) .
                                                                         chr($codepoint           & 0x3f | 0x80);
-       if($codepoint < 0x100000) return chr($codepoint >> 18 & 0x07 | 0xf0) . # Double-check this
+       if($codepoint < 0x110000) return chr($codepoint >> 18 & 0x07 | 0xf0) .
                                                                         chr($codepoint >> 12 & 0x3f | 0x80) .
                                                                         chr($codepoint >>      6 & 0x3f | 0x80) .
                                                                         chr($codepoint           & 0x3f | 0x80);
-       # Doesn't yet handle outside the BMP
+
+       # There should be no assigned code points outside this range, but...
        return "&#$codepoint;";
 }
 
-# Converts numeric character entities to UTF-8
-function wfMungeToUtf8($string) {
+/**
+ * Converts numeric character entities to UTF-8
+ *
+ * @param string $string String to convert.
+ * @return string Converted string.
+ */
+function wfMungeToUtf8( $string ) {
        global $wgInputEncoding; # This is debatable
        #$string = iconv($wgInputEncoding, "UTF-8", $string);
        $string = preg_replace ( '/&#([0-9]+);/e', 'wfUtf8Sequence($1)', $string );
@@ -177,7 +217,13 @@ function wfMungeToUtf8($string) {
        return $string;
 }
 
-# Converts a single UTF-8 character into the corresponding HTML character entity
+/**
+ * Converts a single UTF-8 character into the corresponding HTML character
+ * entity (for use with preg_replace_callback)
+ *
+ * @param array $matches
+ *
+ */
 function wfUtf8Entity( $matches ) {
        $char = $matches[0];
        # Find the length
@@ -191,7 +237,7 @@ function wfUtf8Entity( $matches ) {
        } else {
                $length = 1;
        }
-       
+
        if ( $length != strlen( $char ) ) {
                return '';
        }
@@ -213,44 +259,54 @@ function wfUtf8Entity( $matches ) {
        return "&#$z;";
 }
 
-# Converts all multi-byte characters in a UTF-8 string into the appropriate character entity
+/**
+ * Converts all multi-byte characters in a UTF-8 string into the appropriate
+ * character entity
+ */
 function wfUtf8ToHTML($string) {
        return preg_replace_callback( '/[\\xc0-\\xfd][\\x80-\\xbf]*/', 'wfUtf8Entity', $string );
 }
 
-function wfDebug( $text, $logonly = false )
-{
+/**
+ * @todo document
+ */
+function wfDebug( $text, $logonly = false ) {
        global $wgOut, $wgDebugLogFile, $wgDebugComments, $wgProfileOnly, $wgDebugRawPage;
 
        # Check for raw action using $_GET not $wgRequest, since the latter might not be initialised yet
        if ( isset( $_GET['action'] ) && $_GET['action'] == 'raw' && !$wgDebugRawPage ) {
                return;
        }
-       
+
        if ( isset( $wgOut ) && $wgDebugComments && !$logonly ) {
                $wgOut->debug( $text );
        }
-       if ( "" != $wgDebugLogFile && !$wgProfileOnly ) {
+       if ( '' != $wgDebugLogFile && !$wgProfileOnly ) {
                error_log( $text, 3, $wgDebugLogFile );
        }
 }
 
-# Log for database errors
+/**
+ * Log for database errors
+ * @param string $text Database error message.
+ */
 function wfLogDBError( $text ) {
        global $wgDBerrorLog;
        if ( $wgDBerrorLog ) {
-               $text = date("D M j G:i:s T Y") . "\t$text";
+               $text = date('D M j G:i:s T Y') . "\t".$text;
                error_log( $text, 3, $wgDBerrorLog );
        }
 }
 
-function logProfilingData()
-{
+/**
+ * @todo document
+ */
+function logProfilingData() {
        global $wgRequestTime, $wgDebugLogFile, $wgDebugRawPage, $wgRequest;
        global $wgProfiling, $wgProfileStack, $wgProfileLimit, $wgUser;
        $now = wfTime();
 
-       list( $usec, $sec ) = explode( " ", $wgRequestTime );
+       list( $usec, $sec ) = explode( ' ', $wgRequestTime );
        $start = (float)$sec + (float)$usec;
        $elapsed = $now - $start;
        if ( $wgProfiling ) {
@@ -275,19 +331,38 @@ function logProfilingData()
        }
 }
 
-
-function wfReadOnly()
-{
+/**
+ * Check if the wiki read-only lock file is present. This can be used to lock
+ * off editing functions, but doesn't guarantee that the database will not be
+ * modified.
+ * @return bool
+ */
+function wfReadOnly() {
        global $wgReadOnlyFile;
 
-       if ( "" == $wgReadOnlyFile ) { return false; }
+       if ( '' == $wgReadOnlyFile ) {
+               return false;
+       }
        return is_file( $wgReadOnlyFile );
 }
 
-$wgReplacementKeys = array( "$1", "$2", "$3", "$4", "$5", "$6", "$7", "$8", "$9" );
+/**
+ * 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
+ */
 function wfMsg( $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 );
@@ -295,7 +370,27 @@ function wfMsg( $key ) {
        return wfMsgReal( $key, $args, true );
 }
 
-# Get a message from the language file
+/**
+ * Get a message from anywhere, but don't call Language::convert
+ */
+function wfMsgNoConvert( $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, false );
+}
+
+/**
+ * Get a message from the language file
+ */
 function wfMsgNoDB( $key ) {
        $args = func_get_args();
        if ( count( $args ) ) {
@@ -304,8 +399,21 @@ function wfMsgNoDB( $key ) {
        return wfMsgReal( $key, $args, false );
 }
 
-# Really get a message
-function wfMsgReal( $key, $args, $useDB ) {
+/**
+ * Get a message from the language file, but don't call Language::convert
+ */
+function wfMsgNoDBNoConvert( $key ) {
+       $args = func_get_args();
+       if ( count( $args ) ) {
+               array_shift( $args );
+       }
+       return wfMsgReal( $key, $args, false, false );
+}
+
+/**
+ * Really get a message
+ */
+function wfMsgReal( $key, $args, $useDB, $convert=true ) {
        global $wgReplacementKeys, $wgMessageCache, $wgLang;
 
        $fname = 'wfMsg';
@@ -319,6 +427,10 @@ function wfMsgReal( $key, $args, $useDB ) {
                $message = "&lt;$key&gt;";
        }
 
+       if ( $convert ) {
+               $message = $wgLang->convert($message);
+       }
+
        # Replace arguments
        if( count( $args ) ) {
                $message = str_replace( $wgReplacementKeys, $args, $message );
@@ -327,46 +439,12 @@ function wfMsgReal( $key, $args, $useDB ) {
        return $message;
 }
 
-function wfCleanFormFields( $fields )
-{
-       wfDebugDieBacktrace( 'Call to obsolete wfCleanFormFields(). Use wgRequest instead...' );
-}
 
-function wfMungeQuotes( $in )
-{
-       $out = str_replace( '%', '%25', $in );
-       $out = str_replace( "'", '%27', $out );
-       $out = str_replace( '"', '%22', $out );
-       return $out;
-}
 
-function wfDemungeQuotes( $in )
-{
-       $out = str_replace( '%22', '"', $in );
-       $out = str_replace( '%27', "'", $out );
-       $out = str_replace( '%25', '%', $out );
-       return $out;
-}
-
-function wfCleanQueryVar( $var )
-{
-       wfDebugDieBacktrace( 'Call to obsolete function wfCleanQueryVar(); use wgRequest instead' );
-}
-
-function wfSearch( $s )
-{
-       $se = new SearchEngine( $s );
-       $se->showResults();
-}
-
-function wfGo( $s )
-{ # pick the nearest match
-       $se = new SearchEngine( $s );
-       $se->goResult();
-}
-
-# Just like exit() but makes a note of it.
-# Commits open transactions except if the error parameter is set
+/**
+ * Just like exit() but makes a note of it.
+ * Commits open transactions except if the error parameter is set
+ */
 function wfAbruptExit( $error = false ){
        global $wgLoadBalancer;
        static $called = false;
@@ -382,7 +460,7 @@ function wfAbruptExit( $error = false ){
                        $line = $bt[$i]['line'];
                        wfDebug("WARNING: Abrupt exit in $file at line $line\n");
                }
-       } else { 
+       } else {
                wfDebug('WARNING: Abrupt exit\n');
        }
        if ( !$error ) {
@@ -391,10 +469,20 @@ function wfAbruptExit( $error = false ){
        exit();
 }
 
+/**
+ * @todo document
+ */
 function wfErrorExit() {
        wfAbruptExit( true );
 }
 
+/**
+ * Die with a backtrace
+ * This is meant as a debugging aid to track down where bad data comes from.
+ * Shouldn't be used in production code except maybe in "shouldn't happen" areas.
+ *
+ * @param string $msg Message shown when dieing.
+ */
 function wfDebugDieBacktrace( $msg = '' ) {
        global $wgCommandLineMode;
 
@@ -411,11 +499,11 @@ function wfDebugDieBacktrace( $msg = '' ) {
                        if ( $wgCommandLineMode ) {
                                $msg .= "$file line {$call['line']} calls ";
                        } else {
-                               $msg .= '<li>' . $file . " line " . $call['line'] . ' calls ';
+                               $msg .= '<li>' . $file . ' line ' . $call['line'] . ' calls ';
                        }
                        if( !empty( $call['class'] ) ) $msg .= $call['class'] . '::';
-                       $msg .= $call['function'] . "()";
-                       
+                       $msg .= $call['function'] . '()';
+
                        if ( $wgCommandLineMode ) {
                                $msg .= "\n";
                        } else {
@@ -426,231 +514,30 @@ function wfDebugDieBacktrace( $msg = '' ) {
         die( $msg );
 }
 
-function wfNumberOfArticles()
-{
-       global $wgNumberOfArticles;
-
-       wfLoadSiteStats();
-       return $wgNumberOfArticles;
-}
-
-/* private */ function wfLoadSiteStats()
-{
-       global $wgNumberOfArticles, $wgTotalViews, $wgTotalEdits;
-       $fname = 'wfLoadSiteStats';
-
-       if ( -1 != $wgNumberOfArticles ) return;
-       $dbr =& wfGetDB( DB_SLAVE );
-       $s = $dbr->getArray( 'site_stats', 
-               array( 'ss_total_views', 'ss_total_edits', 'ss_good_articles' ),
-               array( 'ss_row_id' => 1 ), $fname
-       );
-
-       if ( $s === false ) { 
-               return; 
-       } else {
-               $wgTotalViews = $s->ss_total_views;
-               $wgTotalEdits = $s->ss_total_edits;
-               $wgNumberOfArticles = $s->ss_good_articles;
-       }
-}
-
-function wfEscapeHTML( $in )
-{
-       return str_replace(
-               array( '&', '"', '>', '<' ),
-               array( '&amp;', '&quot;', '&gt;', '&lt;' ),
-               $in );
-}
-
-function wfEscapeHTMLTagsOnly( $in ) {
-       return str_replace(
-               array( '"', '>', '<' ),
-               array( '&quot;', '&gt;', '&lt;' ),
-               $in );
-}
-
-function wfUnescapeHTML( $in )
-{
-       $in = str_replace( '&lt;', '<', $in );
-       $in = str_replace( '&gt;', '>', $in );
-       $in = str_replace( '&quot;', '"', $in );
-       $in = str_replace( '&amp;', '&', $in );
-       return $in;
-}
-
-function wfImageDir( $fname )
-{
-       global $wgUploadDirectory;
-
-       $hash = md5( $fname );
-       $oldumask = umask(0);
-       $dest = $wgUploadDirectory . '/' . $hash{0};
-       if ( ! is_dir( $dest ) ) { mkdir( $dest, 0777 ); }
-       $dest .= '/' . substr( $hash, 0, 2 );
-       if ( ! is_dir( $dest ) ) { mkdir( $dest, 0777 ); }
-       
-       umask( $oldumask );
-       return $dest;
-}
-
-function wfImageThumbDir( $fname , $subdir='thumb')
-{
-       return wfImageArchiveDir( $fname, $subdir );
-}
-
-function wfImageArchiveDir( $fname , $subdir='archive')
-{
-       global $wgUploadDirectory;
-
-       $hash = md5( $fname );
-       $oldumask = umask(0);
-       
-       # Suppress warning messages here; if the file itself can't
-       # be written we'll worry about it then.
-       $archive = "{$wgUploadDirectory}/{$subdir}";
-       if ( ! is_dir( $archive ) ) { @mkdir( $archive, 0777 ); }
-       $archive .= '/' . $hash{0};
-       if ( ! is_dir( $archive ) ) { @mkdir( $archive, 0777 ); }
-       $archive .= '/' . substr( $hash, 0, 2 );
-       if ( ! is_dir( $archive ) ) { @mkdir( $archive, 0777 ); }
-
-       umask( $oldumask );
-       return $archive;
-}
-
-function wfRecordUpload( $name, $oldver, $size, $desc, $copyStatus = "", $source = "" )
-{
-       global $wgUser, $wgLang, $wgTitle, $wgOut, $wgDeferredUpdateList;
-       global $wgUseCopyrightUpload; 
-       
-       $fname = 'wfRecordUpload';
-       $dbw =& wfGetDB( DB_MASTER );
-       
-       # img_name must be unique
-       if ( !$dbw->indexUnique( 'image', 'img_name' ) ) {
-               wfDebugDieBacktrace( 'Database schema not up to date, please run maintenance/archives/patch-image_name_unique.sql' );
-       }
-                       
-
-       $now = wfTimestampNow();
-       $won = wfInvertTimestamp( $now );
-       $size = IntVal( $size );
-       
-       if ( $wgUseCopyrightUpload )
-         {
-               $textdesc = '== ' . wfMsg ( 'filedesc' ) . " ==\n" . $desc . "\n" .
-                 '== ' . wfMsg ( 'filestatus' ) . " ==\n" . $copyStatus . "\n" .
-                 '== ' . wfMsg ( 'filesource' ) . " ==\n" . $source ;
-         }
-       else $textdesc = $desc ;
-
-       $now = wfTimestampNow();
-       $won = wfInvertTimestamp( $now );
-
-       # Test to see if the row exists using INSERT IGNORE
-       # This avoids race conditions by locking the row until the commit, and also 
-       # doesn't deadlock. SELECT FOR UPDATE causes a deadlock for every race condition.
-       $dbw->insert( 'image', 
-               array(
-                       'img_name' => $name,
-                       'img_size'=> $size,
-                       'img_timestamp' => $now,
-                       'img_description' => $desc,
-                       'img_user' => $wgUser->getID(),
-                       'img_user_text' => $wgUser->getName(),
-               ), $fname, 'IGNORE'
-       );
-       $descTitle = Title::makeTitle( NS_IMAGE, $name );
-
-       if ( $dbw->affectedRows() ) {
-               # Successfully inserted, this is a new image
-               $id = $descTitle->getArticleID();
-               
-               if ( $id == 0 ) {
-                       $seqVal = $dbw->nextSequenceValue( 'cur_cur_id_seq' );
-                       $dbw->insertArray( 'cur', 
-                               array( 
-                                       'cur_id' => $seqVal,
-                                       'cur_namespace' => NS_IMAGE,
-                                       'cur_title' => $name,
-                                       'cur_comment' => $desc,
-                                       'cur_user' => $wgUser->getID(),
-                                       'cur_user_text' => $wgUser->getName(),
-                                       'cur_timestamp' => $now,
-                                       'cur_is_new' => 1,
-                                       'cur_text' => $textdesc,
-                                       'inverse_timestamp' => $won,
-                                       'cur_touched' => $now
-                               ), $fname
-                       );
-                       $id = $dbw->insertId() or 0; # We should throw an error instead
-                       
-                       RecentChange::notifyNew( $now, $descTitle, 0, $wgUser, $desc );
-                       
-                       $u = new SearchUpdate( $id, $name, $desc );
-                       $u->doUpdate();
-               }
-       } else {
-               # Collision, this is an update of an image
-               # Get current image row for update
-               $s = $dbw->getArray( 'image', array( 'img_name','img_size','img_timestamp','img_description',
-                 'img_user','img_user_text' ), array( 'img_name' => $name ), $fname, 'FOR UPDATE' );
-
-               # Insert it into oldimage
-               $dbw->insertArray( 'oldimage',
-                       array(
-                               'oi_name' => $s->img_name,
-                               'oi_archive_name' => $oldver,
-                               'oi_size' => $s->img_size,
-                               'oi_timestamp' => $s->img_timestamp,
-                               'oi_description' => $s->img_description,
-                               'oi_user' => $s->img_user,
-                               'oi_user_text' => $s->img_user_text
-                       ), $fname
-               );
-               
-               # Update the current image row
-               $dbw->updateArray( 'image', 
-                       array( /* SET */
-                               'img_size' => $size,
-                               'img_timestamp' => wfTimestampNow(),
-                               'img_user' => $wgUser->getID(),
-                               'img_user_text' => $wgUser->getName(),
-                               'img_description' => $desc,
-                       ), array( /* WHERE */
-                               'img_name' => $name
-                       ), $fname
-               );
-               
-               # Invalidate the cache for the description page
-               $descTitle->invalidateCache();
-       }
-
-       $log = new LogPage( wfMsg( 'uploadlogpage' ), wfMsg( 'uploadlogpagetext' ) );
-       $da = wfMsg( 'uploadedimage', '[[:' . $wgLang->getNsText(
-         Namespace::getImage() ) . ":{$name}|{$name}]]" );
-       $ta = wfMsg( 'uploadedimage', $name );
-       $log->addEntry( $da, $desc, $ta );
-}
-
 
 /* Some generic result counters, pulled out of SearchEngine */
 
-function wfShowingResults( $offset, $limit )
-{
+
+/**
+ * @todo document
+ */
+function wfShowingResults( $offset, $limit ) {
        global $wgLang;
        return wfMsg( 'showingresults', $wgLang->formatNum( $limit ), $wgLang->formatNum( $offset+1 ) );
 }
 
-function wfShowingResultsNum( $offset, $limit, $num )
-{
+/**
+ * @todo document
+ */
+function wfShowingResultsNum( $offset, $limit, $num ) {
        global $wgLang;
        return wfMsg( 'showingresultsnum', $wgLang->formatNum( $limit ), $wgLang->formatNum( $offset+1 ), $wgLang->formatNum( $num ) );
 }
 
-function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false )
-{
+/**
+ * @todo document
+ */
+function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false ) {
        global $wgUser, $wgLang;
        $fmtLimit = $wgLang->formatNum( $limit );
        $prev = wfMsg( 'prevn', $fmtLimit );
@@ -662,13 +549,13 @@ function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false )
                $po = $offset - $limit;
                if ( $po < 0 ) { $po = 0; }
                $q = "limit={$limit}&offset={$po}";
-               if ( '' != $query ) { $q .= "&{$query}"; }
+               if ( '' != $query ) { $q .= '&'.$query; }
                $plink = '<a href="' . wfLocalUrlE( $link, $q ) . "\">{$prev}</a>";
        } else { $plink = $prev; }
 
        $no = $offset + $limit;
-       $q = "limit={$limit}&offset={$no}";
-       if ( "" != $query ) { $q .= "&{$query}"; }
+       $q = 'limit='.$limit.'&offset='.$no;
+       if ( '' != $query ) { $q .= '&'.$query; }
 
        if ( $atend ) {
                $nlink = $next;
@@ -684,18 +571,26 @@ function wfViewPrevNext( $offset, $limit, $link, $query = '', $atend = false )
        return wfMsg( 'viewprevnext', $plink, $nlink, $nums );
 }
 
-function wfNumLink( $offset, $limit, $link, $query = '' )
-{
+/**
+ * @todo document
+ */
+function wfNumLink( $offset, $limit, $link, $query = '' ) {
        global $wgUser, $wgLang;
        if ( '' == $query ) { $q = ''; }
-       else { $q = "{$query}&"; }
-       $q .= "limit={$limit}&offset={$offset}";
+       else { $q = $query.'&'; }
+       $q .= 'limit='.$limit.'&offset='.$offset;
 
        $fmtLimit = $wgLang->formatNum( $limit );
        $s = '<a href="' . wfLocalUrlE( $link, $q ) . "\">{$fmtLimit}</a>";
        return $s;
 }
 
+/**
+ * @todo document
+ * @todo FIXME: we may want to blacklist some broken browsers
+ *
+ * @return bool Whereas client accept gzip compression
+ */
 function wfClientAcceptsGzip() {
        global $wgUseGzip;
        if( $wgUseGzip ) {
@@ -712,41 +607,36 @@ function wfClientAcceptsGzip() {
        return false;
 }
 
-# Yay, more global functions!
+/**
+ * Yay, more global functions!
+ */
 function wfCheckLimits( $deflimit = 50, $optionname = 'rclimit' ) {
-       global $wgUser, $wgRequest;
-       
-       $limit = $wgRequest->getInt( 'limit', 0 );
-       if( $limit < 0 ) $limit = 0;
-       if( ( $limit == 0 ) && ( $optionname != '' ) ) {
-               $limit = (int)$wgUser->getOption( $optionname );
-       }
-       if( $limit <= 0 ) $limit = $deflimit;
-       if( $limit > 5000 ) $limit = 5000; # We have *some* limits...
-       
-       $offset = $wgRequest->getInt( 'offset', 0 );
-       if( $offset < 0 ) $offset = 0;
-
-       return array( $limit, $offset );
-}
-
-# Escapes the given text so that it may be output using addWikiText() 
-# without any linking, formatting, etc. making its way through. This 
-# is achieved by substituting certain characters with HTML entities.
-# As required by the callers, <nowiki> is not used. It currently does
-# not filter out characters which have special meaning only at the
-# start of a line, such as "*".
-function wfEscapeWikiText( $text )
-{
+       global $wgRequest;
+       return $wgRequest->getLimitOffset( $deflimit, $optionname );
+}
+
+/**
+ * Escapes the given text so that it may be output using addWikiText()
+ * without any linking, formatting, etc. making its way through. This
+ * is achieved by substituting certain characters with HTML entities.
+ * As required by the callers, <nowiki> is not used. It currently does
+ * not filter out characters which have special meaning only at the
+ * start of a line, such as "*".
+ *
+ * @param string $text Text to be escaped
+ */
+function wfEscapeWikiText( $text ) {
        $text = str_replace( 
-               array( '[',             '|',      "'",     'ISBN '        , '://'         , "\n=" ),
-               array( '&#91;', '&#124;', '&#39;', 'ISBN&#32;', '&#58;//' , "\n&#61;" ),
+               array( '[',             '|',      "'",     'ISBN '        , '://'         , "\n=", '{{' ),
+               array( '&#91;', '&#124;', '&#39;', 'ISBN&#32;', '&#58;//' , "\n&#61;", '&#123;&#123;' ),
                htmlspecialchars($text) );
        return $text;
 }
 
-function wfQuotedPrintable( $string, $charset = '' ) 
-{
+/**
+ * @todo document
+ */
+function wfQuotedPrintable( $string, $charset = '' ) {
        # Probably incomplete; see RFC 2045
        if( empty( $charset ) ) {
                global $wgInputEncoding;
@@ -764,22 +654,29 @@ function wfQuotedPrintable( $string, $charset = '' )
        return $out;
 }
 
-function wfTime(){
+/**
+ * @todo document
+ * @return float
+ */
+function wfTime() {
        $st = explode( ' ', microtime() );
        return (float)$st[0] + (float)$st[1];
 }
 
-# Changes the first character to an HTML entity
+/**
+ * Changes the first character to an HTML entity
+ */
 function wfHtmlEscapeFirst( $text ) {
        $ord = ord($text);
        $newText = substr($text, 1);
        return "&#$ord;$newText";
 }
 
-# Sets dest to source and returns the original value of dest
-# If source is NULL, it just returns the value, it doesn't set the variable
-function wfSetVar( &$dest, $source )
-{
+/**
+ * Sets dest to source and returns the original value of dest
+ * If source is NULL, it just returns the value, it doesn't set the variable
+ */
+function wfSetVar( &$dest, $source ) {
        $temp = $dest;
        if ( !is_null( $source ) ) {
                $dest = $source;
@@ -787,7 +684,9 @@ function wfSetVar( &$dest, $source )
        return $temp;
 }
 
-# As for wfSetVar except setting a bit
+/**
+ * As for wfSetVar except setting a bit
+ */
 function wfSetBit( &$dest, $bit, $state = true ) {
        $temp = (bool)($dest & $bit );
        if ( !is_null( $state ) ) {
@@ -800,10 +699,12 @@ function wfSetBit( &$dest, $bit, $state = true ) {
        return $temp;
 }
 
-# This function takes two arrays as input, and returns a CGI-style string, e.g.
-# "days=7&limit=100". Options in the first array override options in the second.
-# Options set to "" will not be output.
-function wfArrayToCGI( $array1, $array2 = NULL ) 
+/**
+ * This function takes two arrays as input, and returns a CGI-style string, e.g.
+ * "days=7&limit=100". Options in the first array override options in the second.
+ * Options set to "" will not be output.
+ */
+function wfArrayToCGI( $array1, $array2 = NULL )
 {
        if ( !is_null( $array2 ) ) {
                $array1 = $array1 + $array2;
@@ -815,30 +716,36 @@ function wfArrayToCGI( $array1, $array2 = NULL )
                        if ( '' != $cgi ) {
                                $cgi .= '&';
                        }
-                       $cgi .= "{$key}={$value}";
+                       $cgi .= $key.'='.$value;
                }
        }
        return $cgi;
 }
 
-# This is obsolete, use SquidUpdate::purge()
+/**
+ * This is obsolete, use SquidUpdate::purge()
+ * @deprecated
+ */
 function wfPurgeSquidServers ($urlArr) {
        SquidUpdate::purge( $urlArr );
 }
 
-# Windows-compatible version of escapeshellarg()
-function wfEscapeShellArg( )
-{
+/**
+ * Windows-compatible version of escapeshellarg()
+ * Windows doesn't recognise single-quotes in the shell, but the escapeshellarg() 
+ * function puts single quotes in regardless of OS
+ */
+function wfEscapeShellArg( ) {
        $args = func_get_args();
        $first = true;
        $retVal = '';
        foreach ( $args as $arg ) {
-               if ( !$first ) { 
+               if ( !$first ) {
                        $retVal .= ' ';
                } else {
                        $first = false;
                }
-
+       
                if ( wfIsWindows() ) {
                        $retVal .= '"' . str_replace( '"','\"', $arg ) . '"';
                } else {
@@ -848,15 +755,16 @@ function wfEscapeShellArg( )
        return $retVal;
 }
 
-# wfMerge attempts to merge differences between three texts. 
-# Returns true for a clean merge and false for failure or a conflict.
-
+/**
+ * wfMerge attempts to merge differences between three texts.
+ * Returns true for a clean merge and false for failure or a conflict.
+ */
 function wfMerge( $old, $mine, $yours, &$result ){
        global $wgDiff3;
 
-       # This check may also protect against code injection in 
+       # This check may also protect against code injection in
        # case of broken installations.
-       if(! file_exists( $wgDiff3 ) ){ 
+       if(! file_exists( $wgDiff3 ) ){
                return false;
        }
 
@@ -865,9 +773,9 @@ function wfMerge( $old, $mine, $yours, &$result ){
        $oldtextFile = fopen( $oldtextName = tempnam( $td, 'merge-old-' ), 'w' );
        $mytextFile = fopen( $mytextName = tempnam( $td, 'merge-mine-' ), 'w' );
        $yourtextFile = fopen( $yourtextName = tempnam( $td, 'merge-your-' ), 'w' );
-                       
-       fwrite( $oldtextFile, $old ); fclose( $oldtextFile ); 
-       fwrite( $mytextFile, $mine ); fclose( $mytextFile ); 
+
+       fwrite( $oldtextFile, $old ); fclose( $oldtextFile );
+       fwrite( $mytextFile, $mine ); fclose( $mytextFile );
        fwrite( $yourtextFile, $yours ); fclose( $yourtextFile );
 
        # Check for a conflict
@@ -885,7 +793,7 @@ function wfMerge( $old, $mine, $yours, &$result ){
        pclose( $handle );
 
        # Merge differences
-       $cmd = wfEscapeShellArg( $wgDiff3 ) . ' -a -e --merge ' . 
+       $cmd = wfEscapeShellArg( $wgDiff3 ) . ' -a -e --merge ' .
          wfEscapeShellArg( $mytextName, $oldtextName, $yourtextName );
        $handle = popen( $cmd, 'r' );
        $result = '';
@@ -901,8 +809,10 @@ function wfMerge( $old, $mine, $yours, &$result ){
        return ! $conflict;
 }
 
-function wfVarDump( $var )
-{
+/**
+ * @todo document
+ */
+function wfVarDump( $var ) {
        global $wgOut;
        $s = str_replace("\n","<br>\n", var_export( $var, true ) . "\n");
        if ( headers_sent() || !@is_object( $wgOut ) ) {
@@ -912,14 +822,16 @@ function wfVarDump( $var )
        }
 }
 
-# Provide a simple HTTP error.
+/**
+ * Provide a simple HTTP error.
+ */
 function wfHttpError( $code, $label, $desc ) {
        global $wgOut;
        $wgOut->disable();
        header( "HTTP/1.0 $code $label" );
        header( "Status: $code $label" );
        $wgOut->sendCacheControl();
-       
+
        # Don't send content if it's a HEAD request.
        if( $_SERVER['REQUEST_METHOD'] == 'HEAD' ) {
                header( 'Content-type: text/plain' );
@@ -927,17 +839,20 @@ function wfHttpError( $code, $label, $desc ) {
        }
 }
 
-# Converts an Accept-* header into an array mapping string values to quality factors
+/**
+ * Converts an Accept-* header into an array mapping string values to quality
+ * factors
+ */
 function wfAcceptToPrefs( $accept, $def = '*/*' ) {
        # No arg means accept anything (per HTTP spec)
        if( !$accept ) {
                return array( $def => 1 );
        }
-       
+
        $prefs = array();
-       
+
        $parts = explode( ',', $accept );
-       
+
        foreach( $parts as $part ) {
                # FIXME: doesn't deal with params like 'text/html; level=1'
                @list( $value, $qpart ) = explode( ';', $part );
@@ -947,11 +862,15 @@ function wfAcceptToPrefs( $accept, $def = '*/*' ) {
                        $prefs[$value] = $match[1];
                }
        }
-       
+
        return $prefs;
 }
 
-/* private */ function mimeTypeMatch( $type, $avail ) {
+/**
+ * @todo document
+ * @private
+ */
+function mimeTypeMatch( $type, $avail ) {
        if( array_key_exists($type, $avail) ) {
                return $type;
        } else {
@@ -966,11 +885,13 @@ function wfAcceptToPrefs( $accept, $def = '*/*' ) {
        }
 }
 
-# FIXME: doesn't handle params like 'text/plain; charset=UTF-8'
-# XXX: generalize to negotiate other stuff
+/**
+ * @todo FIXME: doesn't handle params like 'text/plain; charset=UTF-8'
+ * XXX: generalize to negotiate other stuff
+ */
 function wfNegotiateType( $cprefs, $sprefs ) {
        $combine = array();
-       
+
        foreach( array_keys($sprefs) as $type ) {
                $parts = explode( '/', $type );
                if( $parts[1] != '*' ) {
@@ -980,7 +901,7 @@ function wfNegotiateType( $cprefs, $sprefs ) {
                        }
                }
        }
-       
+
        foreach( array_keys( $cprefs ) as $type ) {
                $parts = explode( '/', $type );
                if( $parts[1] != '*' && !array_key_exists( $type, $sprefs ) ) {
@@ -990,40 +911,36 @@ function wfNegotiateType( $cprefs, $sprefs ) {
                        }
                }
        }
-       
+
        $bestq = 0;
        $besttype = NULL;
-       
+
        foreach( array_keys( $combine ) as $type ) {
                if( $combine[$type] > $bestq ) {
                        $besttype = $type;
                        $bestq = $combine[$type];
                }
        }
-       
-       return $besttype;
-}
 
-# Array lookup
-# Returns an array where the values in the first array are replaced by the 
-# values in the second array with the corresponding keys
-function wfArrayLookup( $a, $b )
-{
-       return array_flip( array_intersect( array_flip( $a ), array_keys( $b ) ) ); 
+       return $besttype;
 }
 
-# Since Windows is so different to any of the other popular OSes, it seems appropriate
-# to have a simple way to test for its presence
-function wfIsWindows() {
-       if (substr(php_uname(), 0, 7) == 'Windows') {
-               return true;
-       } else {
-               return false;
-       }
+/**
+ * Array lookup
+ * Returns an array where the values in the first array are replaced by the
+ * values in the second array with the corresponding keys
+ * 
+ * @return array
+ */
+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
+/**
+ * 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 ),
@@ -1031,25 +948,35 @@ function wfTimestamp2Unix( $ts ) {
                  (int)substr( $ts, 0, 4 ) );
 }
 
+/**
+ * @todo document
+ */
 function wfUnix2Timestamp( $unixtime ) {
-       return gmdate( "YmdHis", $unixtime );
+       return gmdate( 'YmdHis', $unixtime );
 }
 
+/**
+ * @todo document
+ */
 function wfTimestampNow() {
        # return NOW
-       return gmdate( "YmdHis" );
+       return gmdate( 'YmdHis' );
 }
 
-# Sorting hack for MySQL 3, which doesn't use index sorts for DESC
+/**
+ * Sorting hack for MySQL 3, which doesn't use index sorts for DESC
+ */
 function wfInvertTimestamp( $ts ) {
        return strtr(
                $ts,
-               "0123456789",
-               "9876543210"
+               '0123456789',
+               '9876543210'
        );
 }
 
-# Reference-counted warning suppression
+/**
+ * Reference-counted warning suppression
+ */
 function wfSuppressWarnings( $end = false ) {
        static $suppressCount = 0;
        static $originalLevel = false;
@@ -1069,16 +996,25 @@ function wfSuppressWarnings( $end = false ) {
        }
 }
 
-# Restore error level to previous value
+/**
+ * Restore error level to previous value
+ */
 function wfRestoreWarnings() {
        wfSuppressWarnings( true );
 }
 
 # Autodetect, convert and provide timestamps of various types
-define("TS_UNIX",0);   # Standard unix timestamp (number of seconds since 1 Jan 1970)
-define("TS_MW",1);     # Mediawiki concatenated string timestamp (yyyymmddhhmmss)
-define("TS_DB",2);     # Standard database timestamp (yyyy-mm-dd hh:mm:ss)
 
+/** Standard unix timestamp (number of seconds since 1 Jan 1970) */
+define('TS_UNIX',0);
+/** MediaWiki concatenated string timestamp (yyyymmddhhmmss) */
+define('TS_MW',1);     
+/** Standard database timestamp (yyyy-mm-dd hh:mm:ss) */
+define('TS_DB',2);
+
+/**
+ * @todo document
+ */
 function wfTimestamp($outputtype=TS_UNIX,$ts=0) {
        if (preg_match("/^(\d{4})\-(\d\d)\-(\d\d) (\d\d):(\d\d):(\d\d)$/",$ts,$da)) {
                # TS_DB
@@ -1100,14 +1036,28 @@ function wfTimestamp($outputtype=TS_UNIX,$ts=0) {
                return $uts;
                break;
        case TS_MW:
-               return gmdate( "YmdHis", $uts );
+               return gmdate( 'YmdHis', $uts );
                break;
        case TS_DB:
-               return gmdate( "Y-m-d H:i:s", $uts );
+               return gmdate( 'Y-m-d H:i:s', $uts );
                break;
        default:
                return;
-       }       
+       }
 }
 
+/**
+ * Check where as the operating system is Windows
+ *
+ * @todo document
+ * @return bool True if it's windows, False otherwise.
+ */
+function wfIsWindows() {   
+       if (substr(php_uname(), 0, 7) == 'Windows') {   
+               return true;   
+       } else {   
+               return false;   
+       }   
+} 
+
 ?>