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;
}
/**
* 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) {
$icon = IconForLink($proto_or_url);
if ($icon) {
preg_match('/^\s*(\S*)(.*?)\s*$/', $text, $m);
list (, $first_word, $tail) = $m;
$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 = '') {
$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';
}
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.
* (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 ($anchor === false and preg_match('/\A(.*)#(.*?)?\Z/', $name, $m))
list(, $name, $anchor) = $m;
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 = $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 _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)) {
print "PAGE: " . gettype($page) . " " . get_class($page) . "
\n";
}
//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);
}
}
/**
* 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); } /** * 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: * *