/**
* Make an XML_RPC request.
*
* @param $method
* @return stdClass
*/
protected function xmlRpcRequest($method/** $args */) {
$url = $this->fillPdfServiceEndpoint;
$args = func_get_args();
// Fix up the array for Drupal 7 xmlrpc() function style
$args = [$args[0] => array_slice($args, 1)];
$result = xmlrpc($url, $args);
$ret = new \stdClass;
if (isset($result['error'])) {
drupal_set_message($result['error'], 'error');
$ret->error = TRUE;
}
elseif ($result == FALSE || xmlrpc_error()) {
$error = xmlrpc_error();
$ret->error = TRUE;
drupal_set_message(t('There was a problem contacting the FillPDF service.
It may be down, or you may not have internet access. [ERROR @code: @message]',
['@code' => $error->code, '@message' => $error->message]), 'error');
}
else {
$ret->data = $result['data'];
$ret->error = FALSE;
}
return $ret;
}
/**
* Ensure that hook_xmlrpc_alter() can hide even builtin methods.
*/
protected function testAlterListMethods()
{
// Ensure xmlrpc_test.alter() is disabled and retrieve regular list of methods.
\Drupal::state()->set('xmlrpc_test.alter', FALSE);
$url = url('xmlrpc.php', array('absolute' => TRUE));
$methods1 = xmlrpc($url, array('system.listMethods' => array()));
// Enable the alter hook and retrieve the list of methods again.
\Drupal::state()->set('xmlrpc_test.alter', TRUE);
$methods2 = xmlrpc($url, array('system.listMethods' => array()));
$diff = array_diff($methods1, $methods2);
$this->assertTrue(is_array($diff) && !empty($diff), 'Method list is altered by hook_xmlrpc_alter');
$removed = reset($diff);
$this->assertEqual($removed, 'system.methodSignature', 'Hiding builting system.methodSignature with hook_xmlrpc_alter works');
}
if (!empty($to[1])) {
$domain = $to[1];
}
break;
} elseif (trim($lines[$i]) == '') {
break;
}
}
}
if (!empty($domain)) {
// Compose URL.
$transport = USE_SSL ? 'https://' : 'http://';
$port = SERVER_PORT ? ':' . SERVER_PORT : '';
$query = SERVER_QUERY_STRING ? '?' . SERVER_QUERY_STRING : '';
$url = $transport . $domain . $port . "/xmlrpc.php" . $query;
$result = xmlrpc($url, 'emailGateway.send', $email);
}
// Debugging section.
if (DEBUG) {
$debug = "*****************************************************************\n";
if ($result === 0) {
$debug .= "Message delivered.\n";
} else {
$xml_return_output = print_r($result, TRUE);
$debug .= "XML-RPC Error -- return value follows:\n[start return value]{$xml_return_output}\n[end return value]\n";
}
$debug .= "URL: {$url}\n";
$debug .= "Full message:\n{$email}\n\n\n";
$fh = fopen(DEBUG_FILE, 'a');
fwrite($fh, $debug);
fclose($fh);
/**
* Run validator1 tests.
*/
function testValidator()
{
$xml_url = url('xmlrpc.php', array('absolute' => TRUE));
srand();
mt_srand();
$array_1 = array(array('curly' => mt_rand(-100, 100)), array('curly' => mt_rand(-100, 100)), array('larry' => mt_rand(-100, 100)), array('larry' => mt_rand(-100, 100)), array('moe' => mt_rand(-100, 100)), array('moe' => mt_rand(-100, 100)), array('larry' => mt_rand(-100, 100)));
shuffle($array_1);
$l_res_1 = xmlrpc_test_arrayOfStructsTest($array_1);
$r_res_1 = xmlrpc($xml_url, array('validator1.arrayOfStructsTest' => array($array_1)));
$this->assertIdentical($l_res_1, $r_res_1);
$string_2 = 't\'&>>zf"md>yr>xlcev<h<"k&j<og"w&&>">>uai"np&s>>q\'&b<>"&&&';
$l_res_2 = xmlrpc_test_countTheEntities($string_2);
$r_res_2 = xmlrpc($xml_url, array('validator1.countTheEntities' => array($string_2)));
$this->assertIdentical($l_res_2, $r_res_2);
$struct_3 = array('moe' => mt_rand(-100, 100), 'larry' => mt_rand(-100, 100), 'curly' => mt_rand(-100, 100), 'homer' => mt_rand(-100, 100));
$l_res_3 = xmlrpc_test_easyStructTest($struct_3);
$r_res_3 = xmlrpc($xml_url, array('validator1.easyStructTest' => array($struct_3)));
$this->assertIdentical($l_res_3, $r_res_3);
$struct_4 = array('sub1' => array('bar' => 13), 'sub2' => 14, 'sub3' => array('foo' => 1, 'baz' => 2), 'sub4' => array('ss' => array('sss' => array('ssss' => 'sssss'))));
$l_res_4 = xmlrpc_test_echoStructTest($struct_4);
$r_res_4 = xmlrpc($xml_url, array('validator1.echoStructTest' => array($struct_4)));
$this->assertIdentical($l_res_4, $r_res_4);
$int_5 = mt_rand(-100, 100);
$bool_5 = $int_5 % 2 == 0;
$string_5 = $this->randomName();
$double_5 = (double) (mt_rand(-1000, 1000) / 100);
$time_5 = REQUEST_TIME;
$base64_5 = $this->randomName(100);
$l_res_5 = xmlrpc_test_manyTypesTest($int_5, $bool_5, $string_5, $double_5, xmlrpc_date($time_5), $base64_5);
// See http://drupal.org/node/37766 why this currently fails
$l_res_5[5] = $l_res_5[5]->data;
$r_res_5 = xmlrpc($xml_url, array('validator1.manyTypesTest' => array($int_5, $bool_5, $string_5, $double_5, xmlrpc_date($time_5), xmlrpc_base64($base64_5))));
// @todo Contains objects, objects are not equal.
$this->assertEqual($l_res_5, $r_res_5);
$size = mt_rand(100, 200);
$array_6 = array();
for ($i = 0; $i < $size; $i++) {
$array_6[] = $this->randomName(mt_rand(8, 12));
}
$l_res_6 = xmlrpc_test_moderateSizeArrayCheck($array_6);
$r_res_6 = xmlrpc($xml_url, array('validator1.moderateSizeArrayCheck' => array($array_6)));
$this->assertIdentical($l_res_6, $r_res_6);
$struct_7 = array();
for ($y = 2000; $y < 2002; $y++) {
for ($m = 3; $m < 5; $m++) {
for ($d = 1; $d < 6; $d++) {
$ys = (string) $y;
$ms = sprintf('%02d', $m);
$ds = sprintf('%02d', $d);
$struct_7[$ys][$ms][$ds]['moe'] = mt_rand(-100, 100);
$struct_7[$ys][$ms][$ds]['larry'] = mt_rand(-100, 100);
$struct_7[$ys][$ms][$ds]['curly'] = mt_rand(-100, 100);
}
}
}
$l_res_7 = xmlrpc_test_nestedStructTest($struct_7);
$r_res_7 = xmlrpc($xml_url, array('validator1.nestedStructTest' => array($struct_7)));
$this->assertIdentical($l_res_7, $r_res_7);
$int_8 = mt_rand(-100, 100);
$l_res_8 = xmlrpc_test_simpleStructReturnTest($int_8);
$r_res_8 = xmlrpc($xml_url, array('validator1.simpleStructReturnTest' => array($int_8)));
$this->assertIdentical($l_res_8, $r_res_8);
/* Now test multicall */
$x = array();
$x['validator1.arrayOfStructsTest'] = array($array_1);
$x['validator1.countTheEntities'] = array($string_2);
$x['validator1.easyStructTest'] = array($struct_3);
$x['validator1.echoStructTest'] = array($struct_4);
$x['validator1.manyTypesTest'] = array($int_5, $bool_5, $string_5, $double_5, xmlrpc_date($time_5), xmlrpc_base64($base64_5));
$x['validator1.moderateSizeArrayCheck'] = array($array_6);
$x['validator1.nestedStructTest'] = array($struct_7);
$x['validator1.simpleStructReturnTest'] = array($int_8);
$a_l_res = array($l_res_1, $l_res_2, $l_res_3, $l_res_4, $l_res_5, $l_res_6, $l_res_7, $l_res_8);
$a_r_res = xmlrpc($xml_url, $x);
$this->assertEqual($a_l_res, $a_r_res);
}
/**
* Ensure that system.methodSignature returns an array of signatures.
*/
protected function testMethodSignature()
{
$url = url('xmlrpc.php', array('absolute' => TRUE));
$signature = xmlrpc($url, array('system.methodSignature' => array('system.listMethods')));
$this->assert(is_array($signature) && !empty($signature) && is_array($signature[0]), 'system.methodSignature returns an array of signature arrays.');
}
print "Success\n";
} else {
print "Failed\n";
}
} else {
print_error();
}
$result = xmlrpc($s, 'userpoints.get', $k, $uid, 0);
if ($result != FALSE) {
print "Points for user {$uid} = " . $result['points'] . "\n";
} else {
print_error();
}
$points = -5;
print "Subtracting {$points} points for user: {$uid}\n";
$result = xmlrpc($s, 'userpoints.points', $k, $uid, $points, 0, NULL, NULL);
if ($result != FALSE) {
if ($result['status'] == TRUE) {
print "Success\n";
} else {
print "Failed\n";
}
} else {
print_error();
}
$result = xmlrpc($s, 'userpoints.get', $k, $uid, 0);
if ($result != FALSE) {
print "Points for user {$uid} = " . $result['points'] . "\n";
} else {
print_error();
}
<?php
require_once '/Users/anj/Sites/drupals/drupal-6/includes/xmlrpc.inc';
// Get anon session. system.connect is the only service that does
// not require a sessionid even when you have 'Use Sess ID' checked.
$xmlrpc_url = 'http://localhost.domd/~anj/drupals/drupal-6/services/xmlrpc';
$anon_session = xmlrpc($xmlrpc_url, 'system.connect');
// Use anon session id to login with authentication
$user = '******';
$password = '';
$authenticated_session = xmlrpc($xmlrpc_url, 'user.login', $anon_session['sessid'], $user, $password);
// Now we have an anuthenticated session, and when this ID is passed to services, it will run under that user's permissions
$xmlrpc_result = xmlrpc($xmlrpc_url, 'user.get', $authenticated_session['sessid'], 0);
if ($xmlrpc_result === FALSE) {
print '<pre>' . print_r(xmlrpc_error(), TRUE) . '<pre>';
} else {
print '<pre>' . print_r($xmlrpc_result, TRUE) . '<pre>';
}
