]> CyberLeo.Net >> Repos - SourceForge/phpwiki.git/blob - lib/interwiki.php
Minor reindenting and rewrapping in emacs.
[SourceForge/phpwiki.git] / lib / interwiki.php
1 <?php rcs_id('$Id: interwiki.php,v 1.12 2002-01-09 17:09:31 carstenklapp Exp $');
2
3 function generate_interwikimap_and_regexp()
4 {
5     global $interwikimap_file, $InterWikiLinkRegexp, $interwikimap;
6
7     $intermap_data = file(INTERWIKI_MAP_FILE, 1);
8     $wikiname_regexp = "";
9     for ($i=0; $i<count($intermap_data); $i++)
10         {
11             list( $wiki, $inter_url ) = split(' ', chop($intermap_data[$i]));
12             $interwikimap[$wiki] = $inter_url;
13             if ($wikiname_regexp)
14                 $wikiname_regexp .= "|";
15             $wikiname_regexp .= $wiki;
16         }
17
18     $InterWikiLinkRegexp = "($wikiname_regexp)";
19 }
20
21 generate_interwikimap_and_regexp();
22
23 function LinkInterWikiLink($link, $linktext='')
24 {
25     global $interwikimap;
26
27     list( $wiki, $page ) = split( ":", $link, 2 );
28
29     $url = $interwikimap[$wiki];
30
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;
34
35     if (strstr($url, '%s'))
36         $url = sprintf($url, $page_enc);
37     else
38         $url .= $page_enc;
39
40     if ($linktext) {
41         $linktext = htmlspecialchars($linktext);
42         $class    = 'named-interwiki';
43     }
44     else {
45         $linktext = (htmlspecialchars("$wiki:")
46                      . QElement('span', array('class' => 'wikipage'), $page));
47         $class = 'interwiki';
48     }
49
50     return Element('a', array('href'  => $url,
51                               'class' => $class),
52                    IconForLink('interwiki') . $linktext);
53 }
54
55
56 // Link InterWiki links
57 // These can be protected by a '!' like Wiki words.
58 function wtt_interwikilinks($match, &$trfrm)
59 {
60     if ($match[0] == "!")
61         return htmlspecialchars(substr($match,1));
62     return LinkInterWikiLink($match);
63 }
64
65 // For emacs users
66 // Local Variables:
67 // mode: php
68 // tab-width: 8
69 // c-basic-offset: 4
70 // c-hanging-comment-ender-p: nil
71 // indent-tabs-mode: nil
72 // End:
73 ?>