function xmlrpcCall($url, $method, $params)
{
// xmlrpc encode parameters
for ($i = 0; $i < count($params); $i++) {
if (get_class($params[$i]) != 'xmlrpcval') {
$params[$i] = xmlrpc_encode($params[$i]);
}
}
// send request
$message = new xmlrpcmsg($method, $params);
debug("XML-RPC message", $message->serialize());
$addr = parse_url($url);
$client = new xmlrpc_client($url, $addr['host'], $addr['port']);
//if($debug)
// $client->setDebug(1);
debug("XML-RPC", "call to " . $url);
$response = $client->send($message);
// process response
debug("XML-RPC Response", $response->serialize());
if (!$response) {
debug("No response", "probably host is unreachable");
} elseif ($response->faultCode() != 0) {
// there was an error
debug("Error response: ", $response->faultCode() . " " . $response->faultString());
} else {
$retval = $response->value();
if ($retval) {
$retval = xmlrpc_decode($retval);
}
debug("Response", $retval);
return $retval;
}
return NULL;
}
function gFaultXmlRequest($faultCode, $faultString)
{
global $stylevar;
$faultMethod = 'return_fault';
$xml = new xmlrpcmsg($faultMethod);
$xml->addParam($faultCode);
$xml->addParam($faultString);
$rxml = $xml->serialize($stylevar['charset']);
return $rxml;
}
/**
* Forward an xmlrpc request to another server, and return to client the response received.
* @param xmlrpcmsg $m (see method docs below for a description of the expected parameters)
* @return xmlrpcresp
*/
function forward_request($m)
{
// create client
$timeout = 0;
$url = php_xmlrpc_decode($m->getParam(0));
$c = new xmlrpc_client($url);
if ($m->getNumParams() > 3) {
// we have to set some options onto the client.
// Note that if we do not untaint the received values, warnings might be generated...
$options = php_xmlrpc_decode($m->getParam(3));
foreach ($options as $key => $val) {
switch ($key) {
case 'Cookie':
break;
case 'Credentials':
break;
case 'RequestCompression':
$c->setRequestCompression($val);
break;
case 'SSLVerifyHost':
$c->setSSLVerifyHost($val);
break;
case 'SSLVerifyPeer':
$c->setSSLVerifyPeer($val);
break;
case 'Timeout':
$timeout = (int) $val;
break;
}
// switch
}
}
// build call for remote server
/// @todo find a weay to forward client info (such as IP) to server, either
/// - as xml comments in the payload, or
/// - using std http header conventions, such as X-forwarded-for...
$method = php_xmlrpc_decode($m->getParam(1));
$pars = $m->getParam(2);
$m = new xmlrpcmsg($method);
for ($i = 0; $i < $pars->arraySize(); $i++) {
$m->addParam($pars->arraymem($i));
}
// add debug info into response we give back to caller
xmlrpc_debugmsg("Sending to server {$url} the payload: " . $m->serialize());
return $c->send($m, $timeout);
}
function call($url, $method, $params)
{
// xmlrpc encode parameters
for ($i = 0; $i < count($params); $i++) {
if (get_class($params[$i]) != 'xmlrpcval') {
$params[$i] = xmlrpc_encoder($params[$i]);
}
}
// send request
$message = new xmlrpcmsg($method, $params);
if ($this->debug) {
// $this->display_xml($message->serialize());
print "<PRE>" . htmlentities($message->serialize()) . "</PRE>\n";
//("XML-RPC message:\n $message->serialize()",0);
}
$addr = parse_url($url);
$client = new xmlrpc_client($url, $addr['host'], $addr['port'], $this->connTimeout, $this->recvTimeout);
if ($this->debug) {
$client->setDebug(1);
}
debug("XML-RPC", "call to " . $url);
$response = $client->send($message);
if ($this->debug) {
print "<PRE>" . htmlentities($response->serialize()) . "</PRE>\n";
}
// process response
//debug("XML-RPC Response", $response->serialize());
if (!$response) {
addError("No response: probably host is unreachable");
} elseif ($response->faultCode() > 0) {
// there was an error
addError("Error response: " . $response->faultCode() . " " . $response->faultString());
} else {
$retval = $response->value();
if ($retval) {
$retval = xmlrpc_decoder($retval);
}
//debug("Response", $retval);
return $retval;
}
return NULL;
}
while (list($key, $val) = each($inAr)) {
print $key . ", " . $val . "\n";
}
// create parameters from the input array
$p = array();
reset($inAr);
while (list($key, $val) = each($inAr)) {
$p[] = new xmlrpcval(array("name" => new xmlrpcval($key), "age" => new xmlrpcval($val, "int")), "struct");
}
$v = new xmlrpcval($p, "array");
// print "Output values look like this: <PRE>\n" . htmlentities($v->serialize()). "</PRE>\n";
$f = new xmlrpcmsg('examples.sortByAge', array($v));
$c = new xmlrpc_client("/server.php", "phpxmlrpc.sourceforge.net", 80);
$c->setDebug(1);
print "\nAnd I sent\n\n";
print htmlspecialchars($f->serialize());
print "</PRE>";
print "Sending request...<BR>\n";
$r = $c->send($f);
//if (!$r) { die("send failed"); }
$v = $r->value();
if (!$r->faultCode()) {
print "The server gave me these results:<PRE>";
$max = $v->arraysize();
for ($i = 0; $i < $max; $i++) {
$rec = $v->arraymem($i);
$n = $rec->structmem("name");
$a = $rec->structmem("age");
print htmlspecialchars($n->scalarval()) . ", " . htmlspecialchars($a->scalarval()) . "\n";
}
print "<PRE><HR>For nerds: I got this value back<BR><PRE>" . htmlentities($r->serialize()) . "</PRE><HR>\n";
function post_to_lj($id)
{
// get text for posting
$result = mysql_query("select l.name, l.description, l.additional_description, l.image, b.name as artist from wp_product_list as l, wp_product_brands as b where l.id='{$id}' and l.brand = b.id");
$row = mysql_fetch_array($result);
$_artist = $row['artist'];
$_title = nl2br(stripslashes($row['name']));
$_description = nl2br(stripslashes($row['description']));
$_additional_description = nl2br(stripslashes($row['additional_description']));
$_image = $row['image'];
$subj = "";
$text = $_artist . ': «' . $_title . '» ' . ' http://cartoonbank.ru/?page_id=29&cartoonid=' . $id . ' ' . $_description . "<br />Тэги: " . $_additional_description;
/* ваш ник в ЖЖ */
$name = "_cartoonist_";
/* ваш пароль в ЖЖ */
$password = "******";
/* текст который вы хотите опубликовать */
//$text = $body; //"Некоторый текст";
/* заголовок для текста */
//$subj = $subj; //"заголовок";
/* включаем библиотеку XML-RPC */
include "lib/xmlrpc.inc";
/* (!!!) Все данные в ЖЖ хранятся в кодировке Unicode,
используем и в нашем случае такую же кодировку */
$xmlrpc_internalencoding = 'UTF-8';
/* Получаем текущее время */
$date = time();
$year = date("Y", $date);
$mon = date("m", $date);
$day = date("d", $date);
$hour = date("G", $date);
$min = date("i", $date);
/* (!!!) Конвертируем текст из одной кодировки в UTF-8
в данном случае файл хранится в кодировке CP1251 */
//$text = iconv("CP1251", "UTF-8", html_entity_decode($text));
//$subj = iconv("CP1251", "UTF-8", html_entity_decode($subj));
/* заполняем массив с необходимыми переменными */
$post = array("username" => new xmlrpcval($name, "string"), "password" => new xmlrpcval($password, "string"), "event" => new xmlrpcval($text, "string"), "subject" => new xmlrpcval($subj, "string"), "lineendings" => new xmlrpcval("unix", "string"), "year" => new xmlrpcval($year, "int"), "mon" => new xmlrpcval($mon, "int"), "day" => new xmlrpcval($day, "int"), "hour" => new xmlrpcval($hour, "int"), "min" => new xmlrpcval($min, "int"), "ver" => new xmlrpcval(2, "int"));
/* на основе массива создаем структуру */
$post2 = array(new xmlrpcval($post, "struct"));
/* создаем XML сообщение для сервера */
$f = new xmlrpcmsg('LJ.XMLRPC.postevent', $post2);
/* описываем сервер */
$c = new xmlrpc_client("/interface/xmlrpc", "www.livejournal.com", 80);
$c->request_charset_encoding = "UTF-8";
/* по желанию смотрим на XML-код того что отправится на сервер */
echo nl2br(htmlentities($f->serialize()));
/* отправляем XML сообщение на сервер */
$r = $c->send($f);
/* анализируем результат */
if (!$r->faultCode()) {
/* сообщение принято успешно и вернулся XML-результат */
$v = php_xmlrpc_decode($r->value());
print_r($v);
} else {
/* сервер вернул ошибку */
print "An error occurred: ";
print "Code: " . htmlspecialchars($r->faultCode());
print "Reason: '" . htmlspecialchars($r->faultString()) . "'\n";
}
}
function dlfldigi_call($instance, $key, $value1 = null, $value2 = null)
{
global $dlfldigi_instances;
$message = new xmlrpcmsg($key);
// var_dump(is_int(intval($value1)), is_string($value1));
$type = "int";
if (in_array($key, array("main.set_wf_sideband", "modem.set_by_name", "rig.set_mode"))) {
$type = "string";
}
if (in_array($key, array("main.set_rsid", "main.set_afc"))) {
$type = "boolean";
}
if (in_array($key, array("rig.set_frequency"))) {
$type = "double";
}
if ($value1 !== false) {
if ($type == "boolean" && $value1 === "true") {
$value1 = true;
}
if ($type == "boolean" && $value1 === "false") {
$value1 = false;
}
$message->addParam(new xmlrpcval($value1, $type));
}
//if ($value2 !== false)
// $message->addParam(new xmlrpcval($value2, $type));
// error_log("dlfldigi_call($key, $value1, $value2)");
$xmlrpc_server = isset($dlfldigi_instances[$instance]) ? $dlfldigi_instances[$instance][0] : false;
$xmlrpc_port = isset($dlfldigi_instances[$instance]) ? $dlfldigi_instances[$instance][1] : false;
// error_log(print_r($dlfldigi_instances[$instance], true));
if (!$xmlrpc_server || !$xmlrpc_port) {
$err = "DL-XMLRPC: config for " . $instance . " not found!";
error_log($err);
return $err;
}
$c = new xmlrpc_client("/RPC2", $xmlrpc_server, $xmlrpc_port);
if (isset($_GET['dbg'])) {
$c->setDebug(1);
echo htmlentities($message->serialize());
}
$response =& $c->send($message);
if (!$response->faultCode()) {
$v = $response->value();
if (count($v->me)) {
//echo "me=" . print_r($v->me, true);
foreach ($v->me as $k => $item) {
//echo "$k=" . print_r($item, true);
// error_log($key . "=" . print_r($item, true));
return $item;
}
}
} else {
// ignore code 2
// Code: 2 Reason: 'Invalid return payload: enable debugging to examine incoming payload found not-xmlrpc xml element NIL'
if ($response->faultCode() != 2) {
$err = "DL-XMLRPC: " . "Code: " . $response->faultCode() . " Reason: '" . htmlspecialchars($response->faultString()) . "'";
if ($response->faultCode() == 5) {
$err .= " (" . $xmlrpc_server . ":" . $xmlrpc_port . ")";
}
//$err .= " (" . $key . ($value1 ? "=" . $value1 : ""). ")";
error_log($err);
if (isset($_GET['dbg'])) {
echo $err . "<br/>";
}
return $err . "\n";
}
}
}
function testAutoCoDec()
{
$data1 = array(1, 1.0, 'hello world', true, '20051021T23:43:00', -1, 11.0, '~!@#$%^&*()_+|', false, '20051021T23:43:00');
$data2 = array('zero' => $data1, 'one' => $data1, 'two' => $data1, 'three' => $data1, 'four' => $data1, 'five' => $data1, 'six' => $data1, 'seven' => $data1, 'eight' => $data1, 'nine' => $data1);
$data = array($data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2);
//$keys = array('zero', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine');
$v1 = php_xmlrpc_encode($data, array('auto_dates'));
$v2 = php_xmlrpc_decode_xml($v1->serialize());
$this->assertEquals($v1, $v2);
$r1 = new xmlrpcresp($v1);
$r2 = php_xmlrpc_decode_xml($r1->serialize());
$r2->serialize();
// needed to set internal member payload
$this->assertEquals($r1, $r2);
$m1 = new xmlrpcmsg('hello dolly', array($v1));
$m2 = php_xmlrpc_decode_xml($m1->serialize());
$m2->serialize();
// needed to set internal member payload
$this->assertEquals($m1, $m2);
}
function _send_xmlrpc_($method_name, $args, $url, $debug = True)
{
list($uri, $hostpart) = $this->_split_url($url);
if (gettype($args) != 'array') {
$arr[] = new xmlrpcval($args, 'string');
$f = new xmlrpcmsg($method_name, $arr, 'string');
} else {
while (list($key, $val) = @each($args)) {
if (gettype($val) == 'array') {
while (list($x, $y) = each($val)) {
$tmp[$x] = new xmlrpcval($y, 'string');
}
$ele[$key] = new xmlrpcval($tmp, 'struct');
} else {
$ele[$key] = new xmlrpcval($val, 'string');
}
}
$arr[] = new xmlrpcval($ele, 'struct');
$f = new xmlrpcmsg($method_name, $arr, 'struct');
}
$this->debug('<pre>' . htmlentities($f->serialize()) . '</pre>' . "\n", $debug);
$c = new xmlrpc_client($uri, $hostpart, 80);
$c->setCredentials($args['username'], $args['password']);
// _debug_array($c);
$c->setDebug(0);
$r = $c->send($f);
if (!$r) {
$this->debug('send failed');
}
$v = $r->value();
if (!$r->faultCode()) {
$this->debug('<hr>I got this value back<br><pre>' . htmlentities($r->serialize()) . '</pre><hr>', $debug);
$this->result = php_xmlrpc_decode($v);
} else {
$this->debug('Fault Code: ' . $r->faultCode() . ' Reason "' . $r->faultString() . '"<br>', $debug);
$this->result = htmlentities($r->serialize());
}
return $this->result;
}
if (isset($_GET['welcome'])) {
include TT_ROOT . 'smartbanner/app.php';
exit;
}
require_once './lib/xmlrpc.inc';
require_once './lib/xmlrpcs.inc';
require_once './xmlrpcs.php';
require_once './server_define.php';
require_once './mobiquo_common.php';
require_once './input.php';
require_once './xmlrpcresp.php';
require_once './env_setting.php';
if (isset($_POST['session']) && isset($_POST['api_key']) && isset($_POST['subject']) && isset($_POST['body']) || isset($_POST['email_target'])) {
require_once TT_ROOT . 'include/invitation.php';
}
if ($_SERVER['REQUEST_METHOD'] == 'GET') {
require 'web.php';
exit;
}
$rpcServer = new Tapatalk_xmlrpcs($server_param, false);
$rpcServer->setDebug(1);
$rpcServer->compress_response = 'true';
$rpcServer->response_charset_encoding = 'UTF-8';
if (!empty($_POST['method_name'])) {
$xml = new xmlrpcmsg($_POST['method_name']);
$request = $xml->serialize();
$response = $rpcServer->service($request);
} else {
$response = $rpcServer->service();
}
exit;
$day = date("d", $date);
$hour = date("G", $date);
$min = date("i", $date);
/* (!!!) Конвертируем текст из одной кодировки в UTF-8
в данном случае файл хранится в кодировке CP1251 */
//$text = iconv("CP1251", "UTF-8", html_entity_decode($text));
//$subj = iconv("CP1251", "UTF-8", html_entity_decode($subj));
/* заполняем массив с необходимыми переменными */
$post = array("username" => new xmlrpcval($name, "string"), "password" => new xmlrpcval($password, "string"), "event" => new xmlrpcval($text, "string"), "subject" => new xmlrpcval($subj, "string"), "lineendings" => new xmlrpcval("unix", "string"), "year" => new xmlrpcval($year, "int"), "mon" => new xmlrpcval($mon, "int"), "day" => new xmlrpcval($day, "int"), "hour" => new xmlrpcval($hour, "int"), "min" => new xmlrpcval($min, "int"), "ver" => new xmlrpcval(2, "int"));
/* на основе массива создаем структуру */
$post2 = array(new xmlrpcval($post, "struct"));
/* создаем XML сообщение для сервера */
$f = new xmlrpcmsg('LJ.XMLRPC.postevent', $post2);
/* описываем сервер */
$c = new xmlrpc_client("/interface/xmlrpc", "www.livejournal.com", 80);
$c->request_charset_encoding = "UTF-8";
/* по желанию смотрим на XML-код того что отправится на сервер */
echo nl2br(htmlentities($f->serialize()));
/* отправляем XML сообщение на сервер */
$r = $c->send($f);
/* анализируем результат */
if (!$r->faultCode()) {
/* сообщение принято успешно и вернулся XML-результат */
$v = php_xmlrpc_decode($r->value());
print_r($v);
} else {
/* сервер вернул ошибку */
print "An error occurred: ";
print "Code: " . htmlspecialchars($r->faultCode());
print "Reason: '" . htmlspecialchars($r->faultString()) . "'\n";
}
<html>
<head><title>zope test</title></head>
<body>
<?php
include "xmlrpc.inc";
$f = new xmlrpcmsg('document_src', array());
print "<PRE>\n" . htmlspecialchars($f->serialize()) . "</PRE>";
$c = new xmlrpc_client("/index_html", "pingu.heddley.com", 9080);
$c->setCredentials("username", "password");
$c->setDebug(1);
$r = $c->send($f);
if (!$r) {
die("send failed");
}
$v = $r->value();
if (!$r->faultCode()) {
print "I received:" . $v->scalarval() . "<BR>";
print "<HR>I got this value back<BR><PRE>" . htmlentities($r->serialize()) . "</PRE><HR>\n";
} else {
print "Fault: ";
print "Code: " . $r->faultCode() . " Reason '" . $r->faultString() . "'<BR>";
}
?>
</body>
</html>
<html>
<head><title>xmlrpc</title></head>
<body>
<?php
include "xmlrpc.inc";
// Play nice to PHP 5 installations with REGISTER_LONG_ARRAYS off
if (!isset($HTTP_POST_VARS) && isset($_POST)) {
$HTTP_POST_VARS = $_POST;
}
if (isset($HTTP_POST_VARS["stateno"]) && $HTTP_POST_VARS["stateno"] != "") {
$stateno = $HTTP_POST_VARS["stateno"];
$f = new xmlrpcmsg('examples.getStateName', array(new xmlrpcval($stateno, "int")));
print "<PRE>Sending the following request:<BR>" . htmlentities($f->serialize()) . "</PRE>\n";
$c = new xmlrpc_client("/server.php", "phpxmlrpc.sourceforge.net", 80);
$c->setDebug(1);
$r = $c->send($f);
$v = $r->value();
if (!$r->faultCode()) {
print "State number " . htmlspecialchars($stateno) . " is " . htmlspecialchars($v->scalarval()) . "<BR>";
// print "<HR>I got this value back<BR><PRE>" .
// htmlentities($r->serialize()). "</PRE><HR>\n";
} else {
print "Fault: ";
print "Code: " . htmlspecialchars($r->faultCode()) . " Reason '" . htmlspecialchars($r->faultString()) . "'<BR>";
}
} else {
$stateno = "";
}
print "<FORM ACTION=\"client.php\" METHOD=\"POST\">\n<INPUT NAME=\"stateno\" VALUE=\"" . htmlspecialchars($stateno) . "\"><input type=\"submit\" value=\"go\" name=\"submit\"></FORM><P>\nenter a state number to query its name";
?>
</body>
<html>
<head><title>xmlrpc</title></head>
<body>
<h1>Getstatename demo</h1>
<h2>Send a U.S. state number to the server and get back the state name</h2>
<h3>The code demonstrates usage of the php_xmlrpc_encode function</h3>
<?php
include "xmlrpc.inc";
// Play nice to PHP 5 installations with REGISTER_LONG_ARRAYS off
if (!isset($HTTP_POST_VARS) && isset($_POST)) {
$HTTP_POST_VARS = $_POST;
}
if (isset($HTTP_POST_VARS["stateno"]) && $HTTP_POST_VARS["stateno"] != "") {
$stateno = (int) $HTTP_POST_VARS["stateno"];
$f = new xmlrpcmsg('examples.getStateName', array(php_xmlrpc_encode($stateno)));
print "<pre>Sending the following request:\n\n" . htmlentities($f->serialize()) . "\n\nDebug info of server data follows...\n\n";
$c = new xmlrpc_client("/server.php", "phpxmlrpc.sourceforge.net", 80);
$c->setDebug(1);
$r =& $c->send($f);
if (!$r->faultCode()) {
$v = $r->value();
print "</pre><br/>State number " . $stateno . " is " . htmlspecialchars($v->scalarval()) . "<br/>";
// print "<HR>I got this value back<BR><PRE>" .
// htmlentities($r->serialize()). "</PRE><HR>\n";
} else {
print "An error occurred: ";
print "Code: " . htmlspecialchars($r->faultCode()) . " Reason: '" . htmlspecialchars($r->faultString()) . "'</pre><br/>";
}
} else {
$stateno = "";
}
<html>
<head><title>xmlrpc</title></head>
<body>
<?php
include "xmlrpc.inc";
if ($HTTP_POST_VARS["stateno"] != "") {
$f = new xmlrpcmsg('examples.getStateName', array(new xmlrpcval($HTTP_POST_VARS["stateno"], "int")));
print "<pre>" . htmlentities($f->serialize()) . "</pre>\n";
$c = new xmlrpc_client("/server.php", "xmlrpc.heddley.com", 80);
$c->setDebug(1);
$r = $c->send($f);
if (!$r) {
die("send failed");
}
$v = $r->value();
if (!$r->faultCode()) {
print "State number " . $HTTP_POST_VARS["stateno"] . " is " . $v->scalarval() . "<BR>";
// print "<HR>I got this value back<BR><PRE>" .
// htmlentities($r->serialize()). "</PRE><HR>\n";
} else {
print "Fault: ";
print "Code: " . $r->faultCode() . " Reason '" . $r->faultString() . "'<BR>";
}
}
print "<FORM ACTION=\"client.php\" METHOD=\"POST\">\n<INPUT NAME=\"stateno\" VALUE=\"{$stateno}\"><input type=\"submit\" value=\"go\" name=\"submit\"></FORM><P>\nenter a state number to query its name";
?>
</body>
</html>
print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
$v = new xmlrpcval("What are you saying? >> << &&");
print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
$v = new xmlrpcval(array(new xmlrpcval("ABCDEFHIJ"), new xmlrpcval(1234, 'int'), new xmlrpcval(1, 'boolean')), "array");
print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
$v = new xmlrpcval(array("thearray" => new xmlrpcval(array(new xmlrpcval("ABCDEFHIJ"), new xmlrpcval(1234, 'int'), new xmlrpcval(1, 'boolean'), new xmlrpcval(0, 'boolean'), new xmlrpcval(true, 'boolean'), new xmlrpcval(false, 'boolean')), "array"), "theint" => new xmlrpcval(23, 'int'), "thestring" => new xmlrpcval("foobarwhizz"), "thestruct" => new xmlrpcval(array("one" => new xmlrpcval(1, 'int'), "two" => new xmlrpcval(2, 'int')), "struct")), "struct");
print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
$w = new xmlrpcval(array($v, new xmlrpcval("That was the struct!")), "array");
print "<PRE>" . htmlentities($w->serialize()) . "</PRE>";
$w = new xmlrpcval("Mary had a little lamb,\nWhose fleece was white as snow,\nAnd everywhere that Mary went\nthe lamb was sure to go.\n\nMary had a little lamb\nShe tied it to a pylon\nTen thousand volts went down its back\nAnd turned it into nylon", "base64");
print "<PRE>" . htmlentities($w->serialize()) . "</PRE>";
print "<PRE>Value of base64 string is: '" . $w->scalarval() . "'</PRE>";
$f->method('');
$f->addParam(new xmlrpcval("41", "int"));
print "<h3>Testing request serialization</h3>\n";
$op = $f->serialize();
print "<PRE>" . htmlentities($op) . "</PRE>";
print "<h3>Testing ISO date format</h3><pre>\n";
$t = time();
$date = iso8601_encode($t);
print "Now is {$t} --> {$date}\n";
print "Or in UTC, that is " . iso8601_encode($t, 1) . "\n";
$tb = iso8601_decode($date);
print "That is to say {$date} --> {$tb}\n";
print "Which comes out at " . iso8601_encode($tb) . "\n";
print "Which was the time in UTC at " . iso8601_decode($date, 1) . "\n";
print "</pre>\n";
?>
<hr/>
<em>$Id: vardemo.php,v 1.4 2006/12/28 16:10:42 milosch Exp $</em>
</body>
function getPageTags($bpUserId, $userId, $pageId)
{
global $partnerId, $projectId;
/* prepare the methods parameters */
$aStructParams = array('partnerID' => new xmlrpcval($partnerId, 'int'), 'projectID' => new xmlrpcval($projectId, 'int'), 'bpUserID' => new xmlrpcval($bpUserId, 'int'), 'userID' => new xmlrpcval($userId, 'int'), 'pageID' => new xmlrpcval($pageId, 'string'), 'userLang' => new xmlrpcval('fr', 'string'), 'userCountry' => new xmlrpcval('France', 'string'), 'authTimestamp' => new xmlrpcval(time(), 'int'));
/* create array for the xmlrpymsg including the parameters */
$aRequestParams = array(php_xmlrpc_encode($aStructParams), "struct");
/* generate XML message for the request */
$pXmlMsg = new xmlrpcmsg('portal.getPageTags', $aRequestParams);
/* get XML for authentication */
print $sRequestXml = $pXmlMsg->serialize();
/* generate the authHash with your secretKey and append it to the target URL */
$sAuthHash = strtolower(md5($sRequestXml . $sSecretKey));
$sTargetUrl = $retreiveUrl . '?authHash=' . $sAuthHash;
/* create xmlrpc client, set encoding and send the request */
$pClient = new xmlrpc_client($sTargetUrl);
$pClient->request_charset_encoding = 'UTF-8';
$pResponse = $pClient->send($pXmlMsg);
}
