1 <?php rcs_id('$Id: interwiki.php,v 1.11 2001-12-11 17:47:10 dairiki Exp $');
3 function generate_interwikimap_and_regexp()
5 global $interwikimap_file, $InterWikiLinkRegexp, $interwikimap;
7 $intermap_data = file(INTERWIKI_MAP_FILE, 1);
9 for ($i=0; $i<count($intermap_data); $i++)
11 list( $wiki, $inter_url ) = split(' ', chop($intermap_data[$i]));
12 $interwikimap[$wiki] = $inter_url;
14 $wikiname_regexp .= "|";
15 $wikiname_regexp .= $wiki;
18 $InterWikiLinkRegexp = "($wikiname_regexp)";
21 generate_interwikimap_and_regexp();
23 function LinkInterWikiLink($link, $linktext='')
27 list( $wiki, $page ) = split( ":", $link, 2 );
29 $url = $interwikimap[$wiki];
31 // Urlencode page only if it's a query arg.
32 // FIXME: this is a somewhat broken heuristic.
33 $page_enc = strstr($url, '?') ? rawurlencode($page) : $page;
35 if (strstr($url, '%s'))
36 $url = sprintf($url, $page_enc);
41 $linktext = htmlspecialchars($linktext);
42 $class = 'named-interwiki';
45 $linktext = ( htmlspecialchars("$wiki:")
46 . QElement('span', array('class' => 'wikipage'), $page) );
50 return Element('a', array('href' => $url,
52 IconForLink('interwiki') . $linktext);
56 // Link InterWiki links
57 // These can be protected by a '!' like Wiki words.
58 function wtt_interwikilinks($match, &$trfrm)
61 return htmlspecialchars(substr($match,1));
62 return LinkInterWikiLink($match);
70 // c-hanging-comment-ender-p: nil
71 // indent-tabs-mode: nil