<html>
-<head><title>xmlrpc</title></head>
+<head><title>xmlrpc - Introspect demo</title></head>
<body>
<h1>Introspect demo</h1>
<h2>Query server for available methods and their description</h2>
<h3>The code demonstrates usage of multicall and introspection methods</h3>
<?php
-include "xmlrpc.inc";
+
+include_once __DIR__ . "/../../src/Autoloader.php";
+PhpXmlRpc\Autoloader::register();
+
function display_error($r)
{
print "An error occurred: ";
print "Code: " . $r->faultCode()
. " Reason: '" . $r->faultString() . "'<br/>";
}
-// 'new style' client constructor
-$c = new xmlrpc_client("http://phpxmlrpc.sourceforge.net/server.php");
-print "<h3>methods available at http://" . $c->server . $c->path . "</h3>\n";
-$m = new xmlrpcmsg('system.listMethods');
-$r = &$c->send($m);
-if ($r->faultCode()) {
- display_error($r);
+
+$client = new PhpXmlRpc\Client("http://phpxmlrpc.sourceforge.net/server.php");
+
+// First off, let's retrieve the list of methods available on the remote server
+print "<h3>methods available at http://" . $client->server . $client->path . "</h3>\n";
+$req = new PhpXmlRpc\Request('system.listMethods');
+$resp = $client->send($req);
+
+if ($resp->faultCode()) {
+ display_error($resp);
} else {
- $v = $r->value();
- for ($i = 0; $i < $v->arraysize(); $i++) {
- $mname = $v->arraymem($i);
- print "<h4>" . $mname->scalarval() . "</h4>\n";
+ $v = $resp->value();
+
+ // Then, retrieve the signature and help text of each available method
+ foreach ($v as $methodName) {
+ print "<h4>" . $methodName->scalarval() . "</h4>\n";
// build messages first, add params later
- $m1 = new xmlrpcmsg('system.methodHelp');
- $m2 = new xmlrpcmsg('system.methodSignature');
- $val = new xmlrpcval($mname->scalarval(), "string");
+ $m1 = new PhpXmlRpc\Request('system.methodHelp');
+ $m2 = new PhpXmlRpc\Request('system.methodSignature');
+ $val = new PhpXmlRpc\Value($methodName->scalarval(), "string");
$m1->addParam($val);
$m2->addParam($val);
- // send multiple messages in one pass.
- // If server does not support multicall, client will fall back to 2 separate calls
+ // Send multiple requests in one http call.
+ // If server does not support multicall, client will automatically fall back to 2 separate calls
$ms = array($m1, $m2);
- $rs = &$c->send($ms);
+ $rs = $client->send($ms);
if ($rs[0]->faultCode()) {
display_error($rs[0]);
} else {
display_error($rs[1]);
} else {
print "<h4>Signature</h4><p>\n";
+ // note: using PhpXmlRpc\Encoder::decode() here would lead to cleaner code
$val = $rs[1]->value();
if ($val->kindOf() == "array") {
- for ($j = 0; $j < $val->arraysize(); $j++) {
- $x = $val->arraymem($j);
- $ret = $x->arraymem(0);
+ foreach ($val as $x) {
+ //$ret = $x->arraymem(0);
+ $ret = $x[0];
print "<code>" . $ret->scalarval() . " "
- . $mname->scalarval() . "(";
- if ($x->arraysize() > 1) {
- for ($k = 1; $k < $x->arraysize(); $k++) {
- $y = $x->arraymem($k);
+ . $methodName->scalarval() . "(";
+ if ($x->count() > 1) {
+ for ($k = 1; $k < $x->count(); $k++) {
+ //$y = $x->arraymem($k);
+ $y = $x[$k];
print $y->scalarval();
- if ($k < $x->arraysize() - 1) {
+ if ($k < $x->count() - 1) {
print ", ";
}
}
git://git.onelab.eu / plcapi.git / blobdiff