Web Development

<?<br />
<br />
ini_set("include_path", 'D:\Program Files\XML_RPC\;'. ini_get("include_path"));<br />
<br />
require_once 'RPC.php';<br />
<br />
$input = 8;<br />
$params = array(new XML_RPC_Value($input, 'int'));<br />
$msg = new XML_RPC_Message('times2', $params);<br />
<br />
$cli = new XML_RPC_Client('xmlrpc.php', '');<br />
$resp = $cli->send($msg);<br />
<br />
if (!$resp) {<br />
    echo '>Communication error: ' . $cli->errstr ;<br />
    exit;<br />
    // HERE THE BRAKES BUT WHY ???<br />
}<br />
<br />
if (!$resp->faultCode()) {<br />
    $val = $resp->value();<br />
    echo $input . ' times 2 is ' . $val->scalarval();<br />
} else {<br />
    /*<br />
     * Display problems that have been gracefully cought and<br />
     * reported by the xmlrpc.php script.<br />
     */<br />
    echo 'Fault Code: ' . $resp->faultCode() . "\n";<br />
    echo 'Fault Reason: ' . $resp->faultString() . "\n";<br />
}<br />
<br />
<br />
?><br />

<?<br />
<br />
ini_set("include_path", 'D:\Program Files\XML_RPC\;'. ini_get("include_path"));<br />
<br />
require_once 'Server.php';<br />
<br />
function returnTimes2($params) {<br />
    $param = $params->getParam(0);<br />
<br />
    // This error checking syntax was added in Release 1.3.0<br />
    if (!XML_RPC_Value::isValue($param)) {<br />
        return $param;<br />
    }<br />
<br />
    $val = new XML_RPC_Value($param->scalarval() * 2, 'int'); <br />
    return new XML_RPC_Response($val);<br />
}<br />
<br />
$server = new XML_RPC_Server(<br />
    array(<br />
        'times2' =><br />
            array(<br />
                'function' => 'returnTimes2'<br />
            )<br />
    )<br />
);<br />
<br />
?><br />