nada
10
11
12
EOT;
$expect = trim(preg_replace("/\r\n/", "\n", $expect));
$msg = new XML_RPC_Message('nada', array(XML_RPC_encode($input)));
$msg->createPayload();
$actual = trim(preg_replace("/\r\n/", "\n", $msg->payload));
if ($actual == $expect) {
echo "passed\n";
} else {
echo "PROBLEM\n";
echo $actual;
}
$msg = new XML_RPC_Message('nada',
array(
new XML_RPC_Value(
array(
new XML_RPC_Value(10, 'int'),
new XML_RPC_Value(11, 'int'),
new XML_RPC_Value(12, 'int'),
),
'array'
)
)
);
$msg->createPayload();
$actual = trim(preg_replace("/\r\n/", "\n", $msg->payload));
if ($actual == $expect) {
echo "passed\n";
} else {
echo "PROBLEM\n";
echo $actual;
}
XML_RPC-1.5.5/tests/extra-lines.php 0000660 0001751 0001751 00000004311 11626045034 016554 0 ustar danielc danielc
* @copyright 2005-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: extra-lines.php 300958 2010-07-02 23:58:51Z danielc $
* @link http://pear.php.net/package/XML_RPC
* @since File available since Release 1.4.4
*/
/*
* 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.5' == '@'.'package_version'.'@') {
ini_set('include_path', '../'
. PATH_SEPARATOR . '.' . PATH_SEPARATOR
. ini_get('include_path')
);
}
require_once 'XML/RPC.php';
$input = "First lfs\n\nSecond crlfs\r\n\r\nThird crs\r\rFourth line";
$expect_removed = "\r\n\r\nnada\r\n\r\n\r\nFirst lfs\r\nSecond crlfs\r\nThird crs\r\nFourth line\r\n\r\n\r\n\r\n";
$expect_not_removed = "\r\n\r\nnada\r\n\r\n\r\nFirst lfs\r\n\r\nSecond crlfs\r\n\r\nThird crs\r\n\r\nFourth line\r\n\r\n\r\n\r\n";
$msg = new XML_RPC_Message('nada', array(XML_RPC_encode($input)));
$msg->createPayload();
if ($msg->payload == $expect_removed) {
echo "passed\n";
} else {
echo "PROBLEM\n";
}
$msg = new XML_RPC_Message('nada', array(XML_RPC_encode($input)));
$msg->remove_extra_lines = false;
$msg->createPayload();
if ($msg->payload == $expect_not_removed) {
echo "passed\n";
} else {
echo "PROBLEM\n";
}
XML_RPC-1.5.5/tests/protoport.php 0000770 0001751 0001751 00000025007 11626045034 016400 0 ustar danielc danielc
* @copyright 2005-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: protoport.php 300957 2010-07-02 23:55:00Z danielc $
* @link http://pear.php.net/package/XML_RPC
* @since File available since Release 1.2
*/
/*
* 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.5' == '@'.'package_version'.'@') {
ini_set('include_path', '../'
. PATH_SEPARATOR . '.' . PATH_SEPARATOR
. ini_get('include_path')
);
}
require_once 'XML/RPC.php';
/**
* Compare the test result to the expected result
*
* If the test fails, echo out the results.
*
* @param array $expect the array of object properties you expect
* from the test
* @param object $actual the object results from the test
* @param string $test_name the name of the test
*
* @return void
*/
function compare($expect, $actual, $test_name) {
$actual = get_object_vars($actual);
if (count(array_diff($actual, $expect))) {
echo "$test_name failed.\nExpect: ";
print_r($expect);
echo "Actual: ";
print_r($actual);
echo "\n";
}
}
if (php_sapi_name() != 'cli') {
echo "\n";
}
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 80,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'theserver');
compare($x, $c, 'defaults');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 80,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'http://theserver');
compare($x, $c, 'defaults with http');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 443,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'https://theserver');
compare($x, $c, 'defaults with https');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 443,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'ssl://theserver');
compare($x, $c, 'defaults with ssl');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 65,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'theserver', 65);
compare($x, $c, 'port 65');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 65,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'http://theserver', 65);
compare($x, $c, 'port 65 with http');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 65,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'https://theserver', 65);
compare($x, $c, 'port 65 with https');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 65,
'proxy' => '',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'ssl://theserver', 65);
compare($x, $c, 'port 65 with ssl');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 80,
'proxy' => 'theproxy',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'theserver', 0,
'theproxy');
compare($x, $c, 'defaults proxy');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 80,
'proxy' => 'theproxy',
'proxy_protocol' => 'http://',
'proxy_port' => 8080,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'http://theserver', 0,
'http://theproxy');
compare($x, $c, 'defaults with http proxy');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 443,
'proxy' => 'theproxy',
'proxy_protocol' => 'ssl://',
'proxy_port' => 443,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'https://theserver', 0,
'https://theproxy');
compare($x, $c, 'defaults with https proxy');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 443,
'proxy' => 'theproxy',
'proxy_protocol' => 'ssl://',
'proxy_port' => 443,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'ssl://theserver', 0,
'ssl://theproxy');
compare($x, $c, 'defaults with ssl proxy');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 65,
'proxy' => 'theproxy',
'proxy_protocol' => 'http://',
'proxy_port' => 6565,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'theserver', 65,
'theproxy', 6565);
compare($x, $c, 'port 65 proxy 6565');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 65,
'proxy' => 'theproxy',
'proxy_protocol' => 'http://',
'proxy_port' => 6565,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'http://theserver', 65,
'http://theproxy', 6565);
compare($x, $c, 'port 65 with http proxy 6565');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 65,
'proxy' => 'theproxy',
'proxy_protocol' => 'ssl://',
'proxy_port' => 6565,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'https://theserver', 65,
'https://theproxy', 6565);
compare($x, $c, 'port 65 with https proxy 6565');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 65,
'proxy' => 'theproxy',
'proxy_protocol' => 'ssl://',
'proxy_port' => 6565,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'ssl://theserver', 65,
'ssl://theproxy', 6565);
compare($x, $c, 'port 65 with ssl proxy 6565');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'ssl://',
'port' => 443,
'proxy' => 'theproxy',
'proxy_protocol' => 'ssl://',
'proxy_port' => 443,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'theserver', 443,
'theproxy', 443);
compare($x, $c, 'port 443 no protocol and proxy port 443 no protocol');
$x = array(
'path' => 'thepath',
'server' => 'theserver',
'protocol' => 'http://',
'port' => 80,
'proxy' => 'theproxy',
'proxy_protocol' => 'ssl://',
'proxy_port' => 6565,
'proxy_user' => '',
'proxy_pass' => '',
'errno' => 0,
'errstring' => '',
'debug' => 0,
'username' => '',
'password' => '',
);
$c = new XML_RPC_Client('thepath', 'theserver', 0,
'ssl://theproxy', 6565);
compare($x, $c, 'port 443 no protocol and proxy port 443 no protocol');
echo "\nIf no other output was produced, these tests passed.\n";
XML_RPC-1.5.5/tests/test_Dump.php 0000660 0001751 0001751 00000004130 11626045034 016264 0 ustar danielc danielc
* @copyright 2005-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: test_Dump.php 300962 2010-07-03 02:24:24Z danielc $
* @link http://pear.php.net/package/XML_RPC
*/
/*
* 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.5' == '@'.'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";
XML_RPC-1.5.5/tests/types.php 0000770 0001751 0001751 00000004767 11626045034 015506 0 ustar danielc danielc
* @copyright 2005-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: types.php 300957 2010-07-02 23:55:00Z danielc $
* @link http://pear.php.net/package/XML_RPC
* @since File available since Release 1.4.4
*/
/*
* 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.5' == '@'.'package_version'.'@') {
ini_set('include_path', '../'
. PATH_SEPARATOR . '.' . PATH_SEPARATOR
. ini_get('include_path')
);
}
require_once 'XML/RPC/Server.php';
$GLOBALS['HTTP_RAW_POST_DATA'] = <<
allgot
default to string
inside string
8
20050809T01:33:44
a
b
a
ay
b
be
EOPOST;
$expect = <<
param 0: 'default to string'
param 1: 'inside string'
param 2: '8'
param 3: '20050809T01:33:44'
param 4: array (
0 => 'a',
1 => 'b',
)
param 5: array (
'a' => 'ay',
'b' => 'be',
)
EOEXP;
include './allgot.inc';
XML_RPC-1.5.5/XML/RPC.php 0000660 0001751 0001751 00000164717 11626045034 014264 0 ustar danielc danielc
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: RPC.php 315594 2011-08-27 01:03:57Z danielc $
* @link http://pear.php.net/package/XML_RPC
*/
if (!function_exists('xml_parser_create')) {
include_once 'PEAR.php';
PEAR::loadExtension('xml');
}
/**#@+
* Error constants
*/
/**
* Parameter values don't match parameter types
*/
define('XML_RPC_ERROR_INVALID_TYPE', 101);
/**
* Parameter declared to be numeric but the values are not
*/
define('XML_RPC_ERROR_NON_NUMERIC_FOUND', 102);
/**
* Communication error
*/
define('XML_RPC_ERROR_CONNECTION_FAILED', 103);
/**
* The array or struct has already been started
*/
define('XML_RPC_ERROR_ALREADY_INITIALIZED', 104);
/**
* Incorrect parameters submitted
*/
define('XML_RPC_ERROR_INCORRECT_PARAMS', 105);
/**
* Programming error by developer
*/
define('XML_RPC_ERROR_PROGRAMMING', 106);
/**#@-*/
/**
* Data types
* @global string $GLOBALS['XML_RPC_I4']
*/
$GLOBALS['XML_RPC_I4'] = 'i4';
/**
* Data types
* @global string $GLOBALS['XML_RPC_Int']
*/
$GLOBALS['XML_RPC_Int'] = 'int';
/**
* Data types
* @global string $GLOBALS['XML_RPC_Boolean']
*/
$GLOBALS['XML_RPC_Boolean'] = 'boolean';
/**
* Data types
* @global string $GLOBALS['XML_RPC_Double']
*/
$GLOBALS['XML_RPC_Double'] = 'double';
/**
* Data types
* @global string $GLOBALS['XML_RPC_String']
*/
$GLOBALS['XML_RPC_String'] = 'string';
/**
* Data types
* @global string $GLOBALS['XML_RPC_DateTime']
*/
$GLOBALS['XML_RPC_DateTime'] = 'dateTime.iso8601';
/**
* Data types
* @global string $GLOBALS['XML_RPC_Base64']
*/
$GLOBALS['XML_RPC_Base64'] = 'base64';
/**
* Data types
* @global string $GLOBALS['XML_RPC_Array']
*/
$GLOBALS['XML_RPC_Array'] = 'array';
/**
* Data types
* @global string $GLOBALS['XML_RPC_Struct']
*/
$GLOBALS['XML_RPC_Struct'] = 'struct';
/**
* Data type meta-types
* @global array $GLOBALS['XML_RPC_Types']
*/
$GLOBALS['XML_RPC_Types'] = array(
$GLOBALS['XML_RPC_I4'] => 1,
$GLOBALS['XML_RPC_Int'] => 1,
$GLOBALS['XML_RPC_Boolean'] => 1,
$GLOBALS['XML_RPC_String'] => 1,
$GLOBALS['XML_RPC_Double'] => 1,
$GLOBALS['XML_RPC_DateTime'] => 1,
$GLOBALS['XML_RPC_Base64'] => 1,
$GLOBALS['XML_RPC_Array'] => 2,
$GLOBALS['XML_RPC_Struct'] => 3,
);
/**
* Error message numbers
* @global array $GLOBALS['XML_RPC_err']
*/
$GLOBALS['XML_RPC_err'] = array(
'unknown_method' => 1,
'invalid_return' => 2,
'incorrect_params' => 3,
'introspect_unknown' => 4,
'http_error' => 5,
'not_response_object' => 6,
'invalid_request' => 7,
);
/**
* Error message strings
* @global array $GLOBALS['XML_RPC_str']
*/
$GLOBALS['XML_RPC_str'] = array(
'unknown_method' => 'Unknown method',
'invalid_return' => 'Invalid return payload: enable debugging to examine incoming payload',
'incorrect_params' => 'Incorrect parameters passed to method',
'introspect_unknown' => 'Can\'t introspect: method unknown',
'http_error' => 'Didn\'t receive 200 OK from remote server.',
'not_response_object' => 'The requested method didn\'t return an XML_RPC_Response object.',
'invalid_request' => 'Invalid request payload',
);
/**
* Default XML encoding (ISO-8859-1, UTF-8 or US-ASCII)
* @global string $GLOBALS['XML_RPC_defencoding']
*/
$GLOBALS['XML_RPC_defencoding'] = 'UTF-8';
/**
* User error codes start at 800
* @global int $GLOBALS['XML_RPC_erruser']
*/
$GLOBALS['XML_RPC_erruser'] = 800;
/**
* XML parse error codes start at 100
* @global int $GLOBALS['XML_RPC_errxml']
*/
$GLOBALS['XML_RPC_errxml'] = 100;
/**
* Compose backslashes for escaping regexp
* @global string $GLOBALS['XML_RPC_backslash']
*/
$GLOBALS['XML_RPC_backslash'] = chr(92) . chr(92);
/**
* Should we automatically base64 encode strings that contain characters
* which can cause PHP's SAX-based XML parser to break?
* @global boolean $GLOBALS['XML_RPC_auto_base64']
*/
$GLOBALS['XML_RPC_auto_base64'] = false;
/**
* Valid parents of XML elements
* @global array $GLOBALS['XML_RPC_valid_parents']
*/
$GLOBALS['XML_RPC_valid_parents'] = array(
'BOOLEAN' => array('VALUE'),
'I4' => array('VALUE'),
'INT' => array('VALUE'),
'STRING' => array('VALUE'),
'DOUBLE' => array('VALUE'),
'DATETIME.ISO8601' => array('VALUE'),
'BASE64' => array('VALUE'),
'ARRAY' => array('VALUE'),
'STRUCT' => array('VALUE'),
'PARAM' => array('PARAMS'),
'METHODNAME' => array('METHODCALL'),
'PARAMS' => array('METHODCALL', 'METHODRESPONSE'),
'MEMBER' => array('STRUCT'),
'NAME' => array('MEMBER'),
'DATA' => array('ARRAY'),
'FAULT' => array('METHODRESPONSE'),
'VALUE' => array('MEMBER', 'DATA', 'PARAM', 'FAULT'),
);
/**
* Stores state during parsing
*
* quick explanation of components:
* + ac = accumulates values
* + qt = decides if quotes are needed for evaluation
* + cm = denotes struct or array (comma needed)
* + isf = indicates a fault
* + lv = indicates "looking for a value": implements the logic
* to allow values with no types to be strings
* + params = stores parameters in method calls
* + method = stores method name
*
* @global array $GLOBALS['XML_RPC_xh']
*/
$GLOBALS['XML_RPC_xh'] = array();
/**
* Start element handler for the XML parser
*
* @return void
*/
function XML_RPC_se($parser_resource, $name, $attrs)
{
global $XML_RPC_xh, $XML_RPC_valid_parents;
$parser = (int) $parser_resource;
// if invalid xmlrpc already detected, skip all processing
if ($XML_RPC_xh[$parser]['isf'] >= 2) {
return;
}
// check for correct element nesting
// top level element can only be of 2 types
if (count($XML_RPC_xh[$parser]['stack']) == 0) {
if ($name != 'METHODRESPONSE' && $name != 'METHODCALL') {
$XML_RPC_xh[$parser]['isf'] = 2;
$XML_RPC_xh[$parser]['isf_reason'] = 'missing top level xmlrpc element';
return;
}
} else {
// not top level element: see if parent is OK
if (!in_array($XML_RPC_xh[$parser]['stack'][0], $XML_RPC_valid_parents[$name])) {
$name = preg_replace('@[^a-zA-Z0-9._-]@', '', $name);
$XML_RPC_xh[$parser]['isf'] = 2;
$XML_RPC_xh[$parser]['isf_reason'] = "xmlrpc element $name cannot be child of {$XML_RPC_xh[$parser]['stack'][0]}";
return;
}
}
switch ($name) {
case 'STRUCT':
$XML_RPC_xh[$parser]['cm']++;
// turn quoting off
$XML_RPC_xh[$parser]['qt'] = 0;
$cur_val = array();
$cur_val['value'] = array();
$cur_val['members'] = 1;
array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
break;
case 'ARRAY':
$XML_RPC_xh[$parser]['cm']++;
// turn quoting off
$XML_RPC_xh[$parser]['qt'] = 0;
$cur_val = array();
$cur_val['value'] = array();
$cur_val['members'] = 0;
array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
break;
case 'NAME':
$XML_RPC_xh[$parser]['ac'] = '';
break;
case 'FAULT':
$XML_RPC_xh[$parser]['isf'] = 1;
break;
case 'PARAM':
$XML_RPC_xh[$parser]['valuestack'] = array();
break;
case 'VALUE':
$XML_RPC_xh[$parser]['lv'] = 1;
$XML_RPC_xh[$parser]['vt'] = $GLOBALS['XML_RPC_String'];
$XML_RPC_xh[$parser]['ac'] = '';
$XML_RPC_xh[$parser]['qt'] = 0;
// look for a value: if this is still 1 by the
// time we reach the first data segment then the type is string
// by implication and we need to add in a quote
break;
case 'I4':
case 'INT':
case 'STRING':
case 'BOOLEAN':
case 'DOUBLE':
case 'DATETIME.ISO8601':
case 'BASE64':
$XML_RPC_xh[$parser]['ac'] = ''; // reset the accumulator
if ($name == 'DATETIME.ISO8601' || $name == 'STRING') {
$XML_RPC_xh[$parser]['qt'] = 1;
if ($name == 'DATETIME.ISO8601') {
$XML_RPC_xh[$parser]['vt'] = $GLOBALS['XML_RPC_DateTime'];
}
} elseif ($name == 'BASE64') {
$XML_RPC_xh[$parser]['qt'] = 2;
} else {
// No quoting is required here -- but
// at the end of the element we must check
// for data format errors.
$XML_RPC_xh[$parser]['qt'] = 0;
}
break;
case 'MEMBER':
$XML_RPC_xh[$parser]['ac'] = '';
break;
case 'DATA':
case 'METHODCALL':
case 'METHODNAME':
case 'METHODRESPONSE':
case 'PARAMS':
// valid elements that add little to processing
break;
}
// Save current element to stack
array_unshift($XML_RPC_xh[$parser]['stack'], $name);
if ($name != 'VALUE') {
$XML_RPC_xh[$parser]['lv'] = 0;
}
}
/**
* End element handler for the XML parser
*
* @return void
*/
function XML_RPC_ee($parser_resource, $name)
{
global $XML_RPC_xh;
$parser = (int) $parser_resource;
if ($XML_RPC_xh[$parser]['isf'] >= 2) {
return;
}
// push this element from stack
// NB: if XML validates, correct opening/closing is guaranteed and
// we do not have to check for $name == $curr_elem.
// we also checked for proper nesting at start of elements...
$curr_elem = array_shift($XML_RPC_xh[$parser]['stack']);
switch ($name) {
case 'STRUCT':
case 'ARRAY':
$cur_val = array_shift($XML_RPC_xh[$parser]['valuestack']);
$XML_RPC_xh[$parser]['value'] = $cur_val['value'];
$XML_RPC_xh[$parser]['vt'] = strtolower($name);
$XML_RPC_xh[$parser]['cm']--;
break;
case 'NAME':
$XML_RPC_xh[$parser]['valuestack'][0]['name'] = $XML_RPC_xh[$parser]['ac'];
break;
case 'BOOLEAN':
// special case here: we translate boolean 1 or 0 into PHP
// constants true or false
if ($XML_RPC_xh[$parser]['ac'] == '1') {
$XML_RPC_xh[$parser]['ac'] = 'true';
} else {
$XML_RPC_xh[$parser]['ac'] = 'false';
}
$XML_RPC_xh[$parser]['vt'] = strtolower($name);
// Drop through intentionally.
case 'I4':
case 'INT':
case 'STRING':
case 'DOUBLE':
case 'DATETIME.ISO8601':
case 'BASE64':
if ($XML_RPC_xh[$parser]['qt'] == 1) {
// we use double quotes rather than single so backslashification works OK
$XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
} elseif ($XML_RPC_xh[$parser]['qt'] == 2) {
$XML_RPC_xh[$parser]['value'] = base64_decode($XML_RPC_xh[$parser]['ac']);
} elseif ($name == 'BOOLEAN') {
$XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
} else {
// we have an I4, INT or a DOUBLE
// we must check that only 0123456789-. are characters here
if (!preg_match("@^[+-]?[0123456789 \t\.]+$@", $XML_RPC_xh[$parser]['ac'])) {
XML_RPC_Base::raiseError('Non-numeric value received in INT or DOUBLE',
XML_RPC_ERROR_NON_NUMERIC_FOUND);
$XML_RPC_xh[$parser]['value'] = XML_RPC_ERROR_NON_NUMERIC_FOUND;
} else {
// it's ok, add it on
$XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
}
}
$XML_RPC_xh[$parser]['ac'] = '';
$XML_RPC_xh[$parser]['qt'] = 0;
$XML_RPC_xh[$parser]['lv'] = 3; // indicate we've found a value
break;
case 'VALUE':
if ($XML_RPC_xh[$parser]['vt'] == $GLOBALS['XML_RPC_String']) {
if (strlen($XML_RPC_xh[$parser]['ac']) > 0) {
$XML_RPC_xh[$parser]['value'] = $XML_RPC_xh[$parser]['ac'];
} elseif ($XML_RPC_xh[$parser]['lv'] == 1) {
// The element was empty.
$XML_RPC_xh[$parser]['value'] = '';
}
}
$temp = new XML_RPC_Value($XML_RPC_xh[$parser]['value'], $XML_RPC_xh[$parser]['vt']);
$cur_val = array_shift($XML_RPC_xh[$parser]['valuestack']);
if (is_array($cur_val)) {
if ($cur_val['members']==0) {
$cur_val['value'][] = $temp;
} else {
$XML_RPC_xh[$parser]['value'] = $temp;
}
array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
} else {
$XML_RPC_xh[$parser]['value'] = $temp;
}
break;
case 'MEMBER':
$XML_RPC_xh[$parser]['ac'] = '';
$XML_RPC_xh[$parser]['qt'] = 0;
$cur_val = array_shift($XML_RPC_xh[$parser]['valuestack']);
if (is_array($cur_val)) {
if ($cur_val['members']==1) {
$cur_val['value'][$cur_val['name']] = $XML_RPC_xh[$parser]['value'];
}
array_unshift($XML_RPC_xh[$parser]['valuestack'], $cur_val);
}
break;
case 'DATA':
$XML_RPC_xh[$parser]['ac'] = '';
$XML_RPC_xh[$parser]['qt'] = 0;
break;
case 'PARAM':
$XML_RPC_xh[$parser]['params'][] = $XML_RPC_xh[$parser]['value'];
break;
case 'METHODNAME':
case 'RPCMETHODNAME':
$XML_RPC_xh[$parser]['method'] = preg_replace("@^[\n\r\t ]+@", '',
$XML_RPC_xh[$parser]['ac']);
break;
}
// if it's a valid type name, set the type
if (isset($GLOBALS['XML_RPC_Types'][strtolower($name)])) {
$XML_RPC_xh[$parser]['vt'] = strtolower($name);
}
}
/**
* Character data handler for the XML parser
*
* @return void
*/
function XML_RPC_cd($parser_resource, $data)
{
global $XML_RPC_xh, $XML_RPC_backslash;
$parser = (int) $parser_resource;
if ($XML_RPC_xh[$parser]['lv'] != 3) {
// "lookforvalue==3" means that we've found an entire value
// and should discard any further character data
if ($XML_RPC_xh[$parser]['lv'] == 1) {
// if we've found text and we're just in a then
// turn quoting on, as this will be a string
$XML_RPC_xh[$parser]['qt'] = 1;
// and say we've found a value
$XML_RPC_xh[$parser]['lv'] = 2;
}
// replace characters that eval would
// do special things with
if (!isset($XML_RPC_xh[$parser]['ac'])) {
$XML_RPC_xh[$parser]['ac'] = '';
}
$XML_RPC_xh[$parser]['ac'] .= $data;
}
}
/**
* The common methods and properties for all of the XML_RPC classes
*
* @category Web Services
* @package XML_RPC
* @author Edd Dumbill
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Base {
/**
* PEAR Error handling
*
* @return object PEAR_Error object
*/
function raiseError($msg, $code)
{
include_once 'PEAR.php';
if (is_object(@$this)) {
return PEAR::raiseError(get_class($this) . ': ' . $msg, $code);
} else {
return PEAR::raiseError('XML_RPC: ' . $msg, $code);
}
}
/**
* Tell whether something is a PEAR_Error object
*
* @param mixed $value the item to check
*
* @return bool whether $value is a PEAR_Error object or not
*
* @access public
*/
function isError($value)
{
return is_object($value) && is_a($value, 'PEAR_Error');
}
}
/**
* The methods and properties for submitting XML RPC requests
*
* @category Web Services
* @package XML_RPC
* @author Edd Dumbill
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Client extends XML_RPC_Base {
/**
* The path and name of the RPC server script you want the request to go to
* @var string
*/
var $path = '';
/**
* The name of the remote server to connect to
* @var string
*/
var $server = '';
/**
* The protocol to use in contacting the remote server
* @var string
*/
var $protocol = 'http://';
/**
* The port for connecting to the remote server
*
* The default is 80 for http:// connections
* and 443 for https:// and ssl:// connections.
*
* @var integer
*/
var $port = 80;
/**
* A user name for accessing the RPC server
* @var string
* @see XML_RPC_Client::setCredentials()
*/
var $username = '';
/**
* A password for accessing the RPC server
* @var string
* @see XML_RPC_Client::setCredentials()
*/
var $password = '';
/**
* The name of the proxy server to use, if any
* @var string
*/
var $proxy = '';
/**
* The protocol to use in contacting the proxy server, if any
* @var string
*/
var $proxy_protocol = 'http://';
/**
* The port for connecting to the proxy server
*
* The default is 8080 for http:// connections
* and 443 for https:// and ssl:// connections.
*
* @var integer
*/
var $proxy_port = 8080;
/**
* A user name for accessing the proxy server
* @var string
*/
var $proxy_user = '';
/**
* A password for accessing the proxy server
* @var string
*/
var $proxy_pass = '';
/**
* The error number, if any
* @var integer
*/
var $errno = 0;
/**
* The error message, if any
* @var string
*/
var $errstr = '';
/**
* The current debug mode (1 = on, 0 = off)
* @var integer
*/
var $debug = 0;
/**
* The HTTP headers for the current request.
* @var string
*/
var $headers = '';
/**
* Sets the object's properties
*
* @param string $path the path and name of the RPC server script
* you want the request to go to
* @param string $server the URL of the remote server to connect to.
* If this parameter doesn't specify a
* protocol and $port is 443, ssl:// is
* assumed.
* @param integer $port a port for connecting to the remote server.
* Defaults to 80 for http:// connections and
* 443 for https:// and ssl:// connections.
* @param string $proxy the URL of the proxy server to use, if any.
* If this parameter doesn't specify a
* protocol and $port is 443, ssl:// is
* assumed.
* @param integer $proxy_port a port for connecting to the remote server.
* Defaults to 8080 for http:// connections and
* 443 for https:// and ssl:// connections.
* @param string $proxy_user a user name for accessing the proxy server
* @param string $proxy_pass a password for accessing the proxy server
*
* @return void
*/
function XML_RPC_Client($path, $server, $port = 0,
$proxy = '', $proxy_port = 0,
$proxy_user = '', $proxy_pass = '')
{
$this->path = $path;
$this->proxy_user = $proxy_user;
$this->proxy_pass = $proxy_pass;
preg_match('@^(http://|https://|ssl://)?(.*)$@', $server, $match);
if ($match[1] == '') {
if ($port == 443) {
$this->server = $match[2];
$this->protocol = 'ssl://';
$this->port = 443;
} else {
$this->server = $match[2];
if ($port) {
$this->port = $port;
}
}
} elseif ($match[1] == 'http://') {
$this->server = $match[2];
if ($port) {
$this->port = $port;
}
} else {
$this->server = $match[2];
$this->protocol = 'ssl://';
if ($port) {
$this->port = $port;
} else {
$this->port = 443;
}
}
if ($proxy) {
preg_match('@^(http://|https://|ssl://)?(.*)$@', $proxy, $match);
if ($match[1] == '') {
if ($proxy_port == 443) {
$this->proxy = $match[2];
$this->proxy_protocol = 'ssl://';
$this->proxy_port = 443;
} else {
$this->proxy = $match[2];
if ($proxy_port) {
$this->proxy_port = $proxy_port;
}
}
} elseif ($match[1] == 'http://') {
$this->proxy = $match[2];
if ($proxy_port) {
$this->proxy_port = $proxy_port;
}
} else {
$this->proxy = $match[2];
$this->proxy_protocol = 'ssl://';
if ($proxy_port) {
$this->proxy_port = $proxy_port;
} else {
$this->proxy_port = 443;
}
}
}
}
/**
* Change the current debug mode
*
* @param int $in where 1 = on, 0 = off
*
* @return void
*/
function setDebug($in)
{
if ($in) {
$this->debug = 1;
} else {
$this->debug = 0;
}
}
/**
* Sets whether strings that contain characters which may cause PHP's
* SAX-based XML parser to break should be automatically base64 encoded
*
* This is is a workaround for systems that don't have PHP's mbstring
* extension available.
*
* @param int $in where 1 = on, 0 = off
*
* @return void
*/
function setAutoBase64($in)
{
if ($in) {
$GLOBALS['XML_RPC_auto_base64'] = true;
} else {
$GLOBALS['XML_RPC_auto_base64'] = false;
}
}
/**
* Set username and password properties for connecting to the RPC server
*
* @param string $u the user name
* @param string $p the password
*
* @return void
*
* @see XML_RPC_Client::$username, XML_RPC_Client::$password
*/
function setCredentials($u, $p)
{
$this->username = $u;
$this->password = $p;
}
/**
* Transmit the RPC request via HTTP 1.0 protocol
*
* @param object $msg the XML_RPC_Message object
* @param int $timeout how many seconds to wait for the request
*
* @return object an XML_RPC_Response object. 0 is returned if any
* problems happen.
*
* @see XML_RPC_Message, XML_RPC_Client::XML_RPC_Client(),
* XML_RPC_Client::setCredentials()
*/
function send($msg, $timeout = 0)
{
if (!is_object($msg) || !is_a($msg, 'XML_RPC_Message')) {
$this->errstr = 'send()\'s $msg parameter must be an'
. ' XML_RPC_Message object.';
$this->raiseError($this->errstr, XML_RPC_ERROR_PROGRAMMING);
return 0;
}
$msg->debug = $this->debug;
return $this->sendPayloadHTTP10($msg, $this->server, $this->port,
$timeout, $this->username,
$this->password);
}
/**
* Transmit the RPC request via HTTP 1.0 protocol
*
* Requests should be sent using XML_RPC_Client send() rather than
* calling this method directly.
*
* @param object $msg the XML_RPC_Message object
* @param string $server the server to send the request to
* @param int $port the server port send the request to
* @param int $timeout how many seconds to wait for the request
* before giving up
* @param string $username a user name for accessing the RPC server
* @param string $password a password for accessing the RPC server
*
* @return object an XML_RPC_Response object. 0 is returned if any
* problems happen.
*
* @access protected
* @see XML_RPC_Client::send()
*/
function sendPayloadHTTP10($msg, $server, $port, $timeout = 0,
$username = '', $password = '')
{
// Pre-emptive BC hacks for fools calling sendPayloadHTTP10() directly
if ($username != $this->username) {
$this->setCredentials($username, $password);
}
// Only create the payload if it was not created previously
if (empty($msg->payload)) {
$msg->createPayload();
}
$this->createHeaders($msg);
$op = $this->headers . "\r\n\r\n";
$op .= $msg->payload;
if ($this->debug) {
print "\n---SENT---\n";
print $op;
print "\n---END---\n";
}
/*
* If we're using a proxy open a socket to the proxy server
* instead to the xml-rpc server
*/
if ($this->proxy) {
if ($this->proxy_protocol == 'http://') {
$protocol = '';
} else {
$protocol = $this->proxy_protocol;
}
if ($timeout > 0) {
$fp = @fsockopen($protocol . $this->proxy, $this->proxy_port,
$this->errno, $this->errstr, $timeout);
} else {
$fp = @fsockopen($protocol . $this->proxy, $this->proxy_port,
$this->errno, $this->errstr);
}
} else {
if ($this->protocol == 'http://') {
$protocol = '';
} else {
$protocol = $this->protocol;
}
if ($timeout > 0) {
$fp = @fsockopen($protocol . $server, $port,
$this->errno, $this->errstr, $timeout);
} else {
$fp = @fsockopen($protocol . $server, $port,
$this->errno, $this->errstr);
}
}
/*
* Just raising the error without returning it is strange,
* but keep it here for backwards compatibility.
*/
if (!$fp && $this->proxy) {
$this->raiseError('Connection to proxy server '
. $this->proxy . ':' . $this->proxy_port
. ' failed. ' . $this->errstr,
XML_RPC_ERROR_CONNECTION_FAILED);
return 0;
} elseif (!$fp) {
$this->raiseError('Connection to RPC server '
. $server . ':' . $port
. ' failed. ' . $this->errstr,
XML_RPC_ERROR_CONNECTION_FAILED);
return 0;
}
if ($timeout) {
/*
* Using socket_set_timeout() because stream_set_timeout()
* was introduced in 4.3.0, but we need to support 4.2.0.
*/
socket_set_timeout($fp, $timeout);
}
if (!fputs($fp, $op, strlen($op))) {
$this->errstr = 'Write error';
return 0;
}
$resp = $msg->parseResponseFile($fp);
$meta = socket_get_status($fp);
if ($meta['timed_out']) {
fclose($fp);
$this->errstr = 'RPC server did not send response before timeout.';
$this->raiseError($this->errstr, XML_RPC_ERROR_CONNECTION_FAILED);
return 0;
}
fclose($fp);
return $resp;
}
/**
* Determines the HTTP headers and puts it in the $headers property
*
* @param object $msg the XML_RPC_Message object
*
* @return boolean TRUE if okay, FALSE if the message payload isn't set.
*
* @access protected
*/
function createHeaders($msg)
{
if (empty($msg->payload)) {
return false;
}
if ($this->proxy) {
$this->headers = 'POST ' . $this->protocol . $this->server;
if ($this->proxy_port) {
$this->headers .= ':' . $this->port;
}
} else {
$this->headers = 'POST ';
}
$this->headers .= $this->path. " HTTP/1.0\r\n";
$this->headers .= "User-Agent: PEAR XML_RPC\r\n";
$this->headers .= 'Host: ' . $this->server . "\r\n";
if ($this->proxy && $this->proxy_user) {
$this->headers .= 'Proxy-Authorization: Basic '
. base64_encode("$this->proxy_user:$this->proxy_pass")
. "\r\n";
}
// thanks to Grant Rauscher for this
if ($this->username) {
$this->headers .= 'Authorization: Basic '
. base64_encode("$this->username:$this->password")
. "\r\n";
}
$this->headers .= "Content-Type: text/xml\r\n";
$this->headers .= 'Content-Length: ' . strlen($msg->payload);
return true;
}
}
/**
* The methods and properties for interpreting responses to XML RPC requests
*
* @category Web Services
* @package XML_RPC
* @author Edd Dumbill
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Response extends XML_RPC_Base
{
var $xv;
var $fn;
var $fs;
var $hdrs;
/**
* @return void
*/
function XML_RPC_Response($val, $fcode = 0, $fstr = '')
{
if ($fcode != 0) {
$this->fn = $fcode;
$this->fs = htmlspecialchars($fstr);
} else {
$this->xv = $val;
}
}
/**
* @return int the error code
*/
function faultCode()
{
if (isset($this->fn)) {
return $this->fn;
} else {
return 0;
}
}
/**
* @return string the error string
*/
function faultString()
{
return $this->fs;
}
/**
* @return mixed the value
*/
function value()
{
return $this->xv;
}
/**
* @return string the error message in XML format
*/
function serialize()
{
$rs = "\n";
if ($this->fn) {
$rs .= "
faultCode
" . $this->fn . "
faultString
" . $this->fs . "
";
} else {
$rs .= "\n\n" . $this->xv->serialize() .
"\n";
}
$rs .= "\n";
return $rs;
}
}
/**
* The methods and properties for composing XML RPC messages
*
* @category Web Services
* @package XML_RPC
* @author Edd Dumbill
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Message extends XML_RPC_Base
{
/**
* Should the payload's content be passed through mb_convert_encoding()?
*
* @see XML_RPC_Message::setConvertPayloadEncoding()
* @since Property available since Release 1.5.1
* @var boolean
*/
var $convert_payload_encoding = false;
/**
* The current debug mode (1 = on, 0 = off)
* @var integer
*/
var $debug = 0;
/**
* The encoding to be used for outgoing messages
*
* Defaults to the value of $GLOBALS['XML_RPC_defencoding']
*
* @var string
* @see XML_RPC_Message::setSendEncoding(),
* $GLOBALS['XML_RPC_defencoding'], XML_RPC_Message::xml_header()
*/
var $send_encoding = '';
/**
* The method presently being evaluated
* @var string
*/
var $methodname = '';
/**
* @var array
*/
var $params = array();
/**
* The XML message being generated
* @var string
*/
var $payload = '';
/**
* Should extra line breaks be removed from the payload?
* @since Property available since Release 1.4.6
* @var boolean
*/
var $remove_extra_lines = true;
/**
* The XML response from the remote server
* @since Property available since Release 1.4.6
* @var string
*/
var $response_payload = '';
/**
* @return void
*/
function XML_RPC_Message($meth, $pars = 0)
{
$this->methodname = $meth;
if (is_array($pars) && sizeof($pars) > 0) {
for ($i = 0; $i < sizeof($pars); $i++) {
$this->addParam($pars[$i]);
}
}
}
/**
* Produces the XML declaration including the encoding attribute
*
* The encoding is determined by this class' $send_encoding
* property. If the $send_encoding property is not set, use
* $GLOBALS['XML_RPC_defencoding'].
*
* @return string the XML declaration and element
*
* @see XML_RPC_Message::setSendEncoding(),
* XML_RPC_Message::$send_encoding, $GLOBALS['XML_RPC_defencoding']
*/
function xml_header()
{
global $XML_RPC_defencoding;
if (!$this->send_encoding) {
$this->send_encoding = $XML_RPC_defencoding;
}
return 'send_encoding . '"?>'
. "\n\n";
}
/**
* @return string the closing tag
*/
function xml_footer()
{
return "\n";
}
/**
* Fills the XML_RPC_Message::$payload property
*
* Part of the process makes sure all line endings are in DOS format
* (CRLF), which is probably required by specifications.
*
* If XML_RPC_Message::setConvertPayloadEncoding() was set to true,
* the payload gets passed through mb_convert_encoding()
* to ensure the payload matches the encoding set in the
* XML declaration. The encoding type can be manually set via
* XML_RPC_Message::setSendEncoding().
*
* @return void
*
* @uses XML_RPC_Message::xml_header(), XML_RPC_Message::xml_footer()
* @see XML_RPC_Message::setSendEncoding(), $GLOBALS['XML_RPC_defencoding'],
* XML_RPC_Message::setConvertPayloadEncoding()
*/
function createPayload()
{
$this->payload = $this->xml_header();
$this->payload .= '' . $this->methodname . "\n";
$this->payload .= "\n";
for ($i = 0; $i < sizeof($this->params); $i++) {
$p = $this->params[$i];
$this->payload .= "\n" . $p->serialize() . "\n";
}
$this->payload .= "\n";
$this->payload .= $this->xml_footer();
if ($this->remove_extra_lines) {
$this->payload = preg_replace("@[\r\n]+@", "\r\n", $this->payload);
} else {
$this->payload = preg_replace("@\r\n|\n|\r|\n\r@", "\r\n", $this->payload);
}
if ($this->convert_payload_encoding) {
$this->payload = mb_convert_encoding($this->payload, $this->send_encoding);
}
}
/**
* @return string the name of the method
*/
function method($meth = '')
{
if ($meth != '') {
$this->methodname = $meth;
}
return $this->methodname;
}
/**
* @return string the payload
*/
function serialize()
{
$this->createPayload();
return $this->payload;
}
/**
* @return void
*/
function addParam($par)
{
$this->params[] = $par;
}
/**
* Obtains an XML_RPC_Value object for the given parameter
*
* @param int $i the index number of the parameter to obtain
*
* @return object the XML_RPC_Value object.
* If the parameter doesn't exist, an XML_RPC_Response object.
*
* @since Returns XML_RPC_Response object on error since Release 1.3.0
*/
function getParam($i)
{
global $XML_RPC_err, $XML_RPC_str;
if (isset($this->params[$i])) {
return $this->params[$i];
} else {
$this->raiseError('The submitted request did not contain this parameter',
XML_RPC_ERROR_INCORRECT_PARAMS);
return new XML_RPC_Response(0, $XML_RPC_err['incorrect_params'],
$XML_RPC_str['incorrect_params']);
}
}
/**
* @return int the number of parameters
*/
function getNumParams()
{
return sizeof($this->params);
}
/**
* Sets whether the payload's content gets passed through
* mb_convert_encoding()
*
* Returns PEAR_ERROR object if mb_convert_encoding() isn't available.
*
* @param int $in where 1 = on, 0 = off
*
* @return void
*
* @see XML_RPC_Message::setSendEncoding()
* @since Method available since Release 1.5.1
*/
function setConvertPayloadEncoding($in)
{
if ($in && !function_exists('mb_convert_encoding')) {
return $this->raiseError('mb_convert_encoding() is not available',
XML_RPC_ERROR_PROGRAMMING);
}
$this->convert_payload_encoding = $in;
}
/**
* Sets the XML declaration's encoding attribute
*
* @param string $type the encoding type (ISO-8859-1, UTF-8 or US-ASCII)
*
* @return void
*
* @see XML_RPC_Message::setConvertPayloadEncoding(), XML_RPC_Message::xml_header()
* @since Method available since Release 1.2.0
*/
function setSendEncoding($type)
{
$this->send_encoding = $type;
}
/**
* Determine the XML's encoding via the encoding attribute
* in the XML declaration
*
* If the encoding parameter is not set or is not ISO-8859-1, UTF-8
* or US-ASCII, $XML_RPC_defencoding will be returned.
*
* @param string $data the XML that will be parsed
*
* @return string the encoding to be used
*
* @link http://php.net/xml_parser_create
* @since Method available since Release 1.2.0
*/
function getEncoding($data)
{
global $XML_RPC_defencoding;
if (preg_match('@<\?xml[^>]*\s*encoding\s*=\s*[\'"]([^"\']*)[\'"]@',
$data, $match))
{
$match[1] = trim(strtoupper($match[1]));
switch ($match[1]) {
case 'ISO-8859-1':
case 'UTF-8':
case 'US-ASCII':
return $match[1];
break;
default:
return $XML_RPC_defencoding;
}
} else {
return $XML_RPC_defencoding;
}
}
/**
* @return object a new XML_RPC_Response object
*/
function parseResponseFile($fp)
{
$ipd = '';
while ($data = @fread($fp, 8192)) {
$ipd .= $data;
}
return $this->parseResponse($ipd);
}
/**
* @return object a new XML_RPC_Response object
*/
function parseResponse($data = '')
{
global $XML_RPC_xh, $XML_RPC_err, $XML_RPC_str, $XML_RPC_defencoding;
$encoding = $this->getEncoding($data);
$parser_resource = xml_parser_create($encoding);
$parser = (int) $parser_resource;
$XML_RPC_xh = array();
$XML_RPC_xh[$parser] = array();
$XML_RPC_xh[$parser]['cm'] = 0;
$XML_RPC_xh[$parser]['isf'] = 0;
$XML_RPC_xh[$parser]['ac'] = '';
$XML_RPC_xh[$parser]['qt'] = '';
$XML_RPC_xh[$parser]['stack'] = array();
$XML_RPC_xh[$parser]['valuestack'] = array();
xml_parser_set_option($parser_resource, XML_OPTION_CASE_FOLDING, true);
xml_set_element_handler($parser_resource, 'XML_RPC_se', 'XML_RPC_ee');
xml_set_character_data_handler($parser_resource, 'XML_RPC_cd');
$hdrfnd = 0;
if ($this->debug) {
print "\n---GOT---\n";
print isset($_SERVER['SERVER_PROTOCOL']) ? htmlspecialchars($data) : $data;
print "\n---END---\n";
}
// See if response is a 200 or a 100 then a 200, else raise error.
// But only do this if we're using the HTTP protocol.
if (preg_match('@^HTTP@', $data) &&
!preg_match('@^HTTP/[0-9\.]+ 200 @', $data) &&
!preg_match('@^HTTP/[0-9\.]+ 10[0-9]([A-Z ]+)?[\r\n]+HTTP/[0-9\.]+ 200@', $data))
{
$errstr = substr($data, 0, strpos($data, "\n") - 1);
error_log('HTTP error, got response: ' . $errstr);
$r = new XML_RPC_Response(0, $XML_RPC_err['http_error'],
$XML_RPC_str['http_error'] . ' (' .
$errstr . ')');
xml_parser_free($parser_resource);
return $r;
}
// gotta get rid of headers here
if (!$hdrfnd && ($brpos = strpos($data,"\r\n\r\n"))) {
$XML_RPC_xh[$parser]['ha'] = substr($data, 0, $brpos);
$data = substr($data, $brpos + 4);
$hdrfnd = 1;
}
/*
* be tolerant of junk after methodResponse
* (e.g. javascript automatically inserted by free hosts)
* thanks to Luca Mariano
*/
$data = substr($data, 0, strpos($data, "") + 17);
$this->response_payload = $data;
if (!xml_parse($parser_resource, $data, sizeof($data))) {
// thanks to Peter Kocks
if (xml_get_current_line_number($parser_resource) == 1) {
$errstr = 'XML error at line 1, check URL';
} else {
$errstr = sprintf('XML error: %s at line %d',
xml_error_string(xml_get_error_code($parser_resource)),
xml_get_current_line_number($parser_resource));
}
error_log($errstr);
$r = new XML_RPC_Response(0, $XML_RPC_err['invalid_return'],
$XML_RPC_str['invalid_return']);
xml_parser_free($parser_resource);
return $r;
}
xml_parser_free($parser_resource);
if ($this->debug) {
print "\n---PARSED---\n";
var_dump($XML_RPC_xh[$parser]['value']);
print "---END---\n";
}
if ($XML_RPC_xh[$parser]['isf'] > 1) {
$r = new XML_RPC_Response(0, $XML_RPC_err['invalid_return'],
$XML_RPC_str['invalid_return'].' '.$XML_RPC_xh[$parser]['isf_reason']);
} elseif (!is_object($XML_RPC_xh[$parser]['value'])) {
// then something odd has happened
// and it's time to generate a client side error
// indicating something odd went on
$r = new XML_RPC_Response(0, $XML_RPC_err['invalid_return'],
$XML_RPC_str['invalid_return']);
} else {
$v = $XML_RPC_xh[$parser]['value'];
if ($XML_RPC_xh[$parser]['isf']) {
$f = $v->structmem('faultCode');
$fs = $v->structmem('faultString');
$r = new XML_RPC_Response($v, $f->scalarval(),
$fs->scalarval());
} else {
$r = new XML_RPC_Response($v);
}
}
$r->hdrs = preg_split("@\r?\n@", $XML_RPC_xh[$parser]['ha']);
return $r;
}
}
/**
* The methods and properties that represent data in XML RPC format
*
* @category Web Services
* @package XML_RPC
* @author Edd Dumbill
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Value extends XML_RPC_Base
{
var $me = array();
var $mytype = 0;
/**
* @return void
*/
function XML_RPC_Value($val = -1, $type = '')
{
$this->me = array();
$this->mytype = 0;
if ($val != -1 || $type != '') {
if ($type == '') {
$type = 'string';
}
if (!array_key_exists($type, $GLOBALS['XML_RPC_Types'])) {
// XXX
// need some way to report this error
} elseif ($GLOBALS['XML_RPC_Types'][$type] == 1) {
$this->addScalar($val, $type);
} elseif ($GLOBALS['XML_RPC_Types'][$type] == 2) {
$this->addArray($val);
} elseif ($GLOBALS['XML_RPC_Types'][$type] == 3) {
$this->addStruct($val);
}
}
}
/**
* @return int returns 1 if successful or 0 if there are problems
*/
function addScalar($val, $type = 'string')
{
if ($this->mytype == 1) {
$this->raiseError('Scalar can have only one value',
XML_RPC_ERROR_INVALID_TYPE);
return 0;
}
$typeof = $GLOBALS['XML_RPC_Types'][$type];
if ($typeof != 1) {
$this->raiseError("Not a scalar type (${typeof})",
XML_RPC_ERROR_INVALID_TYPE);
return 0;
}
if ($type == $GLOBALS['XML_RPC_Boolean']) {
if (strcasecmp($val, 'true') == 0
|| $val == 1
|| ($val == true && strcasecmp($val, 'false')))
{
$val = 1;
} else {
$val = 0;
}
}
if ($this->mytype == 2) {
// we're adding to an array here
$ar = $this->me['array'];
$ar[] = new XML_RPC_Value($val, $type);
$this->me['array'] = $ar;
} else {
// a scalar, so set the value and remember we're scalar
$this->me[$type] = $val;
$this->mytype = $typeof;
}
return 1;
}
/**
* @return int returns 1 if successful or 0 if there are problems
*/
function addArray($vals)
{
if ($this->mytype != 0) {
$this->raiseError(
'Already initialized as a [' . $this->kindOf() . ']',
XML_RPC_ERROR_ALREADY_INITIALIZED);
return 0;
}
$this->mytype = $GLOBALS['XML_RPC_Types']['array'];
$this->me['array'] = $vals;
return 1;
}
/**
* @return int returns 1 if successful or 0 if there are problems
*/
function addStruct($vals)
{
if ($this->mytype != 0) {
$this->raiseError(
'Already initialized as a [' . $this->kindOf() . ']',
XML_RPC_ERROR_ALREADY_INITIALIZED);
return 0;
}
$this->mytype = $GLOBALS['XML_RPC_Types']['struct'];
$this->me['struct'] = $vals;
return 1;
}
/**
* @return void
*/
function dump($ar)
{
reset($ar);
foreach ($ar as $key => $val) {
echo "$key => $val
";
if ($key == 'array') {
foreach ($val as $key2 => $val2) {
echo "-- $key2 => $val2
";
}
}
}
}
/**
* @return string the data type of the current value
*/
function kindOf()
{
switch ($this->mytype) {
case 3:
return 'struct';
case 2:
return 'array';
case 1:
return 'scalar';
default:
return 'undef';
}
}
/**
* @return string the data in XML format
*/
function serializedata($typ, $val)
{
$rs = '';
if (!array_key_exists($typ, $GLOBALS['XML_RPC_Types'])) {
// XXX
// need some way to report this error
return;
}
switch ($GLOBALS['XML_RPC_Types'][$typ]) {
case 3:
// struct
$rs .= "\n";
reset($val);
foreach ($val as $key2 => $val2) {
$rs .= "" . htmlspecialchars($key2) . "\n";
$rs .= $this->serializeval($val2);
$rs .= "\n";
}
$rs .= '';
break;
case 2:
// array
$rs .= "\n\n";
foreach ($val as $value) {
$rs .= $this->serializeval($value);
}
$rs .= "\n";
break;
case 1:
switch ($typ) {
case $GLOBALS['XML_RPC_Base64']:
$rs .= "<${typ}>" . base64_encode($val) . "";
break;
case $GLOBALS['XML_RPC_Boolean']:
$rs .= "<${typ}>" . ($val ? '1' : '0') . "";
break;
case $GLOBALS['XML_RPC_String']:
$rs .= "<${typ}>" . htmlspecialchars($val). "";
break;
default:
$rs .= "<${typ}>${val}";
}
}
return $rs;
}
/**
* @return string the data in XML format
*/
function serialize()
{
return $this->serializeval($this);
}
/**
* @return string the data in XML format
*/
function serializeval($o)
{
if (!is_object($o) || empty($o->me) || !is_array($o->me)) {
return '';
}
$ar = $o->me;
reset($ar);
list($typ, $val) = each($ar);
return '' . $this->serializedata($typ, $val) . "\n";
}
/**
* @return mixed the contents of the element requested
*/
function structmem($m)
{
return $this->me['struct'][$m];
}
/**
* @return void
*/
function structreset()
{
reset($this->me['struct']);
}
/**
* @return the key/value pair of the struct's current element
*/
function structeach()
{
return each($this->me['struct']);
}
/**
* @return mixed the current value
*/
function getval()
{
// UNSTABLE
reset($this->me);
$b = current($this->me);
// contributed by I Sofer, 2001-03-24
// add support for nested arrays to scalarval
// i've created a new method here, so as to
// preserve back compatibility
if (is_array($b)) {
foreach ($b as $id => $cont) {
$b[$id] = $cont->scalarval();
}
}
// add support for structures directly encoding php objects
if (is_object($b)) {
$t = get_object_vars($b);
foreach ($t as $id => $cont) {
$t[$id] = $cont->scalarval();
}
foreach ($t as $id => $cont) {
$b->$id = $cont;
}
}
// end contrib
return $b;
}
/**
* @return mixed the current element's scalar value. If the value is
* not scalar, FALSE is returned.
*/
function scalarval()
{
reset($this->me);
$v = current($this->me);
if (!is_scalar($v)) {
$v = false;
}
return $v;
}
/**
* @return string
*/
function scalartyp()
{
reset($this->me);
$a = key($this->me);
if ($a == $GLOBALS['XML_RPC_I4']) {
$a = $GLOBALS['XML_RPC_Int'];
}
return $a;
}
/**
* @return mixed the struct's current element
*/
function arraymem($m)
{
return $this->me['array'][$m];
}
/**
* @return int the number of elements in the array
*/
function arraysize()
{
reset($this->me);
list($a, $b) = each($this->me);
return sizeof($b);
}
/**
* Determines if the item submitted is an XML_RPC_Value object
*
* @param mixed $val the variable to be evaluated
*
* @return bool TRUE if the item is an XML_RPC_Value object
*
* @static
* @since Method available since Release 1.3.0
*/
function isValue($val)
{
return (strtolower(get_class($val)) == 'xml_rpc_value');
}
}
/**
* Return an ISO8601 encoded string
*
* While timezones ought to be supported, the XML-RPC spec says:
*
* "Don't assume a timezone. It should be specified by the server in its
* documentation what assumptions it makes about timezones."
*
* This routine always assumes localtime unless $utc is set to 1, in which
* case UTC is assumed and an adjustment for locale is made when encoding.
*
* @return string the formatted date
*/
function XML_RPC_iso8601_encode($timet, $utc = 0)
{
if (!$utc) {
$t = strftime('%Y%m%dT%H:%M:%S', $timet);
} else {
if (function_exists('gmstrftime')) {
// gmstrftime doesn't exist in some versions
// of PHP
$t = gmstrftime('%Y%m%dT%H:%M:%S', $timet);
} else {
$t = strftime('%Y%m%dT%H:%M:%S', $timet - date('Z'));
}
}
return $t;
}
/**
* Convert a datetime string into a Unix timestamp
*
* While timezones ought to be supported, the XML-RPC spec says:
*
* "Don't assume a timezone. It should be specified by the server in its
* documentation what assumptions it makes about timezones."
*
* This routine always assumes localtime unless $utc is set to 1, in which
* case UTC is assumed and an adjustment for locale is made when encoding.
*
* @return int the unix timestamp of the date submitted
*/
function XML_RPC_iso8601_decode($idate, $utc = 0)
{
$t = 0;
if (preg_match('@([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2}):([0-9]{2}):([0-9]{2})@', $idate, $regs)) {
if ($utc) {
$t = gmmktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);
} else {
$t = mktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);
}
}
return $t;
}
/**
* Converts an XML_RPC_Value object into native PHP types
*
* @param object $XML_RPC_val the XML_RPC_Value object to decode
*
* @return mixed the PHP values
*/
function XML_RPC_decode($XML_RPC_val)
{
$kind = $XML_RPC_val->kindOf();
if ($kind == 'scalar') {
return $XML_RPC_val->scalarval();
} elseif ($kind == 'array') {
$size = $XML_RPC_val->arraysize();
$arr = array();
for ($i = 0; $i < $size; $i++) {
$arr[] = XML_RPC_decode($XML_RPC_val->arraymem($i));
}
return $arr;
} elseif ($kind == 'struct') {
$XML_RPC_val->structreset();
$arr = array();
while (list($key, $value) = $XML_RPC_val->structeach()) {
$arr[$key] = XML_RPC_decode($value);
}
return $arr;
}
}
/**
* Converts native PHP types into an XML_RPC_Value object
*
* @param mixed $php_val the PHP value or variable you want encoded
*
* @return object the XML_RPC_Value object
*/
function XML_RPC_encode($php_val)
{
$type = gettype($php_val);
$XML_RPC_val = new XML_RPC_Value;
switch ($type) {
case 'array':
if (empty($php_val)) {
$XML_RPC_val->addArray($php_val);
break;
}
$tmp = array_diff(array_keys($php_val), range(0, count($php_val)-1));
if (empty($tmp)) {
$arr = array();
foreach ($php_val as $k => $v) {
$arr[$k] = XML_RPC_encode($v);
}
$XML_RPC_val->addArray($arr);
break;
}
// fall though if it's not an enumerated array
case 'object':
$arr = array();
foreach ($php_val as $k => $v) {
$arr[$k] = XML_RPC_encode($v);
}
$XML_RPC_val->addStruct($arr);
break;
case 'integer':
$XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Int']);
break;
case 'double':
$XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Double']);
break;
case 'string':
case 'NULL':
if (preg_match('@^[0-9]{8}\T{1}[0-9]{2}\:[0-9]{2}\:[0-9]{2}$@', $php_val)) {
$XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_DateTime']);
} elseif ($GLOBALS['XML_RPC_auto_base64']
&& preg_match("@[^ -~\t\r\n]@", $php_val))
{
// Characters other than alpha-numeric, punctuation, SP, TAB,
// LF and CR break the XML parser, encode value via Base 64.
$XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Base64']);
} else {
$XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_String']);
}
break;
case 'boolean':
// Add support for encoding/decoding of booleans, since they
// are supported in PHP
// by
$XML_RPC_val->addScalar($php_val, $GLOBALS['XML_RPC_Boolean']);
break;
case 'unknown type':
default:
$XML_RPC_val = false;
}
return $XML_RPC_val;
}
/*
* Local variables:
* tab-width: 4
* c-basic-offset: 4
* c-hanging-comment-ender-p: nil
* End:
*/
?>
XML_RPC-1.5.5/XML/RPC/Dump.php 0000660 0001751 0001751 00000012322 11626045034 015151 0 ustar danielc danielc
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: Dump.php 300962 2010-07-03 02:24:24Z danielc $
* @link http://pear.php.net/package/XML_RPC
*/
/**
* Pull in the XML_RPC class
*/
require_once 'XML/RPC.php';
/**
* Generates the dump of the XML_RPC_Value and echoes it
*
* @param object $value the XML_RPC_Value object to dump
*
* @return void
*/
function XML_RPC_Dump($value)
{
$dumper = new XML_RPC_Dump();
echo $dumper->generateDump($value);
}
/**
* Class which generates a dump of a XML_RPC_Value object
*
* @category Web Services
* @package XML_RPC
* @author Christian Weiske
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Dump
{
/**
* The indentation array cache
* @var array
*/
var $arIndent = array();
/**
* The spaces used for indenting the XML
* @var string
*/
var $strBaseIndent = ' ';
/**
* Returns the dump in XML format without printing it out
*
* @param object $value the XML_RPC_Value object to dump
* @param int $nLevel the level of indentation
*
* @return string the dump
*/
function generateDump($value, $nLevel = 0)
{
if (!is_object($value) || strtolower(get_class($value)) != 'xml_rpc_value') {
require_once 'PEAR.php';
PEAR::raiseError('Tried to dump non-XML_RPC_Value variable' . "\r\n",
0, PEAR_ERROR_PRINT);
if (is_object($value)) {
$strType = get_class($value);
} else {
$strType = gettype($value);
}
return $this->getIndent($nLevel) . 'NOT A XML_RPC_Value: '
. $strType . "\r\n";
}
switch ($value->kindOf()) {
case 'struct':
$ret = $this->genStruct($value, $nLevel);
break;
case 'array':
$ret = $this->genArray($value, $nLevel);
break;
case 'scalar':
$ret = $this->genScalar($value->scalarval(), $nLevel);
break;
default:
require_once 'PEAR.php';
PEAR::raiseError('Illegal type "' . $value->kindOf()
. '" in XML_RPC_Value' . "\r\n", 0,
PEAR_ERROR_PRINT);
}
return $ret;
}
/**
* Returns the scalar value dump
*
* @param object $value the scalar XML_RPC_Value object to dump
* @param int $nLevel the level of indentation
*
* @return string Dumped version of the scalar value
*/
function genScalar($value, $nLevel)
{
if (gettype($value) == 'object') {
$strClass = ' ' . get_class($value);
} else {
$strClass = '';
}
return $this->getIndent($nLevel) . gettype($value) . $strClass
. ' ' . $value . "\r\n";
}
/**
* Returns the dump of a struct
*
* @param object $value the struct XML_RPC_Value object to dump
* @param int $nLevel the level of indentation
*
* @return string Dumped version of the scalar value
*/
function genStruct($value, $nLevel)
{
$value->structreset();
$strOutput = $this->getIndent($nLevel) . 'struct' . "\r\n";
while (list($key, $keyval) = $value->structeach()) {
$strOutput .= $this->getIndent($nLevel + 1) . $key . "\r\n";
$strOutput .= $this->generateDump($keyval, $nLevel + 2);
}
return $strOutput;
}
/**
* Returns the dump of an array
*
* @param object $value the array XML_RPC_Value object to dump
* @param int $nLevel the level of indentation
*
* @return string Dumped version of the scalar value
*/
function genArray($value, $nLevel)
{
$nSize = $value->arraysize();
$strOutput = $this->getIndent($nLevel) . 'array' . "\r\n";
for($nA = 0; $nA < $nSize; $nA++) {
$strOutput .= $this->getIndent($nLevel + 1) . $nA . "\r\n";
$strOutput .= $this->generateDump($value->arraymem($nA),
$nLevel + 2);
}
return $strOutput;
}
/**
* Returns the indent for a specific level and caches it for faster use
*
* @param int $nLevel the level
*
* @return string the indented string
*/
function getIndent($nLevel)
{
if (!isset($this->arIndent[$nLevel])) {
$this->arIndent[$nLevel] = str_repeat($this->strBaseIndent, $nLevel);
}
return $this->arIndent[$nLevel];
}
}
/*
* Local variables:
* tab-width: 4
* c-basic-offset: 4
* c-hanging-comment-ender-p: nil
* End:
*/
?>
XML_RPC-1.5.5/XML/RPC/Server.php 0000660 0001751 0001751 00000053662 11626045034 015526 0 ustar danielc danielc
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version SVN: $Id: Server.php 315558 2011-08-26 14:42:51Z danielc $
* @link http://pear.php.net/package/XML_RPC
*/
/**
* Pull in the XML_RPC class
*/
require_once 'XML/RPC.php';
/**
* signature for system.listMethods: return = array,
* parameters = a string or nothing
* @global array $GLOBALS['XML_RPC_Server_listMethods_sig']
*/
$GLOBALS['XML_RPC_Server_listMethods_sig'] = array(
array($GLOBALS['XML_RPC_Array'],
$GLOBALS['XML_RPC_String']
),
array($GLOBALS['XML_RPC_Array'])
);
/**
* docstring for system.listMethods
* @global string $GLOBALS['XML_RPC_Server_listMethods_doc']
*/
$GLOBALS['XML_RPC_Server_listMethods_doc'] = 'This method lists all the'
. ' methods that the XML-RPC server knows how to dispatch';
/**
* signature for system.methodSignature: return = array,
* parameters = string
* @global array $GLOBALS['XML_RPC_Server_methodSignature_sig']
*/
$GLOBALS['XML_RPC_Server_methodSignature_sig'] = array(
array($GLOBALS['XML_RPC_Array'],
$GLOBALS['XML_RPC_String']
)
);
/**
* docstring for system.methodSignature
* @global string $GLOBALS['XML_RPC_Server_methodSignature_doc']
*/
$GLOBALS['XML_RPC_Server_methodSignature_doc'] = 'Returns an array of known'
. ' signatures (an array of arrays) for the method name passed. If'
. ' no signatures are known, returns a none-array (test for type !='
. ' array to detect missing signature)';
/**
* signature for system.methodHelp: return = string,
* parameters = string
* @global array $GLOBALS['XML_RPC_Server_methodHelp_sig']
*/
$GLOBALS['XML_RPC_Server_methodHelp_sig'] = array(
array($GLOBALS['XML_RPC_String'],
$GLOBALS['XML_RPC_String']
)
);
/**
* docstring for methodHelp
* @global string $GLOBALS['XML_RPC_Server_methodHelp_doc']
*/
$GLOBALS['XML_RPC_Server_methodHelp_doc'] = 'Returns help text if defined'
. ' for the method passed, otherwise returns an empty string';
/**
* dispatch map for the automatically declared XML-RPC methods.
* @global array $GLOBALS['XML_RPC_Server_dmap']
*/
$GLOBALS['XML_RPC_Server_dmap'] = array(
'system.listMethods' => array(
'function' => 'XML_RPC_Server_listMethods',
'signature' => $GLOBALS['XML_RPC_Server_listMethods_sig'],
'docstring' => $GLOBALS['XML_RPC_Server_listMethods_doc']
),
'system.methodHelp' => array(
'function' => 'XML_RPC_Server_methodHelp',
'signature' => $GLOBALS['XML_RPC_Server_methodHelp_sig'],
'docstring' => $GLOBALS['XML_RPC_Server_methodHelp_doc']
),
'system.methodSignature' => array(
'function' => 'XML_RPC_Server_methodSignature',
'signature' => $GLOBALS['XML_RPC_Server_methodSignature_sig'],
'docstring' => $GLOBALS['XML_RPC_Server_methodSignature_doc']
)
);
/**
* @global string $GLOBALS['XML_RPC_Server_debuginfo']
*/
$GLOBALS['XML_RPC_Server_debuginfo'] = '';
/**
* Lists all the methods that the XML-RPC server knows how to dispatch
*
* @return object a new XML_RPC_Response object
*/
function XML_RPC_Server_listMethods($server, $m)
{
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
$v = new XML_RPC_Value();
$outAr = array();
foreach ($server->dmap as $key => $val) {
$outAr[] = new XML_RPC_Value($key, 'string');
}
foreach ($XML_RPC_Server_dmap as $key => $val) {
$outAr[] = new XML_RPC_Value($key, 'string');
}
$v->addArray($outAr);
return new XML_RPC_Response($v);
}
/**
* Returns an array of known signatures (an array of arrays)
* for the given method
*
* If no signatures are known, returns a none-array
* (test for type != array to detect missing signature)
*
* @return object a new XML_RPC_Response object
*/
function XML_RPC_Server_methodSignature($server, $m)
{
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
$methName = $m->getParam(0);
$methName = $methName->scalarval();
if (strpos($methName, 'system.') === 0) {
$dmap = $XML_RPC_Server_dmap;
$sysCall = 1;
} else {
$dmap = $server->dmap;
$sysCall = 0;
}
// print "\n";
if (isset($dmap[$methName])) {
if ($dmap[$methName]['signature']) {
$sigs = array();
$thesigs = $dmap[$methName]['signature'];
for ($i = 0; $i < sizeof($thesigs); $i++) {
$cursig = array();
$inSig = $thesigs[$i];
for ($j = 0; $j < sizeof($inSig); $j++) {
$cursig[] = new XML_RPC_Value($inSig[$j], 'string');
}
$sigs[] = new XML_RPC_Value($cursig, 'array');
}
$r = new XML_RPC_Response(new XML_RPC_Value($sigs, 'array'));
} else {
$r = new XML_RPC_Response(new XML_RPC_Value('undef', 'string'));
}
} else {
$r = new XML_RPC_Response(0, $XML_RPC_err['introspect_unknown'],
$XML_RPC_str['introspect_unknown']);
}
return $r;
}
/**
* Returns help text if defined for the method passed, otherwise returns
* an empty string
*
* @return object a new XML_RPC_Response object
*/
function XML_RPC_Server_methodHelp($server, $m)
{
global $XML_RPC_err, $XML_RPC_str, $XML_RPC_Server_dmap;
$methName = $m->getParam(0);
$methName = $methName->scalarval();
if (strpos($methName, 'system.') === 0) {
$dmap = $XML_RPC_Server_dmap;
$sysCall = 1;
} else {
$dmap = $server->dmap;
$sysCall = 0;
}
if (isset($dmap[$methName])) {
if ($dmap[$methName]['docstring']) {
$r = new XML_RPC_Response(new XML_RPC_Value($dmap[$methName]['docstring']),
'string');
} else {
$r = new XML_RPC_Response(new XML_RPC_Value('', 'string'));
}
} else {
$r = new XML_RPC_Response(0, $XML_RPC_err['introspect_unknown'],
$XML_RPC_str['introspect_unknown']);
}
return $r;
}
/**
* @return void
*/
function XML_RPC_Server_debugmsg($m)
{
global $XML_RPC_Server_debuginfo;
$XML_RPC_Server_debuginfo = $XML_RPC_Server_debuginfo . $m . "\n";
}
/**
* A server for receiving and replying to XML RPC requests
*
*
* $server = new XML_RPC_Server(
* array(
* 'isan8' =>
* array(
* 'function' => 'is_8',
* 'signature' =>
* array(
* array('boolean', 'int'),
* array('boolean', 'int', 'boolean'),
* array('boolean', 'string'),
* array('boolean', 'string', 'boolean'),
* ),
* 'docstring' => 'Is the value an 8?'
* ),
* ),
* 1,
* 0
* );
*
*
* @category Web Services
* @package XML_RPC
* @author Edd Dumbill
* @author Stig Bakken
* @author Martin Jansen
* @author Daniel Convissor
* @copyright 1999-2001 Edd Dumbill, 2001-2010 The PHP Group
* @license http://www.php.net/license/3_01.txt PHP License
* @version Release: @package_version@
* @link http://pear.php.net/package/XML_RPC
*/
class XML_RPC_Server
{
/**
* Should the payload's content be passed through mb_convert_encoding()?
*
* @see XML_RPC_Server::setConvertPayloadEncoding()
* @since Property available since Release 1.5.1
* @var boolean
*/
var $convert_payload_encoding = false;
/**
* The dispatch map, listing the methods this server provides.
* @var array
*/
var $dmap = array();
/**
* The present response's encoding
* @var string
* @see XML_RPC_Message::getEncoding()
*/
var $encoding = '';
/**
* Debug mode (0 = off, 1 = on)
* @var integer
*/
var $debug = 0;
/**
* The response's HTTP headers
* @var string
*/
var $server_headers = '';
/**
* The response's XML payload
* @var string
*/
var $server_payload = '';
/**
* Constructor for the XML_RPC_Server class
*
* @param array $dispMap the dispatch map. An associative array
* explaining each function. The keys of the main
* array are the procedure names used by the
* clients. The value is another associative array
* that contains up to three elements:
* + The 'function' element's value is the name
* of the function or method that gets called.
* To define a class' method: 'class::method'.
* + The 'signature' element (optional) is an
* array describing the return values and
* parameters
* + The 'docstring' element (optional) is a
* string describing what the method does
* @param int $serviceNow should the HTTP response be sent now?
* (1 = yes, 0 = no)
* @param int $debug should debug output be displayed?
* (1 = yes, 0 = no)
*
* @return void
*/
function XML_RPC_Server($dispMap, $serviceNow = 1, $debug = 0)
{
global $HTTP_RAW_POST_DATA;
if ($debug) {
$this->debug = 1;
} else {
$this->debug = 0;
}
$this->dmap = $dispMap;
if ($serviceNow) {
$this->service();
} else {
$this->createServerPayload();
$this->createServerHeaders();
}
}
/**
* @return string the debug information if debug debug mode is on
*/
function serializeDebug()
{
global $XML_RPC_Server_debuginfo, $HTTP_RAW_POST_DATA;
if ($this->debug) {
XML_RPC_Server_debugmsg('vvv POST DATA RECEIVED BY SERVER vvv' . "\n"
. $HTTP_RAW_POST_DATA
. "\n" . '^^^ END POST DATA ^^^');
}
if ($XML_RPC_Server_debuginfo != '') {
return "\n";
} else {
return '';
}
}
/**
* Sets whether the payload's content gets passed through
* mb_convert_encoding()
*
* Returns PEAR_ERROR object if mb_convert_encoding() isn't available.
*
* @param int $in where 1 = on, 0 = off
*
* @return void
*
* @see XML_RPC_Message::getEncoding()
* @since Method available since Release 1.5.1
*/
function setConvertPayloadEncoding($in)
{
if ($in && !function_exists('mb_convert_encoding')) {
return $this->raiseError('mb_convert_encoding() is not available',
XML_RPC_ERROR_PROGRAMMING);
}
$this->convert_payload_encoding = $in;
}
/**
* Sends the response
*
* The encoding and content-type are determined by
* XML_RPC_Message::getEncoding()
*
* @return void
*
* @uses XML_RPC_Server::createServerPayload(),
* XML_RPC_Server::createServerHeaders()
*/
function service()
{
if (!$this->server_payload) {
$this->createServerPayload();
}
if (!$this->server_headers) {
$this->createServerHeaders();
}
/*
* $server_headers needs to remain a string for compatibility with
* old scripts using this package, but PHP 4.4.2 no longer allows
* line breaks in header() calls. So, we split each header into
* an individual call. The initial replace handles the off chance
* that someone composed a single header with multiple lines, which
* the RFCs allow.
*/
$this->server_headers = preg_replace("@[\r\n]+[ \t]+@",
' ', trim($this->server_headers));
$headers = preg_split("@[\r\n]+@", $this->server_headers);
foreach ($headers as $header)
{
header($header);
}
print $this->server_payload;
}
/**
* Generates the payload and puts it in the $server_payload property
*
* If XML_RPC_Server::setConvertPayloadEncoding() was set to true,
* the payload gets passed through mb_convert_encoding()
* to ensure the payload matches the encoding set in the
* XML declaration. The encoding type can be manually set via
* XML_RPC_Message::setSendEncoding().
*
* @return void
*
* @uses XML_RPC_Server::parseRequest(), XML_RPC_Server::$encoding,
* XML_RPC_Response::serialize(), XML_RPC_Server::serializeDebug()
* @see XML_RPC_Server::setConvertPayloadEncoding()
*/
function createServerPayload()
{
$r = $this->parseRequest();
$this->server_payload = 'encoding . '"?>' . "\n"
. $this->serializeDebug()
. $r->serialize();
if ($this->convert_payload_encoding) {
$this->server_payload = mb_convert_encoding($this->server_payload,
$this->encoding);
}
}
/**
* Determines the HTTP headers and puts them in the $server_headers
* property
*
* @return boolean TRUE if okay, FALSE if $server_payload isn't set.
*
* @uses XML_RPC_Server::createServerPayload(),
* XML_RPC_Server::$server_headers
*/
function createServerHeaders()
{
if (!$this->server_payload) {
return false;
}
$this->server_headers = 'Content-Length: '
. strlen($this->server_payload) . "\r\n"
. 'Content-Type: text/xml;'
. ' charset=' . $this->encoding;
return true;
}
/**
* @return array
*/
function verifySignature($in, $sig)
{
for ($i = 0; $i < sizeof($sig); $i++) {
// check each possible signature in turn
$cursig = $sig[$i];
if (sizeof($cursig) == $in->getNumParams() + 1) {
$itsOK = 1;
for ($n = 0; $n < $in->getNumParams(); $n++) {
$p = $in->getParam($n);
// print "\n";
if ($p->kindOf() == 'scalar') {
$pt = $p->scalartyp();
} else {
$pt = $p->kindOf();
}
// $n+1 as first type of sig is return type
if ($pt != $cursig[$n+1]) {
$itsOK = 0;
$pno = $n+1;
$wanted = $cursig[$n+1];
$got = $pt;
break;
}
}
if ($itsOK) {
return array(1);
}
}
}
if (isset($wanted)) {
return array(0, "Wanted ${wanted}, got ${got} at param ${pno}");
} else {
$allowed = array();
foreach ($sig as $val) {
end($val);
$allowed[] = key($val);
}
$allowed = array_unique($allowed);
$last = count($allowed) - 1;
if ($last > 0) {
$allowed[$last] = 'or ' . $allowed[$last];
}
return array(0,
'Signature permits ' . implode(', ', $allowed)
. ' parameters but the request had '
. $in->getNumParams());
}
}
/**
* @return object a new XML_RPC_Response object
*
* @uses XML_RPC_Message::getEncoding(), XML_RPC_Server::$encoding
*/
function parseRequest($data = '')
{
global $XML_RPC_xh, $HTTP_RAW_POST_DATA,
$XML_RPC_err, $XML_RPC_str, $XML_RPC_errxml,
$XML_RPC_defencoding, $XML_RPC_Server_dmap;
if ($data == '') {
$data = $HTTP_RAW_POST_DATA;
}
$this->encoding = XML_RPC_Message::getEncoding($data);
$parser_resource = xml_parser_create($this->encoding);
$parser = (int) $parser_resource;
$XML_RPC_xh[$parser] = array();
$XML_RPC_xh[$parser]['cm'] = 0;
$XML_RPC_xh[$parser]['isf'] = 0;
$XML_RPC_xh[$parser]['params'] = array();
$XML_RPC_xh[$parser]['method'] = '';
$XML_RPC_xh[$parser]['stack'] = array();
$XML_RPC_xh[$parser]['valuestack'] = array();
$plist = '';
// decompose incoming XML into request structure
xml_parser_set_option($parser_resource, XML_OPTION_CASE_FOLDING, true);
xml_set_element_handler($parser_resource, 'XML_RPC_se', 'XML_RPC_ee');
xml_set_character_data_handler($parser_resource, 'XML_RPC_cd');
if (!xml_parse($parser_resource, $data, 1)) {
// return XML error as a faultCode
$r = new XML_RPC_Response(0,
$XML_RPC_errxml+xml_get_error_code($parser_resource),
sprintf('XML error: %s at line %d',
xml_error_string(xml_get_error_code($parser_resource)),
xml_get_current_line_number($parser_resource)));
xml_parser_free($parser_resource);
} elseif ($XML_RPC_xh[$parser]['isf']>1) {
$r = new XML_RPC_Response(0,
$XML_RPC_err['invalid_request'],
$XML_RPC_str['invalid_request']
. ': '
. $XML_RPC_xh[$parser]['isf_reason']);
xml_parser_free($parser_resource);
} else {
xml_parser_free($parser_resource);
$m = new XML_RPC_Message($XML_RPC_xh[$parser]['method']);
// now add parameters in
for ($i = 0; $i < sizeof($XML_RPC_xh[$parser]['params']); $i++) {
// print '\n";
$plist .= "$i - " . var_export($XML_RPC_xh[$parser]['params'][$i], true) . " \n";
$m->addParam($XML_RPC_xh[$parser]['params'][$i]);
}
if ($this->debug) {
XML_RPC_Server_debugmsg($plist);
}
// now to deal with the method
$methName = $XML_RPC_xh[$parser]['method'];
if (strpos($methName, 'system.') === 0) {
$dmap = $XML_RPC_Server_dmap;
$sysCall = 1;
} else {
$dmap = $this->dmap;
$sysCall = 0;
}
if (isset($dmap[$methName]['function'])
&& is_string($dmap[$methName]['function'])
&& strpos($dmap[$methName]['function'], '::') !== false)
{
$dmap[$methName]['function'] =
explode('::', $dmap[$methName]['function']);
}
if (isset($dmap[$methName]['function'])
&& is_callable($dmap[$methName]['function']))
{
// dispatch if exists
if (isset($dmap[$methName]['signature'])) {
$sr = $this->verifySignature($m,
$dmap[$methName]['signature'] );
}
if (!isset($dmap[$methName]['signature']) || $sr[0]) {
// if no signature or correct signature
if ($sysCall) {
$r = call_user_func($dmap[$methName]['function'], $this, $m);
} else {
$r = call_user_func($dmap[$methName]['function'], $m);
}
if (!is_object($r) || !is_a($r, 'XML_RPC_Response')) {
$r = new XML_RPC_Response(0, $XML_RPC_err['not_response_object'],
$XML_RPC_str['not_response_object']);
}
} else {
$r = new XML_RPC_Response(0, $XML_RPC_err['incorrect_params'],
$XML_RPC_str['incorrect_params']
. ': ' . $sr[1]);
}
} else {
// else prepare error response
$r = new XML_RPC_Response(0, $XML_RPC_err['unknown_method'],
$XML_RPC_str['unknown_method']);
}
}
return $r;
}
/**
* Echos back the input packet as a string value
*
* @return void
*
* Useful for debugging.
*/
function echoInput()
{
global $HTTP_RAW_POST_DATA;
$r = new XML_RPC_Response(0);
$r->xv = new XML_RPC_Value("'Aha said I: '" . $HTTP_RAW_POST_DATA, 'string');
print $r->serialize();
}
}
/*
* Local variables:
* tab-width: 4
* c-basic-offset: 4
* c-hanging-comment-ender-p: nil
* End:
*/
?>
package.xml 0000660 0001751 0001751 00000041565 11626045034 012767 0 ustar danielc danielc
XML_RPC
PHP implementation of the XML-RPC protocol
A PEAR-ified version of Useful Inc's XML-RPC for PHP.
It has support for HTTP/HTTPS transport, proxies and authentication.
ssb
Stig Bakken
stig@php.net
lead
danielc
Daniel Convissor
danielc@php.net
lead
1.5.5
2011-08-27
PHP License
stable
* Adjust is_a() usage due to change in PHP 5.3.7.
* Fix error populating headers. Bug 18653.
xml
1.5.4
2010-07-03
stable
* Change ereg functions to preg due to deprecation (Request 17546 and then some.)
* Fix bugs in XML_RPC_Dump error detection process.
* Escape XML special characters in key names of struct elements. Bug 17368.
1.5.3
2010-01-14
stable
* Make licenses consistent. Bug 12575.
* Fix serializedata() for non-sequentially indexed arrays. Bug 16780.
* Show request information in debug mode. Request 8240.
* Creating the payload before opening a socket connection. Request 11981.
1.5.2
2009-08-18
stable
* Change license in empty-value-struct.php from PHP 3.0 to 3.01.
1.5.1
2006-10-28
stable
* Turn passing payload through mb_convert_encoding() off by default. Use new XML_RPC_Message::setConvertPayloadEncoding() and XML_RPC_Server::setConvertPayloadEncoding() to turn it on. Bug 8632.
* Have XML_RPC_Value::scalarval() return FALSE if value is not a scalar. Bug 8251.
1.5.0
2006-07-11
stable
No changes from 1.5.0RC2.
The primary change from 1.4.8 is improved multi-byte support. See the change log for complete information.
1.5.0RC2
2006-06-21
beta
* If PHP's mbstring extension is enabled, use mb_convert_encoding() to ensure the server payload matches the intended encoding.
1.5.0RC1
2006-06-16
beta
* Provide complete multi-byte string support for systems with the mbstring extension enabled. Bug 7837.
* If PHP's mbstring extension is enabled, use mb_convert_encoding() to ensure the client payload matches the intended encoding. This is a better resolution of Bug 7376.
* Turn off the default of automatically base64 encoding strings that can generate fatal errors in PHP's SAX parser. The automatic base64 encoding can be turned on via the new XML_RPC_Client::setAutoBase64() method. The auto-encoding is a workaround for systems that don't have PHP's mbstring extension available. (The automatic base64 encoding was added in the prior release, 1.4.8, and caused problems for users who don't control the receiving end of the requests.) Bug 7837.
1.4.8
2006-04-16
stable
* Characters other than alpha-numeric, punctuation, SP, TAB, LF and CR break the XML parser, encode value via Base 64. Bug 7376.
1.4.7
2006-04-10
stable
* Add include_once for PEAR if need to load xml extension. Bug 7358.
* Add dependency for xml extension in package file. Bug 7358.
1.4.6
2006-04-07
stable
* Add XML_RPC_Message::$remove_extra_lines property. Defaults to true. If set to false, extra lines are left in place. Bug 7088.
* Add XML_RPC_Message::$response_payload property. Makes logging responses easy.
1.4.5
2006-01-14
stable
* Have server send headers individualy as opposed to sending them all at once. Necessary due to changes PHP 4.4.2.
1.4.4
2005-10-15
stable
* Properly deal with empty values in struct's.
1.4.3
2005-09-24
stable
* Make XML_RPC_encode() properly handle dateTime.iso8601. Request 5117.
1.4.2
2005-09-18
stable
* Allow empty <value>'s without <types>'s. Bug 5315.
1.4.1
2005-09-07
stable
* Don't add debug info unless debug is on. Bug 5136.
* Use is_a() instead of class_name() so people can use their own XML_RPC_Message objects. Request 5002.
1.4.0
2005-08-14
stable
* MAJOR SECURITY FIX: eliminate use of eval().
* Using socket_get_status() because stream_get_meta_data() was introduced in 4.3.0, but we need to support 4.2.0. Bug 4805.
1.3.3
2005-07-15
stable
* Eliminate memory leak by resetting $XML_RPC_xh each time parseResponse() is called. Bug 4780.
* Using socket_set_timeout() because stream_set_timeout() was introduced in 4.3.0, but we need to support 4.2.0. Bug 4805.
1.3.2
2005-07-07
stable
* Eliminate path disclosure vulnerabilities by suppressing error messages when eval()'ing.
* Eliminate path disclosure vulnerability by catching bogus parameters submitted to XML_RPC_Value::serializeval().
* In XML_RPC_Server::service(), only call createServerPayload() and createServerHeaders() if necessary. Fixes compatibility issue introduced in Release 1.3.0RC1 for users who set the $serviceNow parameter of XML_RPC_Server() to 0. Bug 4757.
* Change "var $errstring" to "var $errstr". Bug 4582. Was put into CVS version 1.75 of RPC.php but didn't make it into RELEASE_1_3_1.
1.3.1
2005-06-29
stable
* Security fix. Update highly recommended!
1.3.0
2005-06-13
stable
* Stable release. See earlier releases for changes since 1.2.2.
1.3.0RC3
2005-05-10
beta
* When verifying requests against function signatures, if the number of parameters don't match, provide an appropriate message. NOTE: this resolves a path disclosure vulnerability. (Refines the changes made in the last commit.) Bug 4231.
* XML_RPC_Message::getParam() now returns an XML_RPC_Response object upon error. Changed from Release 1.3.0RC2.
* Add the XML_RPC_Value::isValue() method. For testing if an item is an XML_RPC_Value object.
* If XML_RPC_Client::send() is given an incorrect $msg parameter, raise an error with the new XML_RPC_ERROR_PROGRAMMING code and return 0.
* Improve cross-platform operation by using PEAR::loadExtension() instead of dl().
* Use <br /> instead of <br> in XML_RPC_Value::dump().
1.3.0RC2
2005-05-05
beta
* If XML_RPC_Message::getParam() is given an incorrect parameter, raise an error with the new XML_RPC_ERROR_INCORRECT_PARAMS code and return FALSE.
* Handle improper requests to XML_RPC_Server::verifySignature(). Bug 4231.
* Try to allow HTTP 100 responses if followed by a 200 response. Bug 4116.
* Help Delphi users by making RPCMETHODNAME an alias for METHODNAME. Request 4205.
1.3.0RC1
2005-04-07
beta
* Improve timeout handling for situations where connection to server is made but no response is not received in time. Accomplished via stream_set_timeout(). Request 3963.
* Add Fault Code 6: "The requested method didn't return an XML_RPC_Response object." Request 4032.
* Add the createServerPayload() and createServerHeaders() methods and the $server_payload and $server_headers properties. Request 3121.
* As in earlier versions, if the $serviceNow parameter to XML_RPC_Server() is 0, no data will be returned, but now the new $server_payload and $server_headers properties will be set.
* Convert the parser handle to an integer before using it as an index for $XML_RPC_xh[$parser]. Reduces E_STRICT notices. Bug 3782.
* Add createHeaders() method and $headers property to XML_RPC_Client to make testing easier.
1.2.2
2005-03-07
stable
* When using a proxy, add the protocol to the Request-URI, making it an "absoluteURI" as per the HTTP 1.0 spec. Bug 3679.
1.2.1
2005-03-01
stable
* Add isset() check before examining the dispatch map. Bug 3658.
1.2.0
2005-02-27
stable
* Provide the "stable" release.
* Add package2.xml for compatibility with PEAR 1.4.0.
* For changes since 1.1.0, see the changelogs for the various RC releases.
1.2.0RC7
2005-02-22
beta
* Add the setSendEncoding() method and $send_encoding
property to XML_RPC_Message. Request 3537.
* Allow class methods to be mapped using either syntax:
'function' => 'hello::sayHello',
or
'function' => array('hello', 'sayhello'),
Bug 3363.
* Use 8192 instead of 32768 for bytes in fread()
in parseResponseFile(). Bug 3340.
1.2.0RC6
2005-01-25
beta
* Don't put the protocol in the Host field of the POST data. (danielc)
1.2.0RC5
2005-01-24
beta
* If $port is 443 but a protocol isn't specified in $server, assume ssl:// is the protocol.
1.2.0RC4
2005-01-24
beta
* When a connection attempt fails, have the method return 0. (danielc)
* Move the protocol/port checking/switching and the property settings from sendPayloadHTTP10() to the XML_RPC_Client constructor. (danielc)
* Add tests for setting the client properties. (danielc)
* Remove $GLOBALS['XML_RPC_twoslash'] since it's not used. (danielc)
* Bundle the tests with the package. (danielc)
1.2.0RC3
2005-01-19
beta
* ssl uses port 443, not 445.
1.2.0RC2
2005-01-11
beta
* Handle ssl:// in the $server string. (danielc)
* Also default to port 445 for ssl:// requests as well. (danielc)
* Enhance debugging in the server. (danielc)
1.2.0RC1
2004-12-30
beta
* Make things work with SSL. Bug 2489. (nkukard lbsd net)
* Allow array function callbacks (Matt Kane)
* Some minor speed-ups (Matt Kane)
* Add Dump.php to the package (Christian Weiske)
* Replace all line endings with \r\n. Had only done replacements on \n. Bug 2521. (danielc)
* Silence fsockopen() errors. Bug 1714. (danielc)
* Encode empty arrays as an array. Bug 1493. (danielc)
* Eliminate undefined index notice when submitting empty arrays to XML_RPC_Encode(). Bug 1819. (danielc)
* Speed up check for enumerated arrays in XML_RPC_Encode(). (danielc)
* Prepend "XML_RPC_" to ERROR_NON_NUMERIC_FOUND, eliminating problem when eval()'ing error messages. (danielc)
* Use XML_RPC_Base::raiseError() instead of PEAR::raiseError() in XML_RPC_ee() because PEAR.php is lazy loaded. (danielc)
* Allow raiseError() to be called statically. (danielc)
* Stop double escaping of character entities. Bug 987. (danielc)
NOTICE: the following have been removed:
* XML_RPC_dh()
* $GLOBALS['XML_RPC_entities']
* XML_RPC_entity_decode()
* XML_RPC_lookup_entity()
* Determine the XML's encoding via the encoding attribute in the XML declaration. Bug 52. (danielc)
1.1.0
2004-03-15
stable
* Added support for sequential arrays to XML_RPC_encode() (mroch)
* Cleaned up new XML_RPC_encode() changes a bit (mroch, pierre)
* Remove "require_once 'PEAR.php'", include only when needed to raise an error
* Replace echo and error_log() with raiseError() (mroch)
* Make all classes extend XML_RPC_Base, which will handle common functions (mroch)
* be tolerant of junk after methodResponse (Luca Mariano, mroch)
* Silent notice even in the error log (pierre)
* fix include of shared xml extension on win32 (pierre)
1.0.4
2002-10-02
stable
* added HTTP proxy authorization support (thanks to Arnaud Limbourg)
1.0.3
2002-05-19
stable
* fix bug when parsing responses with boolean types
1.0.2
2002-04-16
stable
* E_ALL fixes
* fix HTTP response header parsing
1.0.1
2001-09-25
stable
This is a PEAR-ified version of Useful Inc's 1.0.1 release.
Includes an urgent security fix identified by Dan Libby <dan@libby.com>.