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->name; } } 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 .= "#" . MangleXmlIdentifier($anchor); return $url; } /** Convert relative URL to absolute URL. * * This converts a relative URL to one of PhpWiki's support files * to an absolute one. * * @param string $url * @return string Absolute URL */ function AbsoluteURL ($url) { if (preg_match('/^https?:/', $url)) return $url; if ($url[0] != '/') { $base = USE_PATH_INFO ? VIRTUAL_PATH : dirname(SCRIPT_NAME); while ($base != '/' and substr($url, 0, 3) == "../") { $url = substr($url, 3); $base = dirname($base); } if ($base != '/') $base .= '/'; $url = $base . $url; } return SERVER_URL . $url; } /** * Generates icon in front of links. * * @param string $protocol_or_url URL or protocol to determine which icon to use. * * @return HtmlElement HtmlElement object that contains data to create img link to * icon for use with url or protocol passed to the function. False if no img to be * displayed. */ 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' => "", 'class' => 'linkicon', 'border' => 0)); else return false; } } /** * Glue icon in front of text. * * @param string $protocol_or_url Protocol or URL. Used to determine the * proper icon. * @param string $text The text. * @return XmlContent. */ function PossiblyGlueIconToText($proto_or_url, $text) { global $request; if (! $request->getPref('noLinkIcons')) { $icon = IconForLink($proto_or_url); if ($icon) { if (!is_object($text)) { preg_match('/^\s*(\S*)(.*?)\s*$/', $text, $m); list (, $first_word, $tail) = $m; } else { $first_word = $text; $tail = false; } $text = HTML::span(array('style' => 'white-space: nowrap'), $icon, $first_word); if ($tail) $text = HTML($text, $tail); } } return $text; } /** * Determines if the url passed to function is safe, by detecting if the characters * '<', '>', or '"' are present. * * @param string $url URL to check for unsafe characters. * @return boolean True if same, false else. */ function IsSafeURL($url) { return !ereg('[<>"]', $url); } /** * Generates an HtmlElement object to store data for a link. * * @param string $url URL that the link will point to. * @param string $linktext Text to be displayed as link. * @return HtmlElement HtmlElement object that contains data to construct an html link. */ 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), PossiblyGlueIconToText($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 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 = '', $basepage) { $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. $dbi = $GLOBALS['request']->getDbh(); $page = $dbi->getPage($basepage); if (!$page->get('locked')) return HTML::span(array('class' => 'wikiunsafe'), HTML::u(_("Lock page to enable link"))); $class = 'wikiadmin'; } if (!$text) $text = HTML::span(array('class' => 'rawurl'), $url); $wikipage = new WikiPageName($pagename); if (!$wikipage->isValid()) { global $Theme; return $Theme->linkBadWikiWord($wikipage, $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. * (For use, e.g. as a default label for links to the page.) */ var $shortName; /** The full page name. * * This is the full name of the page (without anchor). */ var $name; /** The anchor. * * This is the referenced anchor within the page, or the empty string. */ var $anchor; /** Constructor * * @param mixed $name Page name. * WikiDB_Page, WikiDB_PageRevision, or string. * This can be a relative subpage name (like '/SubPage'), * or can be the empty string to refer to the $basename. * * @param string $anchor For links to anchors in page. * * @param mixed $basename Page name from which to interpret * relative or other non-fully-specified page names. */ function WikiPageName($name, $basename=false, $anchor=false) { if (is_string($name)) { $this->shortName = $name; if (empty($name) or $name[0] == SUBPAGE_SEPARATOR) { if ($basename) $name = $this->_pagename($basename) . $name; else $name = $this->_normalize_bad_pagename($name); } } else { $name = $this->_pagename($name); $this->shortName = $name; } $this->name = $this->_check($name); $this->anchor = (string)$anchor; } function getParent() { $name = $this->name; if (!($tail = strrchr($name, SUBPAGE_SEPARATOR))) return false; return substr($name, 0, -strlen($tail)); } function isValid($strict = false) { if ($strict) return !isset($this->_errors); return !empty($this->name); } function getWarnings() { $warnings = array(); if (isset($this->_warnings)) $warnings = array_merge($warnings, $this->_warnings); if (isset($this->_errors)) $warnings = array_merge($warnings, $this->_errors); if (!$warnings) return false; return sprintf(_("'%s': Bad page name: %s"), $this->shortName, join(', ', $warnings)); } function _pagename($page) { if (isa($page, 'WikiDB_Page')) return $page->getName(); elseif (isa($page, 'WikiDB_PageRevision')) return $page->getPageName(); elseif (isa($page, 'WikiPageName')) return $page->name; if (!is_string($page)) { trigger_error(sprintf("Non-string pagename '%s' (%s)(%s)", $page, gettype($page), get_class($page)), E_USER_NOTICE); } //assert(is_string($page)); return $page; } function _normalize_bad_pagename($name) { trigger_error("Bad pagename: " . $name, E_USER_WARNING); // Punt... You really shouldn't get here. if (empty($name)) { global $request; return $request->getArg('pagename'); } assert($name[0] == SUBPAGE_SEPARATOR); return substr($name, 1); } function _check($pagename) { // Compress internal white-space to single space character. $pagename = preg_replace('/[\s\xa0]+/', ' ', $orig = $pagename); if ($pagename != $orig) $this->_warnings[] = _("White space converted to single space"); // Delete any control characters. $pagename = preg_replace('/[\x00-\x1f\x7f\x80-\x9f]/', '', $orig = $pagename); if ($pagename != $orig) $this->_errors[] = _("Control characters not allowed"); // Strip leading and trailing white-space. $pagename = trim($pagename); $orig = $pagename; while ($pagename and $pagename[0] == SUBPAGE_SEPARATOR) $pagename = substr($pagename, 1); if ($pagename != $orig) $this->_errors[] = sprintf(_("Leading %s not allowed"), SUBPAGE_SEPARATOR); if (preg_match('/[:;]/', $pagename)) $this->_warnings[] = _("';' and ':' in pagenames are deprecated"); if (strlen($pagename) > MAX_PAGENAME_LENGTH) { $pagename = substr($pagename, 0, MAX_PAGENAME_LENGTH); $this->_errors[] = _("too long"); } if ($pagename == '.' or $pagename == '..') { $this->_errors[] = sprintf(_("illegal pagename"), $pagename); $pagename = ''; } return $pagename; } } /** * Convert old page markup to new-style markup. * * @param string $text Old-style wiki markup. * * @param string $markup_type * One of:
"block"
"inline"
"links"
\n"; $suffix = "\n\n"; } elseif ($block[0] == '|') { // Old-style table $prefix = "\n"; } elseif (strchr("#*;", $block[0])) { // Old-style list item preg_match('/^([#*;]*)([*#]|;.*?:) */', $block, $m); list (,$ind,$bullet) = $m; $block = substr($block, strlen($m[0])); $indent = str_repeat(' ', strlen($ind)); if ($bullet[0] == ';') { //$term = ltrim(substr($bullet, 1)); //return $indent . $term . "\n" . $indent . ' '; $prefix = $ind . $bullet; } else $prefix = $indent . $bullet . ' '; } elseif ($block[0] == '[') { // Footnote definition preg_match('/^\[\s*(\d+)\s*\]/', $block, $m); $footnum = $m[1]; $block = substr($block, strlen($m[0])); $prefix = "#[|ftnt_${footnum}]~[[${footnum}|#ftnt_ref_${footnum}]~] "; } elseif ($block[0] == '<') { // Plugin. // HACK: no inline markup... $prefix = $block; $block = ''; } elseif ($block[0] == '!') { // Section heading preg_match('/^!{1,3}/', $block, $m); $prefix = $m[0]; $block = substr($block, strlen($m[0])); } else { // AAck! assert(0); } $out .= ( preg_replace($orig, $repl, $leading_text) . $prefix . preg_replace($orig, $repl, $block) . $suffix ); } return $out . preg_replace($orig, $repl, $text); } } /** * Expand tabs in string. * * Converts all tabs to (the appropriate number of) spaces. * * @param string $str * @param integer $tab_width * @return string */ function expand_tabs($str, $tab_width = 8) { $split = split("\t", $str); $tail = array_pop($split); $expanded = "\n"; foreach ($split as $hunk) { $expanded .= $hunk; $pos = strlen(strrchr($expanded, "\n")) - 1; $expanded .= str_repeat(" ", ($tab_width - $pos % $tab_width)); } return substr($expanded, 1) . $tail; } /** * 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); } 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 in RFC-1123 format. * * @param $time time_t Time. Default: now. * @return string Date and time in RFC-1123 format. */ function Rfc1123DateTime ($time = false) { if ($time === false) $time = time(); return gmdate('D, d M Y H:i:s \G\M\T', $time); } /** Parse date in RFC-1123 format. * * According to RFC 1123 we must accept dates in the following * formats: * * Sun, 06 Nov 1994 08:49:37 GMT ; RFC 822, updated by RFC 1123 * Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036 * Sun Nov 6 08:49:37 1994 ; ANSI C's asctime() format * * (Though we're only allowed to generate dates in the first format.) */ function ParseRfc1123DateTime ($timestr) { $timestr = trim($timestr); if (preg_match('/^ \w{3},\s* (\d{1,2}) \s* (\w{3}) \s* (\d{4}) \s*' .'(\d\d):(\d\d):(\d\d) \s* GMT $/ix', $timestr, $m)) { list(, $mday, $mon, $year, $hh, $mm, $ss) = $m; } elseif (preg_match('/^ \w+,\s* (\d{1,2})-(\w{3})-(\d{2}|\d{4}) \s*' .'(\d\d):(\d\d):(\d\d) \s* GMT $/ix', $timestr, $m)) { list(, $mday, $mon, $year, $hh, $mm, $ss) = $m; if ($year < 70) $year += 2000; elseif ($year < 100) $year += 1900; } elseif (preg_match('/^\w+\s* (\w{3}) \s* (\d{1,2}) \s*' .'(\d\d):(\d\d):(\d\d) \s* (\d{4})$/ix', $timestr, $m)) { list(, $mon, $mday, $hh, $mm, $ss, $year) = $m; } else { // Parse failed. return false; } $time = strtotime("$mday $mon $year ${hh}:${mm}:${ss} GMT"); if ($time == -1) return false; // failed return $time; } /** * 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); } /** * Format number as kilobytes or bytes. * Short format is used for PageList * Long format is used in PageInfo * * @param $bytes int. Default: 0. * @param $longformat bool. Default: false. * @return class FormattedText (XmlElement.php). */ function ByteFormatter ($bytes = 0, $longformat = false) { if ($bytes < 0) return fmt("-???"); if ($bytes < 1024) { if (! $longformat) $size = fmt("%s b", $bytes); else $size = fmt("%s bytes", $bytes); } else { $kb = round($bytes / 1024, 1); if (! $longformat) $size = fmt("%s k", $kb); else $size = fmt("%s Kb (%s bytes)", $kb, $bytes); } return $size; } /** * 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: * *