getName(); } elseif (isa($pagename, 'WikiDB_PageRevision')) { $page = $pagename->getPage(); $args['version'] = $pagename->getVersion(); $pagename = $page->getName(); } elseif (isa($pagename, 'WikiPageName')) { $anchor = $pagename->anchor; $pagename = $pagename->fullPagename; } } if (is_array($args)) { $enc_args = array(); foreach ($args as $key => $val) { if (!is_array($val)) // ugly hack for getURLtoSelf() which also takes POST vars $enc_args[] = urlencode($key) . '=' . urlencode($val); } $args = join('&', $enc_args); } if (USE_PATH_INFO) { $url = $get_abs_url ? SERVER_URL . VIRTUAL_PATH . "/" : ""; $url .= preg_replace('/%2f/i', '/', rawurlencode($pagename)); if ($args) $url .= "?$args"; } else { $url = $get_abs_url ? SERVER_URL . SCRIPT_NAME : basename(SCRIPT_NAME); $url .= "?pagename=" . rawurlencode($pagename); if ($args) $url .= "&$args"; } if ($anchor) $url .= "#$anchor"; return $url; } function IconForLink($protocol_or_url) { global $Theme; if ($filename_suffix = false) { // display apache style icon for file type instead of protocol icon // - archive: unix:gz,bz2,tgz,tar,z; mac:dmg,dmgz,bin,img,cpt,sit; pc:zip; // - document: html, htm, text, txt, rtf, pdf, doc // - non-inlined image: jpg,jpeg,png,gif,tiff,tif,swf,pict,psd,eps,ps // - audio: mp3,mp2,aiff,aif,au // - multimedia: mpeg,mpg,mov,qt } else { list ($proto) = explode(':', $protocol_or_url, 2); $src = $Theme->getLinkIconURL($proto); if ($src) return HTML::img(array('src' => $src, 'alt' => $proto, 'class' => 'linkicon', 'border' => 0)); else return false; } } function IsSafeURL($url) { return !ereg('[<>"]', $url); } function LinkURL($url, $linktext = '') { // FIXME: Is this needed (or sufficient?) if(! IsSafeURL($url)) { $link = HTML::strong(HTML::u(array('class' => 'baduri'), _("BAD URL -- remove all of <, >, \""))); } else { if (!$linktext) $linktext = preg_replace("/mailto:/A", "", $url); $link = HTML::a(array('href' => $url), IconForLink($url), $linktext); } $link->setAttr('class', $linktext ? 'namedurl' : 'rawurl'); return $link; } function LinkImage($url, $alt = false) { // FIXME: Is this needed (or sufficient?) if(! IsSafeURL($url)) { $link = HTML::strong(HTML::u(array('class' => 'baduri'), _("BAD URL -- remove all of <, >, \""))); } else { if (empty($alt)) $alt = $url; $link = HTML::img(array('src' => $url, 'alt' => $alt)); } $link->setAttr('class', 'inlineimage'); return $link; } class Stack { var $items = array(); var $size = 0; function push($item) { $this->items[$this->size] = $item; $this->size++; return true; } function pop() { if ($this->size == 0) { return false; // stack is empty } $this->size--; return $this->items[$this->size]; } function cnt() { return $this->size; } function top() { if($this->size) return $this->items[$this->size - 1]; else return ''; } } // end class definition function MakeWikiForm ($pagename, $args, $class, $button_text = '') { // HACK: so as to not completely break old PhpWikiAdministration pages. trigger_error("MagicPhpWikiURL forms are no longer supported. " . "Use the WikiFormPlugin instead.", E_USER_NOTICE); global $request; $loader = new WikiPluginLoader; @$action = (string)$args['action']; return $loader->expandPI("", $request); } function SplitQueryArgs ($query_args = '') { $split_args = split('&', $query_args); $args = array(); while (list($key, $val) = each($split_args)) if (preg_match('/^ ([^=]+) =? (.*) /x', $val, $m)) $args[$m[1]] = $m[2]; return $args; } function LinkPhpwikiURL($url, $text = '') { $args = array(); if (!preg_match('/^ phpwiki: ([^?]*) [?]? (.*) $/x', $url, $m)) { return HTML::strong(array('class' => 'rawurl'), HTML::u(array('class' => 'baduri'), _("BAD phpwiki: URL"))); } if ($m[1]) $pagename = urldecode($m[1]); $qargs = $m[2]; if (empty($pagename) && preg_match('/^(diff|edit|links|info)=([^&]+)$/', $qargs, $m)) { // Convert old style links (to not break diff links in // RecentChanges). $pagename = urldecode($m[2]); $args = array("action" => $m[1]); } else { $args = SplitQueryArgs($qargs); } if (empty($pagename)) $pagename = $GLOBALS['request']->getArg('pagename'); if (isset($args['action']) && $args['action'] == 'browse') unset($args['action']); /*FIXME: if (empty($args['action'])) $class = 'wikilink'; else if (is_safe_action($args['action'])) $class = 'wikiaction'; */ if (empty($args['action']) || is_safe_action($args['action'])) $class = 'wikiaction'; else { // Don't allow administrative links on unlocked pages. $page = $GLOBALS['request']->getPage(); if (!$page->get('locked')) return HTML::span(array('class' => 'wikiunsafe'), HTML::u(_("Lock page to enable link"))); $class = 'wikiadmin'; } // FIXME: ug, don't like this if (preg_match('/=\d*\(/', $qargs)) return MakeWikiForm($pagename, $args, $class, $text); if (!$text) $text = HTML::span(array('class' => 'rawurl'), $url); return HTML::a(array('href' => WikiURL($pagename, $args), 'class' => $class), $text); } /** * A class to assist in parsing wiki pagenames. * * Now with subpages and anchors, parsing and passing around * pagenames is more complicated. This should help. */ class WikiPagename { /** Short name for page. * * This is the value of $name passed to the constructor. */ var $shortName; /** The full page name. * * This is the full name of the page (without anchor). */ var $fullPagename; /** The anchor. * * This is the referenced anchor within the page, or the empty string. */ var $anchor; /** Constructor * * @param WikiRequest $request * @param string $name Page name. * This can be a relative subpage name (like '/SubPage'), and can also * include an anchor (e.g. 'SandBox#anchorname' or just '#anchor'). */ function WikiPageName($request, $name) { $this->shortName = $name; if ($name[0] == SUBPAGE_SEPARATOR or $name[0] == '#') $name = $request->getArg('pagename') . $name; if (strstr($name, '#')) { list($this->fullPagename, $this->anchor) = split('#', $name, 2); } else { $this->fullPagename = $name; $this->anchor = ''; } $dbi = $request->getDbh(); $this->_exists = $dbi->isWikiPage($this->fullPagename); } /** * Determine whether page 'exists'. * * @return boolean True if page exists with non-default content. */ function exists() { return $this->_exists; } } function LinkBracketLink($bracketlink) { global $request, $AllowedProtocols, $InlineImages; include_once("lib/interwiki.php"); $intermap = InterWikiMap::GetMap($request); // $bracketlink will start and end with brackets; in between will // be either a page name, a URL or both separated by a pipe. // strip brackets and leading space preg_match('/(\#?) \[\s* (?: ([^|]*?) \s* (\|) )? \s* (.+?) \s*\]/x', $bracketlink, $matches); list (, $hash, $label, $bar, $link) = $matches; // if label looks like a url to an image, we want an image link. if (preg_match("/($InlineImages)$/i", $label)) { $imgurl = $label; if (! preg_match("#^($AllowedProtocols):#", $imgurl)) { // linkname like 'images/next.gif'. global $Theme; $imgurl = $Theme->getImageURL($linkname); } $label = LinkImage($imgurl, $link); } if ($hash) { // It's an anchor, not a link... return HTML::a(array('name' => $link, 'id' => $link), $bar ? $label : $link); } $wikipage = new WikiPageName($request, $link); if ($wikipage->exists()) { return WikiLink($wikipage, 'known', $label); } elseif (preg_match("#^($AllowedProtocols):#", $link)) { // if it's an image, embed it; otherwise, it's a regular link if (preg_match("/($InlineImages)$/i", $link)) // no image link, just the src. see [img|link] above return LinkImage($link, $label); else return LinkURL($link, $label); } elseif (preg_match("/^phpwiki:/", $link)) return LinkPhpwikiURL($link, $label); elseif (preg_match("/^" . $intermap->getRegexp() . ":/", $link)) return $intermap->link($link, $label); else { return WikiLink($wikipage, 'unknown', $label); } } /** * Extract internal links from wiki page. * * @param mixed $content The raw wiki-text, either as * an array of lines or as one big string. * * @return array List of the names of pages linked to. */ function ExtractWikiPageLinks($content) { list ($wikilinks,) = ExtractLinks($content); return $wikilinks; } /** * Extract external links from a wiki page. * * @param mixed $content The raw wiki-text, either as * an array of lines or as one big string. * * @return array List of the names of pages linked to. */ function ExtractExternalLinks($content) { list (, $urls) = ExtractLinks($content); return $urls; } /** * Extract links from wiki page. * * FIXME: this should be done by the transform code. * * @param mixed $content The raw wiki-text, either as * an array of lines or as one big string. * * @return array List of two arrays. The first contains * the internal links (names of pages linked to), the second * contains external URLs linked to. */ function ExtractLinks($content) { include_once('lib/interwiki.php'); global $request, $WikiNameRegexp, $AllowedProtocols; if (is_string($content)) $content = explode("\n", $content); $wikilinks = array(); $urls = array(); foreach ($content as $line) { // remove plugin code $line = preg_replace('/<\?plugin\s+\w.*?\?>/', '', $line); // remove escaped '[' $line = str_replace('[[', ' ', $line); // remove footnotes $line = preg_replace('/\[\d+\]/', ' ', $line); // bracket links (only type wiki-* is of interest) $numBracketLinks = preg_match_all("/\[\s*([^\]|]+\|)?\s*(\S.*?)\s*\]/", $line, $brktlinks); for ($i = 0; $i < $numBracketLinks; $i++) { $link = LinkBracketLink($brktlinks[0][$i]); $class = $link->getAttr('class'); if (preg_match('/^(named-)?wiki(unknown)?$/', $class)) { if ($brktlinks[2][$i][0] == SUBPAGE_SEPARATOR) { $wikilinks[$request->getArg('pagename') . $brktlinks[2][$i]] = 1; } else { $wikilinks[$brktlinks[2][$i]] = 1; } } elseif (preg_match('/^(namedurl|rawurl|(named-)?interwiki)$/', $class)) { $urls[$brktlinks[2][$i]] = 1; } $line = str_replace($brktlinks[0][$i], '', $line); } // Raw URLs preg_match_all("/!?\b($AllowedProtocols):[^\s<>\[\]\"'()]*[^\s<>\[\]\"'(),.?]/", $line, $link); foreach ($link[0] as $url) { if ($url[0] <> '!') { $urls[$url] = 1; } $line = str_replace($url, '', $line); } // Interwiki links $map = InterWikiMap::GetMap($request); $regexp = pcre_fix_posix_classes("!?(?getRegexp() . ":[^\\s.,;?()]+"; preg_match_all("/$regexp/", $line, $link); foreach ($link[0] as $interlink) { if ($interlink[0] <> '!') { $link = $map->link($interlink); $urls[$link->getAttr('href')] = 1; } $line = str_replace($interlink, '', $line); } // BumpyText old-style wiki links if (preg_match_all("/!?$WikiNameRegexp/", $line, $link)) { for ($i = 0; isset($link[0][$i]); $i++) { if($link[0][$i][0] <> '!') { if ($link[0][$i][0] == SUBPAGE_SEPARATOR) { $wikilinks[$request->getArg('pagename') . $link[0][$i]] = 1; } else { $wikilinks[$link[0][$i]] = 1; } } } } } return array(array_keys($wikilinks), array_keys($urls)); } /** * Convert old page markup to new-style markup. * * @param $text string Old-style wiki markup. * * @param $just_links bool Only convert old-style links. * (Really this only converts escaped old-style links.) * * @return string New-style wiki markup. * * @bugs FIXME: footnotes and old-style tables are known to be broken. */ function ConvertOldMarkup ($text, $just_links = false) { static $orig, $repl, $link_orig, $link_repl; if (empty($orig)) { /***************************************************************** * Conversions for inline markup: */ // escape tilde's $orig[] = '/~/'; $repl[] = '~~'; // escape escaped brackets $orig[] = '/\[\[/'; $repl[] = '~['; // change ! escapes to ~'s. global $AllowedProtocols, $WikiNameRegexp, $request; include_once('lib/interwiki.php'); $map = InterWikiMap::GetMap($request); $bang_esc[] = "(?:$AllowedProtocols):[^\s<>\[\]\"'()]*[^\s<>\[\]\"'(),.?]"; $bang_esc[] = $map->getRegexp() . ":[^\\s.,;?()]+"; // FIXME: is this really needed? $bang_esc[] = $WikiNameRegexp; $orig[] = '/!((?:' . join(')|(', $bang_esc) . '))/'; $repl[] = '~\\1'; $link_orig = $orig; $link_repl = $repl; /***************************************************************** * Conversions for block markup */ // convert indented blocks to
. $orig[] = '/^[ \t]+\S.*\n(?:(?:\s*\n)?^[ \t]+\S.*\n)*/m'; $repl[] = "\n\\0\n"; // convert lists $orig[] = '/^([#*;]*)([*#]|;.*?:) */me'; $repl[] = "_ConvertOldListMarkup('\\1', '\\2')"; } if ($just_links) return preg_replace($link_orig, $link_repl, $text); else return preg_replace($orig, $repl, $text); } function _ConvertOldListMarkup ($indent, $bullet) { $indent = str_repeat(' ', strlen($indent)); if ($bullet[0] == ';') { $term = ltrim(substr($bullet, 1)); return $indent . $term . "\n" . $indent . ' '; } else return $indent . $bullet . ' '; } /** * Split WikiWords in page names. * * It has been deemed useful to split WikiWords (into "Wiki Words") in * places like page titles. This is rumored to help search engines * quite a bit. * * @param $page string The page name. * * @return string The split name. */ function split_pagename ($page) { if (preg_match("/\s/", $page)) return $page; // Already split --- don't split any more. // FIXME: this algorithm is Anglo-centric. static $RE; if (!isset($RE)) { // This mess splits between a lower-case letter followed by // either an upper-case or a numeral; except that it wont // split the prefixes 'Mc', 'De', or 'Di' off of their tails. $RE[] = '/([[:lower:]])((? $val) $RE[$key] = pcre_fix_posix_classes($val); } if (isSubPage($page)) { // FIXME: is this needed? $pages = explode(SUBPAGE_SEPARATOR,$page); $new_page = $pages[0] ? split_pagename($pages[0]) : ''; for ($i=1; $i < sizeof($pages); $i++) { $new_page .= (SUBPAGE_SEPARATOR . ($pages[$i] ? split_pagename($pages[$i]) : '')); } return $new_page; } else { foreach ($RE as $regexp) { $page = preg_replace($regexp, '\\1 \\2', $page); } return $page; } } function NoSuchRevision (&$request, $page, $version) { $html = HTML(HTML::h2(_("Revision Not Found")), HTML::p(fmt("I'm sorry. Version %d of %s is not in the database.", $version, WikiLink($page, 'auto')))); include_once('lib/Template.php'); GeneratePage($html, _("Bad Version"), $page->getCurrentRevision()); $request->finish(); } /** * Get time offset for local time zone. * * @param $time time_t Get offset for this time. Default: now. * @param $no_colon boolean Don't put colon between hours and minutes. * @return string Offset as a string in the format +HH:MM. */ function TimezoneOffset ($time = false, $no_colon = false) { if ($time === false) $time = time(); $secs = date('Z', $time); if ($secs < 0) { $sign = '-'; $secs = -$secs; } else { $sign = '+'; } $colon = $no_colon ? '' : ':'; $mins = intval(($secs + 30) / 60); return sprintf("%s%02d%s%02d", $sign, $mins / 60, $colon, $mins % 60); } /** * Format time in ISO-8601 format. * * @param $time time_t Time. Default: now. * @return string Date and time in ISO-8601 format. */ function Iso8601DateTime ($time = false) { if ($time === false) $time = time(); $tzoff = TimezoneOffset($time); $date = date('Y-m-d', $time); $time = date('H:i:s', $time); return $date . 'T' . $time . $tzoff; } /** * Format time in RFC-2822 format. * * @param $time time_t Time. Default: now. * @return string Date and time in RFC-2822 format. */ function Rfc2822DateTime ($time = false) { if ($time === false) $time = time(); return date('D, j M Y H:i:s ', $time) . TimezoneOffset($time, 'no colon'); } /** * Format time to standard 'ctime' format. * * @param $time time_t Time. Default: now. * @return string Date and time. */ function CTime ($time = false) { if ($time === false) $time = time(); return date("D M j H:i:s Y", $time); } /** * Internationalized printf. * * This is essentially the same as PHP's built-in printf * with the following exceptions: *
* __printf("Differences between versions %s and %s of %s", * $new_link, $old_link, $page_link); ** * Then in locale/po/de.po, one can reorder the printf arguments: * *
* msgid "Differences between %s and %s of %s." * msgstr "Der Unterschiedsergebnis von %3$s, zwischen %1$s und %2$s." ** * (Note that while PHP tries to expand $vars within double-quotes, * the values in msgstr undergo no such expansion, so the '$'s * okay...) * * One shouldn't use reordered arguments in the default format string. * Backslashes in the default string would be necessary to escape the * '$'s, and they'll cause all kinds of trouble.... */ function __printf ($fmt) { $args = func_get_args(); array_shift($args); echo __vsprintf($fmt, $args); } /** * Internationalized sprintf. * * This is essentially the same as PHP's built-in printf with the * following exceptions: * *