includes/OutputPage.php

   1 <?
   2 # See design.doc
   3
   4 if($wgUseTeX) include_once( "Math.php" );
   5
   6 class OutputPage {
   7         var $mHeaders, $mCookies, $mMetatags, $mKeywords;
   8         var $mLinktags, $mPagetitle, $mBodytext, $mDebugtext;
   9         var $mHTMLtitle, $mRobotpolicy, $mIsarticle, $mPrintable;
  10         var $mSubtitle, $mRedirect, $mAutonumber, $mHeadtext;
  11         var $mLastModified, $mCategoryLinks;
  12
  13         var $mDTopen, $mLastSection; # Used for processing DL, PRE
  14         var $mLanguageLinks, $mSupressQuickbar;
  15         var $mOnloadHandler;
  16         var $mDoNothing;
  17         var $mContainsOldMagic, $mContainsNewMagic;
  18         var $mIsArticleRelated;
  19
  20         function OutputPage()
  21         {
  22                 $this->mHeaders = $this->mCookies = $this->mMetatags =
  23                 $this->mKeywords = $this->mLinktags = array();
  24                 $this->mHTMLtitle = $this->mPagetitle = $this->mBodytext =
  25                 $this->mLastSection = $this->mRedirect = $this->mLastModified =
  26                 $this->mSubtitle = $this->mDebugtext = $this->mRobotpolicy =
  27                 $this->mOnloadHandler = "";
  28                 $this->mIsArticleRelated = $this->mIsarticle = $this->mPrintable = true;
  29                 $this->mSupressQuickbar = $this->mDTopen = $this->mPrintable = false;
  30                 $this->mLanguageLinks = array();
  31                 $this->mCategoryLinks = array() ;
  32                 $this->mAutonumber = 0;
  33                 $this->mDoNothing = false;
  34                 $this->mContainsOldMagic = $this->mContainsNewMagic = 0;
  35         }
  36
  37         function addHeader( $name, $val ) { array_push( $this->mHeaders, "$name: $val" ) ; }
  38         function addCookie( $name, $val ) { array_push( $this->mCookies, array( $name, $val ) ); }
  39         function redirect( $url ) { $this->mRedirect = $url; }
  40
  41         # To add an http-equiv meta tag, precede the name with "http:"
  42         function addMeta( $name, $val ) { array_push( $this->mMetatags, array( $name, $val ) ); }
  43         function addKeyword( $text ) { array_push( $this->mKeywords, $text ); }
  44         function addLink( $rel, $rev, $target ) { array_push( $this->mLinktags, array( $rel, $rev, $target ) ); }
  45
  46         # checkLastModified tells the client to use the client-cached page if
  47         # possible. If sucessful, the OutputPage is disabled so that
  48         # any future call to OutputPage->output() have no effect. The method
  49         # returns true iff cache-ok headers was sent.
  50         function checkLastModified ( $timestamp )
  51         {
  52                 global $wgLang, $wgCachePages, $wgUser;
  53                 if( !$wgCachePages ) {
  54                         wfDebug( "CACHE DISABLED\n", false );
  55                         return;
  56                 }
  57                 if( preg_match( '/MSIE ([1-4]|5\.0)/', $_SERVER["HTTP_USER_AGENT"] ) ) {
  58                         # IE 5.0 has probs with our caching
  59                         wfDebug( "-- bad client, not caching\n", false );
  60                         return;
  61                 }
  62                 if( $wgUser->getOption( "nocache" ) ) {
  63                         wfDebug( "USER DISABLED CACHE\n", false );
  64                         return;
  65                 }
  66
  67                 $lastmod = gmdate( "D, j M Y H:i:s", wfTimestamp2Unix(
  68                         max( $timestamp, $wgUser->mTouched ) ) ) . " GMT";
  69
  70                 if( !empty( $_SERVER["HTTP_IF_MODIFIED_SINCE"] ) ) {
  71                         # IE sends sizes after the date like this:
  72                         # Wed, 20 Aug 2003 06:51:19 GMT; length=5202
  73                         # this breaks strtotime().
  74                         $modsince = preg_replace( '/;.*$/', '', $_SERVER["HTTP_IF_MODIFIED_SINCE"] );
  75                         $ismodsince = wfUnix2Timestamp( strtotime( $modsince ) );
  76                         wfDebug( "-- client send If-Modified-Since: " . $modsince . "\n", false );
  77                         wfDebug( "--  we might send Last-Modified : $lastmod\n", false );
  78
  79                         if( ($ismodsince >= $timestamp ) and $wgUser->validateCache( $ismodsince ) ) {
  80                                 # Make sure you're in a place you can leave when you call us!
  81                                 header( "HTTP/1.0 304 Not Modified" );
  82                                 header( "Expires: Mon, 15 Jan 2001 00:00:00 GMT" ); # Cachers always validate the page!
  83                                 header( "Cache-Control: private, must-revalidate, max-age=0" );
  84                                 header( "Last-Modified: {$lastmod}" );
  85                                 wfDebug( "CACHED client: $ismodsince ; user: $wgUser->mTouched ; page: $timestamp\n", false );
  86                                 $this->disable();
  87                                 return true;
  88                         } else {
  89                                 wfDebug( "READY  client: $ismodsince ; user: $wgUser->mTouched ; page: $timestamp\n", false );
  90                                 $this->mLastModified = $lastmod;
  91                         }
  92                 } else {
  93                         wfDebug( "We're confused.\n", false );
  94                         $this->mLastModified = $lastmod;
  95                 }
  96         }
  97
  98         function setRobotpolicy( $str ) { $this->mRobotpolicy = $str; }
  99         function setHTMLtitle( $name ) { $this->mHTMLtitle = $name; }
 100         function setPageTitle( $name ) { $this->mPagetitle = $name; }
 101         function getPageTitle() { return $this->mPagetitle; }
 102         function setSubtitle( $str ) { $this->mSubtitle = $str; }
 103         function getSubtitle() { return $this->mSubtitle; }
 104         function isArticle() { return $this->mIsarticle; }
 105         function setPrintable() { $this->mPrintable = true; }
 106         function isPrintable() { return $this->mPrintable; }
 107         function setOnloadHandler( $js ) { $this->mOnloadHandler = $js; }
 108         function getOnloadHandler() { return $this->mOnloadHandler; }
 109         function disable() { $this->mDoNothing = true; }
 110
 111         function setArticleRelated( $v )
 112         {
 113                 $this->mIsArticleRelated = $v;
 114                 if ( !$v ) {
 115                         $this->mIsarticle = false;
 116                 }
 117         }
 118         function setArticleFlag( $v ) {
 119                 $this->mIsarticle = $v;
 120                 if ( $v ) {
 121                         $this->mIsArticleRelated = $v;
 122                 }
 123         }
 124
 125         function isArticleRelated()
 126         {
 127                 return $this->mIsArticleRelated;
 128         }
 129
 130         function getLanguageLinks() {
 131                 global $wgTitle, $wgLanguageCode;
 132                 global $wgDBconnection, $wgDBname;
 133                 return $this->mLanguageLinks;
 134         }
 135         function supressQuickbar() { $this->mSupressQuickbar = true; }
 136         function isQuickbarSupressed() { return $this->mSupressQuickbar; }
 137
 138         function addHTML( $text ) { $this->mBodytext .= $text; }
 139         function addHeadtext( $text ) { $this->mHeadtext .= $text; }
 140         function debug( $text ) { $this->mDebugtext .= $text; }
 141
 142         # First pass--just handle <nowiki> sections, pass the rest off
 143         # to doWikiPass2() which does all the real work.
 144         #
 145         function addWikiText( $text, $linestart = true )
 146         {
 147                 global $wgUseTeX, $wgArticle, $wgUser, $action;
 148                 $fname = "OutputPage::addWikiText";
 149                 wfProfileIn( $fname );
 150                 $unique  = "3iyZiyA7iMwg5rhxP0Dcc9oTnj8qD1jm1Sfv4";
 151                 $unique2 = "4LIQ9nXtiYFPCSfitVwDw7EYwQlL4GeeQ7qSO";
 152                 $unique3 = "fPaA8gDfdLBqzj68Yjg9Hil3qEF8JGO0uszIp";
 153                 $nwlist = array();
 154                 $nwsecs = 0;
 155                 $mathlist = array();
 156                 $mathsecs = 0;
 157                 $prelist = array ();
 158                 $presecs = 0;
 159                 $stripped = "";
 160                 $stripped2 = "";
 161                 $stripped3 = "";
 162
 163                 # Replace any instances of the placeholders
 164                 $text = str_replace( $unique, wfHtmlEscapeFirst( $unique ), $text );
 165                 $text = str_replace( $unique2, wfHtmlEscapeFirst( $unique2 ), $text );
 166                 $text = str_replace( $unique3, wfHtmlEscapeFirst( $unique3 ), $text );
 167
 168                 global $wgEnableParserCache;
 169                 $use_parser_cache =
 170                         $wgEnableParserCache && $action == "view" &&
 171                         intval($wgUser->getOption( "stubthreshold" )) == 0 &&
 172                         isset($wgArticle) && $wgArticle->getID() > 0;
 173
 174                 if( $use_parser_cache ){
 175                         if( $this->fillFromParserCache() ){
 176                                 wfProfileOut( $fname );
 177                                 return;
 178                         }
 179                 }
 180
 181                 while ( "" != $text ) {
 182                         $p = preg_split( "/<\\s*nowiki\\s*>/i", $text, 2 );
 183                         $stripped .= $p[0];
 184                         if ( ( count( $p ) < 2 ) || ( "" == $p[1] ) ) { $text = ""; }
 185                         else {
 186                                 $q = preg_split( "/<\\/\\s*nowiki\\s*>/i", $p[1], 2 );
 187                                 ++$nwsecs;
 188                                 $nwlist[$nwsecs] = wfEscapeHTMLTagsOnly($q[0]);
 189                                 $stripped .= $unique . $nwsecs . "s";
 190                                 $text = $q[1];
 191                         }
 192                 }
 193
 194                 if( $wgUseTeX ) {
 195                         while ( "" != $stripped ) {
 196                                 $p = preg_split( "/<\\s*math\\s*>/i", $stripped, 2 );
 197                                 $stripped2 .= $p[0];
 198                                 if ( ( count( $p ) < 2 ) || ( "" == $p[1] ) ) { $stripped = ""; }
 199                                 else {
 200                                         $q = preg_split( "/<\\/\\s*math\\s*>/i", $p[1], 2 );
 201                                         ++$mathsecs;
 202                                         $mathlist[$mathsecs] = renderMath($q[0]);
 203                                         $stripped2 .= $unique2 . $mathsecs . "s";
 204                                         $stripped = $q[1];
 205                                 }
 206                         }
 207                 } else {
 208                         $stripped2 = $stripped;
 209                 }
 210
 211                 while ( "" != $stripped2 ) {
 212                         $p = preg_split( "/<\\s*pre\\s*>/i", $stripped2, 2 );
 213                         $stripped3 .= $p[0];
 214                         if ( ( count( $p ) < 2 ) || ( "" == $p[1] ) ) { $stripped2 = ""; }
 215                         else {
 216                                 $q = preg_split( "/<\\/\\s*pre\\s*>/i", $p[1], 2 );
 217                                 ++$presecs;
 218                                 $prelist[$presecs] = "<pre>". wfEscapeHTMLTagsOnly($q[0]). "</pre>\n";
 219                                 $stripped3 .= $unique3 . $presecs . "s";
 220                                 $stripped2 = $q[1];
 221                         }
 222                 }
 223
 224                 $text = $this->doWikiPass2( $stripped3, $linestart );
 225
 226                 $specialChars = array("\\", "$");
 227                 $escapedChars = array("\\\\", "\\$");
 228                 for ( $i = 1; $i <= $presecs; ++$i ) {
 229                         $text = preg_replace( "/{$unique3}{$i}s/", str_replace( $specialChars,
 230                                 $escapedChars, $prelist[$i] ), $text );
 231                 }
 232
 233                 for ( $i = 1; $i <= $mathsecs; ++$i ) {
 234                         $text = preg_replace( "/{$unique2}{$i}s/", str_replace( $specialChars,
 235                                 $escapedChars, $mathlist[$i] ), $text );
 236                 }
 237
 238                 for ( $i = 1; $i <= $nwsecs; ++$i ) {
 239                         $text = preg_replace( "/{$unique}{$i}s/", str_replace( $specialChars,
 240                                 $escapedChars, $nwlist[$i] ), $text );
 241                 }
 242                 $this->addHTML( $text );
 243
 244                 if($use_parser_cache ){
 245                         $this->saveParserCache( $text );
 246                 }
 247                 wfProfileOut( $fname );
 248         }
 249
 250         function sendCacheControl() {
 251                 global $wgUseGzip;
 252                 if( $this->mLastModified != "" ) {
 253                         wfDebug( "** private caching; {$this->mLastModified} **\n", false );
 254                         header( "Cache-Control: private, must-revalidate, max-age=0" );
 255                         header( "Last-modified: {$this->mLastModified}" );
 256                         if( $wgUseGzip ) {
 257                                 # We should put in Accept-Encoding, but IE chokes on anything but
 258                                 # User-Agent in a Vary: header (at least through 6.0)
 259                                 header( "Vary: User-Agent" );
 260                         }
 261                 } else {
 262                         wfDebug( "** no caching **\n", false );
 263                         header( "Cache-Control: no-cache" ); # Experimental - see below
 264                         header( "Pragma: no-cache" );
 265                         header( "Last-modified: " . gmdate( "D, j M Y H:i:s" ) . " GMT" );
 266                 }
 267                 header( "Expires: Mon, 15 Jan 2001 00:00:00 GMT" ); # Cachers always validate the page!
 268         }
 269
 270         # Finally, all the text has been munged and accumulated into
 271         # the object, let's actually output it:
 272         #
 273         function output()
 274         {
 275                 global $wgUser, $wgLang, $wgDebugComments, $wgCookieExpiration;
 276                 global $wgInputEncoding, $wgOutputEncoding, $wgLanguageCode;
 277                 if( $this->mDoNothing ){
 278                         return;
 279                 }
 280                 $fname = "OutputPage::output";
 281                 wfProfileIn( $fname );
 282
 283                 $sk = $wgUser->getSkin();
 284
 285                 $this->sendCacheControl();
 286
 287                 header( "Content-type: text/html; charset={$wgOutputEncoding}" );
 288                 header( "Content-language: {$wgLanguageCode}" );
 289
 290                 if ( "" != $this->mRedirect ) {
 291                         if( substr( $this->mRedirect, 0, 4 ) != "http" ) {
 292                                 # Standards require redirect URLs to be absolute
 293                                 global $wgServer;
 294                                 $this->mRedirect = $wgServer . $this->mRedirect;
 295                         }
 296                         header( "Location: {$this->mRedirect}" );
 297                         return;
 298                 }
 299
 300                 $exp = time() + $wgCookieExpiration;
 301                 foreach( $this->mCookies as $name => $val ) {
 302                         setcookie( $name, $val, $exp, "/" );
 303                 }
 304
 305                 $sk->outputPage( $this );
 306                 # flush();
 307         }
 308
 309         function out( $ins )
 310         {
 311                 global $wgInputEncoding, $wgOutputEncoding, $wgLang;
 312                 if ( 0 == strcmp( $wgInputEncoding, $wgOutputEncoding ) ) {
 313                         $outs = $ins;
 314                 } else {
 315                         $outs = $wgLang->iconv( $wgInputEncoding, $wgOutputEncoding, $ins );
 316                         if ( false === $outs ) { $outs = $ins; }
 317                 }
 318                 print $outs;
 319         }
 320
 321         function setEncodings()
 322         {
 323                 global $wgInputEncoding, $wgOutputEncoding;
 324                 global $wgUser, $wgLang;
 325
 326                 $wgInputEncoding = strtolower( $wgInputEncoding );
 327
 328                 if( $wgUser->getOption( 'altencoding' ) ) {
 329                         $wgLang->setAltEncoding();
 330                         return;
 331                 }
 332
 333                 if ( empty( $_SERVER['HTTP_ACCEPT_CHARSET'] ) ) {
 334                         $wgOutputEncoding = strtolower( $wgOutputEncoding );
 335                         return;
 336                 }
 337
 338                 /*
 339                 # This code is unused anyway!
 340                 # Commenting out. --bv 2003-11-15
 341
 342                 $a = explode( ",", $_SERVER['HTTP_ACCEPT_CHARSET'] );
 343                 $best = 0.0;
 344                 $bestset = "*";
 345
 346                 foreach ( $a as $s ) {
 347                         if ( preg_match( "/(.*);q=(.*)/", $s, $m ) ) {
 348                                 $set = $m[1];
 349                                 $q = (float)($m[2]);
 350                         } else {
 351                                 $set = $s;
 352                                 $q = 1.0;
 353                         }
 354                         if ( $q > $best ) {
 355                                 $bestset = $set;
 356                                 $best = $q;
 357                         }
 358                 }
 359                 #if ( "*" == $bestset ) { $bestset = "iso-8859-1"; }
 360                 if ( "*" == $bestset ) { $bestset = $wgOutputEncoding; }
 361                 $wgOutputEncoding = strtolower( $bestset );
 362
 363 # Disable for now
 364 #
 365                 */
 366                 $wgOutputEncoding = $wgInputEncoding;
 367         }
 368
 369         # Returns a HTML comment with the elapsed time since request.
 370         # This method has no side effects.
 371         function reportTime()
 372         {
 373                 global $wgRequestTime;
 374
 375                 list( $usec, $sec ) = explode( " ", microtime() );
 376                 $now = (float)$sec + (float)$usec;
 377
 378                 list( $usec, $sec ) = explode( " ", $wgRequestTime );
 379                 $start = (float)$sec + (float)$usec;
 380                 $elapsed = $now - $start;
 381                 $com = sprintf( "<!-- Time since request: %01.2f secs. -->",
 382                   $elapsed );
 383                 return $com;
 384         }
 385
 386         # Note: these arguments are keys into wfMsg(), not text!
 387         #
 388         function errorpage( $title, $msg )
 389         {
 390                 global $wgTitle;
 391
 392                 $this->mDebugtext .= "Original title: " .
 393                   $wgTitle->getPrefixedText() . "\n";
 394                 $this->setHTMLTitle( wfMsg( "errorpagetitle" ) );
 395                 $this->setPageTitle( wfMsg( $title ) );
 396                 $this->setRobotpolicy( "noindex,nofollow" );
 397                 $this->setArticleRelated( false );
 398
 399                 $this->mBodytext = "";
 400                 $this->addHTML( "<p>" . wfMsg( $msg ) . "\n" );
 401                 $this->returnToMain( false );
 402
 403                 $this->output();
 404                 wfAbruptExit();
 405         }
 406
 407         function sysopRequired()
 408         {
 409                 global $wgUser;
 410
 411                 $this->setHTMLTitle( wfMsg( "errorpagetitle" ) );
 412                 $this->setPageTitle( wfMsg( "sysoptitle" ) );
 413                 $this->setRobotpolicy( "noindex,nofollow" );
 414                 $this->setArticleRelated( false );
 415                 $this->mBodytext = "";
 416
 417                 $sk = $wgUser->getSkin();
 418                 $ap = $sk->makeKnownLink( wfMsg( "administrators" ), "" );
 419                 $this->addHTML( wfMsg( "sysoptext", $ap ) );
 420                 $this->returnToMain();
 421         }
 422
 423         function developerRequired()
 424         {
 425                 global $wgUser;
 426
 427                 $this->setHTMLTitle( wfMsg( "errorpagetitle" ) );
 428                 $this->setPageTitle( wfMsg( "developertitle" ) );
 429                 $this->setRobotpolicy( "noindex,nofollow" );
 430                 $this->setArticleRelated( false );
 431                 $this->mBodytext = "";
 432
 433                 $sk = $wgUser->getSkin();
 434                 $ap = $sk->makeKnownLink( wfMsg( "administrators" ), "" );
 435                 $this->addHTML( wfMsg( "developertext", $ap ) );
 436                 $this->returnToMain();
 437         }
 438
 439         function databaseError( $fname )
 440         {
 441                 global $wgUser, $wgCommandLineMode;
 442
 443                 $this->setPageTitle( wfMsgNoDB( "databaseerror" ) );
 444                 $this->setRobotpolicy( "noindex,nofollow" );
 445                 $this->setArticleRelated( false );
 446
 447                 if ( $wgCommandLineMode ) {
 448                         $msg = wfMsgNoDB( "dberrortextcl" );
 449                 } else {
 450                         $msg = wfMsgNoDB( "dberrortext" );
 451                 }
 452
 453                 $msg = str_replace( "$1", htmlspecialchars( wfLastDBquery() ), $msg );
 454                 $msg = str_replace( "$2", htmlspecialchars( $fname ), $msg );
 455                 $msg = str_replace( "$3", wfLastErrno(), $msg );
 456                 $msg = str_replace( "$4", htmlspecialchars( wfLastError() ), $msg );
 457
 458                 if ( $wgCommandLineMode || !is_object( $wgUser )) {
 459                         print "$msg\n";
 460                         wfAbruptExit();
 461                 }
 462                 $sk = $wgUser->getSkin();
 463                 $shlink = $sk->makeKnownLink( wfMsgNoDB( "searchhelppage" ),
 464                   wfMsgNoDB( "searchingwikipedia" ) );
 465                 $msg = str_replace( "$5", $shlink, $msg );
 466                 $this->mBodytext = $msg;
 467                 $this->output();
 468                 wfAbruptExit();
 469         }
 470
 471         function readOnlyPage( $source = "", $protected = false )
 472         {
 473                 global $wgUser, $wgReadOnlyFile;
 474
 475                 $this->setRobotpolicy( "noindex,nofollow" );
 476                 $this->setArticleRelated( false );
 477
 478                 if( $protected ) {
 479                         $this->setPageTitle( wfMsg( "viewsource" ) );
 480                         $this->addWikiText( wfMsg( "protectedtext" ) );
 481                 } else {
 482                         $this->setPageTitle( wfMsg( "readonly" ) );
 483                         $reason = file_get_contents( $wgReadOnlyFile );
 484                         $this->addHTML( wfMsg( "readonlytext", $reason ) );
 485                 }
 486
 487                 if($source) {
 488                         $rows = $wgUser->getOption( "rows" );
 489                         $cols = $wgUser->getOption( "cols" );
 490                         $text .= "</p>\n<textarea cols='$cols' rows='$rows' readonly>" .
 491                                 htmlspecialchars( $source ) . "\n</textarea>";
 492                         $this->addHTML( $text );
 493                 }
 494
 495                 $this->returnToMain( false );
 496         }
 497
 498         function fatalError( $message )
 499         {
 500                 $this->setPageTitle( wfMsg( "internalerror" ) );
 501                 $this->setRobotpolicy( "noindex,nofollow" );
 502                 $this->setArticleRelated( false );
 503
 504                 $this->mBodytext = $message;
 505                 $this->output();
 506                 wfAbruptExit();
 507         }
 508
 509         function unexpectedValueError( $name, $val )
 510         {
 511                 $this->fatalError( wfMsg( "unexpected", $name, $val ) );
 512         }
 513
 514         function fileCopyError( $old, $new )
 515         {
 516                 $this->fatalError( wfMsg( "filecopyerror", $old, $new ) );
 517         }
 518
 519         function fileRenameError( $old, $new )
 520         {
 521                 $this->fatalError( wfMsg( "filerenameerror", $old, $new ) );
 522         }
 523
 524         function fileDeleteError( $name )
 525         {
 526                 $this->fatalError( wfMsg( "filedeleteerror", $name ) );
 527         }
 528
 529         function fileNotFoundError( $name )
 530         {
 531                 $this->fatalError( wfMsg( "filenotfound", $name ) );
 532         }
 533
 534         function returnToMain( $auto = true )
 535         {
 536                 global $wgUser, $wgOut, $returnto;
 537
 538                 $sk = $wgUser->getSkin();
 539                 if ( "" == $returnto ) {
 540                         $returnto = wfMsg( "mainpage" );
 541                 }
 542                 $link = $sk->makeKnownLink( $returnto, "" );
 543
 544                 $r = wfMsg( "returnto", $link );
 545                 if ( $auto ) {
 546                         $wgOut->addMeta( "http:Refresh", "10;url=" .
 547                           wfLocalUrlE( wfUrlencode( $returnto ) ) );
 548                 }
 549                 $wgOut->addHTML( "\n<p>$r\n" );
 550         }
 551
 552
 553         function categoryMagic ()
 554         {
 555                 global $wgTitle , $wgUseCategoryMagic ;
 556                 if ( !isset ( $wgUseCategoryMagic ) || !$wgUseCategoryMagic ) return ;
 557                 $id = $wgTitle->getArticleID() ;
 558                 $cat = ucfirst ( wfMsg ( "category" ) ) ;
 559                 $ti = $wgTitle->getText() ;
 560                 $ti = explode ( ":" , $ti , 2 ) ;
 561                 if ( $cat != $ti[0] ) return "" ;
 562                 $r = "<br break=all>\n" ;
 563
 564                 $articles = array() ;
 565                 $parents = array () ;
 566                 $children = array() ;
 567
 568
 569                 global $wgUser ;
 570                 $sk = $wgUser->getSkin() ;
 571                 $sql = "SELECT l_from FROM links WHERE l_to={$id}" ;
 572                 $res = wfQuery ( $sql, DB_READ ) ;
 573                 while ( $x = wfFetchObject ( $res ) )
 574                 {
 575                 #  $t = new Title ;
 576                 #  $t->newFromDBkey ( $x->l_from ) ;
 577                 #  $t = $t->getText() ;
 578                         $t = $x->l_from ;
 579                         $y = explode ( ":" , $t , 2 ) ;
 580                         if ( count ( $y ) == 2 && $y[0] == $cat ) {
 581                                 array_push ( $children , $sk->makeLink ( $t , $y[1] ) ) ;
 582                         } else {
 583                                 array_push ( $articles , $sk->makeLink ( $t ) ) ;
 584                         }
 585                 }
 586                 wfFreeResult ( $res ) ;
 587
 588                 # Children
 589                 if ( count ( $children ) > 0 )
 590                 {
 591                         asort ( $children ) ;
 592                         $r .= "<h2>".wfMsg("subcategories")."</h2>\n" ;
 593                         $r .= implode ( ", " , $children ) ;
 594                 }
 595
 596                 # Articles
 597                 if ( count ( $articles ) > 0 )
 598                 {
 599                         asort ( $articles ) ;
 600                         $h =  wfMsg( "category_header", $ti[1] );
 601                         $r .= "<h2>{$h}</h2>\n" ;
 602                         $r .= implode ( ", " , $articles ) ;
 603                 }
 604
 605
 606                 return $r ;
 607         }
 608
 609 function getHTMLattrs ()
 610 {
 611                 $htmlattrs = array( # Allowed attributes--no scripting, etc.
 612                         "title", "align", "lang", "dir", "width", "height",
 613                         "bgcolor", "clear", /* BR */ "noshade", /* HR */
 614                         "cite", /* BLOCKQUOTE, Q */ "size", "face", "color",
 615                         /* FONT */ "type", "start", "value", "compact",
 616                         /* For various lists, mostly deprecated but safe */
 617                         "summary", "width", "border", "frame", "rules",
 618                         "cellspacing", "cellpadding", "valign", "char",
 619                         "charoff", "colgroup", "col", "span", "abbr", "axis",
 620                         "headers", "scope", "rowspan", "colspan", /* Tables */
 621                         "id", "class", "name", "style" /* For CSS */
 622                 );
 623 return $htmlattrs ;
 624 }
 625
 626 function fixTagAttributes ( $t )
 627 {
 628         if ( trim ( $t ) == "" ) return "" ; # Saves runtime ;-)
 629         $htmlattrs = $this->getHTMLattrs() ;
 630
 631         # Strip non-approved attributes from the tag
 632         $t = preg_replace(
 633                 "/(\\w+)(\\s*=\\s*([^\\s\">]+|\"[^\">]*\"))?/e",
 634                 "(in_array(strtolower(\"\$1\"),\$htmlattrs)?(\"\$1\".((\"x\$3\" != \"x\")?\"=\$3\":'')):'')",
 635                 $t);
 636         # Strip javascript "expression" from stylesheets. Brute force approach:
 637         # If anythin offensive is found, all attributes of the HTML tag are dropped
 638
 639         if( preg_match(
 640                 "/style\\s*=.*(expression|tps*:\/\/|url\\s*\().*/is",
 641                 wfMungeToUtf8( $t ) ) )
 642         {
 643                 $t="";
 644         }
 645
 646         return trim ( $t ) ;
 647 }
 648
 649 function doTableStuff ( $t )
 650 {
 651   $t = explode ( "\n" , $t ) ;
 652   $td = array () ; # Is currently a td tag open?
 653   $ltd = array () ; # Was it TD or TH?
 654   $tr = array () ; # Is currently a tr tag open?
 655   $ltr = array () ; # tr attributes
 656   foreach ( $t AS $k => $x )
 657     {
 658       $x = rtrim ( $x ) ;
 659       $fc = substr ( $x , 0 , 1 ) ;
 660       if ( "{|" == substr ( $x , 0 , 2 ) )
 661         {
 662           $t[$k] = "<table " . $this->fixTagAttributes ( substr ( $x , 3 ) ) . ">" ;
 663           array_push ( $td , false ) ;
 664           array_push ( $ltd , "" ) ;
 665           array_push ( $tr , false ) ;
 666           array_push ( $ltr , "" ) ;
 667         }
 668       else if ( count ( $td ) == 0 ) { } # Don't do any of the following
 669       else if ( "|}" == substr ( $x , 0 , 2 ) )
 670         {
 671           $z = "</table>\n" ;
 672           $l = array_pop ( $ltd ) ;
 673           if ( array_pop ( $tr ) ) $z = "</tr>" . $z ;
 674           if ( array_pop ( $td ) ) $z = "</{$l}>" . $z ;
 675           array_pop ( $ltr ) ;
 676           $t[$k] = $z ;
 677         }
 678 /*      else if ( "|_" == substr ( $x , 0 , 2 ) ) # Caption
 679         {
 680         $z = trim ( substr ( $x , 2 ) ) ;
 681         $t[$k] = "<caption>{$z}</caption>\n" ;
 682         }*/
 683       else if ( "|-" == substr ( $x , 0 , 2 ) ) # Allows for |---------------
 684         {
 685           $x = substr ( $x , 1 ) ;
 686           while ( $x != "" && substr ( $x , 0 , 1 ) == '-' ) $x = substr ( $x , 1 ) ;
 687           $z = "" ;
 688           $l = array_pop ( $ltd ) ;
 689           if ( array_pop ( $tr ) ) $z = "</tr>" . $z ;
 690           if ( array_pop ( $td ) ) $z = "</{$l}>" . $z ;
 691           array_pop ( $ltr ) ;
 692           $t[$k] = $z ;
 693           array_push ( $tr , false ) ;
 694           array_push ( $td , false ) ;
 695           array_push ( $ltd , "" ) ;
 696           array_push ( $ltr , $this->fixTagAttributes ( $x ) ) ;
 697         }
 698       else if ( "|" == $fc || "!" == $fc || "|+" == substr ( $x , 0 , 2 ) ) # Caption
 699         {
 700           if ( "|+" == substr ( $x , 0 , 2 ) )
 701               {
 702               $fc = "+" ;
 703               $x = substr ( $x , 1 ) ;
 704               }
 705           $after = substr ( $x , 1 ) ;
 706           if ( $fc == "!" ) $after = str_replace ( "!!" , "||" , $after ) ;
 707           $after = explode ( "||" , $after ) ;
 708           $t[$k] = "" ;
 709           foreach ( $after AS $theline )
 710              {
 711           $z = "" ;
 712           $tra = array_pop ( $ltr ) ;
 713           if ( !array_pop ( $tr ) ) $z = "<tr {$tra}>\n" ;
 714           array_push ( $tr , true ) ;
 715           array_push ( $ltr , "" ) ;
 716
 717           $l = array_pop ( $ltd ) ;
 718           if ( array_pop ( $td ) ) $z = "</{$l}>" . $z ;
 719           if ( $fc == "|" ) $l = "TD" ;
 720           else if ( $fc == "!" ) $l = "TH" ;
 721           else if ( $fc == "+" ) $l = "CAPTION" ;
 722           else $l = "" ;
 723           array_push ( $ltd , $l ) ;
 724           $y = explode ( "|" , $theline , 2 ) ;
 725           if ( count ( $y ) == 1 ) $y = "{$z}<{$l}>{$y[0]}" ;
 726           else $y = $y = "{$z}<{$l} ".$this->fixTagAttributes($y[0]).">{$y[1]}" ;
 727           $t[$k] .= $y ;
 728           array_push ( $td , true ) ;
 729              }
 730         }
 731     }
 732
 733 # Closing open td, tr && table
 734 while ( count ( $td ) > 0 )
 735 {
 736 if ( array_pop ( $td ) ) $t[] = "</td>" ;
 737 if ( array_pop ( $tr ) ) $t[] = "</tr>" ;
 738 $t[] = "</table>" ;
 739 }
 740
 741   $t = implode ( "\n" , $t ) ;
 742 #               $t = $this->removeHTMLtags( $t );
 743   return $t ;
 744 }
 745
 746         # Well, OK, it's actually about 14 passes.  But since all the
 747         # hard lifting is done inside PHP's regex code, it probably
 748         # wouldn't speed things up much to add a real parser.
 749         #
 750         function doWikiPass2( $text, $linestart )
 751         {
 752                 global $wgUser, $wgLang, $wgUseDynamicDates;
 753                 $fname = "OutputPage::doWikiPass2";
 754                 wfProfileIn( $fname );
 755
 756                 $text = $this->removeHTMLtags( $text );
 757                 $text = $this->replaceVariables( $text );
 758
 759                 $text = preg_replace( "/(^|\n)-----*/", "\\1<hr>", $text );
 760                 $text = str_replace ( "<HR>", "<hr>", $text );
 761
 762                 $text = $this->doAllQuotes( $text );
 763                 $text = $this->doHeadings( $text );
 764                 $text = $this->doBlockLevels( $text, $linestart );
 765
 766                 if($wgUseDynamicDates) {
 767                         global $wgDateFormatter;
 768                         $text = $wgDateFormatter->reformat( $wgUser->getOption("date"), $text );
 769                 }
 770
 771                 $text = $this->replaceExternalLinks( $text );
 772                 $text = $this->replaceInternalLinks ( $text );
 773                 $text = $this->doTableStuff ( $text ) ;
 774
 775                 $text = $this->magicISBN( $text );
 776                 $text = $this->magicRFC( $text );
 777                 $text = $this->formatHeadings( $text );
 778
 779                 $sk = $wgUser->getSkin();
 780                 $text = $sk->transformContent( $text );
 781                 $text .= $this->categoryMagic () ;
 782
 783                 wfProfileOut( $fname );
 784                 return $text;
 785         }
 786
 787         /* private */ function doAllQuotes( $text )
 788         {
 789                 $outtext = "";
 790                 $lines = explode( "\r\n", $text );
 791                 foreach ( $lines as $line ) {
 792                         $outtext .= $this->doQuotes ( "", $line, "" ) . "\r\n";
 793                 }
 794                 return $outtext;
 795         }
 796
 797         /* private */ function doQuotes( $pre, $text, $mode )
 798         {
 799                 if ( preg_match( "/^(.*)''(.*)$/sU", $text, $m ) ) {
 800                         $m1_strong = ($m[1] == "") ? "" : "<strong>{$m[1]}</strong>";
 801                         $m1_em = ($m[1] == "") ? "" : "<em>{$m[1]}</em>";
 802                         if ( substr ($m[2], 0, 1) == "'" ) {
 803                                 $m[2] = substr ($m[2], 1);
 804                                 if ($mode == "em") {
 805                                         return $this->doQuotes ( $m[1], $m[2], ($m[1] == "") ? "both" : "emstrong" );
 806                                 } else if ($mode == "strong") {
 807                                         return $m1_strong . $this->doQuotes ( "", $m[2], "" );
 808                                 } else if (($mode == "emstrong") || ($mode == "both")) {
 809                                         return $this->doQuotes ( "", $pre.$m1_strong.$m[2], "em" );
 810                                 } else if ($mode == "strongem") {
 811                                         return "<strong>{$pre}{$m1_em}</strong>" . $this->doQuotes ( "", $m[2], "em" );
 812                                 } else {
 813                                         return $m[1] . $this->doQuotes ( "", $m[2], "strong" );
 814                                 }
 815                         } else {
 816                                 if ($mode == "strong") {
 817                                         return $this->doQuotes ( $m[1], $m[2], ($m[1] == "") ? "both" : "strongem" );
 818                                 } else if ($mode == "em") {
 819                                         return $m1_em . $this->doQuotes ( "", $m[2], "" );
 820                                 } else if ($mode == "emstrong") {
 821                                         return "<em>{$pre}{$m1_strong}</em>" . $this->doQuotes ( "", $m[2], "strong" );
 822                                 } else if (($mode == "strongem") || ($mode == "both")) {
 823                                         return $this->doQuotes ( "", $pre.$m1_em.$m[2], "strong" );
 824                                 } else {
 825                                         return $m[1] . $this->doQuotes ( "", $m[2], "em" );
 826                                 }
 827                         }
 828                 } else {
 829                         $text_strong = ($text == "") ? "" : "<strong>{$text}</strong>";
 830                         $text_em = ($text == "") ? "" : "<em>{$text}</em>";
 831                         if ($mode == "") {
 832                                 return $pre . $text;
 833                         } else if ($mode == "em") {
 834                                 return $pre . $text_em;
 835                         } else if ($mode == "strong") {
 836                                 return $pre . $text_strong;
 837                         } else if ($mode == "strongem") {
 838                                 return (($pre == "") && ($text == "")) ? "" : "<strong>{$pre}{$text_em}</strong>";
 839                         } else {
 840                                 return (($pre == "") && ($text == "")) ? "" : "<em>{$pre}{$text_strong}</em>";
 841                         }
 842                 }
 843         }
 844
 845         /* private */ function doHeadings( $text )
 846         {
 847                 for ( $i = 6; $i >= 1; --$i ) {
 848                         $h = substr( "======", 0, $i );
 849                         $text = preg_replace( "/^{$h}([^=]+){$h}(\\s|$)/m",
 850                           "<h{$i}>\\1</h{$i}>\\2", $text );
 851                 }
 852                 return $text;
 853         }
 854
 855         # Note: we have to do external links before the internal ones,
 856         # and otherwise take great care in the order of things here, so
 857         # that we don't end up interpreting some URLs twice.
 858
 859         /* private */ function replaceExternalLinks( $text )
 860         {
 861                 $fname = "OutputPage::replaceExternalLinks";
 862                 wfProfileIn( $fname );
 863                 $text = $this->subReplaceExternalLinks( $text, "http", true );
 864                 $text = $this->subReplaceExternalLinks( $text, "https", true );
 865                 $text = $this->subReplaceExternalLinks( $text, "ftp", false );
 866                 $text = $this->subReplaceExternalLinks( $text, "irc", false );
 867                 $text = $this->subReplaceExternalLinks( $text, "gopher", false );
 868                 $text = $this->subReplaceExternalLinks( $text, "news", false );
 869                 $text = $this->subReplaceExternalLinks( $text, "mailto", false );
 870                 wfProfileOut( $fname );
 871                 return $text;
 872         }
 873
 874         /* private */ function subReplaceExternalLinks( $s, $protocol, $autonumber )
 875         {
 876                 global $wgUser, $printable;
 877                 global $wgAllowExternalImages;
 878
 879
 880                 $unique = "4jzAfzB8hNvf4sqyO9Edd8pSmk9rE2in0Tgw3";
 881                 $uc = "A-Za-z0-9_\\/~%\\-+&*#?!=()@\\x80-\\xFF";
 882
 883                 # this is  the list of separators that should be ignored if they
 884                 # are the last character of an URL but that should be included
 885                 # if they occur within the URL, e.g. "go to www.foo.com, where .."
 886                 # in this case, the last comma should not become part of the URL,
 887                 # but in "www.foo.com/123,2342,32.htm" it should.
 888                 $sep = ",;\.:";
 889                 $fnc = "A-Za-z0-9_.,~%\\-+&;#*?!=()@\\x80-\\xFF";
 890                 $images = "gif|png|jpg|jpeg";
 891
 892                 # PLEASE NOTE: The curly braces { } are not part of the regex,
 893                 # they are interpreted as part of the string (used to tell PHP
 894                 # that the content of the string should be inserted there).
 895                 $e1 = "/(^|[^\\[])({$protocol}:)([{$uc}{$sep}]+)\\/([{$fnc}]+)\\." .
 896                   "((?i){$images})([^{$uc}]|$)/";
 897
 898                 $e2 = "/(^|[^\\[])({$protocol}:)(([".$uc."]|[".$sep."][".$uc."])+)([^". $uc . $sep. "]|[".$sep."]|$)/";
 899                 $sk = $wgUser->getSkin();
 900
 901                 if ( $autonumber and $wgAllowExternalImages) { # Use img tags only for HTTP urls
 902                         $s = preg_replace( $e1, "\\1" . $sk->makeImage( "{$unique}:\\3" .
 903                           "/\\4.\\5", "\\4.\\5" ) . "\\6", $s );
 904                 }
 905                 $s = preg_replace( $e2, "\\1" . "<a href=\"{$unique}:\\3\"" .
 906                   $sk->getExternalLinkAttributes( "{$unique}:\\3", wfEscapeHTML(
 907                   "{$unique}:\\3" ) ) . ">" . wfEscapeHTML( "{$unique}:\\3" ) .
 908                   "</a>\\5", $s );
 909                 $s = str_replace( $unique, $protocol, $s );
 910
 911                 $a = explode( "[{$protocol}:", " " . $s );
 912                 $s = array_shift( $a );
 913                 $s = substr( $s, 1 );
 914
 915                 $e1 = "/^([{$uc}"."{$sep}]+)](.*)\$/sD";
 916                 $e2 = "/^([{$uc}"."{$sep}]+)\\s+([^\\]]+)](.*)\$/sD";
 917
 918                 foreach ( $a as $line ) {
 919                         if ( preg_match( $e1, $line, $m ) ) {
 920                                 $link = "{$protocol}:{$m[1]}";
 921                                 $trail = $m[2];
 922                                 if ( $autonumber ) { $text = "[" . ++$this->mAutonumber . "]"; }
 923                                 else { $text = wfEscapeHTML( $link ); }
 924                         } else if ( preg_match( $e2, $line, $m ) ) {
 925                                 $link = "{$protocol}:{$m[1]}";
 926                                 $text = $m[2];
 927                                 $trail = $m[3];
 928                         } else {
 929                                 $s .= "[{$protocol}:" . $line;
 930                                 continue;
 931                         }
 932                         if ( $printable == "yes") $paren = " (<i>" . htmlspecialchars ( $link ) . "</i>)";
 933                         else $paren = "";
 934                         $la = $sk->getExternalLinkAttributes( $link, $text );
 935                         $s .= "<a href='{$link}'{$la}>{$text}</a>{$paren}{$trail}";
 936
 937                 }
 938                 return $s;
 939         }
 940
 941         /* private */ function replaceInternalLinks( $s )
 942         {
 943                 global $wgTitle, $wgUser, $wgLang;
 944                 global $wgLinkCache, $wgInterwikiMagic, $wgUseCategoryMagic;
 945                 global $wgNamespacesWithSubpages, $wgLanguageCode;
 946                 wfProfileIn( $fname = "OutputPage::replaceInternalLinks" );
 947
 948                 wfProfileIn( "$fname-setup" );
 949                 $tc = Title::legalChars() . "#";
 950                 $sk = $wgUser->getSkin();
 951
 952                 $a = explode( "[[", " " . $s );
 953                 $s = array_shift( $a );
 954                 $s = substr( $s, 1 );
 955
 956                 $e1 = "/^([{$tc}]+)(?:\\|([^]]+))?]](.*)\$/sD";
 957
 958                 # Special and Media are pseudo-namespaces; no pages actually exist in them
 959                 $image = Namespace::getImage();
 960                 $special = Namespace::getSpecial();
 961                 $media = Namespace::getMedia();
 962                 $nottalk = !Namespace::isTalk( $wgTitle->getNamespace() );
 963                 wfProfileOut( "$fname-setup" );
 964
 965                 foreach ( $a as $line ) {
 966                         if ( preg_match( $e1, $line, $m ) ) { # page with normal text or alt
 967                                 $text = $m[2];
 968                                 $trail = $m[3];
 969                         } else { # Invalid form; output directly
 970                                 $s .= "[[" . $line ;
 971                                 continue;
 972                         }
 973
 974                         /* Valid link forms:
 975                         Foobar -- normal
 976                         :Foobar -- override special treatment of prefix (images, language links)
 977                         /Foobar -- convert to CurrentPage/Foobar
 978                         /Foobar/ -- convert to CurrentPage/Foobar, strip the initial / from text
 979                         */
 980                         $c = substr($m[1],0,1);
 981                         $noforce = ($c != ":");
 982                         if( $c == "/" ) { # subpage
 983                                 if(substr($m[1],-1,1)=="/") {                 # / at end means we don't want the slash to be shown
 984                                         $m[1]=substr($m[1],1,strlen($m[1])-2);
 985                                         $noslash=$m[1];
 986                                 } else {
 987                                         $noslash=substr($m[1],1);
 988                                 }
 989                                 if($wgNamespacesWithSubpages[$wgTitle->getNamespace()]) { # subpages allowed here
 990                                         $link = $wgTitle->getPrefixedText(). "/" . trim($noslash);
 991                                         if( "" == $text ) {
 992                                                 $text= $m[1];
 993                                         } # this might be changed for ugliness reasons
 994                                 } else {
 995                                         $link = $noslash; # no subpage allowed, use standard link
 996                                 }
 997                         } elseif( $noforce ) { # no subpage
 998                                 $link = $m[1];
 999                         } else {
1000                                 $link = substr( $m[1], 1 );
1001                         }
1002                         if( "" == $text )
1003                                 $text = $link;
1004
1005                         $nt = Title::newFromText( $link );
1006                         if( !$nt ) {
1007                                 $s .= "[[" . $line;
1008                                 continue;
1009                         }
1010                         $ns = $nt->getNamespace();
1011                         $iw = $nt->getInterWiki();
1012                         if( $noforce ) {
1013                                 if( $iw && $wgInterwikiMagic && $nottalk && $wgLang->getLanguageName( $iw ) ) {
1014                                         array_push( $this->mLanguageLinks, $nt->getPrefixedText() );
1015                                         $s .= $trail;
1016 /* CHECK MERGE @@@
1017                                 } else if ( "media" == $pre ) {
1018                                         $nt = Title::newFromText( $suf );
1019                                         $name = $nt->getDBkey();
1020                                         if ( "" == $text ) { $text = $nt->GetText(); }
1021
1022                                         $wgLinkCache->addImageLink( $name );
1023                                         $s .= $sk->makeMediaLink( $name,
1024                                           wfImageUrl( $name ), $text );
1025                                         $s .= $trail;
1026                                 } else if ( isset($wgUseCategoryMagic) && $wgUseCategoryMagic && $pre == wfMsg ( "category" ) ) {
1027                                         $l = $sk->makeLink ( $pre.":".ucfirst( $m[2] ), ucfirst ( $m[2] ) ) ;
1028                                         array_push ( $this->mCategoryLinks , $l ) ;
1029                                         $s .= $trail ;
1030                                 } else {
1031                                         $l = $wgLang->getLanguageName( $pre );
1032                                         if ( "" == $l or !$wgInterwikiMagic or Namespace::isTalk( $wgTitle->getNamespace() ) ) {
1033                                                 if ( "" == $text ) {
1034                                                         $text = $link;
1035                                                 }
1036                                                 $s .= $sk->makeLink( $link, $text, "", $trail );
1037                                         } else if ( $pre != $wgLanguageCode ) {
1038                                                 array_push( $this->mLanguageLinks, "$pre:$suf" );
1039                                                 $s .= $trail;
1040                                         }
1041 */
1042                                         continue;
1043                                 }
1044                                 if( $ns == $image ) {
1045                                         $s .= $sk->makeImageLinkObj( $nt, $text ) . $trail;
1046                                         $wgLinkCache->addImageLinkObj( $nt );
1047                                         continue;
1048                                 }
1049 /* CHECK MERGE @@@
1050 #                       } else if ( 0 == strcmp( "##", substr( $link, 0, 2 ) ) ) {
1051 #                               $link = substr( $link, 2 );
1052 #                               $s .= "<a name=\"{$link}\">{$text}</a>{$trail}";
1053                         } else {
1054                                 if ( "" == $text ) { $text = $link; }
1055                                 # Hotspot:
1056                                 $s .= $sk->makeLink( $link, $text, "", $trail );
1057 */
1058                         }
1059                         if( $ns == $media ) {
1060                                 $s .= $sk->makeMediaLinkObj( $nt, $text ) . $trail;
1061                                 $wgLinkCache->addImageLinkObj( $nt );
1062                                 continue;
1063                         } elseif( $ns == $special ) {
1064                                 $s .= $sk->makeKnownLinkObj( $nt, $text, "", $trail );
1065                                 continue;
1066                         }
1067                         $s .= $sk->makeLinkObj( $nt, $text, "", $trail );
1068                 }
1069                 wfProfileOut( $fname );
1070                 return $s;
1071         }
1072
1073         # Some functions here used by doBlockLevels()
1074         #
1075         /* private */ function closeParagraph()
1076         {
1077                 $result = "";
1078                 if ( 0 != strcmp( "p", $this->mLastSection ) &&
1079                   0 != strcmp( "", $this->mLastSection ) ) {
1080                         $result = "</" . $this->mLastSection  . ">";
1081                 }
1082                 $this->mLastSection = "";
1083                 return $result."\n";
1084         }
1085         # getCommon() returns the length of the longest common substring
1086         # of both arguments, starting at the beginning of both.
1087         #
1088         /* private */ function getCommon( $st1, $st2 )
1089         {
1090                 $fl = strlen( $st1 );
1091                 $shorter = strlen( $st2 );
1092                 if ( $fl < $shorter ) { $shorter = $fl; }
1093
1094                 for ( $i = 0; $i < $shorter; ++$i ) {
1095                         if ( $st1{$i} != $st2{$i} ) { break; }
1096                 }
1097                 return $i;
1098         }
1099         # These next three functions open, continue, and close the list
1100         # element appropriate to the prefix character passed into them.
1101         #
1102         /* private */ function openList( $char )
1103     {
1104                 $result = $this->closeParagraph();
1105
1106                 if ( "*" == $char ) { $result .= "<ul><li>"; }
1107                 else if ( "#" == $char ) { $result .= "<ol><li>"; }
1108                 else if ( ":" == $char ) { $result .= "<dl><dd>"; }
1109                 else if ( ";" == $char ) {
1110                         $result .= "<dl><dt>";
1111                         $this->mDTopen = true;
1112                 }
1113                 else { $result = "<!-- ERR 1 -->"; }
1114
1115                 return $result;
1116         }
1117
1118         /* private */ function nextItem( $char )
1119         {
1120                 if ( "*" == $char || "#" == $char ) { return "</li><li>"; }
1121                 else if ( ":" == $char || ";" == $char ) {
1122                         $close = "</dd>";
1123                         if ( $this->mDTopen ) { $close = "</dt>"; }
1124                         if ( ";" == $char ) {
1125                                 $this->mDTopen = true;
1126                                 return $close . "<dt>";
1127                         } else {
1128                                 $this->mDTopen = false;
1129                                 return $close . "<dd>";
1130                         }
1131                 }
1132                 return "<!-- ERR 2 -->";
1133         }
1134
1135         /* private */function closeList( $char )
1136         {
1137                 if ( "*" == $char ) { $text = "</li></ul>"; }
1138                 else if ( "#" == $char ) { $text = "</li></ol>"; }
1139                 else if ( ":" == $char ) {
1140                         if ( $this->mDTopen ) {
1141                                 $this->mDTopen = false;
1142                                 $text = "</dt></dl>";
1143                         } else {
1144                                 $text = "</dd></dl>";
1145                         }
1146                 }
1147                 else {  return "<!-- ERR 3 -->"; }
1148                 return $text."\n";
1149         }
1150
1151         /* private */ function doBlockLevels( $text, $linestart )
1152         {
1153                 $fname = "OutputPage::doBlockLevels";
1154                 wfProfileIn( $fname );
1155                 # Parsing through the text line by line.  The main thing
1156                 # happening here is handling of block-level elements p, pre,
1157                 # and making lists from lines starting with * # : etc.
1158                 #
1159                 $a = explode( "\n", $text );
1160                 $text = $lastPref = "";
1161                 $this->mDTopen = $inBlockElem = false;
1162
1163                 if ( ! $linestart ) { $text .= array_shift( $a ); }
1164                 foreach ( $a as $t ) {
1165                         if ( "" != $text ) { $text .= "\n"; }
1166
1167                         $oLine = $t;
1168                         $opl = strlen( $lastPref );
1169                         $npl = strspn( $t, "*#:;" );
1170                         $pref = substr( $t, 0, $npl );
1171                         $pref2 = str_replace( ";", ":", $pref );
1172                         $t = substr( $t, $npl );
1173
1174                         if ( 0 != $npl && 0 == strcmp( $lastPref, $pref2 ) ) {
1175                                 $text .= $this->nextItem( substr( $pref, -1 ) );
1176
1177                                 if ( ";" == substr( $pref, -1 ) ) {
1178                                         $cpos = strpos( $t, ":" );
1179                                         if ( ! ( false === $cpos ) ) {
1180                                                 $term = substr( $t, 0, $cpos );
1181                                                 $text .= $term . $this->nextItem( ":" );
1182                                                 $t = substr( $t, $cpos + 1 );
1183                                         }
1184                                 }
1185                         } else if (0 != $npl || 0 != $opl) {
1186                                 $cpl = $this->getCommon( $pref, $lastPref );
1187
1188                                 while ( $cpl < $opl ) {
1189                                         $text .= $this->closeList( $lastPref{$opl-1} );
1190                                         --$opl;
1191                                 }
1192                                 if ( $npl <= $cpl && $cpl > 0 ) {
1193                                         $text .= $this->nextItem( $pref{$cpl-1} );
1194                                 }
1195                                 while ( $npl > $cpl ) {
1196                                         $char = substr( $pref, $cpl, 1 );
1197                                         $text .= $this->openList( $char );
1198
1199                                         if ( ";" == $char ) {
1200                                                 $cpos = strpos( $t, ":" );
1201                                                 if ( ! ( false === $cpos ) ) {
1202                                                         $term = substr( $t, 0, $cpos );
1203                                                         $text .= $term . $this->nextItem( ":" );
1204                                                         $t = substr( $t, $cpos + 1 );
1205                                                 }
1206                                         }
1207                                         ++$cpl;
1208                                 }
1209                                 $lastPref = $pref2;
1210                         }
1211                         if ( 0 == $npl ) { # No prefix--go to paragraph mode
1212                                 if ( preg_match(
1213                                   "/(<table|<blockquote|<h1|<h2|<h3|<h4|<h5|<h6)/i", $t ) ) {
1214                                         $text .= $this->closeParagraph();
1215                                         $inBlockElem = true;
1216                                 }
1217                                 if ( ! $inBlockElem ) {
1218                                         if ( " " == $t{0} ) {
1219                                                 $newSection = "pre";
1220                                                 # $t = wfEscapeHTML( $t );
1221                                         }
1222                                         else { $newSection = "p"; }
1223
1224                                         if ( 0 == strcmp( "", trim( $oLine ) ) ) {
1225                                                 $text .= $this->closeParagraph();
1226                                                 $text .= "<" . $newSection . ">";
1227                                         } else if ( 0 != strcmp( $this->mLastSection,
1228                                           $newSection ) ) {
1229                                                 $text .= $this->closeParagraph();
1230                                                 if ( 0 != strcmp( "p", $newSection ) ) {
1231                                                         $text .= "<" . $newSection . ">";
1232                                                 }
1233                                         }
1234                                         $this->mLastSection = $newSection;
1235                                 }
1236                                 if ( $inBlockElem &&
1237                                   preg_match( "/(<\\/table|<\\/blockquote|<\\/h1|<\\/h2|<\\/h3|<\\/h4|<\\/h5|<\\/h6)/i", $t ) ) {
1238                                         $inBlockElem = false;
1239                                 }
1240                         }
1241                         $text .= $t;
1242                 }
1243                 while ( $npl ) {
1244                         $text .= $this->closeList( $pref2{$npl-1} );
1245                         --$npl;
1246                 }
1247                 if ( "" != $this->mLastSection ) {
1248                         if ( "p" != $this->mLastSection ) {
1249                                 $text .= "</" . $this->mLastSection . ">";
1250                         }
1251                         $this->mLastSection = "";
1252                 }
1253                 wfProfileOut( $fname );
1254                 return $text;
1255         }
1256
1257         /* private */ function replaceVariables( $text )
1258         {
1259                 global $wgLang, $wgCurOut;
1260                 $fname = "OutputPage::replaceVariables";
1261                 wfProfileIn( $fname );
1262
1263                 $magic = array();
1264
1265                 # Basic variables
1266                 # See Language.php for the definition of each magic word
1267                 # As with sigs, this uses the server's local time -- ensure
1268                 # this is appropriate for your audience!
1269
1270                 $magic[MAG_CURRENTMONTH] = date( "m" );
1271                 $magic[MAG_CURRENTMONTHNAME] = $wgLang->getMonthName( date("n") );
1272                 $magic[MAG_CURRENTMONTHNAMEGEN] = $wgLang->getMonthNameGen( date("n") );
1273                 $magic[MAG_CURRENTDAY] = date("j");
1274                 $magic[MAG_CURRENTDAYNAME] = $wgLang->getWeekdayName( date("w")+1 );
1275                 $magic[MAG_CURRENTYEAR] = date( "Y" );
1276                 $magic[MAG_CURRENTTIME] = $wgLang->time( wfTimestampNow(), false );
1277
1278                 $this->mContainsOldMagic += MagicWord::replaceMultiple($magic, $text, $text);
1279
1280                 $mw =& MagicWord::get( MAG_NUMBEROFARTICLES );
1281                 if ( $mw->match( $text ) ) {
1282                         $v = wfNumberOfArticles();
1283                         $text = $mw->replace( $v, $text );
1284                         if( $mw->getWasModified() ) { $this->mContainsOldMagic++; }
1285                 }
1286
1287                 # "Variables" with an additional parameter e.g. {{MSG:wikipedia}}
1288                 # The callbacks are at the bottom of this file
1289                 $wgCurOut = $this;
1290                 $mw =& MagicWord::get( MAG_MSG );
1291                 $text = $mw->substituteCallback( $text, "wfReplaceMsgVar" );
1292                 if( $mw->getWasModified() ) { $this->mContainsNewMagic++; }
1293
1294                 $mw =& MagicWord::get( MAG_MSGNW );
1295                 $text = $mw->substituteCallback( $text, "wfReplaceMsgnwVar" );
1296                 if( $mw->getWasModified() ) { $this->mContainsNewMagic++; }
1297
1298                 wfProfileOut( $fname );
1299                 return $text;
1300         }
1301
1302         # Cleans up HTML, removes dangerous tags and attributes
1303         /* private */ function removeHTMLtags( $text )
1304         {
1305                 $fname = "OutputPage::removeHTMLtags";
1306                 wfProfileIn( $fname );
1307                 $htmlpairs = array( # Tags that must be closed
1308                         "b", "i", "u", "font", "big", "small", "sub", "sup", "h1",
1309                         "h2", "h3", "h4", "h5", "h6", "cite", "code", "em", "s",
1310                         "strike", "strong", "tt", "var", "div", "center",
1311                         "blockquote", "ol", "ul", "dl", "table", "caption", "pre",
1312                         "ruby", "rt" , "rb" , "rp"
1313                 );
1314                 $htmlsingle = array(
1315                         "br", "p", "hr", "li", "dt", "dd"
1316                 );
1317                 $htmlnest = array( # Tags that can be nested--??
1318                         "table", "tr", "td", "th", "div", "blockquote", "ol", "ul",
1319                         "dl", "font", "big", "small", "sub", "sup"
1320                 );
1321                 $tabletags = array( # Can only appear inside table
1322                         "td", "th", "tr"
1323                 );
1324
1325                 $htmlsingle = array_merge( $tabletags, $htmlsingle );
1326                 $htmlelements = array_merge( $htmlsingle, $htmlpairs );
1327
1328                 $htmlattrs = $this->getHTMLattrs () ;
1329
1330                 # Remove HTML comments
1331                 $text = preg_replace( "/<!--.*-->/sU", "", $text );
1332
1333                 $bits = explode( "<", $text );
1334                 $text = array_shift( $bits );
1335                 $tagstack = array(); $tablestack = array();
1336
1337                 foreach ( $bits as $x ) {
1338                         $prev = error_reporting( E_ALL & ~( E_NOTICE | E_WARNING ) );
1339                         preg_match( "/^(\\/?)(\\w+)([^>]*)(\\/{0,1}>)([^<]*)$/",
1340                           $x, $regs );
1341                         list( $qbar, $slash, $t, $params, $brace, $rest ) = $regs;
1342                         error_reporting( $prev );
1343
1344                         $badtag = 0 ;
1345                         if ( in_array( $t = strtolower( $t ), $htmlelements ) ) {
1346                                 # Check our stack
1347                                 if ( $slash ) {
1348                                         # Closing a tag...
1349                                         if ( ! in_array( $t, $htmlsingle ) &&
1350                                           ( $ot = array_pop( $tagstack ) ) != $t ) {
1351                                                 array_push( $tagstack, $ot );
1352                                                 $badtag = 1;
1353                                         } else {
1354                                                 if ( $t == "table" ) {
1355                                                         $tagstack = array_pop( $tablestack );
1356                                                 }
1357                                                 $newparams = "";
1358                                         }
1359                                 } else {
1360                                         # Keep track for later
1361                                         if ( in_array( $t, $tabletags ) &&
1362                                           ! in_array( "table", $tagstack ) ) {
1363                                                 $badtag = 1;
1364                                         } else if ( in_array( $t, $tagstack ) &&
1365                                           ! in_array ( $t , $htmlnest ) ) {
1366                                                 $badtag = 1 ;
1367                                         } else if ( ! in_array( $t, $htmlsingle ) ) {
1368                                                 if ( $t == "table" ) {
1369                                                         array_push( $tablestack, $tagstack );
1370                                                         $tagstack = array();
1371                                                 }
1372                                                 array_push( $tagstack, $t );
1373                                         }
1374                                         # Strip non-approved attributes from the tag
1375                                         $newparams = $this->fixTagAttributes($params);
1376
1377                                 }
1378                                 if ( ! $badtag ) {
1379                                         $rest = str_replace( ">", "&gt;", $rest );
1380                                         $text .= "<$slash$t $newparams$brace$rest";
1381                                         continue;
1382                                 }
1383                         }
1384                         $text .= "&lt;" . str_replace( ">", "&gt;", $x);
1385                 }
1386                 # Close off any remaining tags
1387                 while ( $t = array_pop( $tagstack ) ) {
1388                         $text .= "</$t>\n";
1389                         if ( $t == "table" ) { $tagstack = array_pop( $tablestack ); }
1390                 }
1391                 wfProfileOut( $fname );
1392                 return $text;
1393         }
1394
1395 /*
1396  *
1397  * This function accomplishes several tasks:
1398  * 1) Auto-number headings if that option is enabled
1399  * 2) Add an [edit] link to sections for logged in users who have enabled the option
1400  * 3) Add a Table of contents on the top for users who have enabled the option
1401  * 4) Auto-anchor headings
1402  *
1403  * It loops through all headlines, collects the necessary data, then splits up the
1404  * string and re-inserts the newly formatted headlines.
1405  *
1406  * */
1407         /* private */ function formatHeadings( $text )
1408         {
1409                 global $wgUser,$wgArticle,$wgTitle,$wpPreview;
1410                 $nh=$wgUser->getOption( "numberheadings" );
1411                 $st=$wgUser->getOption( "showtoc" );
1412                 if(!$wgTitle->userCanEdit()) {
1413                         $es=0;
1414                         $esr=0;
1415                 } else {
1416                         $es=$wgUser->getID() && $wgUser->getOption( "editsection" );
1417                         $esr=$wgUser->getID() && $wgUser->getOption( "editsectiononrightclick" );
1418                 }
1419
1420                 # Inhibit editsection links if requested in the page
1421                 $esw =& MagicWord::get( MAG_NOEDITSECTION );
1422                 if ($esw->matchAndRemove( $text )) {
1423                         $es=0;
1424                 }
1425                 # if the string __NOTOC__ (not case-sensitive) occurs in the HTML,
1426                 # do not add TOC
1427                 $mw =& MagicWord::get( MAG_NOTOC );
1428                 if ($mw->matchAndRemove( $text ))
1429                 {
1430                         $st = 0;
1431                 }
1432
1433                 # never add the TOC to the Main Page. This is an entry page that should not
1434                 # be more than 1-2 screens large anyway
1435                 if($wgTitle->getPrefixedText()==wfMsg("mainpage")) {$st=0;}
1436
1437                 # We need this to perform operations on the HTML
1438                 $sk=$wgUser->getSkin();
1439
1440                 # Get all headlines for numbering them and adding funky stuff like [edit]
1441                 # links
1442                 preg_match_all("/<H([1-6])(.*?>)(.*?)<\/H[1-6]>/i",$text,$matches);
1443
1444                 # headline counter
1445                 $c=0;
1446
1447                 # Ugh .. the TOC should have neat indentation levels which can be
1448                 # passed to the skin functions. These are determined here
1449                 foreach($matches[3] as $headline) {
1450                         if($level) { $prevlevel=$level;}
1451                         $level=$matches[1][$c];
1452                         if(($nh||$st) && $prevlevel && $level>$prevlevel) {
1453
1454                                 $h[$level]=0; // reset when we enter a new level
1455                                 $toc.=$sk->tocIndent($level-$prevlevel);
1456                                 $toclevel+=$level-$prevlevel;
1457
1458                         }
1459                         if(($nh||$st) && $level<$prevlevel) {
1460                                 $h[$level+1]=0; // reset when we step back a level
1461                                 $toc.=$sk->tocUnindent($prevlevel-$level);
1462                                 $toclevel-=$prevlevel-$level;
1463
1464                         }
1465                         $h[$level]++; // count number of headlines for each level
1466
1467                         if($nh||$st) {
1468                                 for($i=1;$i<=$level;$i++) {
1469                                         if($h[$i]) {
1470                                                 if($dot) {$numbering.=".";}
1471                                                 $numbering.=$h[$i];
1472                                                 $dot=1;
1473                                         }
1474                                 }
1475                         }
1476
1477                         // The canonized header is a version of the header text safe to use for links
1478
1479                         $canonized_headline=preg_replace("/<.*?>/","",$headline); // strip out HTML
1480                         $tocline = trim( $canonized_headline );
1481                         $canonized_headline=str_replace('"',"",$canonized_headline);
1482                         $canonized_headline=str_replace(" ","_",trim($canonized_headline));
1483                         $refer[$c]=$canonized_headline;
1484                         $refers[$canonized_headline]++;  // count how many in assoc. array so we can track dupes in anchors
1485                         $refcount[$c]=$refers[$canonized_headline];
1486
1487             // Prepend the number to the heading text
1488
1489                         if($nh||$st) {
1490                                 $tocline=$numbering ." ". $tocline;
1491
1492                                 // Don't number the heading if it is the only one (looks silly)
1493                                 if($nh && count($matches[3]) > 1) {
1494                                         $headline=$numbering . " " . $headline; // the two are different if the line contains a link
1495                                 }
1496                         }
1497
1498                         // Create the anchor for linking from the TOC to the section
1499
1500                         $anchor=$canonized_headline;
1501                         if($refcount[$c]>1) {$anchor.="_".$refcount[$c];}
1502                         if($st) {
1503                                 $toc.=$sk->tocLine($anchor,$tocline,$toclevel);
1504                         }
1505                         if($es && !isset($wpPreview)) {
1506                                 $head[$c].=$sk->editSectionLink($c+1);
1507                         }
1508
1509                         // Put it all together
1510
1511                         $head[$c].="<h".$level.$matches[2][$c]
1512                          ."<a name=\"".$anchor."\">"
1513                          .$headline
1514                          ."</a>"
1515                          ."</h".$level.">";
1516
1517                         // Add the edit section link
1518
1519                         if($esr && !isset($wpPreview)) {
1520                                 $head[$c]=$sk->editSectionScript($c+1,$head[$c]);
1521                         }
1522
1523                         $numbering="";
1524                         $c++;
1525                         $dot=0;
1526                 }
1527
1528                 if($st) {
1529                         $toclines=$c;
1530                         $toc.=$sk->tocUnindent($toclevel);
1531                         $toc=$sk->tocTable($toc);
1532                 }
1533
1534                 // split up and insert constructed headlines
1535
1536                 $blocks=preg_split("/<H[1-6].*?>.*?<\/H[1-6]>/i",$text);
1537                 $i=0;
1538
1539                 foreach($blocks as $block) {
1540                         if(($es) && !isset($wpPreview) && $c>0 && $i==0) {
1541                             # This is the [edit] link that appears for the top block of text when
1542                                 # section editing is enabled
1543                                 $full.=$sk->editSectionLink(0);
1544                         }
1545                         $full.=$block;
1546                         if($st && $toclines>3 && !$i) {
1547                                 # Let's add a top anchor just in case we want to link to the top of the page
1548                                 $full="<a name=\"top\"></a>".$full.$toc;
1549                         }
1550
1551                         $full.=$head[$i];
1552                         $i++;
1553                 }
1554
1555                 return $full;
1556         }
1557
1558         /* private */ function magicISBN( $text )
1559         {
1560                 global $wgLang;
1561
1562                 $a = split( "ISBN ", " $text" );
1563                 if ( count ( $a ) < 2 ) return $text;
1564                 $text = substr( array_shift( $a ), 1);
1565                 $valid = "0123456789-ABCDEFGHIJKLMNOPQRSTUVWXYZ";
1566
1567                 foreach ( $a as $x ) {
1568                         $isbn = $blank = "" ;
1569                         while ( " " == $x{0} ) {
1570                                 $blank .= " ";
1571                                 $x = substr( $x, 1 );
1572                         }
1573                         while ( strstr( $valid, $x{0} ) != false ) {
1574                                 $isbn .= $x{0};
1575                                 $x = substr( $x, 1 );
1576                         }
1577                         $num = str_replace( "-", "", $isbn );
1578                         $num = str_replace( " ", "", $num );
1579
1580                         if ( "" == $num ) {
1581                                 $text .= "ISBN $blank$x";
1582                         } else {
1583                                 $text .= "<a href=\"" . wfLocalUrlE( $wgLang->specialPage(
1584                                   "Booksources"), "isbn={$num}" ) . "\" class=\"internal\">ISBN $isbn</a>";
1585                                 $text .= $x;
1586                         }
1587                 }
1588                 return $text;
1589         }
1590
1591         /* private */ function magicRFC( $text )
1592         {
1593                 return $text;
1594         }
1595
1596         /* private */ function headElement()
1597         {
1598                 global $wgDocType, $wgDTD, $wgUser, $wgLanguageCode, $wgOutputEncoding, $wgLang;
1599
1600                 $ret = "<!DOCTYPE HTML PUBLIC \"$wgDocType\"\n        \"$wgDTD\">\n";
1601
1602                 if ( "" == $this->mHTMLtitle ) {
1603                         $this->mHTMLtitle = $this->mPagetitle;
1604                 }
1605                 $rtl = $wgLang->isRTL() ? " dir='RTL'" : "";
1606                 $ret .= "<html lang=\"$wgLanguageCode\"$rtl><head><title>{$this->mHTMLtitle}</title>\n";
1607                 array_push( $this->mMetatags, array( "http:Content-type", "text/html; charset={$wgOutputEncoding}" ) );
1608                 foreach ( $this->mMetatags as $tag ) {
1609                         if ( 0 == strcasecmp( "http:", substr( $tag[0], 0, 5 ) ) ) {
1610                                 $a = "http-equiv";
1611                                 $tag[0] = substr( $tag[0], 5 );
1612                         } else {
1613                                 $a = "name";
1614                         }
1615                         $ret .= "<meta $a=\"{$tag[0]}\" content=\"{$tag[1]}\">\n";
1616                 }
1617                 $p = $this->mRobotpolicy;
1618                 if ( "" == $p ) { $p = "index,follow"; }
1619                 $ret .= "<meta name=\"robots\" content=\"$p\">\n";
1620
1621                 if ( count( $this->mKeywords ) > 0 ) {
1622                         $ret .= "<meta name=\"keywords\" content=\"" .
1623                           implode( ",", $this->mKeywords ) . "\">\n";
1624                 }
1625                 foreach ( $this->mLinktags as $tag ) {
1626                         $ret .= "<link ";
1627                         if ( "" != $tag[0] ) { $ret .= "rel=\"{$tag[0]}\" "; }
1628                         if ( "" != $tag[1] ) { $ret .= "rev=\"{$tag[1]}\" "; }
1629                         $ret .= "href=\"{$tag[2]}\">\n";
1630                 }
1631                 $sk = $wgUser->getSkin();
1632                 $ret .= $sk->getHeadScripts();
1633                 $ret .= $sk->getUserStyles();
1634
1635                 $ret .= "</head>\n";
1636                 return $ret;
1637         }
1638
1639         /* private */ function fillFromParserCache(){
1640                 global $wgUser, $wgArticle;
1641                 $hash = $wgUser->getPageRenderingHash();
1642                 $pageid = intval( $wgArticle->getID() );
1643                 $res = wfQuery("SELECT pc_data FROM parsercache WHERE pc_pageid = {$pageid} ".
1644                         " AND pc_prefhash = '{$hash}' AND pc_expire > NOW()", DB_WRITE);
1645                 $row = wfFetchObject ( $res );
1646                 if( $row ){
1647                         $data = unserialize( gzuncompress($row->pc_data) );
1648                         $this->addHTML( $data['html'] );
1649                         $this->mLanguageLinks = $data['mLanguageLinks'];
1650                         $this->mCategoryLinks = $data['mCategoryLinks'];
1651                         wfProfileOut( $fname );
1652                         return true;
1653                 } else {
1654                         return false;
1655                 }
1656         }
1657
1658         /* private */ function saveParserCache( $text ){
1659                 global $wgUser, $wgArticle;
1660                 $hash = $wgUser->getPageRenderingHash();
1661                 $pageid = intval( $wgArticle->getID() );
1662                 $title = wfStrencode( $wgArticle->mTitle->getPrefixedDBKey() );
1663                 $data = array();
1664                 $data['html'] = $text;
1665                 $data['mLanguageLinks'] = $this->mLanguageLinks;
1666                 $data['mCategoryLinks'] = $this->mCategoryLinks;
1667                 $ser = addslashes( gzcompress( serialize( $data ) ) );
1668                 if( $this->mContainsOldMagic ){
1669                         $expire = "1 HOUR";
1670                 } else if( $this->mContainsNewMagic ){
1671                         $expire = "1 DAY";
1672                 } else {
1673                         $expire = "7 DAY";
1674                 }
1675
1676                 wfQuery("REPLACE INTO parsercache (pc_prefhash,pc_pageid,pc_title,pc_data, pc_expire) ".
1677                         "VALUES('{$hash}', {$pageid}, '{$title}', '{$ser}', ".
1678                                 "DATE_ADD(NOW(), INTERVAL {$expire}))", DB_WRITE);
1679
1680                 if( rand() % 50 == 0 ){ // more efficient to just do it sometimes
1681                         $this->purgeParserCache();
1682                 }
1683         }
1684
1685         /* static private */ function purgeParserCache(){
1686                 wfQuery("DELETE FROM parsercache WHERE pc_expire < NOW() LIMIT 250", DB_WRITE);
1687         }
1688
1689         /* static */ function parsercacheClearLinksTo( $pid ){
1690                 $pid = intval( $pid );
1691                 wfQuery("DELETE parsercache FROM parsercache,links ".
1692                         "WHERE pc_title=links.l_from AND l_to={$pid}", DB_WRITE);
1693                 wfQuery("DELETE FROM parsercache WHERE pc_pageid='{$pid}'", DB_WRITE);
1694         }
1695
1696         # $title is a prefixed db title, for example like Title->getPrefixedDBkey() returns.
1697         /* static */ function parsercacheClearBrokenLinksTo( $title ){
1698                 $title = wfStrencode( $title );
1699                 wfQuery("DELETE parsercache FROM parsercache,brokenlinks ".
1700                         "WHERE pc_pageid=bl_from AND bl_to='{$title}'", DB_WRITE);
1701         }
1702
1703         # $pid is a page id
1704         /* static */ function parsercacheClearPage( $pid ){
1705                 $pid = intval( $pid );
1706                 wfQuery("DELETE FROM parsercache WHERE pc_pageid='{$pid}'", DB_WRITE);
1707         }
1708 }
1709
1710 # Regex callbacks, used in OutputPage::replaceVariables
1711
1712 # Just get rid of the dangerous stuff
1713 # Necessary because replaceVariables is called after removeHTMLtags,
1714 # and message text can come from any user
1715 function wfReplaceMsgVar( $matches ) {
1716         global $wgCurOut, $wgLinkCache;
1717         $text = $wgCurOut->removeHTMLtags( wfMsg( $matches[1] ) );
1718         $wgLinkCache->suspend();
1719         $text = $wgCurOut->replaceInternalLinks( $text );
1720         $wgLinkCache->resume();
1721         $wgLinkCache->addLinkObj( Title::makeTitle( NS_MEDIAWIKI, $matches[1] ) );
1722         return $text;
1723 }
1724
1725 # Effective <nowiki></nowiki>
1726 # Not real <nowiki> because this is called after nowiki sections are processed
1727 function wfReplaceMsgnwVar( $matches ) {
1728         global $wgCurOut, $wgLinkCache;
1729         $text = wfEscapeWikiText( wfMsg( $matches[1] ) );
1730         $wgLinkCache->addLinkObj( Title::makeTitle( NS_MEDIAWIKI, $matches[1] ) );
1731         return $text;
1732 }
1733
1734 ?>