1 <?php rcs_id('$Id: interwiki.php,v 1.7 2001-09-19 02:36:24 wainstead 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 $url .= rawurlencode($page);
38 $linktext = htmlspecialchars($linktext);
39 $class = 'named-interwiki';
42 $linktext = ( htmlspecialchars("$wiki:")
43 . QElement('span', array('class' => 'wikipage'), $page) );
47 return Element('a', array('href' => $url,
52 // Link InterWiki links
53 // These can be protected by a '!' like Wiki words.
54 function wtt_interwikilinks($match, &$trfrm)
57 return htmlspecialchars(substr($match,1));
58 return LinkInterWikiLink($match);
66 // c-hanging-comment-ender-p: nil
67 // indent-tabs-mode: nil