if (preg_match('/^\s*
/', $html, $m1)
&& preg_match('@
\s*$@', $html, $m2)) {
$html = substr($html, strlen($m1[0]), -strlen($m2[0]));
}
return new xmlrpcresp(long_string($html));
}
/**
* base64 getPageHTMLVersion( String pagename, int version ): Return page in rendered HTML, UTF-8.
*/
$wiki_dmap['getPageHTMLVersion']
= array('signature' => array(array($xmlrpcBase64, $xmlrpcString, $xmlrpcInt)),
'documentation' => 'Get a version of a page rendered in HTML',
'function' => 'getPageHTMLVersion');
function getPageHTMLVersion($params)
{
return getPageHTML($params);
}
/**
* getAllPages(): Returns a list of all pages. The result is an array of strings.
*/
$wiki_dmap['getAllPages']
= array('signature' => array(array($xmlrpcArray)),
'documentation' => 'Returns a list of all pages as an array of strings',
'function' => 'getAllPages');
function getAllPages($params)
{
global $request;
$dbh = $request->getDbh();
$iterator = $dbh->getAllPages();
$pages = array();
while ($page = $iterator->next()) {
$pages[] = short_string($page->getName());
}
return new xmlrpcresp(new xmlrpcval($pages, "array"));
}
/**
* struct getPageInfo( string pagename ) : returns a struct with elements:
* name (string): the canonical page name
* lastModified (date): Last modification date
* version (int): current version
* author (string): author name
*/
$wiki_dmap['getPageInfo']
= array('signature' => array(array($xmlrpcStruct, $xmlrpcString)),
'documentation' => 'Gets info about the current version of a page',
'function' => 'getPageInfo');
function getPageInfo($params)
{
$revision = _getPageRevision($params);
if (!$revision)
return NoSuchPage();
$name = short_string($revision->getPageName());
$version = new xmlrpcval ($revision->getVersion(), "int");
$lastmodified = new xmlrpcval(iso8601_encode($revision->get('mtime'), 0),
"dateTime.iso8601");
$author = short_string($revision->get('author'));
return new xmlrpcresp(new xmlrpcval(array('name' => $name,
'lastModified' => $lastmodified,
'version' => $version,
'author' => $author),
"struct"));
}
/**
* struct getPageInfoVersion( string pagename, int version ) : returns
* a struct just like plain getPageInfo(), but this time for a
* specific version.
*/
$wiki_dmap['getPageInfoVersion']
= array('signature' => array(array($xmlrpcStruct, $xmlrpcString, $xmlrpcInt)),
'documentation' => 'Gets info about a page version',
'function' => 'getPageInfoVersion');
function getPageInfoVersion($params)
{
return getPageInfo($params);
}
/* array listLinks( string pagename ): Lists all links for a given page. The
* returned array contains structs, with the following elements:
* name (string) : The page name or URL the link is to.
* type (int) : The link type. Zero (0) for internal Wiki link,
* one (1) for external link (URL - image link, whatever).
*/
$wiki_dmap['listLinks']
= array('signature' => array(array($xmlrpcArray, $xmlrpcString)),
'documentation' => 'Lists all links for a given page',
'function' => 'listLinks');
function listLinks($params)
{
global $request;
$ParamPageName = $params->getParam(0);
$pagename = short_string_decode($ParamPageName->scalarval());
$dbh = $request->getDbh();
if (! $dbh->isWikiPage($pagename))
return NoSuchPage($pagename);
$page = $dbh->getPage($pagename);
// The fast WikiDB method. below is the slow method which goes through the formatter
// NB no clean way to extract a list of external links yet, so
// only internal links returned. i.e. all type 'local'.
$linkiterator = $page->getPageLinks();
$linkstruct = array();
while ($currentpage = $linkiterator->next()) {
$currentname = $currentpage->getName();
// Compute URL to page
$args = array();
// How to check external links?
if (!$currentpage->exists()) $args['action'] = 'edit';
// FIXME: Autodetected value of VIRTUAL_PATH wrong,
// this make absolute URLs constructed by WikiURL wrong.
// Also, if USE_PATH_INFO is false, WikiURL is wrong
// due to its use of SCRIPT_NAME.
//$use_abspath = USE_PATH_INFO && ! preg_match('/RPC2.php$/', VIRTUAL_PATH);
// USE_PATH_INFO must be defined in index.php or config.ini but not before,
// otherwise it is ignored and xmlrpc urls are wrong.
// SCRIPT_NAME here is always .../RPC2.php
if (USE_PATH_INFO and !$args) {
$url = preg_replace('/%2f/i', '/', rawurlencode($currentname));
} elseif (!USE_PATH_INFO) {
$url = str_replace("/RPC2.php","/index.php", WikiURL($currentname, $args, true));
} else {
$url = WikiURL($currentname, $args);
}
$linkstruct[] = new xmlrpcval(array('page'=> short_string($currentname),
'type'=> new xmlrpcval('local', 'string'),
'href' => short_string($url)),
"struct");
}
/*
$current = $page->getCurrentRevision();
$content = $current->getTransformedContent();
$links = $content->getLinkInfo();
foreach ($links as $link) {
// We used to give an href for unknown pages that
// included action=edit. I think that's probably the
// wrong thing to do.
$linkstruct[] = new xmlrpcval(array('page'=> short_string($link->page),
'type'=> new xmlrpcval($link->type, 'string'),
'href' => short_string($link->href),
//'pageref' => short_string($link->pageref),
),
"struct");
}
*/
return new xmlrpcresp(new xmlrpcval ($linkstruct, "array"));
}
/**
* Publish-Subscribe
* Client subscribes to a RecentChanges-like channel, getting a short
* callback notification on every change. Like PageChangeNotification, just shorter
* and more complicated
* RSS2 support (not yet), since radio userland's rss-0.92. now called RSS2.
* BTW: Radio Userland deprecated this interface.
*
* boolean wiki.rssPleaseNotify ( notifyProcedure, port, path, protocol, urlList )
* returns: true or false
*
* Check of the channel behind the rssurl has a cloud element,
* if the client has a direct IP connection (no NAT),
* register the client on the WikiDB notification handler
*
* http://backend.userland.com/publishSubscribeWalkthrough
* http://www.soapware.org/xmlStorageSystem#rssPleaseNotify
* http://www.thetwowayweb.com/soapmeetsrss#rsscloudInterface
*/
$wiki_dmap['rssPleaseNotify']
= array('signature' => array(array($xmlrpcStruct, $xmlrpcBoolean)),
'documentation' => 'RSS2 change notification subscriber channel',
'function' => 'rssPleaseNotify');
function rssPleaseNotify($params)
{
// register the clients IP
return new xmlrpcresp(new xmlrpcval (0, "boolean"));
}
$wiki_dmap['mailPasswordToUser']
= array('signature' => array(array($xmlrpcStruct, $xmlrpcString)),
'documentation' => 'RSS2 change notification subscriber channel',
'function' => 'mailPasswordToUser');
function mailPasswordToUser($params)
{
return new xmlrpcresp(new xmlrpcval (0, "boolean"));
}
/**
* Construct the server instance, and set up the dispatch map,
* which maps the XML-RPC methods on to the wiki functions.
* Provide the "wiki." prefix to each function
*/
class XmlRpcServer extends xmlrpc_server
{
function XmlRpcServer ($request = false) {
global $wiki_dmap;
foreach ($wiki_dmap as $name => $val)
$dmap['wiki.' . $name] = $val;
$this->xmlrpc_server($dmap, 0 /* delay service*/);
}
function service () {
global $ErrorManager;
$ErrorManager->pushErrorHandler(new WikiMethodCb($this, '_errorHandler'));
xmlrpc_server::service();
$ErrorManager->popErrorHandler();
}
function _errorHandler ($e) {
$msg = htmlspecialchars($e->asString());
// '--' not allowed within xml comment
$msg = str_replace('--', '--', $msg);
if (function_exists('xmlrpc_debugmsg'))
xmlrpc_debugmsg($msg);
return true;
}
}
// (c-file-style: "gnu")
// Local Variables:
// mode: php
// tab-width: 8
// c-basic-offset: 4
// c-hanging-comment-ender-p: nil
// indent-tabs-mode: nil
// End:
?>