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