1 <?php rcs_id('$Id: interwiki.php,v 1.8 2001-11-14 18:48:47 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 if (strstr($url, '?'))
33 $page = rawurlencode($page);
35 if (strstr($url, '%s'))
36 $url = sprintf($url, $page);
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,
55 // Link InterWiki links
56 // These can be protected by a '!' like Wiki words.
57 function wtt_interwikilinks($match, &$trfrm)
60 return htmlspecialchars(substr($match,1));
61 return LinkInterWikiLink($match);
69 // c-hanging-comment-ender-p: nil
70 // indent-tabs-mode: nil