/**
* Process [[ ]] wikilinks (RIL)
* @param $s
* @throws MWException
* @return LinkHolderArray
*
* @private
*/
function replaceInternalLinks2(&$s)
{
wfProfileIn(__METHOD__);
wfProfileIn(__METHOD__ . '-setup');
static $tc = false, $e1, $e1_img;
# the % is needed to support urlencoded titles as well
if (!$tc) {
$tc = Title::legalChars() . '#%';
# Match a link having the form [[namespace:link|alternate]]trail
$e1 = "/^([{$tc}]+)(?:\\|(.+?))?]](.*)\$/sD";
# Match cases where there is no "]]", which might still be images
$e1_img = "/^([{$tc}]+)\\|(.*)\$/sD";
}
$holders = new LinkHolderArray($this);
# split the entire text string on occurrences of [[
$a = StringUtils::explode('[[', ' ' . $s);
# get the first element (all text up to first [[), and remove the space we added
$s = $a->current();
$a->next();
$line = $a->current();
# Workaround for broken ArrayIterator::next() that returns "void"
$s = substr($s, 1);
$useLinkPrefixExtension = $this->getTargetLanguage()->linkPrefixExtension();
$e2 = null;
if ($useLinkPrefixExtension) {
# Match the end of a line for a word that's not followed by whitespace,
# e.g. in the case of 'The Arab al[[Razi]]', 'al' will be matched
global $wgContLang;
$charset = $wgContLang->linkPrefixCharset();
$e2 = "/^((?>.*[^{$charset}]|))(.+)\$/sDu";
}
if (is_null($this->mTitle)) {
wfProfileOut(__METHOD__ . '-setup');
wfProfileOut(__METHOD__);
throw new MWException(__METHOD__ . ": \$this->mTitle is null\n");
}
$nottalk = !$this->mTitle->isTalkPage();
if ($useLinkPrefixExtension) {
$m = array();
if (preg_match($e2, $s, $m)) {
$first_prefix = $m[2];
} else {
$first_prefix = false;
}
} else {
$prefix = '';
}
$useSubpages = $this->areSubpagesAllowed();
wfProfileOut(__METHOD__ . '-setup');
# Loop for each link
for (; $line !== false && $line !== null; $a->next(), $line = $a->current()) {
# Check for excessive memory usage
if ($holders->isBig()) {
# Too big
# Do the existence check, replace the link holders and clear the array
$holders->replace($s);
$holders->clear();
}
if ($useLinkPrefixExtension) {
wfProfileIn(__METHOD__ . '-prefixhandling');
if (preg_match($e2, $s, $m)) {
$prefix = $m[2];
$s = $m[1];
} else {
$prefix = '';
}
# first link
if ($first_prefix) {
$prefix = $first_prefix;
$first_prefix = false;
}
wfProfileOut(__METHOD__ . '-prefixhandling');
}
$might_be_img = false;
wfProfileIn(__METHOD__ . "-e1");
if (preg_match($e1, $line, $m)) {
# page with normal text or alt
$text = $m[2];
# If we get a ] at the beginning of $m[3] that means we have a link that's something like:
# [[Image:Foo.jpg|[http://example.com desc]]] <- having three ] in a row f***s up,
# the real problem is with the $e1 regex
# See bug 1300.
#
# Still some problems for cases where the ] is meant to be outside punctuation,
# and no image is in sight. See bug 2095.
#
if ($text !== '' && substr($m[3], 0, 1) === ']' && strpos($text, '[') !== false) {
$text .= ']';
# so that replaceExternalLinks($text) works later
$m[3] = substr($m[3], 1);
}
# fix up urlencoded title texts
if (strpos($m[1], '%') !== false) {
# Should anchors '#' also be rejected?
$m[1] = str_replace(array('<', '>'), array('<', '>'), rawurldecode($m[1]));
}
$trail = $m[3];
} elseif (preg_match($e1_img, $line, $m)) {
# Invalid, but might be an image with a link in its caption
$might_be_img = true;
$text = $m[2];
if (strpos($m[1], '%') !== false) {
$m[1] = rawurldecode($m[1]);
}
$trail = "";
} else {
# Invalid form; output directly
$s .= $prefix . '[[' . $line;
wfProfileOut(__METHOD__ . "-e1");
continue;
}
wfProfileOut(__METHOD__ . "-e1");
wfProfileIn(__METHOD__ . "-misc");
# Don't allow internal links to pages containing
# PROTO: where PROTO is a valid URL protocol; these
# should be external links.
if (preg_match('/^(?i:' . $this->mUrlProtocols . ')/', $m[1])) {
$s .= $prefix . '[[' . $line;
wfProfileOut(__METHOD__ . "-misc");
continue;
}
# Make subpage if necessary
if ($useSubpages) {
$link = $this->maybeDoSubpageLink($m[1], $text);
} else {
$link = $m[1];
}
$noforce = substr($m[1], 0, 1) !== ':';
if (!$noforce) {
# Strip off leading ':'
$link = substr($link, 1);
}
wfProfileOut(__METHOD__ . "-misc");
wfProfileIn(__METHOD__ . "-title");
$nt = Title::newFromText($this->mStripState->unstripNoWiki($link));
if ($nt === null) {
$s .= $prefix . '[[' . $line;
wfProfileOut(__METHOD__ . "-title");
continue;
}
$ns = $nt->getNamespace();
$iw = $nt->getInterwiki();
wfProfileOut(__METHOD__ . "-title");
if ($might_be_img) {
# if this is actually an invalid link
wfProfileIn(__METHOD__ . "-might_be_img");
if ($ns == NS_FILE && $noforce) {
# but might be an image
$found = false;
while (true) {
# look at the next 'line' to see if we can close it there
$a->next();
$next_line = $a->current();
if ($next_line === false || $next_line === null) {
break;
}
$m = explode(']]', $next_line, 3);
if (count($m) == 3) {
# the first ]] closes the inner link, the second the image
$found = true;
$text .= "[[{$m[0]}]]{$m[1]}";
$trail = $m[2];
break;
} elseif (count($m) == 2) {
# if there's exactly one ]] that's fine, we'll keep looking
$text .= "[[{$m[0]}]]{$m[1]}";
} else {
# if $next_line is invalid too, we need look no further
$text .= '[[' . $next_line;
break;
}
}
if (!$found) {
# we couldn't find the end of this imageLink, so output it raw
# but don't ignore what might be perfectly normal links in the text we've examined
$holders->merge($this->replaceInternalLinks2($text));
$s .= "{$prefix}[[{$link}|{$text}";
# note: no $trail, because without an end, there *is* no trail
wfProfileOut(__METHOD__ . "-might_be_img");
continue;
}
} else {
# it's not an image, so output it raw
$s .= "{$prefix}[[{$link}|{$text}";
# note: no $trail, because without an end, there *is* no trail
wfProfileOut(__METHOD__ . "-might_be_img");
continue;
}
wfProfileOut(__METHOD__ . "-might_be_img");
}
$wasblank = $text == '';
if ($wasblank) {
$text = $link;
} else {
# Bug 4598 madness. Handle the quotes only if they come from the alternate part
# [[Lista d''e paise d''o munno]] -> <a href="...">Lista d''e paise d''o munno</a>
# [[Criticism of Harry Potter|Criticism of ''Harry Potter'']]
# -> <a href="Criticism of Harry Potter">Criticism of <i>Harry Potter</i></a>
$text = $this->doQuotes($text);
}
# Link not escaped by : , create the various objects
if ($noforce) {
# Interwikis
wfProfileIn(__METHOD__ . "-interwiki");
if ($iw && $this->mOptions->getInterwikiMagic() && $nottalk && Language::fetchLanguageName($iw, null, 'mw')) {
// XXX: the above check prevents links to sites with identifiers that are not language codes
# Bug 24502: filter duplicates
if (!isset($this->mLangLinkLanguages[$iw])) {
$this->mLangLinkLanguages[$iw] = true;
$this->mOutput->addLanguageLink($nt->getFullText());
}
$s = rtrim($s . $prefix);
$s .= trim($trail, "\n") == '' ? '' : $prefix . $trail;
wfProfileOut(__METHOD__ . "-interwiki");
continue;
}
wfProfileOut(__METHOD__ . "-interwiki");
if ($ns == NS_FILE) {
wfProfileIn(__METHOD__ . "-image");
if (!wfIsBadImage($nt->getDBkey(), $this->mTitle)) {
if ($wasblank) {
# if no parameters were passed, $text
# becomes something like "File:Foo.png",
# which we don't want to pass on to the
# image generator
$text = '';
} else {
# recursively parse links inside the image caption
# actually, this will parse them in any other parameters, too,
# but it might be hard to fix that, and it doesn't matter ATM
$text = $this->replaceExternalLinks($text);
$holders->merge($this->replaceInternalLinks2($text));
}
# cloak any absolute URLs inside the image markup, so replaceExternalLinks() won't touch them
$s .= $prefix . $this->armorLinks($this->makeImage($nt, $text, $holders)) . $trail;
} else {
$s .= $prefix . $trail;
}
wfProfileOut(__METHOD__ . "-image");
continue;
}
if ($ns == NS_CATEGORY) {
wfProfileIn(__METHOD__ . "-category");
$s = rtrim($s . "\n");
# bug 87
if ($wasblank) {
$sortkey = $this->getDefaultSort();
} else {
$sortkey = $text;
}
$sortkey = Sanitizer::decodeCharReferences($sortkey);
$sortkey = str_replace("\n", '', $sortkey);
$sortkey = $this->getConverterLanguage()->convertCategoryKey($sortkey);
$this->mOutput->addCategory($nt->getDBkey(), $sortkey);
/**
* Strip the whitespace Category links produce, see bug 87
*/
$s .= trim($prefix . $trail, "\n") == '' ? '' : $prefix . $trail;
wfProfileOut(__METHOD__ . "-category");
continue;
}
}
# Self-link checking. For some languages, variants of the title are checked in
# LinkHolderArray::doVariants() to allow batching the existence checks necessary
# for linking to a different variant.
if ($ns != NS_SPECIAL && $nt->equals($this->mTitle) && !$nt->hasFragment()) {
$s .= $prefix . Linker::makeSelfLinkObj($nt, $text, '', $trail);
continue;
}
# NS_MEDIA is a pseudo-namespace for linking directly to a file
# @todo FIXME: Should do batch file existence checks, see comment below
if ($ns == NS_MEDIA) {
wfProfileIn(__METHOD__ . "-media");
# Give extensions a chance to select the file revision for us
$options = array();
$descQuery = false;
wfRunHooks('BeforeParserFetchFileAndTitle', array($this, $nt, &$options, &$descQuery));
# Fetch and register the file (file title may be different via hooks)
list($file, $nt) = $this->fetchFileAndTitle($nt, $options);
# Cloak with NOPARSE to avoid replacement in replaceExternalLinks
$s .= $prefix . $this->armorLinks(Linker::makeMediaLinkFile($nt, $file, $text)) . $trail;
wfProfileOut(__METHOD__ . "-media");
continue;
}
wfProfileIn(__METHOD__ . "-always_known");
# Some titles, such as valid special pages or files in foreign repos, should
# be shown as bluelinks even though they're not included in the page table
#
# @todo FIXME: isAlwaysKnown() can be expensive for file links; we should really do
# batch file existence checks for NS_FILE and NS_MEDIA
if ($iw == '' && $nt->isAlwaysKnown()) {
$this->mOutput->addLink($nt);
$s .= $this->makeKnownLinkHolder($nt, $text, array(), $trail, $prefix);
} else {
# Links will be added to the output link list after checking
$s .= $holders->makeHolder($nt, $text, array(), $trail, $prefix);
}
wfProfileOut(__METHOD__ . "-always_known");
}
wfProfileOut(__METHOD__);
return $holders;
}
public function makeSelfLinkObj($nt, $html = '', $query = '', $trail = '', $prefix = '')
{
return Linker::makeSelfLinkObj($nt, $html, $query, $trail, $prefix);
}
/**
* Replace internal links
* @param string $text
*/
protected function replaceInternal(&$text)
{
if (!$this->internals) {
return;
}
global $wgContLang;
$colours = [];
$linkCache = LinkCache::singleton();
$output = $this->parent->getOutput();
$linkRenderer = $this->parent->getLinkRenderer();
$threshold = $linkRenderer->getStubThreshold();
$dbr = wfGetDB(DB_SLAVE);
# Sort by namespace
ksort($this->internals);
$linkcolour_ids = [];
# Generate query
$lb = new LinkBatch();
$lb->setCaller(__METHOD__);
foreach ($this->internals as $ns => $entries) {
foreach ($entries as $entry) {
/** @var Title $title */
$title = $entry['title'];
$pdbk = $entry['pdbk'];
# Skip invalid entries.
# Result will be ugly, but prevents crash.
if (is_null($title)) {
continue;
}
# Check if it's a static known link, e.g. interwiki
if ($title->isAlwaysKnown()) {
$colours[$pdbk] = '';
} elseif ($ns == NS_SPECIAL) {
$colours[$pdbk] = 'new';
} else {
$id = $linkCache->getGoodLinkID($pdbk);
if ($id != 0) {
$colours[$pdbk] = Linker::getLinkColour($title, $threshold);
$output->addLink($title, $id);
$linkcolour_ids[$id] = $pdbk;
} elseif ($linkCache->isBadLink($pdbk)) {
$colours[$pdbk] = 'new';
} else {
# Not in the link cache, add it to the query
$lb->addObj($title);
}
}
}
}
if (!$lb->isEmpty()) {
$fields = array_merge(LinkCache::getSelectFields(), ['page_namespace', 'page_title']);
$res = $dbr->select('page', $fields, $lb->constructSet('page', $dbr), __METHOD__);
# Fetch data and form into an associative array
# non-existent = broken
foreach ($res as $s) {
$title = Title::makeTitle($s->page_namespace, $s->page_title);
$pdbk = $title->getPrefixedDBkey();
$linkCache->addGoodLinkObjFromRow($title, $s);
$output->addLink($title, $s->page_id);
$colours[$pdbk] = Linker::getLinkColour($title, $threshold);
// add id to the extension todolist
$linkcolour_ids[$s->page_id] = $pdbk;
}
unset($res);
}
if (count($linkcolour_ids)) {
// pass an array of page_ids to an extension
Hooks::run('GetLinkColours', [$linkcolour_ids, &$colours]);
}
# Do a second query for different language variants of links and categories
if ($wgContLang->hasVariants()) {
$this->doVariants($colours);
}
# Construct search and replace arrays
$replacePairs = [];
foreach ($this->internals as $ns => $entries) {
foreach ($entries as $index => $entry) {
$pdbk = $entry['pdbk'];
$title = $entry['title'];
$query = isset($entry['query']) ? $entry['query'] : [];
$key = "{$ns}:{$index}";
$searchkey = "<!--LINK {$key}-->";
$displayText = $entry['text'];
if (isset($entry['selflink'])) {
$replacePairs[$searchkey] = Linker::makeSelfLinkObj($title, $displayText, $query);
continue;
}
if ($displayText === '') {
$displayText = null;
} else {
$displayText = new HtmlArmor($displayText);
}
if (!isset($colours[$pdbk])) {
$colours[$pdbk] = 'new';
}
$attribs = [];
if ($colours[$pdbk] == 'new') {
$linkCache->addBadLinkObj($title);
$output->addLink($title, 0);
$link = $linkRenderer->makeBrokenLink($title, $displayText, $attribs, $query);
} else {
$link = $linkRenderer->makePreloadedLink($title, $displayText, $colours[$pdbk], $attribs, $query);
}
$replacePairs[$searchkey] = $link;
}
}
$replacer = new HashtableReplacer($replacePairs, 1);
# Do the thing
$text = preg_replace_callback('/(<!--LINK .*?-->)/', $replacer->cb(), $text);
}
/**
* Replace internal links
* @param string $text
*/
protected function replaceInternal(&$text)
{
if (!$this->internals) {
return;
}
global $wgContLang, $wgContentHandlerUseDB;
$colours = array();
$linkCache = LinkCache::singleton();
$output = $this->parent->getOutput();
$dbr = wfGetDB(DB_SLAVE);
$threshold = $this->parent->getOptions()->getStubThreshold();
# Sort by namespace
ksort($this->internals);
$linkcolour_ids = array();
# Generate query
$queries = array();
foreach ($this->internals as $ns => $entries) {
foreach ($entries as $entry) {
/** @var Title $title */
$title = $entry['title'];
$pdbk = $entry['pdbk'];
# Skip invalid entries.
# Result will be ugly, but prevents crash.
if (is_null($title)) {
continue;
}
# Check if it's a static known link, e.g. interwiki
if ($title->isAlwaysKnown()) {
$colours[$pdbk] = '';
} elseif ($ns == NS_SPECIAL) {
$colours[$pdbk] = 'new';
} elseif (($id = $linkCache->getGoodLinkID($pdbk)) != 0) {
$colours[$pdbk] = Linker::getLinkColour($title, $threshold);
$output->addLink($title, $id);
$linkcolour_ids[$id] = $pdbk;
} elseif ($linkCache->isBadLink($pdbk)) {
$colours[$pdbk] = 'new';
} else {
# Not in the link cache, add it to the query
$queries[$ns][] = $title->getDBkey();
}
}
}
if ($queries) {
$where = array();
foreach ($queries as $ns => $pages) {
$where[] = $dbr->makeList(array('page_namespace' => $ns, 'page_title' => array_unique($pages)), LIST_AND);
}
$fields = array('page_id', 'page_namespace', 'page_title', 'page_is_redirect', 'page_len', 'page_latest');
if ($wgContentHandlerUseDB) {
$fields[] = 'page_content_model';
}
$res = $dbr->select('page', $fields, $dbr->makeList($where, LIST_OR), __METHOD__);
# Fetch data and form into an associative array
# non-existent = broken
foreach ($res as $s) {
$title = Title::makeTitle($s->page_namespace, $s->page_title);
$pdbk = $title->getPrefixedDBkey();
$linkCache->addGoodLinkObjFromRow($title, $s);
$output->addLink($title, $s->page_id);
# @todo FIXME: Convoluted data flow
# The redirect status and length is passed to getLinkColour via the LinkCache
# Use formal parameters instead
$colours[$pdbk] = Linker::getLinkColour($title, $threshold);
// add id to the extension todolist
$linkcolour_ids[$s->page_id] = $pdbk;
}
unset($res);
}
if (count($linkcolour_ids)) {
// pass an array of page_ids to an extension
Hooks::run('GetLinkColours', array($linkcolour_ids, &$colours));
}
# Do a second query for different language variants of links and categories
if ($wgContLang->hasVariants()) {
$this->doVariants($colours);
}
# Construct search and replace arrays
$replacePairs = array();
foreach ($this->internals as $ns => $entries) {
foreach ($entries as $index => $entry) {
$pdbk = $entry['pdbk'];
$title = $entry['title'];
$query = isset($entry['query']) ? $entry['query'] : array();
$key = "{$ns}:{$index}";
$searchkey = "<!--LINK {$key}-->";
$displayText = $entry['text'];
if (isset($entry['selflink'])) {
$replacePairs[$searchkey] = Linker::makeSelfLinkObj($title, $displayText, $query);
continue;
}
if ($displayText === '') {
$displayText = null;
}
if (!isset($colours[$pdbk])) {
$colours[$pdbk] = 'new';
}
$attribs = array();
if ($colours[$pdbk] == 'new') {
$linkCache->addBadLinkObj($title);
$output->addLink($title, 0);
$type = array('broken');
} else {
if ($colours[$pdbk] != '') {
$attribs['class'] = $colours[$pdbk];
}
$type = array('known', 'noclasses');
}
$replacePairs[$searchkey] = Linker::link($title, $displayText, $attribs, $query, $type);
}
}
$replacer = new HashtableReplacer($replacePairs, 1);
# Do the thing
$text = preg_replace_callback('/(<!--LINK .*?-->)/', $replacer->cb(), $text);
}
/**
* Process [[ ]] wikilinks (RIL)
* @return LinkHolderArray
*
* @private
*/
function replaceInternalLinks2(&$s)
{
wfProfileIn(__METHOD__);
# RTE (Rich Text Editor) - begin
# @author: Inez Korczyński
global $wgRTEParserEnabled;
# RTE (Rich Text Editor) - end
wfProfileIn(__METHOD__ . '-setup');
static $tc = FALSE, $e1, $e1_img;
# the % is needed to support urlencoded titles as well
if (!$tc) {
$tc = Title::legalChars() . '#%';
# Match a link having the form [[namespace:link|alternate]]trail
$e1 = "/^([{$tc}]+)(?:\\|(.+?))?]](.*)\$/sD";
# Match cases where there is no "]]", which might still be images
$e1_img = "/^([{$tc}]+)\\|(.*)\$/sD";
}
$holders = new LinkHolderArray($this);
# split the entire text string on occurences of [[
$a = StringUtils::explode('[[', ' ' . $s);
# get the first element (all text up to first [[), and remove the space we added
$s = $a->current();
$a->next();
$line = $a->current();
# Workaround for broken ArrayIterator::next() that returns "void"
$s = substr($s, 1);
$useLinkPrefixExtension = $this->getTargetLanguage()->linkPrefixExtension();
$e2 = null;
if ($useLinkPrefixExtension) {
# Match the end of a line for a word that's not followed by whitespace,
# e.g. in the case of 'The Arab al[[Razi]]', 'al' will be matched
$e2 = wfMsgForContent('linkprefix');
}
if (is_null($this->mTitle)) {
wfProfileOut(__METHOD__ . '-setup');
wfProfileOut(__METHOD__);
throw new MWException(__METHOD__ . ": \$this->mTitle is null\n");
}
$nottalk = !$this->mTitle->isTalkPage();
if ($useLinkPrefixExtension) {
$m = array();
if (preg_match($e2, $s, $m)) {
$first_prefix = $m[2];
} else {
$first_prefix = false;
}
} else {
$prefix = '';
}
if ($this->getConverterLanguage()->hasVariants()) {
$selflink = $this->getConverterLanguage()->autoConvertToAllVariants($this->mTitle->getPrefixedText());
} else {
$selflink = array($this->mTitle->getPrefixedText());
}
$useSubpages = $this->areSubpagesAllowed();
wfProfileOut(__METHOD__ . '-setup');
# Loop for each link
for (; $line !== false && $line !== null; $a->next(), $line = $a->current()) {
# Check for excessive memory usage
if ($holders->isBig()) {
# Too big
# Do the existence check, replace the link holders and clear the array
$holders->replace($s);
$holders->clear();
}
# RTE (Rich Text Editor) - begin
# @author: Inez Korczyński
if (!empty($wgRTEParserEnabled)) {
$RTE_wikitextIdx = RTEMarker::getDataIdx(RTEMarker::INTERNAL_WIKITEXT, $line);
// decode entities inside links wikimarkup (RT #38844)
if ($pos = strpos($line, ']]')) {
// unmark entities inside link
$link = substr($line, 0, $pos);
$link = RTEParser::unmarkEntities($link);
// leave the rest of the line untouched
$line = $link . substr($line, $pos);
}
}
# RTE - end
if ($useLinkPrefixExtension) {
wfProfileIn(__METHOD__ . '-prefixhandling');
if (preg_match($e2, $s, $m)) {
$prefix = $m[2];
$s = $m[1];
} else {
$prefix = '';
}
# first link
if ($first_prefix) {
$prefix = $first_prefix;
$first_prefix = false;
}
wfProfileOut(__METHOD__ . '-prefixhandling');
}
$might_be_img = false;
wfProfileIn(__METHOD__ . "-e1");
if (preg_match($e1, $line, $m)) {
# page with normal text or alt
$text = $m[2];
# If we get a ] at the beginning of $m[3] that means we have a link that's something like:
# [[Image:Foo.jpg|[http://example.com desc]]] <- having three ] in a row f***s up,
# the real problem is with the $e1 regex
# See bug 1300.
#
# Still some problems for cases where the ] is meant to be outside punctuation,
# and no image is in sight. See bug 2095.
#
if ($text !== '' && substr($m[3], 0, 1) === ']' && strpos($text, '[') !== false) {
$text .= ']';
# so that replaceExternalLinks($text) works later
$m[3] = substr($m[3], 1);
}
# fix up urlencoded title texts
if (strpos($m[1], '%') !== false) {
# Should anchors '#' also be rejected?
$m[1] = str_replace(array('<', '>'), array('<', '>'), rawurldecode($m[1]));
}
$trail = $m[3];
} elseif (preg_match($e1_img, $line, $m)) {
# Invalid, but might be an image with a link in its caption
$might_be_img = true;
$text = $m[2];
if (strpos($m[1], '%') !== false) {
$m[1] = rawurldecode($m[1]);
}
$trail = "";
} else {
# Invalid form; output directly
$s .= $prefix . '[[' . $line;
wfProfileOut(__METHOD__ . "-e1");
continue;
}
wfProfileOut(__METHOD__ . "-e1");
wfProfileIn(__METHOD__ . "-misc");
# Don't allow internal links to pages containing
# PROTO: where PROTO is a valid URL protocol; these
# should be external links.
if (preg_match('/^(?:' . wfUrlProtocols() . ')/', $m[1])) {
$s .= $prefix . '[[' . $line;
wfProfileOut(__METHOD__ . "-misc");
continue;
}
# Make subpage if necessary
if ($useSubpages) {
$link = $this->maybeDoSubpageLink($m[1], $text);
} else {
$link = $m[1];
}
$noforce = substr($m[1], 0, 1) !== ':';
if (!$noforce) {
# Strip off leading ':'
$link = substr($link, 1);
}
wfProfileOut(__METHOD__ . "-misc");
wfProfileIn(__METHOD__ . "-title");
$nt = Title::newFromText($this->mStripState->unstripNoWiki($link));
if ($nt === null) {
$s .= $prefix . '[[' . $line;
wfProfileOut(__METHOD__ . "-title");
continue;
}
$ns = $nt->getNamespace();
$iw = $nt->getInterWiki();
wfProfileOut(__METHOD__ . "-title");
if ($might_be_img) {
# if this is actually an invalid link
wfProfileIn(__METHOD__ . "-might_be_img");
if (($ns == NS_FILE || $ns == NS_VIDEO) && $noforce) {
# but might be an image
$found = false;
while (true) {
# look at the next 'line' to see if we can close it there
$a->next();
$next_line = $a->current();
if ($next_line === false || $next_line === null) {
break;
}
$m = explode(']]', $next_line, 3);
if (count($m) == 3) {
# the first ]] closes the inner link, the second the image
$found = true;
$text .= "[[{$m[0]}]]{$m[1]}";
$trail = $m[2];
break;
} elseif (count($m) == 2) {
# if there's exactly one ]] that's fine, we'll keep looking
$text .= "[[{$m[0]}]]{$m[1]}";
} else {
# if $next_line is invalid too, we need look no further
$text .= '[[' . $next_line;
break;
}
}
if (!$found) {
# we couldn't find the end of this imageLink, so output it raw
# but don't ignore what might be perfectly normal links in the text we've examined
$holders->merge($this->replaceInternalLinks2($text));
$s .= "{$prefix}[[{$link}|{$text}";
# note: no $trail, because without an end, there *is* no trail
wfProfileOut(__METHOD__ . "-might_be_img");
continue;
}
} else {
# it's not an image, so output it raw
$s .= "{$prefix}[[{$link}|{$text}";
# note: no $trail, because without an end, there *is* no trail
wfProfileOut(__METHOD__ . "-might_be_img");
continue;
}
wfProfileOut(__METHOD__ . "-might_be_img");
}
$wasblank = $text == '';
if ($wasblank) {
$text = $link;
} else {
# Bug 4598 madness. Handle the quotes only if they come from the alternate part
# [[Lista d''e paise d''o munno]] -> <a href="...">Lista d''e paise d''o munno</a>
# [[Criticism of Harry Potter|Criticism of ''Harry Potter'']]
# -> <a href="Criticism of Harry Potter">Criticism of <i>Harry Potter</i></a>
$text = $this->doQuotes($text);
}
# Link not escaped by : , create the various objects
if ($noforce) {
global $wgContLang;
# Interwikis
if (empty($wgRTEParserEnabled)) {
# wikia
wfProfileIn(__METHOD__ . "-interwiki");
if ($iw && $this->mOptions->getInterwikiMagic() && $nottalk && $wgContLang->getLanguageName($iw)) {
$this->mOutput->addLanguageLink($nt->getFullText());
$s = rtrim($s . $prefix);
$s .= trim($trail, "\n") == '' ? '' : $prefix . $trail;
wfProfileOut(__METHOD__ . "-interwiki");
continue;
}
wfProfileOut(__METHOD__ . "-interwiki");
}
# wikia
if ($ns == NS_FILE) {
wfProfileIn(__METHOD__ . "-image");
if (!wfIsBadImage($nt->getDBkey(), $this->mTitle)) {
if ($wasblank) {
# if no parameters were passed, $text
# becomes something like "File:Foo.png",
# which we don't want to pass on to the
# image generator
$text = '';
} else {
# recursively parse links inside the image caption
# actually, this will parse them in any other parameters, too,
# but it might be hard to fix that, and it doesn't matter ATM
$text = $this->replaceExternalLinks($text);
$holders->merge($this->replaceInternalLinks2($text));
}
# RTE (Rich Text Editor) - begin
# @author: Inez Korczyński
if (!empty($wgRTEParserEnabled)) {
$text = RTEMarker::generate(RTEMarker::IMAGE_DATA, $RTE_wikitextIdx) . $text;
}
# RTE - end
# cloak any absolute URLs inside the image markup, so replaceExternalLinks() won't touch them
/** wikia
$s .= $prefix . $this->armorLinks(
$this->makeImage( $nt, $text, $holders ) ) . $trail;
wikia **/
# cater for new placeholder-in-template namespace - Bartek
# TODO: Get the hell out with this code from here this can be done in hook handler fired in makeImage function - Inez
if ("Template Placeholder" != $nt->getText()) {
$s .= $prefix . $this->armorLinks($this->makeImage($nt, $text, $holders)) . $trail;
} else {
$s .= $prefix . $this->armorLinks(ImagePlaceholder_makeDullImage($nt, $text, $holders)) . $trail;
}
} else {
$s .= $prefix . $trail;
}
wfProfileOut(__METHOD__ . "-image");
continue;
}
if ($ns == NS_CATEGORY) {
wfProfileIn(__METHOD__ . "-category");
# RTE (Rich Text Editor) - begin
# @author: Inez Korczyński
# Category handling
if (!empty($wgRTEParserEnabled)) {
$dataIdx = RTEData::put('placeholder', array('type' => 'category', 'wikitextIdx' => $RTE_wikitextIdx));
$s .= $prefix . RTEMarker::generate(RTEMarker::PLACEHOLDER, $dataIdx) . $trail;
} else {
$s = rtrim($s . "\n");
# bug 87
if ($wasblank) {
$sortkey = $this->getDefaultSort();
} else {
$sortkey = $text;
}
$sortkey = Sanitizer::decodeCharReferences($sortkey);
$sortkey = str_replace("\n", '', $sortkey);
$sortkey = $this->getConverterLanguage()->convertCategoryKey($sortkey);
$this->mOutput->addCategory($nt->getDBkey(), $sortkey);
/**
* Strip the whitespace Category links produce, see bug 87
* @todo We might want to use trim($tmp, "\n") here.
*/
$s .= trim($prefix . $trail, "\n") == '' ? '' : $prefix . $trail;
}
wfProfileOut(__METHOD__ . "-category");
continue;
}
/* Wikia change begin - @author: Owen Davis */
/* Support for [[Poll:...]] */
if (defined("NS_WIKIA_POLL") && $ns == NS_WIKIA_POLL) {
$poll = WikiaPoll::newFromTitle($nt);
if ($poll instanceof WikiaPoll) {
# RTE (Rich Text Editor) - begin
# @author: Owen Davis
if (!empty($wgRTEParserEnabled)) {
$s .= $prefix . WikiaPollHooks::generateRTE($poll, $nt, $RTE_wikitextIdx) . $trail;
} else {
$s .= $prefix . WikiaPollHooks::generate($poll, $nt) . $trail;
}
# RTE - end
continue;
}
}
/* Wikia change end */
}
# RTE (Rich Text Editor) - begin
# @author: Inez Korczyński
# No special handling for self-linking in RTE mode
# Self-link checking
if (empty($wgRTEParserEnabled) && $nt->getFragment() === '' && $ns != NS_SPECIAL) {
if (in_array($nt->getPrefixedText(), $selflink, true)) {
$s .= $prefix . Linker::makeSelfLinkObj($nt, $text, '', $trail);
continue;
}
}
# RTE - end
# NS_MEDIA is a pseudo-namespace for linking directly to a file
# @todo FIXME: Should do batch file existence checks, see comment below
if ($ns == NS_MEDIA) {
# RTE (Rich Text Editor) - begin
# @author: macbre
# BugId:1694 - handle [[Media:xxx]] as placeholders
if (!empty($wgRTEParserEnabled)) {
$dataIdx = RTEData::put('placeholder', array('type' => 'media', 'wikitextIdx' => $RTE_wikitextIdx));
$s .= $prefix . RTEMarker::generate(RTEMarker::PLACEHOLDER, $dataIdx) . $trail;
continue;
}
# RTE - end
wfProfileIn(__METHOD__ . "-media");
# Give extensions a chance to select the file revision for us
$options = array();
$descQuery = false;
wfRunHooks('BeforeParserFetchFileAndTitle', array($this, $nt, &$options, &$descQuery));
# Fetch and register the file (file title may be different via hooks)
list($file, $nt) = $this->fetchFileAndTitle($nt, $options);
# Cloak with NOPARSE to avoid replacement in replaceExternalLinks
$s .= $prefix . $this->armorLinks(Linker::makeMediaLinkFile($nt, $file, $text)) . $trail;
wfProfileOut(__METHOD__ . "-media");
continue;
}
wfProfileIn(__METHOD__ . "-always_known");
# RTE (Rich Text Editor) - begin
# @author: Inez Korczyński
if (!empty($wgRTEParserEnabled)) {
$text = RTEMarker::generate(RTEMarker::INTERNAL_DATA, RTEData::put('data', array('type' => 'internal', 'wikitextIdx' => $RTE_wikitextIdx, 'text' => $text, 'link' => $link, 'wasblank' => $wasblank, 'noforce' => $noforce))) . $text;
}
# RTE - end
# Some titles, such as valid special pages or files in foreign repos, should
# be shown as bluelinks even though they're not included in the page table
#
# @todo FIXME: isAlwaysKnown() can be expensive for file links; we should really do
# batch file existence checks for NS_FILE and NS_MEDIA
if ($iw == '' && $nt->isAlwaysKnown()) {
$this->mOutput->addLink($nt);
$s .= $this->makeKnownLinkHolder($nt, $text, array(), $trail, $prefix);
} else {
# Links will be added to the output link list after checking
$s .= $holders->makeHolder($nt, $text, array(), $trail, $prefix);
}
wfProfileOut(__METHOD__ . "-always_known");
}
wfProfileOut(__METHOD__);
return $holders;
}
