* Replace wfMungeToUtf8 and do_html_entity_decode with a single function
[lhc/web/wiklou.git] / includes / GlobalFunctions.php
index 08b9162..af86f71 100644 (file)
@@ -1,22 +1,42 @@
 <?php
-# Global functions used everywhere
 
+/**
+ * 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' );
+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.
  */
-
-# 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.
@@ -45,103 +65,66 @@ 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.
-function do_html_entity_decode( $string, $quote_style=ENT_COMPAT, $charset='ISO-8859-1' ) {
-       static $trans;
-       if( !isset( $trans ) ) {
-               $trans = array_flip( get_html_translation_table( HTML_ENTITIES, $quote_style ) );
-               # 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.
-               if( strcasecmp( 'utf-8', $charset ) == 0 ) {
-                       $trans = array_map( 'utf8_encode', $trans );
+# 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 ) ); 
                }
        }
-       return strtr( $string, $trans );
 }
 
+/**
+ * Where as we got a random seed
+ * @var bool $wgTotalViews
+ */
 $wgRandomSeeded = false;
 
-function wfSeedRandom()
-{
+/**
+ * Seed Mersenne Twister
+ * Only necessary in PHP < 4.2.0
+ *
+ * @return bool
+ */
+function wfSeedRandom() {
        global $wgRandomSeeded;
 
-       if ( ! $wgRandomSeeded ) {
+       if ( ! $wgRandomSeeded && version_compare( phpversion(), '4.2.0' ) < 0 ) {
                $seed = hexdec(substr(md5(microtime()),-8)) & 0x7fffffff;
                mt_srand( $seed );
                $wgRandomSeeded = true;
        }
 }
 
-# Generates a URL from a URL-encoded title and a query string
-# Title::getLocalURL() is preferred in most cases
-#
-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;
-}
-
-function wfLocalUrlE( $a, $q = '' )
-{
-       return wfEscapeHTML( 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);
+/**
+ * Get a random decimal value between 0 and 1, in a way
+ * not likely to give duplicate values for any realistic
+ * number of articles.
+ *
+ * @return string
+ */
+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() * $max + mt_rand())
+               / $max / $max, 12, '.', '' );
+       return $rand;
 }
 
-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 );
@@ -149,91 +132,59 @@ function wfUrlencode ( $s )
        return $s;
 }
 
-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
-                                                                        chr($codepoint >> 12 & 0x3f | 0x80) .
-                                                                        chr($codepoint >>      6 & 0x3f | 0x80) .
-                                                                        chr($codepoint           & 0x3f | 0x80);
-       # Doesn't yet handle outside the BMP
-       return "&#$codepoint;";
-}
-
-# Converts numeric character entities to UTF-8
-function wfMungeToUtf8($string) {
-       global $wgInputEncoding; # This is debatable
-       #$string = iconv($wgInputEncoding, "UTF-8", $string);
-       $string = preg_replace ( '/&#([0-9]+);/e', 'wfUtf8Sequence($1)', $string );
-       $string = preg_replace ( '/&#x([0-9a-f]+);/ie', 'wfUtf8Sequence(0x$1)', $string );
-       # Should also do named entities here
-       return $string;
-}
-
-# Converts a single UTF-8 character into the corresponding HTML character entity
-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;
+/**
+ * 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;
 
-       # Add in the free bits from subsequent bytes
-       for ( $i=1; $i<$length; $i++ ) {
-               $z <<= 6;
-               $z |= ord( $char{$i} ) & 0x3f;
+       # 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;
        }
 
-       # Make entity
-       return "&#$z;";
-}
-
-# 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 )
-{
-       global $wgOut, $wgDebugLogFile, $wgDebugComments, $wgProfileOnly;
-
        if ( isset( $wgOut ) && $wgDebugComments && !$logonly ) {
                $wgOut->debug( $text );
        }
-       if ( "" != $wgDebugLogFile && !$wgProfileOnly ) {
-               error_log( $text, 3, $wgDebugLogFile );
+       if ( '' != $wgDebugLogFile && !$wgProfileOnly ) {
+               # Strip unprintables; they can switch terminal modes when binary data
+               # gets dumped, which is pretty annoying.
+               $text = preg_replace( '![\x00-\x08\x0b\x0c\x0e-\x1f]!', ' ', $text );
+               @error_log( $text, 3, $wgDebugLogFile );
        }
 }
 
-function logProfilingData()
-{
-       global $wgRequestTime, $wgDebugLogFile;
+/**
+ * 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;
+               error_log( $text, 3, $wgDBerrorLog );
+       }
+}
+
+/**
+ * @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 ) {
@@ -247,109 +198,138 @@ function logProfilingData()
                        $forward .= ' from ' . $_SERVER['HTTP_FROM'];
                if( $forward )
                        $forward = "\t(proxied via {$_SERVER['REMOTE_ADDR']}{$forward})";
-               if($wgUser->getId() == 0)
+               if( $wgUser->isAnon() )
                        $forward .= ' anon';
                $log = sprintf( "%s\t%04.3f\t%s\n",
                  gmdate( 'YmdHis' ), $elapsed,
                  urldecode( $_SERVER['REQUEST_URI'] . $forward ) );
-               if ( '' != $wgDebugLogFile ) {
+               if ( '' != $wgDebugLogFile && ( $wgRequest->getVal('action') != 'raw' || $wgDebugRawPage ) ) {
                        error_log( $log . $prof, 3, $wgDebugLogFile );
                }
        }
 }
 
-
-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" );
 
-# Get a message from anywhere
+/**
+ * Get a message from anywhere, for the current user language
+ *
+ * @param string 
+ */
 function wfMsg( $key ) {
        $args = func_get_args();
-       if ( count( $args ) ) {
-               array_shift( $args );
-       }
+       array_shift( $args );
        return wfMsgReal( $key, $args, true );
 }
 
-# Get a message from the language file
+/**
+ * Get a message from anywhere, for the current global language
+ */
+function wfMsgForContent( $key ) {
+       global $wgForceUIMsgAsContentMsg;
+       $args = func_get_args();
+       array_shift( $args );
+       $forcontent = true;
+       if( is_array( $wgForceUIMsgAsContentMsg ) &&
+               in_array( $key, $wgForceUIMsgAsContentMsg ) )
+               $forcontent = false;
+       return wfMsgReal( $key, $args, true, $forcontent );
+}
+
+/**
+ * Get a message from the language file, for the UI elements
+ */
 function wfMsgNoDB( $key ) {
        $args = func_get_args();
-       if ( count( $args ) ) {
-               array_shift( $args );
-       }
+       array_shift( $args );
        return wfMsgReal( $key, $args, false );
 }
 
-# Really get a message
-function wfMsgReal( $key, $args, $useDB ) {
-       global $wgReplacementKeys, $wgMessageCache, $wgLang;
+/**
+ * Get a message from the language file, for the content
+ */
+function wfMsgNoDBForContent( $key ) {
+       global $wgForceUIMsgAsContentMsg;
+       $args = func_get_args();
+       array_shift( $args );
+       $forcontent = true;
+       if( is_array( $wgForceUIMsgAsContentMsg ) &&
+               in_array( $key, $wgForceUIMsgAsContentMsg ) )
+               $forcontent = false;
+       return wfMsgReal( $key, $args, false, $forcontent );
+}
+
 
-       $fname = 'wfMsg';
+/**
+ * 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;
+       global $wgMessageCache, $wgLang;
+       
+       $fname = 'wfMsgReal';
        wfProfileIn( $fname );
-       if ( $wgMessageCache ) {
-               $message = $wgMessageCache->get( $key, $useDB );
-       } elseif ( $wgLang ) {
-               $message = $wgLang->getMessage( $key );
+
+       if( is_object( $wgMessageCache ) ) {
+               $message = $wgMessageCache->get( $key, $useDB, $forContent );
        } else {
-               wfDebug( "No language object when getting $key\n" );
-               $message = "&lt;$key&gt;";
+               if( $forContent ) {
+                       $lang = &$wgContLang;
+               } else {
+                       $lang = &$wgLang;
+               }
+
+               wfSuppressWarnings();
+               
+               if( is_object( $lang ) ) {
+                       $message = $lang->getMessage( $key );
+               } else {
+                       $message = '';
+               }
+               wfRestoreWarnings();
+               if(!$message)
+                       $message = Language::getMessage($key);
+               if(strstr($message, '{{' ) !== false) {
+                       $message = $wgParser->transformMsg($message, $wgMsgParserOptions);
+               }
        }
+       
+       # Fix windows line-endings
+       # Some messages are split with explode("\n", $msg)
+       $message = str_replace( "\r", '', $message );
 
        # Replace arguments
        if( count( $args ) ) {
-               $message = str_replace( $wgReplacementKeys, $args, $message );
+               $message = str_replace( $replacementKeys, $args, $message );
        }
        wfProfileOut( $fname );
        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.
-function wfAbruptExit(){
+/**
+ * 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;
        if ( $called ){
                exit();
@@ -363,272 +343,175 @@ function wfAbruptExit(){
                        $line = $bt[$i]['line'];
                        wfDebug("WARNING: Abrupt exit in $file at line $line\n");
                }
-       } else { 
+       } else {
                wfDebug('WARNING: Abrupt exit\n');
        }
+       if ( !$error ) {
+               $wgLoadBalancer->closeAll();
+       }
        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 = '' ) {
-       if ( function_exists( 'debug_backtrace' ) ) {
-               $msg .= "\n<p>Backtrace:</p>\n<ul>\n";
-               $backtrace = debug_backtrace();
-               foreach( $backtrace as $call ) {
-                       $f = explode( DIRECTORY_SEPARATOR, $call['file'] );
-                       $file = $f[count($f)-1];
-                       $msg .= '<li>' . $file . " line " . $call['line'] . ', in ';
-                       if( !empty( $call['class'] ) ) $msg .= $call['class'] . '::';
-                       $msg .= $call['function'] . "()</li>\n";
+       global $wgCommandLineMode;
+
+       $backtrace = wfBacktrace();
+       if ( $backtrace !== false ) {
+               if ( $wgCommandLineMode ) {
+                       $msg .= "\nBacktrace:\n$backtrace";
+               } else {
+                       $msg .= "\n<p>Backtrace:</p>\n$backtrace";
                }
         }
         die( $msg );
 }
 
-function wfNumberOfArticles()
-{
-       global $wgNumberOfArticles;
-
-       wfLoadSiteStats();
-       return $wgNumberOfArticles;
-}
-
-/* private */ function wfLoadSiteStats()
-{
-       global $wgNumberOfArticles, $wgTotalViews, $wgTotalEdits;
-       if ( -1 != $wgNumberOfArticles ) return;
-
-       $sql = 'SELECT ss_total_views, ss_total_edits, ss_good_articles ' .
-         'FROM site_stats WHERE ss_row_id=1';
-       $res = wfQuery( $sql, DB_READ, 'wfLoadSiteStats' );
-
-       if ( 0 == wfNumRows( $res ) ) { return; }
-       else {
-               $s = wfFetchObject( $res );
-               $wgTotalViews = $s->ss_total_views;
-               $wgTotalEdits = $s->ss_total_edits;
-               $wgNumberOfArticles = $s->ss_good_articles;
+function wfBacktrace() {
+       global $wgCommandLineMode;
+       if ( !function_exists( 'debug_backtrace' ) ) {
+               return false;
        }
-}
-
-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';
-
-       $sql = 'SELECT img_name,img_size,img_timestamp,img_description,img_user,' .
-         "img_user_text FROM image WHERE img_name='" . wfStrencode( $name ) . "'";
-       $res = wfQuery( $sql, DB_READ, $fname );
+       if ( $wgCommandLineMode ) {
+               $msg = '';
+       } else {
+               $msg = "<ul>\n";
+       }
+       $backtrace = debug_backtrace();
+       foreach( $backtrace as $call ) {
+               if( isset( $call['file'] ) ) {
+                       $f = explode( DIRECTORY_SEPARATOR, $call['file'] );
+                       $file = $f[count($f)-1];
+               } else {
+                       $file = '-';
+               }
+               if( isset( $call['line'] ) ) {
+                       $line = $call['line'];
+               } else {
+                       $line = '-';
+               }
+               if ( $wgCommandLineMode ) {
+                       $msg .= "$file line $line calls ";
+               } else {
+                       $msg .= '<li>' . $file . ' line ' . $line . ' calls ';
+               }
+               if( !empty( $call['class'] ) ) $msg .= $call['class'] . '::';
+               $msg .= $call['function'] . '()';
 
-       $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 );
-       
-       if ( 0 == wfNumRows( $res ) ) {
-               $sql = 'INSERT INTO image (img_name,img_size,img_timestamp,' .
-                 "img_description,img_user,img_user_text) VALUES ('" .
-                 wfStrencode( $name ) . "',$size,'{$now}','" .
-                 wfStrencode( $desc ) . "', '" . $wgUser->getID() .
-                 "', '" . wfStrencode( $wgUser->getName() ) . "')";
-               wfQuery( $sql, DB_WRITE, $fname );
-
-               $sql = 'SELECT cur_id,cur_text FROM cur WHERE cur_namespace=' .
-                 Namespace::getImage() . " AND cur_title='" .
-                 wfStrencode( $name ) . "'";
-               $res = wfQuery( $sql, DB_READ, $fname );
-               if ( 0 == wfNumRows( $res ) ) {
-                       $common =
-                         Namespace::getImage() . ",'" .
-                         wfStrencode( $name ) . "','" .
-                         wfStrencode( $desc ) . "','" . $wgUser->getID() . "','" .
-                         wfStrencode( $wgUser->getName() ) . "','" . $now .
-                         "',1";
-                       $sql = 'INSERT INTO cur (cur_namespace,cur_title,' .
-                         'cur_comment,cur_user,cur_user_text,cur_timestamp,cur_is_new,' .
-                         'cur_text,inverse_timestamp,cur_touched) VALUES (' .
-                         $common .
-                         ",'" . wfStrencode( $textdesc ) . "','{$won}','{$now}')";
-                       wfQuery( $sql, DB_WRITE, $fname );
-                       $id = wfInsertId() or 0; # We should throw an error instead
-                       
-                       $titleObj = Title::makeTitle( NS_IMAGE, $name );
-                       RecentChange::notifyNew( $now, $titleObj, 0, $wgUser, $desc );
-                       
-                       $u = new SearchUpdate( $id, $name, $desc );
-                       $u->doUpdate();
+               if ( $wgCommandLineMode ) {
+                       $msg .= "\n";
+               } else {
+                       $msg .= "</li>\n";
                }
+       }
+       if ( $wgCommandLineMode ) {
+               $msg .= "\n";
        } else {
-               $s = wfFetchObject( $res );
-
-               $sql = 'INSERT INTO oldimage (oi_name,oi_archive_name,oi_size,' .
-                 "oi_timestamp,oi_description,oi_user,oi_user_text) VALUES ('" .
-                 wfStrencode( $s->img_name ) . "','" .
-                 wfStrencode( $oldver ) .
-                 "',{$s->img_size},'{$s->img_timestamp}','" .
-                 wfStrencode( $s->img_description ) . "','" .
-                 wfStrencode( $s->img_user ) . "','" .
-                 wfStrencode( $s->img_user_text) . "')";
-               wfQuery( $sql, DB_WRITE, $fname );
-
-               $sql = "UPDATE image SET img_size={$size}," .
-                 "img_timestamp='" . wfTimestampNow() . "',img_user='" .
-                 $wgUser->getID() . "',img_user_text='" .
-                 wfStrencode( $wgUser->getName() ) . "', img_description='" .
-                 wfStrencode( $desc ) . "' WHERE img_name='" .
-                 wfStrencode( $name ) . "'";
-               wfQuery( $sql, DB_WRITE, $fname );
-               
-               $sql = "UPDATE cur SET cur_touched='{$now}' WHERE cur_namespace=" .
-                 Namespace::getImage() . " AND cur_title='" .
-                 wfStrencode( $name ) . "'";
-               wfQuery( $sql, DB_WRITE, $fname );
+               $msg .= "</ul>\n";
        }
 
-       $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 );
+       return $msg;
 }
 
 
 /* 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 );
        $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>";
+               if ( '' != $query ) { $q .= '&'.$query; }
+               $plink = '<a href="' . $title->escapeLocalUrl( $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;
        } 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 );
 }
 
-function wfNumLink( $offset, $limit, $link, $query = '' )
-{
+/**
+ * @todo document
+ */
+function wfNumLink( $offset, $limit, &$title, $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>";
+       $s = '<a href="' . $title->escapeLocalUrl( $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 ) {
@@ -637,7 +520,7 @@ function wfClientAcceptsGzip() {
                        '/\bgzip(?:;(q)=([0-9]+(?:\.[0-9]+)))?\b/',
                        $_SERVER['HTTP_ACCEPT_ENCODING'],
                        $m ) ) {
-                       if( ( $m[1] == 'q' ) && ( $m[2] == 0 ) ) return false;
+                       if( isset( $m[2] ) && ( $m[1] == 'q' ) && ( $m[2] == 0 ) ) return false;
                        wfDebug( " accepts gzip\n" );
                        return true;
                }
@@ -645,42 +528,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;
-       if( $offset > 65000 ) $offset = 65000; # do we need a max? what?
-       
-       return array( $limit, $offset );
+       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 "*".
-function wfEscapeWikiText( $text )
-{
+/**
+ * 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;
@@ -698,37 +575,81 @@ function wfQuotedPrintable( $string, $charset = '' )
        return $out;
 }
 
-function wfTime(){
+/**
+ * Returns an escaped string suitable for inclusion in a string literal
+ * for JavaScript source code.
+ * Illegal control characters are assumed not to be present.
+ *
+ * @param string $string
+ * @return string
+ */
+function wfEscapeJsString( $string ) {
+       // See ECMA 262 section 7.8.4 for string literal format
+       $pairs = array(
+               "\\" => "\\\\",
+               "\"" => "\\\"",
+               "\'" => "\\\'",
+               "\n" => "\\n",
+               "\r" => "\\r",
+               
+               # To avoid closing the element or CDATA section
+               "<" => "\\x3c",
+               ">" => "\\x3e",
+       );
+       return strtr( $string, $pairs );
+}
+
+/**
+ * @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
-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;
-       $dest = $source;
+       if ( !is_null( $source ) ) {
+               $dest = $source;
+       }
        return $temp;
 }
 
-# Sets dest to a reference to source and returns the original dest
-# Pity that doesn't work in PHP
-function &wfSetRef( &$dest, &$source )
-{
-       die( "You can't rebind a variable in the caller's scope" );
+/**
+ * As for wfSetVar except setting a bit
+ */
+function wfSetBit( &$dest, $bit, $state = true ) {
+       $temp = (bool)($dest & $bit );
+       if ( !is_null( $state ) ) {
+               if ( $state ) {
+                       $dest |= $bit;
+               } else {
+                       $dest &= ~$bit;
+               }
+       }
+       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;
@@ -740,30 +661,36 @@ function wfArrayToCGI( $array1, $array2 = NULL )
                        if ( '' != $cgi ) {
                                $cgi .= '&';
                        }
-                       $cgi .= "{$key}={$value}";
+                       $cgi .= urlencode( $key ) . '=' . urlencode( $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 {
@@ -773,26 +700,27 @@ 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;
        }
 
        # Make temporary files
-       $td = '/tmp/';
+       $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' );
-                       
-       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
@@ -802,7 +730,7 @@ function wfMerge( $old, $mine, $yours, &$result ){
          wfEscapeShellArg( $yourtextName );
        $handle = popen( $cmd, 'r' );
 
-       if( fgets( $handle ) ){
+       if( fgets( $handle, 1024 ) ){
                $conflict = true;
        } else {
                $conflict = false;
@@ -810,7 +738,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 = '';
@@ -826,10 +754,12 @@ 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");
+       $s = str_replace("\n","<br />\n", var_export( $var, true ) . "\n");
        if ( headers_sent() || !@is_object( $wgOut ) ) {
                print $s;
        } else {
@@ -837,32 +767,40 @@ 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' );
-               print "$desc\n";
-       }
+
+       header( 'Content-type: text/html' );
+       print "<html><head><title>" .
+               htmlspecialchars( $label ) . 
+               "</title></head><body><h1>" . 
+               htmlspecialchars( $label ) .
+               "</h1><p>" .
+               htmlspecialchars( $desc ) .
+               "</p></body></html>\n";
 }
 
-# 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 );
@@ -872,11 +810,23 @@ function wfAcceptToPrefs( $accept, $def = '*/*' ) {
                        $prefs[$value] = $match[1];
                }
        }
-       
+
        return $prefs;
 }
 
-/* private */ function mimeTypeMatch( $type, $avail ) {
+/**
+ * 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) ) {
                return $type;
        } else {
@@ -891,11 +841,22 @@ function wfAcceptToPrefs( $accept, $def = '*/*' ) {
        }
 }
 
-# FIXME: doesn't handle params like 'text/plain; charset=UTF-8'
-# XXX: generalize to negotiate other stuff
+/**
+ * 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
+ */
 function wfNegotiateType( $cprefs, $sprefs ) {
        $combine = array();
-       
+
        foreach( array_keys($sprefs) as $type ) {
                $parts = explode( '/', $type );
                if( $parts[1] != '*' ) {
@@ -905,7 +866,7 @@ function wfNegotiateType( $cprefs, $sprefs ) {
                        }
                }
        }
-       
+
        foreach( array_keys( $cprefs ) as $type ) {
                $parts = explode( '/', $type );
                if( $parts[1] != '*' && !array_key_exists( $type, $sprefs ) ) {
@@ -915,36 +876,325 @@ 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 ) ) ); 
+/**
+ * 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 ) ) );
+}
+
+/**
+ * Convenience function; returns MediaWiki timestamp for the present time.
+ * @return string
+ */
+function wfTimestampNow() {
+       # return NOW
+       return wfTimestamp( TS_MW, time() );
 }
 
-# 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;
+/**
+ * Reference-counted warning suppression
+ */
+function wfSuppressWarnings( $end = false ) {
+       static $suppressCount = 0;
+       static $originalLevel = false;
+
+       if ( $end ) {
+               if ( $suppressCount ) {
+                       $suppressCount --;
+                       if ( !$suppressCount ) {
+                               error_reporting( $originalLevel );
+                       }
+               }
        } else {
-               return false;
+               if ( !$suppressCount ) {
+                       $originalLevel = error_reporting( E_ALL & ~( E_WARNING | E_NOTICE ) );
+               }
+               $suppressCount++;
+       }
+}
+
+/**
+ * Restore error level to previous value
+ */
+function wfRestoreWarnings() {
+       wfSuppressWarnings( true );
+}
+
+# Autodetect, convert and provide timestamps of various types
+
+/** 
+ * Unix time - the number of seconds since 1970-01-01 00:00:00 UTC
+ */
+define('TS_UNIX', 0);
+
+/**
+ * MediaWiki concatenated string timestamp (YYYYMMDDHHMMSS)
+ */
+define('TS_MW', 1);
+
+/**
+ * MySQL DATETIME (YYYY-MM-DD HH:MM:SS)
+ */
+define('TS_DB', 2);
+
+/**
+ * RFC 2822 format, for E-mail and HTTP headers
+ */
+define('TS_RFC2822', 3);
+
+/**
+ * An Exif timestamp (YYYY:MM:DD HH:MM:SS)
+ *
+ * @link http://exif.org/Exif2-2.PDF The Exif 2.2 spec, see page 28 for the
+ *       DateTime tag and page 36 for the DateTimeOriginal and
+ *       DateTimeDigitized tags.
+ */
+define('TS_EXIF', 4);
+
+
+/**
+ * @param mixed $outputtype A timestamp in one of the supported formats, the
+ *                          function will autodetect which format is supplied
+                            and act accordingly.
+ * @return string Time in the format specified in $outputtype
+ */
+function wfTimestamp($outputtype=TS_UNIX,$ts=0) {
+       if ($ts==0) { 
+               $uts=time(); 
+       } elseif (preg_match("/^(\d{4})\-(\d\d)\-(\d\d) (\d\d):(\d\d):(\d\d)$/",$ts,$da)) {
+               # TS_DB
+               $uts=gmmktime((int)$da[4],(int)$da[5],(int)$da[6],
+                           (int)$da[2],(int)$da[3],(int)$da[1]);
+       } elseif (preg_match("/^(\d{4}):(\d\d):(\d\d) (\d\d):(\d\d):(\d\d)$/",$ts,$da)) {
+               # TS_EXIF
+               $uts=gmmktime((int)$da[4],(int)$da[5],(int)$da[6],
+                       (int)$da[2],(int)$da[3],(int)$da[1]);
+       } elseif (preg_match("/^(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/",$ts,$da)) {
+               # TS_MW
+               $uts=gmmktime((int)$da[4],(int)$da[5],(int)$da[6],
+                           (int)$da[2],(int)$da[3],(int)$da[1]);
+       } elseif (preg_match("/^(\d{1,13})$/",$ts,$datearray)) {
+               # TS_UNIX
+               $uts=$ts;
+       } else {
+               # Bogus value; fall back to the epoch...
+               wfDebug("wfTimestamp() fed bogus time value: $outputtype; $ts\n");
+               $uts = 0;
+       }
+
+               
+       switch($outputtype) {
+               case TS_UNIX:
+                       return $uts;
+               case TS_MW:
+                       return gmdate( 'YmdHis', $uts );
+               case TS_DB:
+                       return gmdate( 'Y-m-d H:i:s', $uts );
+               // This shouldn't ever be used, but is included for completeness
+               case TS_EXIF:
+                       return gmdate(  'Y:m:d H:i:s', $uts );
+               case TS_RFC2822:
+                       return gmdate( 'D, d M Y H:i:s', $uts ) . ' GMT';
+               default:
+                       wfDebugDieBacktrace( 'wfTimestamp() called with illegal output type.');
+       }
+}
+
+/**
+ * Return a formatted timestamp, or null if input is null.
+ * For dealing with nullable timestamp columns in the database.
+ * @param int $outputtype
+ * @param string $ts
+ * @return string
+ */
+function wfTimestampOrNull( $outputtype = TS_UNIX, $ts = null ) {
+       if( is_null( $ts ) ) {
+               return null;
+       } else {
+               return wfTimestamp( $outputtype, $ts );
+       }
+}
+
+/**
+ * Check where as the operating system is Windows
+ *
+ * @return bool True if it's windows, False otherwise.
+ */
+function wfIsWindows() {   
+       if (substr(php_uname(), 0, 7) == 'Windows') {   
+               return true;   
+       } else {   
+               return false;   
+       }   
+} 
+
+/**
+ * Swap two variables
+ */
+function swap( &$x, &$y ) {
+       $z = $x;
+       $x = $y;
+       $y = $z;
+}
+
+function wfGetSiteNotice() {
+       global $wgSiteNotice, $wgTitle, $wgOut;
+       $fname = 'wfGetSiteNotice';
+       wfProfileIn( $fname );
+
+       $notice = wfMsg( 'sitenotice' );
+       if($notice == '&lt;sitenotice&gt;') $notice = '';
+       # Allow individual wikis to turn it off
+       if ( $notice == '-' ) {
+               $notice = '';
+       } else {
+               if ($notice == '') {
+                       $notice = $wgSiteNotice;
+               }
+               if($notice != '-' && $notice != '') {
+                       $specialparser = new Parser();
+                       $parserOutput = $specialparser->parse( $notice, $wgTitle, $wgOut->mParserOptions, false );
+                       $notice = $parserOutput->getText();
+               }
+       }
+       wfProfileOut( $fname );
+       return $notice;
+}
+
+/**
+ * Format an XML element with given attributes and, optionally, text content.
+ * Element and attribute names are assumed to be ready for literal inclusion.
+ * Strings are assumed to not contain XML-illegal characters; special
+ * characters (<, >, &) are escaped but illegals are not touched.
+ *
+ * @param string $element
+ * @param array $attribs Name=>value pairs. Values will be escaped.
+ * @param bool $contents NULL to make an open tag only; '' for a contentless closed tag (default)
+ * @return string
+ */
+function wfElement( $element, $attribs = array(), $contents = '') {
+       $out = '<' . $element;
+       foreach( $attribs as $name => $val ) {
+               $out .= ' ' . $name . '="' . htmlspecialchars( $val ) . '"';
+       }
+       if( is_null( $contents ) ) {
+               $out .= '>';
+       } else {
+               if( $contents == '' ) {
+                       $out .= ' />';
+               } else {
+                       $out .= '>';
+                       $out .= htmlspecialchars( $contents );
+                       $out .= "</$element>";
+               }
+       }
+       return $out;
+}
+
+/**
+ * Format an XML element as with wfElement(), but run text through the
+ * UtfNormal::cleanUp() validator first to ensure that no invalid UTF-8
+ * is passed.
+ *
+ * @param string $element
+ * @param array $attribs Name=>value pairs. Values will be escaped.
+ * @param bool $contents NULL to make an open tag only; '' for a contentless closed tag (default)
+ * @return string
+ */
+function wfElementClean( $element, $attribs = array(), $contents = '') {
+       if( $attribs ) {
+               $attribs = array_map( array( 'UtfNormal', 'cleanUp' ), $attribs );
+       }
+       return wfElement( $element, $attribs, UtfNormal::cleanUp( $contents ) );
+}
+
+/** Global singleton instance of MimeMagic. This is initialized on demand,
+* please always use the wfGetMimeMagic() function to get the instance.
+* 
+* @private
+*/
+$wgMimeMagic= NULL;
+
+/** Factory functions for the global MimeMagic object.
+* This function always returns the same singleton instance of MimeMagic.
+* That objects will be instantiated on the first call to this function.
+* If needed, the MimeMagic.php file is automatically included by this function.
+* @return MimeMagic the global MimeMagic objects.
+*/
+function &wfGetMimeMagic() {
+       global $wgMimeMagic;
+       
+       if (!is_null($wgMimeMagic)) {
+               return $wgMimeMagic;
+       }
+
+       if (!class_exists("MimeMagic")) {
+               #include on demand
+               require_once("MimeMagic.php");
+       }
+       
+       $wgMimeMagic= new MimeMagic();
+       
+       return $wgMimeMagic;
+}
+
+
+/**
+ * Tries to get the system directory for temporary files.
+ * The TMPDIR, TMP, and TEMP environment variables are checked in sequence,
+ * and if none are set /tmp is returned as the generic Unix default.
+ *
+ * NOTE: When possible, use the tempfile() function to create temporary
+ * files to avoid race conditions on file creation, etc.
+ *
+ * @return string
+ */
+function wfTempDir() {
+       foreach( array( 'TMPDIR', 'TMP', 'TEMP' ) as $var ) {
+               $tmp = getenv( 'TMPDIR' );
+               if( $tmp && file_exists( $tmp ) && is_dir( $tmp ) && is_writable( $tmp ) ) {
+                       return $tmp;
+               }
+       }
+       # Hope this is Unix of some kind!
+       return '/tmp';
+}
+
+/**
+ * Make directory, and make all parent directories if they don't exist
+ */
+function wfMkdirParents( $fullDir, $mode ) {
+       $parts = explode( '/', $fullDir );
+       $path = '';
+       $success = false;
+       foreach ( $parts as $dir ) {
+               $path .= $dir . '/';
+               if ( !is_dir( $path ) ) {
+                       if ( !mkdir( $path, $mode ) ) {
+                               return false;
+                       }
+               }
        }
+       return true;
 }
 
 ?>