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