table markup
[mediawiki.git] / includes / OutputPage.php
blob849fb84d6ff6a0caf4963bea083508c1b194a373
1 <?
2 # See design.doc
4 if($wgUseTeX) include_once( "Math.php" );
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;
13 var $mDTopen, $mLastSection; # Used for processing DL, PRE
14 var $mLanguageLinks, $mSupressQuickbar;
16 function OutputPage()
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;
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; }
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 ) ); }
39 function checkLastModified ( $timestamp )
41 global $wgLang, $wgCachePages, $wgUser;
42 if( !$wgCachePages ) {
43 wfDebug( "CACHE DISABLED\n", false );
44 return;
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;
51 if( $wgUser->getOption( "nocache" ) ) {
52 wfDebug( "USER DISABLED CACHE\n", false );
53 return;
56 $lastmod = gmdate( "D, j M Y H:i:s", wfTimestamp2Unix(
57 max( $timestamp, $wgUser->mTouched ) ) ) . " GMT";
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 );
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;
80 } else {
81 wfDebug( "We're confused.\n", false );
82 $this->mLastModified = $lastmod;
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; }
97 function getLanguageLinks() {
98 global $wgUseNewInterlanguage, $wgTitle, $wgLanguageCode;
99 global $wgDBconnection, $wgDBname, $wgDBintlname;
101 if ( ! $wgUseNewInterlanguage )
102 return $this->mLanguageLinks;
104 mysql_select_db( $wgDBintlname, $wgDBconnection ) or die(
105 htmlspecialchars(mysql_error()) );
107 $list = array();
108 $sql = "SELECT * FROM ilinks WHERE lang_from=\"" .
109 "{$wgLanguageCode}\" AND title_from=\"" . $wgTitle->getDBkey() . "\"";
110 $res = mysql_query( $sql, $wgDBconnection );
112 while ( $q = mysql_fetch_object ( $res ) ) {
113 $list[] = $q->lang_to . ":" . $q->title_to;
115 mysql_free_result( $res );
116 mysql_select_db( $wgDBname, $wgDBconnection ) or die(
117 htmlspecialchars(mysql_error()) );
119 return $list;
122 function supressQuickbar() { $this->mSupressQuickbar = true; }
123 function isQuickbarSupressed() { return $this->mSupressQuickbar; }
125 function addHTML( $text ) { $this->mBodytext .= $text; }
126 function addHeadtext( $text ) { $this->mHeadtext .= $text; }
127 function debug( $text ) { $this->mDebugtext .= $text; }
129 # First pass--just handle <nowiki> sections, pass the rest off
130 # to doWikiPass2() which does all the real work.
133 function addWikiText( $text, $linestart = true )
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 = "";
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];
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];
176 } else {
177 $stripped2 = $stripped;
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];
193 $text = $this->doWikiPass2( $stripped3, $linestart );
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 );
202 for ( $i = 1; $i <= $mathsecs; ++$i ) {
203 $text = preg_replace( "/{$unique2}/", str_replace( $specialChars,
204 $escapedChars, $mathlist[$i] ), $text, 1 );
207 for ( $i = 1; $i <= $nwsecs; ++$i ) {
208 $text = preg_replace( "/{$unique}/", str_replace( $specialChars,
209 $escapedChars, $nwlist[$i] ), $text, 1 );
211 $this->addHTML( $text );
212 wfProfileOut();
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" );
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" );
232 header( "Expires: Mon, 15 Jan 2001 00:00:00 GMT" ); # Cachers always validate the page!
235 # Finally, all the text has been munged and accumulated into
236 # the object, let's actually output it:
238 function output()
240 global $wgUser, $wgLang, $wgDebugComments, $wgCookieExpiration;
241 global $wgInputEncoding, $wgOutputEncoding, $wgLanguageCode;
242 wfProfileIn( "OutputPage::output" );
243 $sk = $wgUser->getSkin();
245 wfProfileIn( "OutputPage::output-headers" );
246 $this->sendCacheControl();
248 header( "Content-type: text/html; charset={$wgOutputEncoding}" );
249 header( "Content-language: {$wgLanguageCode}" );
251 if ( "" != $this->mRedirect ) {
252 header( "Location: {$this->mRedirect}" );
253 wfProfileOut();
254 return;
257 $exp = time() + $wgCookieExpiration;
258 foreach( $this->mCookies as $name => $val ) {
259 setcookie( $name, $val, $exp, "/" );
261 wfProfileOut();
263 wfProfileIn( "OutputPage::output-middle" );
264 $sk->initPage();
265 $this->out( $this->headElement() );
267 $this->out( "\n<body" );
268 $ops = $sk->getBodyOptions();
269 foreach ( $ops as $name => $val ) {
270 $this->out( " $name='$val'" );
272 $this->out( ">\n" );
273 if ( $wgDebugComments ) {
274 $this->out( "<!-- Wiki debugging output:\n" .
275 $this->mDebugtext . "-->\n" );
277 $this->out( $sk->beforeContent() );
278 wfProfileOut();
280 wfProfileIn( "OutputPage::output-bodytext" );
281 $this->out( $this->mBodytext );
282 wfProfileOut();
283 wfProfileIn( "OutputPage::output-after" );
284 $this->out( $sk->afterContent() );
285 wfProfileOut();
287 wfProfileOut(); # A hack - we can't report after here
288 $this->out( $this->reportTime() );
290 $this->out( "\n</body></html>" );
291 flush();
294 function out( $ins )
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; }
303 print $outs;
306 function setEncodings()
308 global $HTTP_SERVER_VARS, $wgInputEncoding, $wgOutputEncoding;
309 global $wgUser, $wgLang;
311 $wgInputEncoding = strtolower( $wgInputEncoding );
312 $s = $HTTP_SERVER_VARS['HTTP_ACCEPT_CHARSET'];
314 if( $wgUser->getOption( 'altencoding' ) ) {
315 $wgLang->setAltEncoding();
316 return;
319 if ( "" == $s ) {
320 $wgOutputEncoding = strtolower( $wgOutputEncoding );
321 return;
323 $a = explode( ",", $s );
324 $best = 0.0;
325 $bestset = "*";
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;
335 if ( $q > $best ) {
336 $bestset = $set;
337 $best = $q;
340 #if ( "*" == $bestset ) { $bestset = "iso-8859-1"; }
341 if ( "*" == $bestset ) { $bestset = $wgOutputEncoding; }
342 $wgOutputEncoding = strtolower( $bestset );
344 # Disable for now
346 $wgOutputEncoding = $wgInputEncoding;
349 function reportTime()
351 global $wgRequestTime, $wgDebugLogFile, $HTTP_SERVER_VARS;
352 global $wgProfiling, $wgProfileStack, $wgUser;
354 list( $usec, $sec ) = explode( " ", microtime() );
355 $now = (float)$sec + (float)$usec;
357 list( $usec, $sec ) = explode( " ", $wgRequestTime );
358 $start = (float)$sec + (float)$usec;
359 $elapsed = $now - $start;
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;
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";
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 );
399 $com = sprintf( "<!-- Time since request: %01.2f secs. -->",
400 $elapsed );
401 return $com;
404 # Note: these arguments are keys into wfMsg(), not text!
406 function errorpage( $title, $msg )
408 global $wgTitle;
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 );
417 $this->mBodytext = "";
418 $this->addHTML( "<p>" . wfMsg( $msg ) . "\n" );
419 $this->returnToMain( false );
421 $this->output();
422 exit;
425 function sysopRequired()
427 global $wgUser;
429 $this->setHTMLTitle( wfMsg( "errorpagetitle" ) );
430 $this->setPageTitle( wfMsg( "sysoptitle" ) );
431 $this->setRobotpolicy( "noindex,nofollow" );
432 $this->setArticleFlag( false );
433 $this->mBodytext = "";
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();
442 function developerRequired()
444 global $wgUser;
446 $this->setHTMLTitle( wfMsg( "errorpagetitle" ) );
447 $this->setPageTitle( wfMsg( "developertitle" ) );
448 $this->setRobotpolicy( "noindex,nofollow" );
449 $this->setArticleFlag( false );
450 $this->mBodytext = "";
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();
459 function databaseError( $fname )
461 global $wgUser, $wgCommandLineMode;
463 $this->setPageTitle( wfMsg( "databaseerror" ) );
464 $this->setRobotpolicy( "noindex,nofollow" );
465 $this->setArticleFlag( false );
467 if ( $wgCommandLineMode ) {
468 $msg = wfMsg( "dberrortextcl" );
469 } else {
470 $msg = wfMsg( "dberrortextcl" );
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 );
477 if ( $wgCommandLineMode ) {
478 print $msg;
479 exit();
481 $sk = $wgUser->getSkin();
482 $shlink = $sk->makeKnownLink( wfMsg( "searchhelppage" ),
483 wfMsg( "searchingwikipedia" ) );
484 $msg = str_replace( "$5", $shlink, $msg );
486 $this->mBodytext = $msg;
487 $this->output();
488 exit();
491 function readOnlyPage()
493 global $wgUser, $wgReadOnlyFile;
495 $this->setPageTitle( wfMsg( "readonly" ) );
496 $this->setRobotpolicy( "noindex,nofollow" );
497 $this->setArticleFlag( false );
499 $reason = implode( "", file( $wgReadOnlyFile ) );
500 $text = str_replace( "$1", $reason, wfMsg( "readonlytext" ) );
501 $this->addHTML( $text );
502 $this->returnToMain( false );
505 function fatalError( $message )
507 $this->setPageTitle( wfMsg( "internalerror" ) );
508 $this->setRobotpolicy( "noindex,nofollow" );
509 $this->setArticleFlag( false );
511 $this->mBodytext = $message;
512 $this->output();
513 exit;
516 function unexpectedValueError( $name, $val )
518 $msg = str_replace( "$1", $name, wfMsg( "unexpected" ) );
519 $msg = str_replace( "$2", $val, $msg );
520 $this->fatalError( $msg );
523 function fileCopyError( $old, $new )
525 $msg = str_replace( "$1", $old, wfMsg( "filecopyerror" ) );
526 $msg = str_replace( "$2", $new, $msg );
527 $this->fatalError( $msg );
530 function fileRenameError( $old, $new )
532 $msg = str_replace( "$1", $old, wfMsg( "filerenameerror" ) );
533 $msg = str_replace( "$2", $new, $msg );
534 $this->fatalError( $msg );
537 function fileDeleteError( $name )
539 $msg = str_replace( "$1", $name, wfMsg( "filedeleteerror" ) );
540 $this->fatalError( $msg );
543 function fileNotFoundError( $name )
545 $msg = str_replace( "$1", $name, wfMsg( "filenotfound" ) );
546 $this->fatalError( $msg );
549 function returnToMain( $auto = true )
551 global $wgUser, $wgOut, $returnto;
553 $sk = $wgUser->getSkin();
554 if ( "" == $returnto ) {
555 $returnto = wfMsg( "mainpage" );
557 $link = $sk->makeKnownLink( $returnto, "" );
559 $r = str_replace( "$1", $link, wfMsg( "returnto" ) );
560 if ( $auto ) {
561 $wgOut->addMeta( "http:Refresh", "10;url=" .
562 wfLocalUrlE( wfUrlencode( $returnto ) ) );
564 $wgOut->addHTML( "\n<p>$r\n" );
568 function categoryMagic ()
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" ;
579 $articles = array() ;
580 $parents = array () ;
581 $children = array() ;
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 ) )
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 )
597 array_push ( $children , $sk->makeLink ( $t , $y[1] ) ) ;
599 else array_push ( $articles , $sk->makeLink ( $t ) ) ;
601 wfFreeResult ( $res ) ;
603 # Children
604 if ( count ( $children ) > 0 )
606 asort ( $children ) ;
607 $r .= "<h2>".wfMsg("subcategories")."</h2>\n" ;
608 $r .= implode ( ", " , $children ) ;
611 # Articles
612 if ( count ( $articles ) > 0 )
614 asort ( $articles ) ;
615 $h = str_replace ( "$1" , $ti[1] , wfMsg("category_header") ) ;
616 $r .= "<h2>{$h}</h2>\n" ;
617 $r .= implode ( ", " , $articles ) ;
621 return $r ;
625 function doTableStuff ( $t )
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 )
632 $x = rtrim ( $x ) ;
633 if ( "{|" == substr ( $x , 0 , 2 ) )
635 $t[$k] = "<table " . substr ( $x , 3 ) . ">" ;
636 array_push ( $td , false ) ;
637 array_push ( $tr , false ) ;
639 else if ( count ( $td ) == 0 ) { } # Don't do any of the following
640 else if ( "|}" == substr ( $x , 0 , 2 ) )
642 $z = "</table>\n" ;
643 if ( array_pop ( $tr ) ) $z = "</tr>" . $z ;
644 if ( array_pop ( $td ) ) $z = "</td>" . $z ;
645 $t[$k] = $z ;
647 else if ( "|_" == substr ( $x , 0 , 2 ) ) # Caption
649 $z = trim ( substr ( $x , 2 ) ) ;
650 $t[$k] = "<caption>{$z}</caption\n" ;
652 else if ( "|-" == substr ( $x , 0 , 2 ) ) # Allows for |---------------
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 ) ;
661 else if ( "|" == substr ( $x , 0 , 1 ) )
663 $after = substr ( $x , 1 ) ;
664 $after = explode ( "||" , $after ) ;
665 $t[$k] = "" ;
666 foreach ( $after AS $theline )
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 ) ;
680 $t = implode ( "\n" , $t ) ;
681 return $t ;
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.
688 function doWikiPass2( $text, $linestart )
690 global $wgUser, $wgLang, $wgUseDynamicDates;
691 wfProfileIn( "OutputPage::doWikiPass2" );
693 $text = $this->removeHTMLtags( $text );
694 $text = $this->replaceVariables( $text );
696 $text = preg_replace( "/(^|\n)-----*/", "\\1<hr>", $text );
697 $text = str_replace ( "<HR>", "<hr>", $text );
699 $text = $this->doAllQuotes( $text );
700 $text = $this->doHeadings( $text );
701 $text = $this->doBlockLevels( $text, $linestart );
703 if($wgUseDynamicDates) {
704 $text = $wgLang->replaceDates( $text );
707 $text = $this->replaceExternalLinks( $text );
708 $text = $this->replaceInternalLinks ( $text );
709 $text = $this->doTableStuff ( $text ) ;
711 $text = $this->magicISBN( $text );
712 $text = $this->magicRFC( $text );
713 $text = $this->formatHeadings( $text );
715 $sk = $wgUser->getSkin();
716 $text = $sk->transformContent( $text );
717 $text .= $this->categoryMagic () ;
719 wfProfileOut();
720 return $text;
723 /* private */ function doAllQuotes( $text )
725 $outtext = "";
726 $lines = explode( "\r\n", $text );
727 foreach ( $lines as $line ) {
728 $outtext .= $this->doQuotes ( "", $line, "" ) . "\r\n";
730 return $outtext;
733 /* private */ function doQuotes( $pre, $text, $mode )
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" );
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" );
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>";
781 /* private */ function doHeadings( $text )
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 );
788 return $text;
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.
795 /* private */ function replaceExternalLinks( $text )
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;
808 /* private */ function subReplaceExternalLinks( $s, $protocol, $autonumber )
810 global $wgUser, $printable;
811 global $wgAllowExternalImages;
814 $unique = "4jzAfzB8hNvf4sqyO9Edd8pSmk9rE2in0Tgw3";
815 $uc = "A-Za-z0-9_\\/~%\\-+&*#?!=()@\\x80-\\xFF";
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";
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}]|$)/";
832 $e2 = "/(^|[^\\[])({$protocol}:)(([".$uc."]|[".$sep."][".$uc."])+)([^". $uc . $sep. "]|[".$sep."]|$)/";
833 $sk = $wgUser->getSkin();
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 );
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 );
845 $a = explode( "[{$protocol}:", " " . $s );
846 $s = array_shift( $a );
847 $s = substr( $s, 1 );
849 $e1 = "/^([{$uc}"."{$sep}]+)](.*)\$/sD";
850 $e2 = "/^([{$uc}"."{$sep}]+)\\s+([^\\]]+)](.*)\$/sD";
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;
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}";
872 return $s;
875 /* private */ function replaceInternalLinks( $s )
877 global $wgTitle, $wgUser, $wgLang;
878 global $wgLinkCache, $wgInterwikiMagic, $wgUseCategoryMagic;
879 global $wgNamespacesWithSubpages, $wgLanguageCode;
880 wfProfileIn( $fname = "OutputPage::replaceInternalLinks" );
882 wfProfileIn( "$fname-setup" );
883 $tc = Title::legalChars() . "#";
884 $sk = $wgUser->getSkin();
886 $a = explode( "[[", " " . $s );
887 $s = array_shift( $a );
888 $s = substr( $s, 1 );
890 $e1 = "/^([{$tc}]+)\\|([^]]+)]](.*)\$/sD";
891 $e2 = "/^([{$tc}]+)]](.*)\$/sD";
892 wfProfileOut();
894 foreach ( $a as $line ) {
895 wfProfileIn( "$fname-loop" );
896 if ( preg_match( $e1, $line, $m ) ) { # page with alternate text
898 $text = $m[2];
899 $trail = $m[3];
901 } else if ( preg_match( $e2, $line, $m ) ) { # page with normal text
903 $text = "";
904 $trail = $m[2];
907 else { # Invalid form; output directly
908 $s .= "[[" . $line ;
909 wfProfileOut();
910 continue;
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];
917 } else {
918 $noslash=substr($m[1],1);
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
928 } else { # no subpage
929 $link = $m[1];
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(); }
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(); }
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;
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 );
976 wfProfileOut();
978 wfProfileOut();
979 return $s;
982 # Some functions here used by doBlockLevels()
984 /* private */ function closeParagraph()
986 $result = "";
987 if ( 0 != strcmp( "p", $this->mLastSection ) &&
988 0 != strcmp( "", $this->mLastSection ) ) {
989 $result = "</" . $this->mLastSection . ">";
991 $this->mLastSection = "";
992 return $result;
994 # getCommon() returns the length of the longest common substring
995 # of both arguments, starting at the beginning of both.
997 /* private */ function getCommon( $st1, $st2 )
999 $fl = strlen( $st1 );
1000 $shorter = strlen( $st2 );
1001 if ( $fl < $shorter ) { $shorter = $fl; }
1003 for ( $i = 0; $i < $shorter; ++$i ) {
1004 if ( $st1{$i} != $st2{$i} ) { break; }
1006 return $i;
1008 # These next three functions open, continue, and close the list
1009 # element appropriate to the prefix character passed into them.
1011 /* private */ function openList( $char )
1013 $result = $this->closeParagraph();
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;
1022 else { $result = "<!-- ERR 1 -->"; }
1024 return $result;
1027 /* private */ function nextItem( $char )
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>";
1041 return "<!-- ERR 2 -->";
1044 /* private */function closeList( $char )
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>";
1056 return "<!-- ERR 3 -->";
1059 /* private */ function doBlockLevels( $text, $linestart )
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.
1066 $a = explode( "\n", $text );
1067 $text = $lastPref = "";
1068 $this->mDTopen = $inBlockElem = false;
1070 if ( ! $linestart ) { $text .= array_shift( $a ); }
1071 foreach ( $a as $t ) {
1072 if ( "" != $text ) { $text .= "\n"; }
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 );
1081 if ( 0 != $npl && 0 == strcmp( $lastPref, $pref2 ) ) {
1082 $text .= $this->nextItem( substr( $pref, -1 ) );
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 );
1092 } else if (0 != $npl || 0 != $opl) {
1093 $cpl = $this->getCommon( $pref, $lastPref );
1095 while ( $cpl < $opl ) {
1096 $text .= $this->closeList( $lastPref{$opl-1} );
1097 --$opl;
1099 if ( $npl <= $cpl && $cpl > 0 ) {
1100 $text .= $this->nextItem( $pref{$cpl-1} );
1102 while ( $npl > $cpl ) {
1103 $char = substr( $pref, $cpl, 1 );
1104 $text .= $this->openList( $char );
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 );
1114 ++$cpl;
1116 $lastPref = $pref2;
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;
1124 if ( ! $inBlockElem ) {
1125 if ( " " == $t{0} ) {
1126 $newSection = "pre";
1127 # $t = wfEscapeHTML( $t );
1129 else { $newSection = "p"; }
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 . ">";
1141 $this->mLastSection = $newSection;
1143 if ( $inBlockElem &&
1144 preg_match( "/(<\\/table|<\\/blockquote|<\\/h1|<\\/h2|<\\/h3|<\\/h4|<\\/h5|<\\/h6)/i", $t ) ) {
1145 $inBlockElem = false;
1148 $text .= $t;
1150 while ( $npl ) {
1151 $text .= $this->closeList( $pref2{$npl-1} );
1152 --$npl;
1154 if ( "" != $this->mLastSection ) {
1155 if ( "p" != $this->mLastSection ) {
1156 $text .= "</" . $this->mLastSection . ">";
1158 $this->mLastSection = "";
1160 wfProfileOut();
1161 return $text;
1164 /* private */ function replaceVariables( $text )
1166 global $wgLang;
1167 wfProfileIn( "OutputPage:replaceVariables" );
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 );
1175 $v = $wgLang->getMonthName( date( "n" ) );
1176 $mw =& MagicWord::get( MAG_CURRENTMONTHNAME );
1177 $text = $mw->replace( $v, $text );
1179 $v = $wgLang->getMonthNameGen( date( "n" ) );
1180 $mw =& MagicWord::get( MAG_CURRENTMONTHNAMEGEN );
1181 $text = $mw->replace( $v, $text );
1183 $v = date( "j" );
1184 $mw = MagicWord::get( MAG_CURRENTDAY );
1185 $text = $mw->replace( $v, $text );
1187 $v = $wgLang->getWeekdayName( date( "w" )+1 );
1188 $mw =& MagicWord::get( MAG_CURRENTDAYNAME );
1189 $text = $mw->replace( $v, $text );
1191 $v = date( "Y" );
1192 $mw =& MagicWord::get( MAG_CURRENTYEAR );
1193 $text = $mw->replace( $v, $text );
1195 $v = $wgLang->time( wfTimestampNow(), false );
1196 $mw =& MagicWord::get( MAG_CURRENTTIME );
1197 $text = $mw->replace( $v, $text );
1199 $mw =& MagicWord::get( MAG_NUMBEROFARTICLES );
1200 if ( $mw->match( $text ) ) {
1201 $v = wfNumberOfArticles();
1202 $text = $mw->replace( $v, $text );
1204 wfProfileOut();
1205 return $text;
1208 /* private */ function removeHTMLtags( $text )
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"
1218 $htmlsingle = array(
1219 "br", "p", "hr", "li", "dt", "dd"
1221 $htmlnest = array( # Tags that can be nested--??
1222 "table", "tr", "td", "th", "div", "blockquote", "ol", "ul",
1223 "dl", "font", "big", "small", "sub", "sup"
1225 $tabletags = array( # Can only appear inside table
1226 "td", "th", "tr"
1229 $htmlsingle = array_merge( $tabletags, $htmlsingle );
1230 $htmlelements = array_merge( $htmlsingle, $htmlpairs );
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 */
1245 # Remove HTML comments
1246 $text = preg_replace( "/<!--.*-->/sU", "", $text );
1248 $bits = explode( "<", $text );
1249 $text = array_shift( $bits );
1250 $tagstack = array(); $tablestack = array();
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 );
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 );
1272 $newparams = "";
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();
1287 array_push( $tagstack, $t );
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);
1295 if ( ! $badtag ) {
1296 $rest = str_replace( ">", "&gt;", $rest );
1297 $text .= "<$slash$t$newparams$brace$rest";
1298 continue;
1301 $text .= "&lt;" . str_replace( ">", "&gt;", $x);
1303 # Close off any remaining tags
1304 while ( $t = array_pop( $tagstack ) ) {
1305 $text .= "</$t>\n";
1306 if ( $t == "table" ) { $tagstack = array_pop( $tablestack ); }
1308 wfProfileOut();
1309 return $text;
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
1321 * It loops through all headlines, collects the necessary data, then splits up the
1322 * string and re-inserts the newly formatted headlines.
1324 * */
1325 /* private */ function formatHeadings( $text )
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" );
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 );
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;}
1346 # We need this to perform operations on the HTML
1347 $sk=$wgUser->getSkin();
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);
1353 # headline counter
1354 $c=0;
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) {
1363 $h[$level]=0; // reset when we enter a new level
1364 $toc.=$sk->tocIndent($level-$prevlevel);
1365 $toclevel+=$level-$prevlevel;
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;
1374 $h[$level]++; // count number of headlines for each level
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;
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
1400 $anchor=$canonized_headline;
1401 if($refcount[$c]>1) {$anchor.="_".$refcount[$c];}
1402 if($st) {
1403 $toc.=$sk->tocLine($anchor,$tocline,$toclevel);
1405 if($es && !isset($wpPreview)) {
1406 $head[$c].=$sk->editSectionLink($c+1);
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]);
1416 $numbering="";
1417 $c++;
1418 $dot=0;
1421 if($st) {
1422 $toclines=$c;
1423 $toc.=$sk->tocUnindent($toclevel);
1424 $toc=$sk->tocTable($toc);
1427 // split up and insert constructed headlines
1429 $blocks=preg_split("/<H[1-6].*?>.*?<\/H[1-6]>/i",$text);
1430 $i=0;
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);
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;
1445 $full.=$head[$i];
1446 $i++;
1448 return $full;
1451 /* private */ function magicISBN( $text )
1453 global $wgLang;
1455 $a = split( "ISBN ", " $text" );
1456 if ( count ( $a ) < 2 ) return $text;
1457 $text = substr( array_shift( $a ), 1);
1458 $valid = "0123456789-ABCDEFGHIJKLMNOPQRSTUVWXYZ";
1460 foreach ( $a as $x ) {
1461 $isbn = $blank = "" ;
1462 while ( " " == $x{0} ) {
1463 $blank .= " ";
1464 $x = substr( $x, 1 );
1466 while ( strstr( $valid, $x{0} ) != false ) {
1467 $isbn .= $x{0};
1468 $x = substr( $x, 1 );
1470 $num = str_replace( "-", "", $isbn );
1471 $num = str_replace( " ", "", $num );
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;
1481 return $text;
1484 /* private */ function magicRFC( $text )
1486 return $text;
1489 /* private */ function headElement()
1491 global $wgDocType, $wgDTD, $wgUser, $wgLanguageCode, $wgOutputEncoding, $wgLang;
1493 $ret = "<!DOCTYPE HTML PUBLIC \"$wgDocType\"\n \"$wgDTD\">\n";
1495 if ( "" == $this->mHTMLtitle ) {
1496 $this->mHTMLtitle = $this->mPagetitle;
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";
1508 $ret .= "<meta $a=\"{$tag[0]}\" content=\"{$tag[1]}\">\n";
1510 $p = $this->mRobotpolicy;
1511 if ( "" == $p ) { $p = "index,follow"; }
1512 $ret .= "<meta name=\"robots\" content=\"$p\">\n";
1514 if ( count( $this->mKeywords ) > 0 ) {
1515 $ret .= "<meta name=\"keywords\" content=\"" .
1516 implode( ",", $this->mKeywords ) . "\">\n";
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";
1524 $sk = $wgUser->getSkin();
1525 $ret .= $sk->getHeadScripts();
1526 $ret .= $sk->getUserStyles();
1528 $ret .= "</head>\n";
1529 return $ret;