* If the package version number is found in the left hand * portion of the if() expression below, that means this file has * come from the PEAR installer. Therefore, let's test the * installed version of XML_RPC which should be in the include path. * * If the version has not been substituted in the if() expression, * this file has likely come from a SVN checkout or a .tar file. * Therefore, we'll assume the tests should use the version of * XML_RPC that has come from there as well. */ if ('1.5.4' == '@' . 'package_version' . '@') { ini_set('include_path', '../' . PATH_SEPARATOR . '.' . PATH_SEPARATOR . ini_get('include_path')); } require_once 'XML/RPC/Dump.php'; $val = new XML_RPC_Value(array('title' => new XML_RPC_Value('das ist der Titel', 'string'), 'startDate' => new XML_RPC_Value(mktime(0, 0, 0, 13, 11, 2004), 'dateTime.iso8601'), 'endDate' => new XML_RPC_Value(mktime(0, 0, 0, 15, 11, 2004), 'dateTime.iso8601'), 'arkey' => new XML_RPC_Value(array(new XML_RPC_Value('simple string'), new XML_RPC_Value(12345, 'int')), 'array')), 'struct'); XML_RPC_Dump($val); echo '==============' . "\r\n"; $val2 = new XML_RPC_Value(44353, 'int'); XML_RPC_Dump($val2); echo '==============' . "\r\n"; $val3 = new XML_RPC_Value('this should be a string', 'string'); XML_RPC_Dump($val3); echo '==============' . "\r\n"; $val4 = new XML_RPC_Value(true, 'boolean'); XML_RPC_Dump($val4); echo '==============' . "\r\n"; echo 'Next we will test the error handling...' . "\r\n"; $val5 = new XML_RPC_Value(array('foo' => 'bar'), 'struct'); XML_RPC_Dump($val5); echo '==============' . "\r\n"; echo 'DONE' . "\r\n";
* come from the PEAR installer. Therefore, let's test the * installed version of XML_RPC which should be in the include path. * * If the version has not been substituted in the if() expression, * this file has likely come from a CVS checkout or a .tar file. * Therefore, we'll assume the tests should use the version of * XML_RPC that has come from there as well. */ if ('1.2.2' != '@' . 'package_version' . '@') { /** * Get the needed class from the PEAR installation */ require_once 'XML/RPC/Dump.php'; } else { /** * Get the needed class from the parent directory */ require_once '../Dump.php'; } $val = new XML_RPC_Value(array('title' => new XML_RPC_Value('das ist der Titel', 'string'), 'startDate' => new XML_RPC_Value(mktime(0, 0, 0, 13, 11, 2004), 'dateTime.iso8601'), 'endDate' => new XML_RPC_Value(mktime(0, 0, 0, 15, 11, 2004), 'dateTime.iso8601'), 'error' => 'string', 'arkey' => new XML_RPC_Value(array(new XML_RPC_Value('simple string'), new XML_RPC_Value(12345, 'int')), 'array')), 'struct'); XML_RPC_Dump($val); echo '==============' . "\r\n"; $val2 = new XML_RPC_Value(44353, 'int'); XML_RPC_Dump($val2); echo '==============' . "\r\n"; $val3 = new XML_RPC_Value('this should be a string', 'string'); XML_RPC_Dump($val3); echo '==============' . "\r\n"; $val4 = new XML_RPC_Value(true, 'boolean'); XML_RPC_Dump($val4);
* If the version has not been substituted in the if() expression, * this file has likely come from a SVN checkout or a .tar file. * Therefore, we'll assume the tests should use the version of * XML_RPC that has come from there as well. */ if ('1.5.4' == '@' . 'package_version' . '@') { ini_set('include_path', '../' . PATH_SEPARATOR . '.' . PATH_SEPARATOR . ini_get('include_path')); } require_once 'XML/RPC/Dump.php'; $debug = 0; $params = array(new XML_RPC_Value('php.net', 'string')); $msg = new XML_RPC_Message('domquery', $params); $client = new XML_RPC_Client('/api/xmlrpc', 'www.adamsnames.com'); $client->setDebug($debug); $resp = $client->send($msg); if (!$resp) { echo 'Communication error: ' . $client->errstr; exit(1); } if ($resp->faultCode()) { /* * Display problems that have been gracefully cought and * reported by the xmlrpc.php script */ echo 'Fault Code: ' . $resp->faultCode() . "\n"; echo 'Fault Reason: ' . $resp->faultString() . "\n"; exit(1); } $val = $resp->value(); XML_RPC_Dump($val);