Difference between revisions of "Xmlwiki.php"
| Line 11: | Line 11: | ||
# Publish: | # Publish: | ||
# - xml:article - holds article publish-list | # - xml:article - holds article publish-list | ||
| + | # - mirror/wiki-sync | ||
# Transforms: | # Transforms: | ||
# - xml:article - now transforms are in here (main article is now like <body>) | # - xml:article - now transforms are in here (main article is now like <body>) | ||
| Line 27: | Line 28: | ||
# Exit if not included from index.php | # Exit if not included from index.php | ||
defined('MEDIAWIKI') or die('xmlwiki.php must be included from MediaWiki\'s index.php!'); | defined('MEDIAWIKI') or die('xmlwiki.php must be included from MediaWiki\'s index.php!'); | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
# Otherwise set up xmlWiki global environment ready for input and output processing | # Otherwise set up xmlWiki global environment ready for input and output processing | ||
| Line 41: | Line 36: | ||
$xwSave = isset($_REQUEST['wpSave']); | $xwSave = isset($_REQUEST['wpSave']); | ||
$xwUserName = $wgUser->mName; | $xwUserName = $wgUser->mName; | ||
| − | $xwArticle = $wgArticle->getContent(false); | + | #$xwArticle = $xwPreview ? $wgRequest->gettext('wpTextbox1') : $wgArticle->getContent(false); |
$xwArticleTitle = $wgTitle->getPrefixedURL(); | $xwArticleTitle = $wgTitle->getPrefixedURL(); | ||
$xwArticleCache = array(); | $xwArticleCache = array(); | ||
| Line 47: | Line 42: | ||
$xwUserLinks = array(); | $xwUserLinks = array(); | ||
$xwMessages = array(); | $xwMessages = array(); | ||
| + | $xwMetaArticle = false; | ||
# Get associated articles and attempt to Domificate | # Get associated articles and attempt to Domificate | ||
| Line 55: | Line 51: | ||
# Security | # Security | ||
if (ereg('^xml:(.+)$', $xwArticleTitle)) { | if (ereg('^xml:(.+)$', $xwArticleTitle)) { | ||
| + | $xwMetaArticle = true; | ||
# This is an xml-pseudo-namespace | # This is an xml-pseudo-namespace | ||
# - get perms from associated article/user | # - get perms from associated article/user | ||
} | } | ||
elseif (ereg('^sys:(.+)$', $xwArticleTitle)) { | elseif (ereg('^sys:(.+)$', $xwArticleTitle)) { | ||
| + | $xwMetaArticle = true; | ||
# This is an sys-pseudo-namespace | # This is an sys-pseudo-namespace | ||
# - only admin can read/write sys: | # - only admin can read/write sys: | ||
| Line 68: | Line 66: | ||
# ---------------------------------------------------------------------------------------------------------------------- # | # ---------------------------------------------------------------------------------------------------------------------- # | ||
| − | # INPUT | + | # INPUT HOOK |
| − | |||
| − | |||
| − | |||
# Parse and process input from forms | # Parse and process input from forms | ||
| − | function | + | function xwInputHook() { |
| − | global $xwArticle, $xwArticleTitle, $xwReadable, $xwWritable; | + | global $xwArticle, $xwArticleTitle, $xwMetaArticle, $xwReadable, $xwWritable; |
global $xwSave; | global $xwSave; | ||
| − | # If article is being | + | # If an article-change is being attempted, |
if ($xwSave) { | if ($xwSave) { | ||
| − | |||
if (!$xwReadable || !$xwWritable) { | if (!$xwReadable || !$xwWritable) { | ||
# Not writable, change action to view | # Not writable, change action to view | ||
| − | xwMessage( | + | xwMessage('Cannot access article for writing, changing action to "view"', 'red'); |
global $action; | global $action; | ||
$action='view'; | $action='view'; | ||
| + | } | ||
| + | else { | ||
| + | # Parse POST for xmlWiki form input | ||
| + | global $_REQUEST; | ||
| + | foreach ($_REQUEST as $k => $v) { | ||
| + | |||
| + | if (is_object($xwArticle) && preg_match("/^xw:(@?)(\\w*):(.+)$/", $k, $m)) { | ||
| + | # Form-input-name is "xw:[[@]node]:XPathQuery" which directs the value into xwArticle (if DOM) | ||
| + | # - if "node" exists, then a new element (or att if "@node") is created for the value | ||
| + | # - hidden-inputs can direct input-handlers into the transform list | ||
| + | list(, $att, $node, $xpath) = $m; | ||
| + | foreach (xwXPathQuery($xwArticleXML, $xpath) as $result) { | ||
| + | if ($att && $node) { | ||
| + | # create attribute for value | ||
| + | } | ||
| + | elseif ($node) { | ||
| + | # create element for value | ||
| + | } | ||
| + | else { | ||
| + | # overwrite existing node content | ||
| + | } | ||
| + | } | ||
| + | } | ||
| + | |||
| + | elseif ($xwMetaArticle && ($k == 'wpSave')) { | ||
| + | # if it's a pseudo-namespace, wpSave should be valid XML to be saved | ||
| + | xwDomificate($wpSave); | ||
| + | if (!is_object($wpSave)) { | ||
| + | xwMessage('A meta-article must be valid XML! changing action to "edit"', 'red'); | ||
| + | global $action; | ||
| + | $action='edit'; | ||
| + | } | ||
| + | } | ||
| + | |||
| + | } | ||
} | } | ||
} | } | ||
| − | |||
} | } | ||
# ---------------------------------------------------------------------------------------------------------------------- # | # ---------------------------------------------------------------------------------------------------------------------- # | ||
| − | # OUTPUT | + | # OUTPUT HOOK |
# Generate output to send back to client | # Generate output to send back to client | ||
# - if article is not XML, then wiki's parsed content is used | # - if article is not XML, then wiki's parsed content is used | ||
| − | function | + | function xwOutputHook() { |
global $xwArticle, $xwArticleXML, $xwArticleTitle, $xwReadable, $xwWritable; | global $xwArticle, $xwArticleXML, $xwArticleTitle, $xwReadable, $xwWritable; | ||
global $xwTemplate, $xwView, $xwPreview, $xwSave, $xwRaw, $xwUserLinks, $xwArticleLinks; | global $xwTemplate, $xwView, $xwPreview, $xwSave, $xwRaw, $xwUserLinks, $xwArticleLinks; | ||
| + | global $wgOut, $wgUser; | ||
| − | # If | + | # If readable, get wiki-environment, else clear content |
if ($xwReadable) { | if ($xwReadable) { | ||
| − | |||
$skin = $wgUser->getSkin(); | $skin = $wgUser->getSkin(); | ||
$wikiOut = &$wgOut->mBodytext; | $wikiOut = &$wgOut->mBodytext; | ||
| Line 110: | Line 138: | ||
else { | else { | ||
$xwArticle = $wikiOut = ''; | $xwArticle = $wikiOut = ''; | ||
| − | xwMessage(' | + | xwMessage('Cannot access article for reading!', 'red'); |
} | } | ||
| + | |||
# If no write-access, remove edit link | # If no write-access, remove edit link | ||
if (!$xwWritable) unset($xwArticleLinks['Edit']); | if (!$xwWritable) unset($xwArticleLinks['Edit']); | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
# If saving, check the publishing list | # If saving, check the publishing list | ||
| Line 147: | Line 153: | ||
foreach ($xwArticlePublish as $url) { | foreach ($xwArticlePublish as $url) { | ||
if ($FH = fopen($url, 'a')) { | if ($FH = fopen($url, 'a')) { | ||
| + | # ftp example: ftp://user:password@example.com/file.txt | ||
fwrite($FH, $xwArticle); | fwrite($FH, $xwArticle); | ||
fclose($FH); | fclose($FH); | ||
xwMessage("Article published to $url"); | xwMessage("Article published to $url"); | ||
| − | } else xwMessage("Failed to publish to $url", 'red'); | + | } |
| + | else xwMessage("Failed to publish to $url", 'red'); | ||
} | } | ||
} | } | ||
# Check mirror-list and process if any | # Check mirror-list and process if any | ||
| + | # - allows articles in separate wiki's to be syncronised | ||
| + | # - does rudimentary security by sending a salt and response being a hash of the password generated from the salt | ||
| + | # - this could be done for login too using ECMA-MD5 on browser | ||
if (false) { | if (false) { | ||
xwMessage('Mirroring...'); | xwMessage('Mirroring...'); | ||
| Line 166: | Line 177: | ||
xwTransformGeshi(); # Does geshi based on article-name and content | xwTransformGeshi(); # Does geshi based on article-name and content | ||
xwTransformAddMessages(); # Adds raw messages to output | xwTransformAddMessages(); # Adds raw messages to output | ||
| − | xwTransformPageLayout(); # Uses xwTemplate to build xmlwiki-site structure around content | + | #xwTransformPageLayout(); # Uses xwTemplate to build xmlwiki-site structure around content |
xwTransformPageStyle(); # Adds colour/font/proportions etc | xwTransformPageStyle(); # Adds colour/font/proportions etc | ||
} | } | ||
# And finally, output the sunovabitch | # And finally, output the sunovabitch | ||
| − | print $xwArticle; | + | $wgOut->output(); |
| + | print "<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><table><tr><td>$xwArticle</table>"; | ||
} | } | ||
| + | # ---------------------------------------------------------------------------------------------------------------------- # | ||
| + | # PARSER HOOK | ||
| + | |||
| + | # If attempted xml encountered, try to domificate and transform | ||
| + | function xwParserHook(&$text) { | ||
| + | |||
| + | if (preg_match("/^<\\?xml/i", $text)) { | ||
| + | xwDomificateArticle($text, 'ParserHook/text'); | ||
| + | xwTransformArticle($text); | ||
| + | } | ||
| + | |||
| + | } | ||
| + | |||
# ---------------------------------------------------------------------------------------------------------------------- # | # ---------------------------------------------------------------------------------------------------------------------- # | ||
# ARTICLE FUNCTIONS | # ARTICLE FUNCTIONS | ||
| Line 183: | Line 208: | ||
if (isset($xwArticleCache[$articleTitle])) return $xwArticleCache[$articleTitle]; | if (isset($xwArticleCache[$articleTitle])) return $xwArticleCache[$articleTitle]; | ||
# Get wiki article content (or use global if no article passed) | # Get wiki article content (or use global if no article passed) | ||
| − | if ($article = new Article(Title::newFromText($articleTitle))) $article = $article-> | + | if ($article = new Article(Title::newFromText($articleTitle))) |
| + | $article = $article->getContentWithoutUsingSoManyDamnGlobals(); | ||
if ($article == '(There is currently no text in this page)') return false; | if ($article == '(There is currently no text in this page)') return false; | ||
if ($articleTitle) $xwArticleCache[$articleTitle] = $article; | if ($articleTitle) $xwArticleCache[$articleTitle] = $article; | ||
| Line 213: | Line 239: | ||
xwMessage("Domificating $id"); | xwMessage("Domificating $id"); | ||
ob_start(); | ob_start(); | ||
| − | if ($dom = domxml_open_mem($article)) $article = $dom; else { | + | if ($dom = domxml_open_mem($article)) $article = $dom; |
| + | else { | ||
# Could not convert, extract error messages from output | # Could not convert, extract error messages from output | ||
xwMessage(" Failed :-(", 'red'); | xwMessage(" Failed :-(", 'red'); | ||
| − | + | xwExtractMessages(); | |
| − | |||
| − | |||
| − | |||
} | } | ||
ob_end_clean(); | ob_end_clean(); | ||
| Line 246: | Line 270: | ||
if (preg_match('/<xsl:output +?method *= *"html"/i', $xslt)) | if (preg_match('/<xsl:output +?method *= *"html"/i', $xslt)) | ||
$tResult = $tObject->result_dump_mem($tResult); | $tResult = $tObject->result_dump_mem($tResult); | ||
| − | + | xwExtractMessages(); | |
| − | |||
| − | |||
| − | |||
ob_end_clean(); | ob_end_clean(); | ||
if ($tResult) $article = $tResult; else return false; | if ($tResult) $article = $tResult; else return false; | ||
return true; | return true; | ||
} | } | ||
| + | |||
| + | # Return result set of an XPath query on passed DOM-object | ||
| + | function xwXPathQuery(&$dom, $query) { | ||
| + | xwMessage("Processing XPath Query "$query""); | ||
| + | ob_start(); | ||
| + | $context = $dom->xpath_new_context(); | ||
| + | if ($xpath = $context->xpath_eval($query)) $result = $xpath->nodeset; | ||
| + | else { | ||
| + | xwMessage(' Query Failed! :-(', 'red'); | ||
| + | $result = array(); | ||
| + | } | ||
| + | xwExtractMessages(); | ||
| + | ob_end_clean(); | ||
| + | return $result; | ||
| + | } | ||
# Transform an article object | # Transform an article object | ||
| Line 274: | Line 310: | ||
if (ereg('^(.+)\\(\\)$', $tName, $m)) { | if (ereg('^(.+)\\(\\)$', $tName, $m)) { | ||
# Transform is "name()" format, try to execute from a local function declaration | # Transform is "name()" format, try to execute from a local function declaration | ||
| − | # - probably this is not needed soon, | + | # - probably this is not needed soon, as XSLT-PI's may be a better structure |
$tName = $m[1]; | $tName = $m[1]; | ||
if ($tResult = @call_user_func("xwTransform_$tName", $article)) $article = $tResult; | if ($tResult = @call_user_func("xwTransform_$tName", $article)) $article = $tResult; | ||
| Line 280: | Line 316: | ||
} | } | ||
else { | else { | ||
| − | # | + | # Transform is not local, get transform-article and apply to current-article-object |
if ($tText = xwArticleContent($tName)) { | if ($tText = xwArticleContent($tName)) { | ||
| + | xwMessage($tName,'red'); | ||
| + | xwMessage($tText,'orange'); | ||
# Get transform type | # Get transform type | ||
$tType = xwArticleType($tName, $tText); | $tType = xwArticleType($tName, $tText); | ||
| Line 290: | Line 328: | ||
ob_start(); | ob_start(); | ||
eval($tText); | eval($tText); | ||
| − | + | xwExtractMessages(); | |
| − | |||
ob_end_clean(); | ob_end_clean(); | ||
} | } | ||
| Line 305: | Line 342: | ||
# If article is still a DOM object, stringify it once and for all | # If article is still a DOM object, stringify it once and for all | ||
xwUndomificateArticle($article); | xwUndomificateArticle($article); | ||
| − | |||
return true; | return true; | ||
} | } | ||
| Line 314: | Line 350: | ||
# - we should use DTD's for each kind: document, image, layout, table | # - we should use DTD's for each kind: document, image, layout, table | ||
| − | # Do wiki markup on content | + | # Do wiki markup on was-object content |
function xwTransformWikiMarkup() { | function xwTransformWikiMarkup() { | ||
global $wgOut, $wgUser; | global $wgOut, $wgUser; | ||
| Line 453: | Line 489: | ||
# Return a list of the hrefs found in the passed content | # Return a list of the hrefs found in the passed content | ||
function xwExtractHrefs($content) { | function xwExtractHrefs($content) { | ||
| − | preg_match_all('/(<a.+?>(.+)<\/a>)/', $content, $ | + | preg_match_all('/(<a.+?>(.+)<\/a>)/', $content, $m); |
$hrefs = array(); | $hrefs = array(); | ||
| − | + | for ($i = 0; $i < count($m[0]); $i++) $hrefs[$m[2][$i]] = $m[1][$i]; | |
| − | for ($i = 0; $i < count($ | ||
return $hrefs; | return $hrefs; | ||
} | } | ||
| + | # Extract error-messages from captured output and put in proper message-queue | ||
| + | function xwExtractMessages() { | ||
| + | $err = preg_replace("/<.+?>/", "", ob_get_contents()); | ||
| + | $err = preg_replace('/ in .+? on line.+?[0-9]+/', '', $err); | ||
| + | $err = preg_replace('/Warning.+?\\(\\): /', '', $err); | ||
| + | foreach (split("\n", $err) as $msg) if ($msg) xwMessage(" $msg", 'red'); | ||
| + | } | ||
| + | |||
# Add message to queue | # Add message to queue | ||
function xwMessage($msg, $col = 'blue') { | function xwMessage($msg, $col = 'blue') { | ||
global $xwMessages; | global $xwMessages; | ||
| + | $msg = htmlentities("====>$msg<===="); | ||
return $xwMessages[] = "<p class=\"xwMessage\"><font color=\"$col\">$msg</font></p>\n"; | return $xwMessages[] = "<p class=\"xwMessage\"><font color=\"$col\">$msg</font></p>\n"; | ||
} | } | ||
| + | # Print list of passed object's methods and properties | ||
| + | function xwCheckoutObject($obj) { | ||
| + | global $$obj; | ||
| + | $obj = $$obj->mOutput; | ||
| + | print strtoupper("<br>$obj properties:<br>"); | ||
| + | foreach (get_object_vars($obj) as $k=>$v) print htmlentities("$k => $v")."<br>"; | ||
| + | print strtoupper("<br>$obj methods:<br>"); | ||
| + | foreach (get_class_methods($obj) as $k=>$v) print "$v<br>"; | ||
| + | die; | ||
| + | } | ||
function xwDomificateWiki() { | function xwDomificateWiki() { | ||
| Line 476: | Line 530: | ||
} | } | ||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
?> | ?> | ||
</php> | </php> | ||
Revision as of 04:39, 13 June 2005
<php> <?php
- xmlWiki - MediaWiki XML Hack
- Nad - 2005-05-18
- TODO:
- Security:
- - xml:article - holds article perms, it doesn't have perms of its own (owner, read-groups, write-groups)
- - xml:user - r/w by user, not currently used, but for xmlWiki prefs etc
- - sys:user - r/w by admin only, holds users groups and other system info like stats
- Publish:
- - xml:article - holds article publish-list
- - mirror/wiki-sync
- Transforms:
- - xml:article - now transforms are in here (main article is now like <body>)
- - so we don't do the "its one of ours" thing anymore
- Raw as Default:
- - Need to mod the article-link so it has action=view
- LATER:
- - allow XIncludes to build large docs from others
- - allow docBook and DSSSL content
- - Maybe only use XML transforms and use PHP via PI's
- ---------------------------------------------------------------------------------------------------------------------- #
- INIT
- Exit if not included from index.php
defined('MEDIAWIKI') or die('xmlwiki.php must be included from MediaWiki\'s index.php!');
- Otherwise set up xmlWiki global environment ready for input and output processing
$xwEdit = isset($_REQUEST['action']) && ($_REQUEST['action'] == 'edit'); $xwView = (!isset($_REQUEST['action']) || (isset($_REQUEST['action']) && ($_REQUEST['action'] == 'view'))); $xwRaw = isset($_REQUEST['action']) && ($_REQUEST['action'] == 'raw'); $xwPreview = isset($_REQUEST['wpPreview']); $xwSave = isset($_REQUEST['wpSave']); $xwUserName = $wgUser->mName;
- $xwArticle = $xwPreview ? $wgRequest->gettext('wpTextbox1') : $wgArticle->getContent(false);
$xwArticleTitle = $wgTitle->getPrefixedURL(); $xwArticleCache = array(); $xwArticleLinks = array(); $xwUserLinks = array(); $xwMessages = array(); $xwMetaArticle = false;
- Get associated articles and attempt to Domificate
if ($xwArticleXML = xwArticleContent("xml:$xwArticleTitle")) xwDomificateArticle($xwArticleXML, "xml:$xwArticleTitle"); if ($xwUserXML = xwArticleContent("xml:$xwUserName")) xwDomificateArticle($xwUserXML, "xml:$xwUserName"); if ($xwUserSYS = xwArticleContent("sys:$xwUserName")) xwDomificateArticle($xwUserSYS, "sys:$xwUserName");
- Security
if (ereg('^xml:(.+)$', $xwArticleTitle)) { $xwMetaArticle = true; # This is an xml-pseudo-namespace # - get perms from associated article/user } elseif (ereg('^sys:(.+)$', $xwArticleTitle)) { $xwMetaArticle = true; # This is an sys-pseudo-namespace # - only admin can read/write sys: } elseif (is_object($xwArticleXML)) { # Get perms from xml:article } else $xwReadable = $xwWritable = true;
- ---------------------------------------------------------------------------------------------------------------------- #
- INPUT HOOK
- Parse and process input from forms
function xwInputHook() {
global $xwArticle, $xwArticleTitle, $xwMetaArticle, $xwReadable, $xwWritable; global $xwSave;
# If an article-change is being attempted, if ($xwSave) { if (!$xwReadable || !$xwWritable) { # Not writable, change action to view xwMessage('Cannot access article for writing, changing action to "view"', 'red'); global $action; $action='view'; } else { # Parse POST for xmlWiki form input global $_REQUEST; foreach ($_REQUEST as $k => $v) {
if (is_object($xwArticle) && preg_match("/^xw:(@?)(\\w*):(.+)$/", $k, $m)) { # Form-input-name is "xw:[[@]node]:XPathQuery" which directs the value into xwArticle (if DOM) # - if "node" exists, then a new element (or att if "@node") is created for the value # - hidden-inputs can direct input-handlers into the transform list list(, $att, $node, $xpath) = $m; foreach (xwXPathQuery($xwArticleXML, $xpath) as $result) { if ($att && $node) { # create attribute for value } elseif ($node) { # create element for value } else { # overwrite existing node content } } }
elseif ($xwMetaArticle && ($k == 'wpSave')) { # if it's a pseudo-namespace, wpSave should be valid XML to be saved xwDomificate($wpSave); if (!is_object($wpSave)) { xwMessage('A meta-article must be valid XML! changing action to "edit"', 'red'); global $action; $action='edit'; } }
} } } }
- ---------------------------------------------------------------------------------------------------------------------- #
- OUTPUT HOOK
- Generate output to send back to client
- - if article is not XML, then wiki's parsed content is used
function xwOutputHook() {
global $xwArticle, $xwArticleXML, $xwArticleTitle, $xwReadable, $xwWritable; global $xwTemplate, $xwView, $xwPreview, $xwSave, $xwRaw, $xwUserLinks, $xwArticleLinks; global $wgOut, $wgUser;
# If readable, get wiki-environment, else clear content if ($xwReadable) { $skin = $wgUser->getSkin(); $wikiOut = &$wgOut->mBodytext; } else { $xwArticle = $wikiOut = ; xwMessage('Cannot access article for reading!', 'red'); }
# If no write-access, remove edit link if (!$xwWritable) unset($xwArticleLinks['Edit']);
# If saving, check the publishing list if ($xwSave) {
# Check publish-list and process if any if (false) { xwMessage('Publishing...'); # Publish each item foreach ($xwArticlePublish as $url) { if ($FH = fopen($url, 'a')) { # ftp example: ftp://user:password@example.com/file.txt fwrite($FH, $xwArticle); fclose($FH); xwMessage("Article published to $url"); } else xwMessage("Failed to publish to $url", 'red'); } }
# Check mirror-list and process if any # - allows articles in separate wiki's to be syncronised # - does rudimentary security by sending a salt and response being a hash of the password generated from the salt # - this could be done for login too using ECMA-MD5 on browser if (false) { xwMessage('Mirroring...'); } }
# Apply xmlwiki-environment-transforms to output unless 'raw' requested # - Article is always in string form by now if (!$xwRaw) { xwTransformWikiMarkup(); # Adds wiki markup to result xwTransformGeshi(); # Does geshi based on article-name and content xwTransformAddMessages(); # Adds raw messages to output #xwTransformPageLayout(); # Uses xwTemplate to build xmlwiki-site structure around content xwTransformPageStyle(); # Adds colour/font/proportions etc }
# And finally, output the sunovabitch $wgOut->output();
print "
| $xwArticle |
";
}
- ---------------------------------------------------------------------------------------------------------------------- #
- PARSER HOOK
- If attempted xml encountered, try to domificate and transform
function xwParserHook(&$text) {
if (preg_match("/^<\\?xml/i", $text)) { xwDomificateArticle($text, 'ParserHook/text'); xwTransformArticle($text); }
}
- ---------------------------------------------------------------------------------------------------------------------- #
- ARTICLE FUNCTIONS
- Retreive wiki-article as raw text
function xwArticleContent($articleTitle) { # Return with results if already cached global $xwArticleCache; if (isset($xwArticleCache[$articleTitle])) return $xwArticleCache[$articleTitle]; # Get wiki article content (or use global if no article passed) if ($article = new Article(Title::newFromText($articleTitle))) $article = $article->getContentWithoutUsingSoManyDamnGlobals(); if ($article == '(There is currently no text in this page)') return false; if ($articleTitle) $xwArticleCache[$articleTitle] = $article; return $article; }
- Decide kind of article from content and title
function xwArticleType($title, $article) { # Name based matches if (ereg('\\.php$', $title)) return 'php'; if (ereg('\\.css$', $title)) return 'css'; if (ereg('\\.as$', $title)) return 'actionscript'; if (ereg('\\.py$', $title)) return 'python'; if (ereg('\\.java$', $title)) return 'java'; if (ereg('\\.(cpp)|(h)$', $title)) return 'cpp'; if (ereg('\\.js$', $title)) return 'javascript'; if (ereg('\\.css$', $title)) return 'css'; # Content based matches if (preg_match('/^<\\?xml.+?\\?>\\s*<xsl:stylesheet/', $article)) return 'xslt'; if (ereg('^<\\?xml', $article)) return 'xml'; if (ereg('^<\\?html', $article)) return 'html4strict'; if (ereg('^#![/a-zA-Z0-9]+\\/perl', $article)) return 'perl'; if (ereg('^#![/a-zA-Z0-9]+sh', $article)) return 'bash'; }
- Convert passed article to a DOM object
- - Article is unchanged if not valid XML
function xwDomificateArticle(&$article, $id = ) { xwMessage("Domificating $id"); ob_start(); if ($dom = domxml_open_mem($article)) $article = $dom; else { # Could not convert, extract error messages from output xwMessage(" Failed :-(", 'red'); xwExtractMessages(); } ob_end_clean(); }
- Reduce article to a string if it's a DOM object
- - ie if all xslt's had xml-output-method
function xwUndomificateArticle(&$article, $id = ) { if (!is_object($article)) return false; xwMessage("Undomificating $id"); # Validate, report errors # xwApplyXSLT($article, $xslt) if xml referrs one # Convert DOM back to XML if still an object if (is_object($article)) $article = $article->dump_mem(true); return true; }
- Apply XSLT to article-dom
- - if output-method is html, article will get stringified
function xwApplyXSLT(&$article, &$xslt, $id = ) { xwMessage("Processing XSLT $id"); ob_start(); $tObject = domxml_xslt_stylesheet($xslt); $tResult = $tObject->process($article); # If output-method is html, use XSLT's dump_mem to create an html-string if (preg_match('/<xsl:output +?method *= *"html"/i', $xslt)) $tResult = $tObject->result_dump_mem($tResult); xwExtractMessages(); ob_end_clean(); if ($tResult) $article = $tResult; else return false; return true; }
- Return result set of an XPath query on passed DOM-object
function xwXPathQuery(&$dom, $query) { xwMessage("Processing XPath Query "$query""); ob_start(); $context = $dom->xpath_new_context(); if ($xpath = $context->xpath_eval($query)) $result = $xpath->nodeset; else { xwMessage(' Query Failed! :-(', 'red'); $result = array(); } xwExtractMessages(); ob_end_clean(); return $result; }
- Transform an article object
- - Article must be an xmlwiki:* DOM object to be transformable
- - Article is undomificated on exit
- - Article remains unchanged if not DOM
function xwTransformArticle(&$article) {
# Get doc info or exit if not one of ours if (!is_object($article)) return false; $aType = $article->doctype(); $aType = $aType->name; $aRoot = $article->document_element(); if (!ereg('^xmlwiki:', $aType)) return false; # this must change to meta article xwMessage("Transforming doctype \"$aType\"");
# Loop thru transforms applying each foreach ($aRoot->get_elements_by_tagname('transform') as $tElement) { $tName = $tElement->get_content(); if (ereg('^(.+)\\(\\)$', $tName, $m)) { # Transform is "name()" format, try to execute from a local function declaration # - probably this is not needed soon, as XSLT-PI's may be a better structure $tName = $m[1]; if ($tResult = @call_user_func("xwTransform_$tName", $article)) $article = $tResult; else xwMessage(" Unknown transform \"$tName\"!", 'red'); } else { # Transform is not local, get transform-article and apply to current-article-object if ($tText = xwArticleContent($tName)) { xwMessage($tName,'red'); xwMessage($tText,'orange'); # Get transform type $tType = xwArticleType($tName, $tText); if ($tType == 'xslt') xwApplyXSLT($article, $tText, $tName); elseif ($tType == 'php') { # php, check perms and execute (trapping errors for reporting - unless fatal) if ($perms_check_out_ok) { ob_start(); eval($tText); xwExtractMessages(); ob_end_clean(); } } elseif ($tType == 'css') { # include CSS ref in content } } else xwMessage(" No such transform-article \"$tName\"!", 'red'); } }
# If article is still a DOM object, stringify it once and for all xwUndomificateArticle($article); return true; }
- ---------------------------------------------------------------------------------------------------------------------- #
- TRANSFORMS
- - these transforms are only temporarily here - they should be articles
- - we should use DTD's for each kind: document, image, layout, table
- Do wiki markup on was-object content
function xwTransformWikiMarkup() { global $wgOut, $wgUser; $skin = $wgUser->getSkin(); $wikiOut = &$wgOut->mBodytext; }
- Include Geshi syntax highlighting
- NOTE: Geshi can be installed the normal way too now!
- because transforms don't use wikiOut
function xwTransformGeshi() { return;
global $wgOut, $wgUser; global $xwTemplate, $xwArticle, $xwArticleTitle;
$skin = $wgUser->getSkin(); $wikiOut = &$wgOut->mBodytext;
# First check for entire article highlighting # Highlight entire article if xwLang has been set if ($xwLang) { $xwGeshi = new GeSHi($xwArticle, $xwLang, "extensions/geshi/geshi"); $xwGeshi->set_tab_width(4); $geshi->set_keywords_style(1, 'font-weight: 100;', true); #$geshi->set_comments_style #$geshi->set_escape_char_style #$geshi->set_brackets_style #$geshi->set_strings_style #$geshi->set_numbers_style #$geshi->set_methods_style #$geshi->set_symbols_style #$geshi->set_regexps_style #$geshi->set_script_style #$xwArticle = $xwGeshi->parse_code(); } }
- Append messages to content
function xwTransformAddMessages() { global $xwArticle, $xwMessages; $xwArticle .= join("\n", $xwMessages); }
- This is the default postTransform which surrounds the page
- - most transforms do not reference the global-current-article like this one
- - this is a special transform, because it affects all pages, even special pages
function xwTransformPageLayout() { global $xwArticle, $xwArticleTitle, $xwUserLinks, $xwArticleLinks; $xwArticle = "
| ".join(' ',$xwArticleLinks)." |
| |||||
![\"xmlWiki\"](\"/wiki/xmlwiki/xmlwiki.jpg\")
"; }
- Apply styling to page
function xwTransformPageStyle() { global $xwArticle;
$xwArticle = preg_replace("/(
)(.+?)(<\\/p>)/", '
| $2 |
', $xwArticle);
}
function xwTransform_document_xxx() { # documents are built from parts, # the parts are a tree in its body # includes 'edit' link for each (like section, and also like table) }
- A document object is finalised by transforming it to its body's text
function xwTransform_document_render() { global $xwArticle; $root = $xwArticle->document_element(); $body = $root->get_elements_by_tagname('body'); if (count($body)) $xwArticle = $body[0]->dump_mem(true); }
function xwTransform_layout_xxx() { # for layout container style article }
function xwTransform_image_xxx() { # object contains properties for loading and transforming an image # image needs no body # Get the global image on which imageTransforms work global $xwArticleImage; }
- Converts the in-memory-working image into article content
function xwTransform_image_render() { global $xwArticle, $xwArticleTitle, $xwArticleImage, $xwRaw; if ($xwRaw) { # render article directly if 'raw' request imagePng($xwArticleImage); # Clear article or it will render as xml $xwArticle = ; # set header to image header("Content-type: image/png"); }
else { # the raw image is not being requested, render image in-page with info instead $xwArticle = "<img src=\"$xwArticleTitle?action=raw\" alt=\"$xwArticleTitle\"/>"; } }
- A table object is an interface to a database table
- - this can't be implimented fully until the 'edit' hook is done
- - the query result is a list in document body, so any normal document transforms can follow it
function xwTransform_table_xxx() { # - view lists the table/result with links to edit each (like a normal composition-doc) # - also form for create/edit/edlete # - result rows are in document body (just like a content-tree in a document would be)
# NODE-LIKE-DB
# - if all tables have GUID for pri-key, # - and all have time/duration (or cycle?), # - and we have master list of cols-to-table # - then we could create a meta-query (resulting in pri-key-list of all matches)
}
- Transform the body content to a xtml/javascript tree
function xwTransform_tree() { # import php-tree-component }
- ---------------------------------------------------------------------------------------------------------------------- #
- UTILITY FUNCTIONS
- Return a list of the hrefs found in the passed content
function xwExtractHrefs($content) { preg_match_all('/(<a.+?>(.+)<\/a>)/', $content, $m); $hrefs = array(); for ($i = 0; $i < count($m[0]); $i++) $hrefs[$m[2][$i]] = $m[1][$i]; return $hrefs; }
- Extract error-messages from captured output and put in proper message-queue
function xwExtractMessages() { $err = preg_replace("/<.+?>/", "", ob_get_contents()); $err = preg_replace('/ in .+? on line.+?[0-9]+/', , $err); $err = preg_replace('/Warning.+?\\(\\): /', , $err); foreach (split("\n", $err) as $msg) if ($msg) xwMessage(" $msg", 'red'); }
- Add message to queue
function xwMessage($msg, $col = 'blue') { global $xwMessages; $msg = htmlentities("====>$msg<====");
return $xwMessages[] = "
$msg
\n";
}
- Print list of passed object's methods and properties
function xwCheckoutObject($obj) {
global $$obj;
$obj = $$obj->mOutput;
print strtoupper("
$obj properties:
");
foreach (get_object_vars($obj) as $k=>$v) print htmlentities("$k => $v")."
";
print strtoupper("
$obj methods:
");
foreach (get_class_methods($obj) as $k=>$v) print "$v
";
die;
}
function xwDomificateWiki() { global $xwTemplate; #$doc = domxml_new_doc("1.0"); #$root = $doc->add_root("xmkwiki"); #$head = $root->new_child("head", ""); #$head->new_child("title", "untitiled"); #htmlentities($doc->dump_mem()); }
?> </php>
