3 * Split off some of the internal bits from Skin.php.
4 * These functions are used for primarily page content:
5 * links, embedded images, table of contents. Links are
6 * also used in the skin.
11 * For the moment, Skin is a descendent class of Linker.
12 * In the future, it should probably be further split
13 * so that ever other bit of the wiki doesn't have to
14 * go loading up Skin to get at it.
25 function postParseLinkColour( $s = NULL ) {
30 function getExternalLinkAttributes( $link, $text, $class='' ) {
33 $same = ($link == $text);
34 $link = urldecode( $link );
35 $link = $wgContLang->checkTitleEncoding( $link );
36 $link = preg_replace( '/[\\x00-\\x1f_]/', ' ', $link );
37 $link = htmlspecialchars( $link );
39 $r = ($class != '') ?
" class='$class'" : " class='external'";
41 $r .= " title=\"{$link}\"";
46 function getInternalLinkAttributes( $link, $text, $broken = false ) {
47 $link = urldecode( $link );
48 $link = str_replace( '_', ' ', $link );
49 $link = htmlspecialchars( $link );
51 if( $broken == 'stub' ) {
53 } else if ( $broken == 'yes' ) {
59 $r .= " title=\"{$link}\"";
66 function getInternalLinkAttributesObj( &$nt, $text, $broken = false ) {
67 if( $broken == 'stub' ) {
69 } else if ( $broken == 'yes' ) {
75 $r .= ' title="' . $nt->getEscapedText() . '"';
80 * Note: This function MUST call getArticleID() on the link,
81 * otherwise the cache won't get updated properly. See LINKCACHE.DOC.
83 function makeLink( $title, $text = '', $query = '', $trail = '' ) {
84 wfProfileIn( 'Linker::makeLink' );
85 $nt = Title
::newFromText( $title );
87 $result = $this->makeLinkObj( Title
::newFromText( $title ), $text, $query, $trail );
89 wfDebug( 'Invalid title passed to Linker::makeLink(): "'.$title."\"\n" );
90 $result = $text == "" ?
$title : $text;
93 wfProfileOut( 'Linker::makeLink' );
98 function makeKnownLink( $title, $text = '', $query = '', $trail = '', $prefix = '',$aprops = '') {
99 $nt = Title
::newFromText( $title );
101 return $this->makeKnownLinkObj( Title
::newFromText( $title ), $text, $query, $trail, $prefix , $aprops );
103 wfDebug( 'Invalid title passed to Linker::makeKnownLink(): "'.$title."\"\n" );
104 return $text == '' ?
$title : $text;
108 /** @todo document */
109 function makeBrokenLink( $title, $text = '', $query = '', $trail = '' ) {
110 $nt = Title
::newFromText( $title );
112 return $this->makeBrokenLinkObj( Title
::newFromText( $title ), $text, $query, $trail );
114 wfDebug( 'Invalid title passed to Linker::makeBrokenLink(): "'.$title."\"\n" );
115 return $text == '' ?
$title : $text;
119 /** @todo document */
120 function makeStubLink( $title, $text = '', $query = '', $trail = '' ) {
121 $nt = Title
::newFromText( $title );
123 return $this->makeStubLinkObj( Title
::newFromText( $title ), $text, $query, $trail );
125 wfDebug( 'Invalid title passed to Linker::makeStubLink(): "'.$title."\"\n" );
126 return $text == '' ?
$title : $text;
131 * Pass a title object, not a title string
133 function makeLinkObj( &$nt, $text= '', $query = '', $trail = '', $prefix = '' ) {
134 global $wgOut, $wgUser;
135 $fname = 'Linker::makeLinkObj';
136 wfProfileIn( $fname );
139 if ( ! is_object($nt) ) {
140 # wfDebugDieBacktrace();
141 wfProfileOut( $fname );
142 return "<!-- ERROR -->{$prefix}{$text}{$trail}";
145 $ns = $nt->getNamespace();
146 $dbkey = $nt->getDBkey();
147 if ( $nt->isExternal() ) {
148 $u = $nt->getFullURL();
149 $link = $nt->getPrefixedURL();
150 if ( '' == $text ) { $text = $nt->getPrefixedText(); }
151 $style = $this->getExternalLinkAttributes( $link, $text, 'extiw' );
154 if ( '' != $trail ) {
155 if ( preg_match( '/^([a-z]+)(.*)$$/sD', $trail, $m ) ) {
161 # Check for anchors, normalize the anchor
163 $parts = explode( '#', $u, 2 );
164 if ( count( $parts ) == 2 ) {
165 $anchor = urlencode( Sanitizer
::decodeCharReferences( str_replace(' ', '_', $parts[1] ) ) );
166 $replacearray = array(
170 $u = $parts[0] . '#' .
171 str_replace( array_keys( $replacearray ),
172 array_values( $replacearray ),
176 $t = "<a href=\"{$u}\"{$style}>{$text}{$inside}</a>";
178 wfProfileOut( $fname );
180 } elseif ( $nt->isAlwaysKnown() ) {
181 # Image links, special page links and self-links with fragements are always known.
182 $retVal = $this->makeKnownLinkObj( $nt, $text, $query, $trail, $prefix );
184 wfProfileIn( $fname.'-immediate' );
185 # Work out link colour immediately
186 $aid = $nt->getArticleID() ;
188 $retVal = $this->makeBrokenLinkObj( $nt, $text, $query, $trail, $prefix );
190 $threshold = $wgUser->getOption('stubthreshold') ;
191 if ( $threshold > 0 ) {
192 $dbr =& wfGetDB( DB_SLAVE
);
193 $s = $dbr->selectRow(
197 'page_is_redirect' ),
198 array( 'page_id' => $aid ), $fname ) ;
199 if ( $s !== false ) {
200 $size = $s->page_len
;
201 if ( $s->page_is_redirect
OR $s->page_namespace
!= NS_MAIN
) {
202 $size = $threshold*2 ; # Really big
205 $size = $threshold*2 ; # Really big
210 if ( $size < $threshold ) {
211 $retVal = $this->makeStubLinkObj( $nt, $text, $query, $trail, $prefix );
213 $retVal = $this->makeKnownLinkObj( $nt, $text, $query, $trail, $prefix );
216 wfProfileOut( $fname.'-immediate' );
218 wfProfileOut( $fname );
223 * Pass a title object, not a title string
225 function makeKnownLinkObj( $nt, $text = '', $query = '', $trail = '', $prefix = '' , $aprops = '' ) {
226 global $wgOut, $wgTitle;
228 $fname = 'Linker::makeKnownLinkObj';
229 wfProfileIn( $fname );
231 if ( !is_object( $nt ) ) {
232 wfProfileOut( $fname );
236 $u = $nt->escapeLocalURL( $query );
237 if ( '' != $nt->getFragment() ) {
238 if( $nt->getPrefixedDbkey() == '' ) {
241 $text = htmlspecialchars( $nt->getFragment() );
244 $anchor = urlencode( Sanitizer
::decodeCharReferences( str_replace( ' ', '_', $nt->getFragment() ) ) );
245 $replacearray = array(
249 $u .= '#' . str_replace(array_keys($replacearray),array_values($replacearray),$anchor);
252 $text = htmlspecialchars( $nt->getPrefixedText() );
254 $style = $this->getInternalLinkAttributesObj( $nt, $text );
256 list( $inside, $trail ) = Linker
::splitTrail( $trail );
257 $r = "<a href=\"{$u}\"{$style}{$aprops}>{$prefix}{$text}{$inside}</a>{$trail}";
258 wfProfileOut( $fname );
263 * Pass a title object, not a title string
265 function makeBrokenLinkObj( $nt, $text = '', $query = '', $trail = '', $prefix = '' ) {
267 if ( ! isset($nt) ) {
268 # wfDebugDieBacktrace();
269 return "<!-- ERROR -->{$prefix}{$text}{$trail}";
272 $fname = 'Linker::makeBrokenLinkObj';
273 wfProfileIn( $fname );
275 if ( '' == $query ) {
278 $q = 'action=edit&'.$query;
280 $u = $nt->escapeLocalURL( $q );
283 $text = htmlspecialchars( $nt->getPrefixedText() );
285 $style = $this->getInternalLinkAttributesObj( $nt, $text, "yes" );
287 list( $inside, $trail ) = Linker
::splitTrail( $trail );
288 $s = "<a href=\"{$u}\"{$style}>{$prefix}{$text}{$inside}</a>{$trail}";
290 wfProfileOut( $fname );
295 * Pass a title object, not a title string
297 function makeStubLinkObj( $nt, $text = '', $query = '', $trail = '', $prefix = '' ) {
298 $link = $nt->getPrefixedURL();
300 $u = $nt->escapeLocalURL( $query );
303 $text = htmlspecialchars( $nt->getPrefixedText() );
305 $style = $this->getInternalLinkAttributesObj( $nt, $text, 'stub' );
307 list( $inside, $trail ) = Linker
::splitTrail( $trail );
308 $s = "<a href=\"{$u}\"{$style}>{$prefix}{$text}{$inside}</a>{$trail}";
313 * Generate either a normal exists-style link or a stub link, depending
314 * on the given page size.
318 * @param string $text
319 * @param string $query
320 * @param string $trail
321 * @param string $prefix
322 * @return string HTML of link
324 function makeSizeLinkObj( $size, $nt, $text = '', $query = '', $trail = '', $prefix = '' ) {
326 $threshold = IntVal( $wgUser->getOption( 'stubthreshold' ) );
327 if( $size < $threshold ) {
328 return $this->makeStubLinkObj( $nt, $text, $query, $trail, $prefix );
330 return $this->makeKnownLinkObj( $nt, $text, $query, $trail, $prefix );
334 /** @todo document */
335 function makeSelfLinkObj( $nt, $text = '', $query = '', $trail = '', $prefix = '' ) {
336 $u = $nt->escapeLocalURL( $query );
338 $text = htmlspecialchars( $nt->getPrefixedText() );
340 list( $inside, $trail ) = Linker
::splitTrail( $trail );
341 return "<strong>{$prefix}{$text}{$inside}</strong>{$trail}";
344 /** @todo document */
345 function fnamePart( $url ) {
346 $basename = strrchr( $url, '/' );
347 if ( false === $basename ) {
350 $basename = substr( $basename, 1 );
352 return htmlspecialchars( $basename );
355 /** Obsolete alias */
356 function makeImage( $url, $alt = '' ) {
357 return $this->makeExternalImage( $url, $alt );
360 /** @todo document */
361 function makeExternalImage( $url, $alt = '' ) {
364 $alt = $this->fnamePart( $url );
366 $s = '<img src="'.$url.'" alt="'.$alt.'" />';
370 /** @todo document */
371 function makeImageLinkObj( &$nt, $label, $alt, $align = '', $width = false, $height = false, $framed = false,
372 $thumb = false, $manual_thumb = '' )
374 global $wgContLang, $wgUser, $wgThumbLimits;
376 $img = new Image( $nt );
377 $url = $img->getViewURL();
378 $prefix = $postfix = '';
380 if ( 'center' == $align )
382 $prefix = '<div class="center">';
387 if ( $thumb ||
$framed ) {
389 # Create a thumbnail. Alignment depends on language
390 # writing direction, # right aligned for left-to-right-
391 # languages ("Western languages"), left-aligned
392 # for right-to-left-languages ("Semitic languages")
394 # If thumbnail width has not been provided, it is set
395 # to the default user option as specified in Language*.php
396 if ( $align == '' ) {
397 $align = $wgContLang->isRTL() ?
'left' : 'right';
401 if ( $width === false ) {
402 $wopt = $wgUser->getOption( 'thumbsize' );
404 if( !isset( $wgThumbLimits[$wopt] ) ) {
405 $wopt = User
::getDefaultOption( 'thumbsize' );
408 $width = $wgThumbLimits[$wopt];
411 return $prefix.$this->makeThumbLinkObj( $img, $label, $alt, $align, $width, $height, $framed, $manual_thumb ).$postfix;
413 } elseif ( $width ) {
415 # Create a resized image, without the additional thumbnail
418 if ( $height !== false && ( $img->getHeight() * $width / $img->getWidth() > $height ) ) {
419 $width = $img->getWidth() * $height / $img->getHeight();
421 if ( '' == $manual_thumb ) {
422 $thumb = $img->getThumbnail( $width );
423 $height = $thumb->height
;
424 $url = $thumb->getUrl( );
428 $u = $nt->escapeLocalURL();
430 $s = $this->makeBrokenImageLinkObj( $img->getTitle() );
431 //$s .= "<br />{$alt}<br />{$url}<br />\n";
433 $s = '<a href="'.$u.'" class="image" title="'.$alt.'">' .
434 '<img src="'.$url.'" alt="'.$alt.'" ' .
435 'width="'.$width.'" height="'.$height.'" ' .
436 'longdesc="'.$u.'" /></a>';
438 if ( '' != $align ) {
439 $s = "<div class=\"float{$align}\"><span>{$s}</span></div>";
441 return str_replace("\n", ' ',$prefix.$s.$postfix);
445 * Make HTML for a thumbnail including image, border and caption
446 * $img is an Image object
448 function makeThumbLinkObj( $img, $label = '', $alt, $align = 'right', $boxwidth = 180, $boxheight=false, $framed=false , $manual_thumb = "" ) {
449 global $wgStylePath, $wgContLang;
450 $url = $img->getViewURL();
452 $width = $height = 0;
453 if ( $img->exists() )
455 $width = $img->getWidth();
456 $height = $img->getHeight();
458 if ( 0 == $width ||
0 == $height )
460 $width = $height = 200;
462 if ( $boxwidth == 0 )
468 // Use image dimensions, don't scale
470 $oboxwidth = $boxwidth +
2;
471 $boxheight = $height;
474 $h = intval( $height/($width/$boxwidth) );
475 $oboxwidth = $boxwidth +
2;
476 if ( ( ! $boxheight === false ) && ( $h > $boxheight ) )
478 $boxwidth *= $boxheight/$h;
482 if ( '' == $manual_thumb ) $thumbUrl = $img->createThumb( $boxwidth );
485 if ( $manual_thumb != '' ) # Use manually specified thumbnail
487 $manual_title = Title
::makeTitleSafe( NS_IMAGE
, $manual_thumb ); #new Title ( $manual_thumb ) ;
488 $manual_img = new Image( $manual_title );
489 $thumbUrl = $manual_img->getViewURL();
490 if ( $manual_img->exists() )
492 $width = $manual_img->getWidth();
493 $height = $manual_img->getHeight();
495 $boxheight = $height ;
496 $oboxwidth = $boxwidth +
2 ;
500 $u = $img->getEscapeLocalURL();
502 $more = htmlspecialchars( wfMsg( 'thumbnail-more' ) );
503 $magnifyalign = $wgContLang->isRTL() ?
'left' : 'right';
504 $textalign = $wgContLang->isRTL() ?
' style="text-align:right"' : '';
506 $s = "<div class=\"thumb t{$align}\"><div style=\"width:{$oboxwidth}px;\">";
507 if ( $thumbUrl == '' ) {
508 $s .= $this->makeBrokenImageLinkObj( $img->getTitle
);
511 $s .= '<a href="'.$u.'" class="internal" title="'.$alt.'">'.
512 '<img src="'.$thumbUrl.'" alt="'.$alt.'" ' .
513 'width="'.$boxwidth.'" height="'.$boxheight.'" ' .
514 'longdesc="'.$u.'" /></a>';
518 $zoomicon = '<div class="magnify" style="float:'.$magnifyalign.'">'.
519 '<a href="'.$u.'" class="internal" title="'.$more.'">'.
520 '<img src="'.$wgStylePath.'/common/images/magnify-clip.png" ' .
521 'width="15" height="11" alt="'.$more.'" /></a></div>';
524 $s .= ' <div class="thumbcaption" '.$textalign.'>'.$zoomicon.$label."</div></div></div>";
525 return str_replace("\n", ' ', $s);
529 * Pass a title object, not a title string
531 function makeBrokenImageLinkObj( &$nt, $text = '', $query = '', $trail = '', $prefix = '' ) {
533 if ( ! isset($nt) ) {
534 # wfDebugDieBacktrace();
535 return "<!-- ERROR -->{$prefix}{$text}{$trail}";
538 $fname = 'Linker::makeBrokenImageLinkObj';
539 wfProfileIn( $fname );
541 $q = 'wpDestFile=' . urlencode( $nt->getDBkey() );
542 if ( '' != $query ) {
545 $uploadTitle = Title
::makeTitle( NS_SPECIAL
, 'Upload' );
546 $url = $uploadTitle->escapeLocalURL( $q );
549 $text = htmlspecialchars( $nt->getPrefixedText() );
551 $style = $this->getInternalLinkAttributesObj( $nt, $text, "yes" );
552 list( $inside, $trail ) = Linker
::splitTrail( $trail );
553 $s = "<a href=\"{$url}\"{$style}>{$prefix}{$text}{$inside}</a>{$trail}";
555 wfProfileOut( $fname );
559 /** @todo document */
560 function makeMediaLink( $name, $url, $alt = '' ) {
561 $nt = Title
::makeTitleSafe( NS_IMAGE
, $name );
562 return $this->makeMediaLinkObj( $nt, $alt );
566 * Create a direct link to a given uploaded file.
568 * @param Title $title
569 * @param string $text pre-sanitized HTML
570 * @param bool $nourl Mask absolute URLs, so the parser doesn't
571 * linkify them (it is currently not context-aware)
572 * @return string HTML
575 * @todo Handle invalid or missing images better.
577 function makeMediaLinkObj( $title, $text = '', $nourl=false ) {
578 if( is_null( $title ) ) {
579 ### HOTFIX. Instead of breaking, return empty string.
582 $name = $title->getDBKey();
583 $img = new Image( $title );
584 if( $img->exists() ) {
585 $url = $img->getURL();
587 $url = str_replace( "http://", "http-noparse://", $url );
591 $upload = Title
::makeTitle( NS_SPECIAL
, 'Upload' );
592 $url = $upload->getLocalUrl( 'wpDestFile=' . urlencode( $img->getName() ) );
595 $alt = htmlspecialchars( $title->getText() );
599 $u = htmlspecialchars( $url );
600 return "<a href=\"{$u}\" class='$class' title=\"{$alt}\">{$text}</a>";
604 /** @todo document */
605 function specialLink( $name, $key = '' ) {
608 if ( '' == $key ) { $key = strtolower( $name ); }
609 $pn = $wgContLang->ucfirst( $name );
610 return $this->makeKnownLink( $wgContLang->specialPage( $pn ),
614 /** @todo document */
615 function makeExternalLink( $url, $text, $escape = true, $linktype = '' ) {
616 $style = $this->getExternalLinkAttributes( $url, $text, 'external ' . $linktype );
617 global $wgNoFollowLinks;
618 if( $wgNoFollowLinks ) {
619 $style .= ' rel="nofollow"';
621 $url = htmlspecialchars( $url );
623 $text = htmlspecialchars( $text );
625 return '<a href="'.$url.'"'.$style.'>'.$text.'</a>';
629 * This function is called by all recent changes variants, by the page history,
630 * and by the user contributions list. It is responsible for formatting edit
631 * comments. It escapes any HTML in the comment, but adds some CSS to format
632 * auto-generated comments (from section editing) and formats [[wikilinks]].
634 * The &$title parameter must be a title OBJECT. It is used to generate a
635 * direct link to the section in the autocomment.
636 * @author Erik Moeller <moeller@scireview.de>
638 * Note: there's not always a title to pass to this function.
639 * Since you can't set a default parameter for a reference, I've turned it
640 * temporarily to a value pass. Should be adjusted further. --brion
642 function formatComment($comment, $title = NULL) {
643 $fname = 'Linker::formatComment';
644 wfProfileIn( $fname );
647 $comment = str_replace( "\n", " ", $comment );
648 $comment = htmlspecialchars( $comment );
650 # The pattern for autogen comments is / * foo * /, which makes for
652 # We look for all comments, match any text before and after the comment,
653 # add a separator where needed and format the comment itself with CSS
654 while (preg_match('/(.*)\/\*\s*(.*?)\s*\*\/(.*)/', $comment,$match)) {
662 # This is hackish but should work in most cases.
663 $section=str_replace('[[','',$section);
664 $section=str_replace(']]','',$section);
665 $title->mFragment
=$section;
666 $link=$this->makeKnownLinkObj($title,wfMsg('sectionlink'));
670 if($pre) { $auto = $sep.' '.$auto; }
671 if($post) { $auto .= ' '.$sep; }
672 $auto='<span class="autocomment">'.$auto.'</span>';
673 $comment=$pre.$auto.$post;
676 # format regular and media links - all other wiki formatting
678 $medians = $wgContLang->getNsText( NS_MEDIA
) . ':';
679 while(preg_match('/\[\[(.*?)(\|(.*?))*\]\](.*)$/',$comment,$match)) {
680 # Handle link renaming [[foo|text]] will show link as "text"
681 if( "" != $match[3] ) {
686 if( preg_match( '/^' . $medians . '(.*)$/i', $match[1], $submatch ) ) {
687 # Media link; trail not supported.
688 $linkRegexp = '/\[\[(.*?)\]\]/';
689 $thelink = $this->makeMediaLink( $submatch[1], "", $text );
692 if( preg_match( wfMsgForContent( "linktrail" ), $match[4], $submatch ) ) {
693 $trail = $submatch[1];
697 $linkRegexp = '/\[\[(.*?)\]\]' . preg_quote( $trail, '/' ) . '/';
698 if ($match[1][0] == ':')
699 $match[1] = substr($match[1], 1);
700 $thelink = $this->makeLink( $match[1], $text, "", $trail );
702 $comment = preg_replace( $linkRegexp, $thelink, $comment, 1 );
704 wfProfileOut( $fname );
709 * Wrap a comment in standard punctuation and formatting if
710 * it's non-empty, otherwise return empty string.
712 * @param string $comment
713 * @param Title $title
717 function commentBlock( $comment, $title = NULL ) {
718 if( $comment == '' ||
$comment == '*' ) {
721 $formatted = $this->formatComment( $comment, $title );
722 return " <span class='comment'>($formatted)</span>";
726 /** @todo document */
727 function tocIndent() {
731 /** @todo document */
732 function tocUnindent($level) {
733 return "</li>\n" . str_repeat( "</ul>\n</li>\n", $level>0 ?
$level : 0 );
737 * parameter level defines if we are on an indentation level
739 function tocLine( $anchor, $tocline, $tocnumber, $level ) {
740 return "\n<li class='toclevel-$level'><a href=\"#" .
741 $anchor . '"><span class="tocnumber">' .
742 $tocnumber . '</span> <span class="toctext">' .
743 $tocline . '</span></a>';
746 /** @todo document */
747 function tocLineEnd() {
751 /** @todo document */
752 function tocList($toc) {
753 global $wgJsMimeType;
754 return "<table id='toc' class='toc'><tr><td>"
755 . "<div id='toctitle'><h2>" . wfMsgForContent('toc') . "</h2></div>\n"
757 . "</ul>\n</td></tr></table>\n"
758 . '<script type="'.$wgJsMimeType.'">'
759 . ' if (window.showTocToggle) {'
760 . ' var tocShowText = "' . wfEscapeJsString( wfMsgForContent('showtoc') ) . '";'
761 . ' var tocHideText = "' . wfEscapeJsString( wfMsgForContent('hidetoc') ) . '";'
762 . ' showTocToggle();'
767 /** @todo document */
768 function editSectionLinkForOther( $title, $section ) {
772 $title = Title
::newFromText($title);
773 $editurl = '§ion='.$section;
774 $url = $this->makeKnownLink($title->getPrefixedText(),wfMsg('editsection'),'action=edit'.$editurl);
776 if( $wgContLang->isRTL() ) {
783 return "<div class=\"editsection\" style=\"float:$farside;margin-$nearside:5px;\">[".$url."]</div>";
787 /** @todo document */
788 function editSectionLink( $nt, $section ) {
792 if( $wgRequest->getInt( 'oldid' ) && ( $wgRequest->getVal( 'diff' ) != '0' ) ) {
793 # Section edit links would be out of sync on an old page.
794 # But, if we're diffing to the current page, they'll be
799 $editurl = '§ion='.$section;
800 $url = $this->makeKnownLink($nt->getPrefixedText(),wfMsg('editsection'),'action=edit'.$editurl);
802 if( $wgContLang->isRTL() ) {
809 return "<div class=\"editsection\" style=\"float:$farside;margin-$nearside:5px;\">[".$url."]</div>";
813 * Split a link trail, return the "inside" portion and the remainder of the trail
814 * as a two-element array
818 function splitTrail( $trail ) {
819 static $regex = false;
820 if ( $regex === false ) {
822 $regex = $wgContLang->linkTrail();
825 if ( '' != $trail ) {
826 if ( preg_match( $regex, $trail, $m ) ) {
831 return array( $inside, $trail );