-<?php // -*-c++-*-
-// by Edd Dumbill (C) 1999-2001
-// <edd@usefulinc.com>
-// $Id: xmlrpc.inc.php,v 1.1.1.1 2005-02-28 07:14:54 kimitake Exp $
-
-/*
- Modifications made for use with Nucleus:
-
- renamed methods:
- xmlrpc_encode -> _xmlrpc_encode
- xmlrpc_decode -> _xmlrpc_decode
-*/
-
-
-// Copyright (c) 1999,2000,2001 Edd Dumbill.
-// All rights reserved.
-//
-// Redistribution and use in source and binary forms, with or without
-// modification, are permitted provided that the following conditions
-// are met:
-//
-// * Redistributions of source code must retain the above copyright
-// notice, this list of conditions and the following disclaimer.
-//
-// * Redistributions in binary form must reproduce the above
-// copyright notice, this list of conditions and the following
-// disclaimer in the documentation and/or other materials provided
-// with the distribution.
-//
-// * Neither the name of the "XML-RPC for PHP" nor the names of its
-// contributors may be used to endorse or promote products derived
-// from this software without specific prior written permission.
-//
-// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
-// FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
-// REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
-// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-// HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
-// STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
-// OF THE POSSIBILITY OF SUCH DAMAGE.
-
-if (!function_exists('xml_parser_create')) {
-// Win 32 fix. From: "Leo West" <lwest@imaginet.fr>
- if($WINDIR) {
- dl("php3_xml.dll");
- } else {
- dl("xml.so");
- }
-}
-
-$xmlrpcI4="i4";
-$xmlrpcInt="int";
-$xmlrpcBoolean="boolean";
-$xmlrpcDouble="double";
-$xmlrpcString="string";
-$xmlrpcDateTime="dateTime.iso8601";
-$xmlrpcBase64="base64";
-$xmlrpcArray="array";
-$xmlrpcStruct="struct";
-
-
-$xmlrpcTypes=array($xmlrpcI4 => 1,
- $xmlrpcInt => 1,
- $xmlrpcBoolean => 1,
- $xmlrpcString => 1,
- $xmlrpcDouble => 1,
- $xmlrpcDateTime => 1,
- $xmlrpcBase64 => 1,
- $xmlrpcArray => 2,
- $xmlrpcStruct => 3);
-
-$xmlEntities=array( "amp" => "&",
- "quot" => '"',
- "lt" => "<",
- "gt" => ">",
- "apos" => "'");
-
-$xmlrpcerr["unknown_method"]=1;
-$xmlrpcstr["unknown_method"]="Unknown method";
-$xmlrpcerr["invalid_return"]=2;
-$xmlrpcstr["invalid_return"]="Invalid return payload: enabling debugging to examine incoming payload";
-$xmlrpcerr["incorrect_params"]=3;
-$xmlrpcstr["incorrect_params"]="Incorrect parameters passed to method";
-$xmlrpcerr["introspect_unknown"]=4;
-$xmlrpcstr["introspect_unknown"]="Can't introspect: method unknown";
-$xmlrpcerr["http_error"]=5;
-$xmlrpcstr["http_error"]="Didn't receive 200 OK from remote server.";
-$xmlrpcerr["no_data"]=6;
-$xmlrpcstr["no_data"]="No data received from server.";
-$xmlrpcerr["no_ssl"]=7;
-$xmlrpcstr["no_ssl"]="No SSL support compiled in.";
-$xmlrpcerr["curl_fail"]=8;
-$xmlrpcstr["curl_fail"]="CURL error";
-
-$xmlrpc_defencoding="UTF-8";
-
-$xmlrpcName="XML-RPC for PHP";
-$xmlrpcVersion="1.02";
-
-// let user errors start at 800
-$xmlrpcerruser=800;
-// let XML parse errors start at 100
-$xmlrpcerrxml=100;
-
-// formulate backslashes for escaping regexp
-$xmlrpc_backslash=chr(92).chr(92);
-
-// used to store state during parsing
-// quick explanation of components:
-// st - used to build up a string for evaluation
-// ac - used to accumulate values
-// qt - used to decide if quotes are needed for evaluation
-// cm - used to denote struct or array (comma needed)
-// isf - used to indicate a fault
-// lv - used to indicate "looking for a value": implements
-// the logic to allow values with no types to be strings
-// params - used to store parameters in method calls
-// method - used to store method name
-
-$_xh=array();
-
-function xmlrpc_entity_decode($string) {
- $top=split("&", $string);
- $op="";
- $i=0;
- while($i<sizeof($top)) {
- if (ereg("^([#a-zA-Z0-9]+);", $top[$i], $regs)) {
- $op.=ereg_replace("^[#a-zA-Z0-9]+;",
- xmlrpc_lookup_entity($regs[1]),
- $top[$i]);
- } else {
- if ($i==0)
- $op=$top[$i];
- else
- $op.="&" . $top[$i];
- }
- $i++;
- }
- return $op;
-}
-
-function xmlrpc_lookup_entity($ent) {
- global $xmlEntities;
-
- if (isset($xmlEntities[strtolower($ent)]))
- return $xmlEntities[strtolower($ent)];
- if (ereg("^#([0-9]+)$", $ent, $regs))
- return chr($regs[1]);
- return "?";
-}
-
-function xmlrpc_se($parser, $name, $attrs) {
- global $_xh, $xmlrpcDateTime, $xmlrpcString;
-
- switch($name) {
- case "STRUCT":
- case "ARRAY":
- $_xh[$parser]['st'].="array(";
- $_xh[$parser]['cm']++;
- // this last line turns quoting off
- // this means if we get an empty array we'll
- // simply get a bit of whitespace in the eval
- $_xh[$parser]['qt']=0;
- break;
- case "NAME":
- $_xh[$parser]['st'].="'"; $_xh[$parser]['ac']="";
- break;
- case "FAULT":
- $_xh[$parser]['isf']=1;
- break;
- case "PARAM":
- $_xh[$parser]['st']="";
- break;
- case "VALUE":
- $_xh[$parser]['st'].="new xmlrpcval(";
- $_xh[$parser]['vt']=$xmlrpcString;
- $_xh[$parser]['ac']="";
- $_xh[$parser]['qt']=0;
- $_xh[$parser]['lv']=1;
- // 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":
- $_xh[$parser]['ac']=""; // reset the accumulator
-
- if ($name=="DATETIME.ISO8601" || $name=="STRING") {
- $_xh[$parser]['qt']=1;
- if ($name=="DATETIME.ISO8601")
- $_xh[$parser]['vt']=$xmlrpcDateTime;
- } else if ($name=="BASE64") {
- $_xh[$parser]['qt']=2;
- } else {
- // No quoting is required here -- but
- // at the end of the element we must check
- // for data format errors.
- $_xh[$parser]['qt']=0;
- }
- break;
- case "MEMBER":
- $_xh[$parser]['ac']="";
- break;
- default:
- break;
- }
-
- if ($name!="VALUE") $_xh[$parser]['lv']=0;
-}
-
-function xmlrpc_ee($parser, $name) {
- global $_xh,$xmlrpcTypes,$xmlrpcString;
-
- switch($name) {
- case "STRUCT":
- case "ARRAY":
- if ($_xh[$parser]['cm'] && substr($_xh[$parser]['st'], -1) ==',') {
- $_xh[$parser]['st']=substr($_xh[$parser]['st'],0,-1);
- }
- $_xh[$parser]['st'].=")";
- $_xh[$parser]['vt']=strtolower($name);
- $_xh[$parser]['cm']--;
- break;
- case "NAME":
- $_xh[$parser]['st'].= $_xh[$parser]['ac'] . "' => ";
- break;
- case "BOOLEAN":
- // special case here: we translate boolean 1 or 0 into PHP
- // constants true or false
- if ($_xh[$parser]['ac']=='1')
- $_xh[$parser]['ac']="true";
- else
- $_xh[$parser]['ac']="false";
- $_xh[$parser]['vt']=strtolower($name);
- // Drop through intentionally.
- case "I4":
- case "INT":
- case "STRING":
- case "DOUBLE":
- case "DATETIME.ISO8601":
- case "BASE64":
- if ($_xh[$parser]['qt']==1) {
- // we use double quotes rather than single so backslashification works OK
- $_xh[$parser]['st'].="\"". $_xh[$parser]['ac'] . "\"";
- } else if ($_xh[$parser]['qt']==2) {
- $_xh[$parser]['st'].="base64_decode('". $_xh[$parser]['ac'] . "')";
- } else if ($name=="BOOLEAN") {
- $_xh[$parser]['st'].=$_xh[$parser]['ac'];
- } else {
- // we have an I4, INT or a DOUBLE
- // we must check that only 0123456789-.<space> are characters here
- if (!ereg("^\-?[0123456789 \t\.]+$", $_xh[$parser]['ac'])) {
- // TODO: find a better way of throwing an error
- // than this!
- error_log("XML-RPC: non numeric value received in INT or DOUBLE");
- $_xh[$parser]['st'].="ERROR_NON_NUMERIC_FOUND";
- } else {
- // it's ok, add it on
- $_xh[$parser]['st'].=$_xh[$parser]['ac'];
- }
- }
- $_xh[$parser]['ac']=""; $_xh[$parser]['qt']=0;
- $_xh[$parser]['lv']=3; // indicate we've found a value
- break;
- case "VALUE":
- // deal with a string value
- if (strlen($_xh[$parser]['ac'])>0 &&
- $_xh[$parser]['vt']==$xmlrpcString) {
- $_xh[$parser]['st'].="\"". $_xh[$parser]['ac'] . "\"";
- }
- // This if() detects if no scalar was inside <VALUE></VALUE>
- // and pads an empty "".
- if($_xh[$parser]['st'][strlen($_xh[$parser]['st'])-1] == '(') {
- $_xh[$parser]['st'].= '""';
- }
- $_xh[$parser]['st'].=", '" . $_xh[$parser]['vt'] . "')";
- if ($_xh[$parser]['cm']) $_xh[$parser]['st'].=",";
- break;
- case "MEMBER":
- $_xh[$parser]['ac']=""; $_xh[$parser]['qt']=0;
- break;
- case "DATA":
- $_xh[$parser]['ac']=""; $_xh[$parser]['qt']=0;
- break;
- case "PARAM":
- $_xh[$parser]['params'][]=$_xh[$parser]['st'];
- break;
- case "METHODNAME":
- $_xh[$parser]['method']=ereg_replace("^[\n\r\t ]+", "",
- $_xh[$parser]['ac']);
- break;
- case "BOOLEAN":
- // special case here: we translate boolean 1 or 0 into PHP
- // constants true or false
- if ($_xh[$parser]['ac']=='1')
- $_xh[$parser]['ac']="true";
- else
- $_xh[$parser]['ac']="false";
- $_xh[$parser]['vt']=strtolower($name);
- break;
- default:
- break;
- }
- // if it's a valid type name, set the type
- if (isset($xmlrpcTypes[strtolower($name)])) {
- $_xh[$parser]['vt']=strtolower($name);
- }
-
-}
-
-function xmlrpc_cd($parser, $data)
-{
- global $_xh, $xmlrpc_backslash;
-
- //if (ereg("^[\n\r \t]+$", $data)) return;
- // print "adding [${data}]\n";
-
- if ($_xh[$parser]['lv']!=3) {
- // "lookforvalue==3" means that we've found an entire value
- // and should discard any further character data
- if ($_xh[$parser]['lv']==1) {
- // if we've found text and we're just in a <value> then
- // turn quoting on, as this will be a string
- $_xh[$parser]['qt']=1;
- // and say we've found a value
- $_xh[$parser]['lv']=2;
- }
- // replace characters that eval would
- // do special things with
- $_xh[$parser]['ac'].=str_replace('$', '\$',
- str_replace('"', '\"', str_replace(chr(92),
- $xmlrpc_backslash, $data)));
- }
-}
-
-function xmlrpc_dh($parser, $data)
-{
- global $_xh;
- if (substr($data, 0, 1) == "&" && substr($data, -1, 1) == ";") {
- if ($_xh[$parser]['lv']==1) {
- $_xh[$parser]['qt']=1;
- $_xh[$parser]['lv']=2;
- }
- $_xh[$parser]['ac'].=str_replace('$', '\$',
- str_replace('"', '\"', str_replace(chr(92),
- $xmlrpc_backslash, $data)));
- }
-}
-
-class xmlrpc_client {
- var $path;
- var $server;
- var $port;
- var $errno;
- var $errstring;
- var $debug=0;
- var $username="";
- var $password="";
- var $cert="";
- var $certpass="";
-
- function xmlrpc_client($path, $server, $port=0) {
- $this->port=$port; $this->server=$server; $this->path=$path;
- }
-
- function setDebug($in) {
- if ($in) {
- $this->debug=1;
- } else {
- $this->debug=0;
- }
- }
-
- function setCredentials($u, $p) {
- $this->username=$u;
- $this->password=$p;
- }
-
- function setCertificate($cert, $certpass) {
- $this->cert = $cert;
- $this->certpass = $certpass;
- }
-
- function send($msg, $timeout=0, $method='http') {
- // where msg is an xmlrpcmsg
- $msg->debug=$this->debug;
-
- if ($method == 'https') {
- return $this->sendPayloadHTTPS($msg,
- $this->server,
- $this->port, $timeout,
- $this->username, $this->password,
- $this->cert,
- $this->certpass);
- } else {
- return $this->sendPayloadHTTP10($msg, $this->server, $this->port,
- $timeout, $this->username,
- $this->password);
- }
- }
-
- function sendPayloadHTTP10($msg, $server, $port, $timeout=0,
- $username="", $password="") {
- if ($port==0) $port=80;
- if($timeout>0)
- $fp=@fsockopen($server, $port,
- $this->errno, $this->errstr, $timeout);
- else
- $fp=@fsockopen($server, $port,
- $this->errno, $this->errstr);
- if (!$fp) {
- return 0;
- }
- // Only create the payload if it was not created previously
- if(empty($msg->payload)) $msg->createPayload();
-
- // thanks to Grant Rauscher <grant7@firstworld.net>
- // for this
- $credentials="";
- if ($username!="") {
- $credentials="Authorization: Basic " .
- base64_encode($username . ":" . $password) . "\r\n";
- }
-
- $op= "POST " . $this->path. " HTTP/1.0\r\nUser-Agent: PHP XMLRPC 1.0\r\n" .
- "Host: ". $this->server . "\r\n" .
- $credentials .
- "Content-Type: text/xml\r\nContent-Length: " .
- strlen($msg->payload) . "\r\n\r\n" .
- $msg->payload;
-
- if (!fputs($fp, $op, strlen($op))) {
- $this->errstr="Write error";
- return 0;
- }
- $resp=$msg->parseResponseFile($fp);
- fclose($fp);
- return $resp;
- }
-
- // contributed by Justin Miller <justin@voxel.net>
- // requires curl to be built into PHP
- function sendPayloadHTTPS($msg, $server, $port, $timeout=0,
- $username="", $password="", $cert="",
- $certpass="") {
- global $xmlrpcerr, $xmlrpcstr;
- if ($port == 0) $port = 443;
-
- // Only create the payload if it was not created previously
- if(empty($msg->payload)) $msg->createPayload();
-
- if (!function_exists("curl_init")) {
- $r=new xmlrpcresp(0, $xmlrpcerr["no_ssl"],
- $xmlrpcstr["no_ssl"]);
- return $r;
- }
-
- $curl = curl_init("https://" . $server . ':' . $port .
- $this->path);
-
- curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);
- // results into variable
- if ($this->debug) {
- curl_setopt($curl, CURLOPT_VERBOSE, 1);
- }
- curl_setopt($curl, CURLOPT_USERAGENT, 'PHP XMLRPC 1.0');
- // required for XMLRPC
- curl_setopt($curl, CURLOPT_POST, 1);
- // post the data
- curl_setopt($curl, CURLOPT_POSTFIELDS, $msg->payload);
- // the data
- curl_setopt($curl, CURLOPT_HEADER, 1);
- // return the header too
- curl_setopt($curl, CURLOPT_HTTPHEADER, array('Content-Type: text/xml'));
- // required for XMLRPC
- if ($timeout) curl_setopt($curl, CURLOPT_TIMEOUT, $timeout == 1 ? 1 :
- $timeout - 1);
- // timeout is borked
- if ($username && $password) curl_setopt($curl, CURLOPT_USERPWD,
- "$username:$password");
- // set auth stuff
- if ($cert) curl_setopt($curl, CURLOPT_SSLCERT, $cert);
- // set cert file
- if ($certpass) curl_setopt($curl, CURLOPT_SSLCERTPASSWD,
- $certpass);
- // set cert password
-
- $result = curl_exec($curl);
-
- if (!$result) {
- $resp=new xmlrpcresp(0,
- $xmlrpcerr["curl_fail"],
- $xmlrpcstr["curl_fail"]. ": ".
- curl_error($curl));
- } else {
- $resp = $msg->parseResponse($result);
- }
- curl_close($curl);
- return $resp;
- }
-
-} // end class xmlrpc_client
-
-class xmlrpcresp {
- var $xv;
- var $fn;
- var $fs;
- var $hdrs;
-
- function xmlrpcresp($val, $fcode=0, $fstr="") {
- if ($fcode!=0) {
- $this->xv=0;
- $this->fn=$fcode;
- $this->fs=htmlspecialchars($fstr);
- } else {
- $this->xv=$val;
- $this->fn=0;
- }
- }
-
- function faultCode() {
- if (isset($this->fn))
- return $this->fn;
- else
- return 0;
- }
-
- function faultString() { return $this->fs; }
- function value() { return $this->xv; }
-
- function serialize() {
- $rs="<methodResponse>\n";
- if ($this->fn) {
- $rs.="<fault>
- <value>
- <struct>
- <member>
- <name>faultCode</name>
- <value><int>" . $this->fn . "</int></value>
- </member>
- <member>
- <name>faultString</name>
- <value><string>" . $this->fs . "</string></value>
- </member>
- </struct>
- </value>
-</fault>";
- } else {
- $rs.="<params>\n<param>\n" . $this->xv->serialize() .
- "</param>\n</params>";
- }
- $rs.="\n</methodResponse>";
- return $rs;
- }
-}
-
-class xmlrpcmsg {
- var $payload;
- var $methodname;
- var $params=array();
- var $debug=0;
-
- function xmlrpcmsg($meth, $pars=0) {
- $this->methodname=$meth;
- if (is_array($pars) && sizeof($pars)>0) {
- for($i=0; $i<sizeof($pars); $i++)
- $this->addParam($pars[$i]);
- }
- }
-
- function xml_header() {
- return "<" . "?xml version=\"1.0\"?".">\n<methodCall>\n";
- }
-
- function xml_footer() {
- return "</methodCall>\n";
- }
-
- function createPayload() {
- $this->payload=$this->xml_header();
- $this->payload.="<methodName>" . $this->methodname . "</methodName>\n";
- // if (sizeof($this->params)) {
- $this->payload.="<params>\n";
- for($i=0; $i<sizeof($this->params); $i++) {
- $p=$this->params[$i];
- $this->payload.="<param>\n" . $p->serialize() .
- "</param>\n";
- }
- $this->payload.="</params>\n";
- // }
- $this->payload.=$this->xml_footer();
- $this->payload=str_replace("\n", "\r\n", $this->payload);
- }
-
- function method($meth="") {
- if ($meth!="") {
- $this->methodname=$meth;
- }
- return $this->methodname;
- }
-
- function serialize() {
- $this->createPayload();
- return $this->payload;
- }
-
- function addParam($par) { $this->params[]=$par; }
- function getParam($i) { return $this->params[$i]; }
- function getNumParams() { return sizeof($this->params); }
-
- function parseResponseFile($fp) {
- $ipd="";
-
- while($data=fread($fp, 32768)) {
- $ipd.=$data;
- }
- return $this->parseResponse($ipd);
- }
-
- function parseResponse($data="") {
- global $_xh,$xmlrpcerr,$xmlrpcstr;
- global $xmlrpc_defencoding;
-
-
- $parser = xml_parser_create($xmlrpc_defencoding);
-
- $_xh[$parser]=array();
-
- $_xh[$parser]['st']="";
- $_xh[$parser]['cm']=0;
- $_xh[$parser]['isf']=0;
- $_xh[$parser]['ac']="";
- $_xh[$parser]['qt']="";
- $_xh[$parser]['ha']="";
- $_xh[$parser]['ac']="";
-
- xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);
- xml_set_element_handler($parser, "xmlrpc_se", "xmlrpc_ee");
- xml_set_character_data_handler($parser, "xmlrpc_cd");
- xml_set_default_handler($parser, "xmlrpc_dh");
- $xmlrpc_value=new xmlrpcval;
-
- if ($this->debug)
- print "<PRE>---GOT---\n" . htmlspecialchars($data) .
- "\n---END---\n</PRE>";
- if ($data=="") {
- error_log("No response received from server.");
- $r=new xmlrpcresp(0, $xmlrpcerr["no_data"],
- $xmlrpcstr["no_data"]);
- xml_parser_free($parser);
- return $r;
- }
- // see if we got an HTTP 200 OK, else bomb
- // but only do this if we're using the HTTP protocol.
- if (ereg("^HTTP",$data) &&
- !ereg("^HTTP/[0-9\.]+ 200 ", $data)) {
- $errstr= substr($data, 0, strpos($data, "\n")-1);
- error_log("HTTP error, got response: " .$errstr);
- $r=new xmlrpcresp(0, $xmlrpcerr["http_error"],
- $xmlrpcstr["http_error"]. " (" . $errstr . ")");
- xml_parser_free($parser);
- return $r;
- }
-
- // if using HTTP, then gotta get rid of HTTP headers here
- // and we store them in the 'ha' bit of our data array
- if (ereg("^HTTP", $data)) {
- $ar=explode("\r\n", $data);
- $newdata="";
- $hdrfnd=0;
- for ($i=0; $i<sizeof($ar); $i++) {
- if (!$hdrfnd) {
- if (strlen($ar[$i])>0) {
- $_xh[$parser]['ha'].=$ar[$i]. "\r\n";
- } else {
- $hdrfnd=1;
- }
- } else {
- $newdata.=$ar[$i] . "\r\n";
- }
- }
- $data=$newdata;
- }
-
- if (!xml_parse($parser, $data, sizeof($data))) {
- // thanks to Peter Kocks <peter.kocks@baygate.com>
- if((xml_get_current_line_number($parser)) == 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)),
- xml_get_current_line_number($parser));
- error_log($errstr);
- $r=new xmlrpcresp(0, $xmlrpcerr["invalid_return"],
- $xmlrpcstr["invalid_return"]);
- xml_parser_free($parser);
- return $r;
- }
- xml_parser_free($parser);
- if ($this->debug) {
- print "<PRE>---EVALING---[" .
- strlen($_xh[$parser]['st']) . " chars]---\n" .
- htmlspecialchars($_xh[$parser]['st']) . ";\n---END---</PRE>";
- }
- if (strlen($_xh[$parser]['st'])==0) {
- // then something odd has happened
- // and it's time to generate a client side error
- // indicating something odd went on
- $r=new xmlrpcresp(0, $xmlrpcerr["invalid_return"],
- $xmlrpcstr["invalid_return"]);
- } else {
- eval('$v=' . $_xh[$parser]['st'] . '; $allOK=1;');
- if ($_xh[$parser]['isf']) {
- $f=$v->structmem("faultCode");
- $fs=$v->structmem("faultString");
- $r=new xmlrpcresp($v, $f->scalarval(),
- $fs->scalarval());
- } else {
- $r=new xmlrpcresp($v);
- }
- }
- $r->hdrs=split("\r?\n", $_xh[$parser]['ha']);
- return $r;
- }
-
-}
-
-class xmlrpcval {
- var $me=array();
- var $mytype=0;
-
- function xmlrpcval($val=-1, $type="") {
- global $xmlrpcTypes;
- $this->me=array();
- $this->mytype=0;
- if ($val!=-1 || $type!="") {
- if ($type=="") $type="string";
- if ($xmlrpcTypes[$type]==1) {
- $this->addScalar($val,$type);
- }
- else if ($xmlrpcTypes[$type]==2)
- $this->addArray($val);
- else if ($xmlrpcTypes[$type]==3)
- $this->addStruct($val);
- }
- }
-
- function addScalar($val, $type="string") {
- global $xmlrpcTypes, $xmlrpcBoolean;
-
- if ($this->mytype==1) {
- echo "<B>xmlrpcval</B>: scalar can have only one value<BR>";
- return 0;
- }
- $typeof=$xmlrpcTypes[$type];
- if ($typeof!=1) {
- echo "<B>xmlrpcval</B>: not a scalar type (${typeof})<BR>";
- return 0;
- }
-
- if ($type==$xmlrpcBoolean) {
- 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 xmlrpcval($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;
- }
-
- function addArray($vals) {
- global $xmlrpcTypes;
- if ($this->mytype!=0) {
- echo "<B>xmlrpcval</B>: already initialized as a [" .
- $this->kindOf() . "]<BR>";
- return 0;
- }
-
- $this->mytype=$xmlrpcTypes["array"];
- $this->me["array"]=$vals;
- return 1;
- }
-
- function addStruct($vals) {
- global $xmlrpcTypes;
- if ($this->mytype!=0) {
- echo "<B>xmlrpcval</B>: already initialized as a [" .
- $this->kindOf() . "]<BR>";
- return 0;
- }
- $this->mytype=$xmlrpcTypes["struct"];
- $this->me["struct"]=$vals;
- return 1;
- }
-
- function dump($ar) {
- reset($ar);
- while ( list( $key, $val ) = each( $ar ) ) {
- echo "$key => $val<br>";
- if ($key == 'array')
- while ( list( $key2, $val2 ) = each( $val ) ) {
- echo "-- $key2 => $val2<br>";
- }
- }
- }
-
- function kindOf() {
- switch($this->mytype) {
- case 3:
- return "struct";
- break;
- case 2:
- return "array";
- break;
- case 1:
- return "scalar";
- break;
- default:
- return "undef";
- }
- }
-
- function serializedata($typ, $val) {
- $rs="";
- global $xmlrpcTypes, $xmlrpcBase64, $xmlrpcString,
- $xmlrpcBoolean;
- switch($xmlrpcTypes[$typ]) {
- case 3:
- // struct
- $rs.="<struct>\n";
- reset($val);
- while(list($key2, $val2)=each($val)) {
- $rs.="<member><name>${key2}</name>\n";
- $rs.=$this->serializeval($val2);
- $rs.="</member>\n";
- }
- $rs.="</struct>";
- break;
- case 2:
- // array
- $rs.="<array>\n<data>\n";
- for($i=0; $i<sizeof($val); $i++) {
- $rs.=$this->serializeval($val[$i]);
- }
- $rs.="</data>\n</array>";
- break;
- case 1:
- switch ($typ) {
- case $xmlrpcBase64:
- $rs.="<${typ}>" . base64_encode($val) . "</${typ}>";
- break;
- case $xmlrpcBoolean:
- $rs.="<${typ}>" . ($val ? "1" : "0") . "</${typ}>";
- break;
- case $xmlrpcString:
- $rs.="<${typ}>" . htmlspecialchars($val). "</${typ}>";
- break;
- default:
- $rs.="<${typ}>${val}</${typ}>";
- }
- break;
- default:
- break;
- }
- return $rs;
- }
-
- function serialize() {
- return $this->serializeval($this);
- }
-
- function serializeval($o) {
- global $xmlrpcTypes;
- $rs="";
- $ar=$o->me;
- reset($ar);
- list($typ, $val) = each($ar);
- $rs.="<value>";
- $rs.=$this->serializedata($typ, $val);
- $rs.="</value>\n";
- return $rs;
- }
-
- function structmem($m) {
- $nv=$this->me["struct"][$m];
- return $nv;
- }
-
- function structreset() {
- reset($this->me["struct"]);
- }
-
- function structeach() {
- return each($this->me["struct"]);
- }
-
- function getval() {
- // UNSTABLE
- global $xmlrpcBoolean, $xmlrpcBase64;
- reset($this->me);
- list($a,$b)=each($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) {
- eval('$b->'.$id.' = $cont;');
- }
- }
- // end contrib
- return $b;
- }
-
- function scalarval() {
- global $xmlrpcBoolean, $xmlrpcBase64;
- reset($this->me);
- list($a,$b)=each($this->me);
- return $b;
- }
-
- function scalartyp() {
- global $xmlrpcI4, $xmlrpcInt;
- reset($this->me);
- list($a,$b)=each($this->me);
- if ($a==$xmlrpcI4)
- $a=$xmlrpcInt;
- return $a;
- }
-
- function arraymem($m) {
- $nv=$this->me["array"][$m];
- return $nv;
- }
-
- function arraysize() {
- reset($this->me);
- list($a,$b)=each($this->me);
- return sizeof($b);
- }
-}
-
-// date helpers
-function iso8601_encode($timet, $utc=0) {
- // return an ISO8601 encoded string
- // really, timezones ought to be supported
- // but 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."
- //
- // these routines always assume localtime unless
- // $utc is set to 1, in which case UTC is assumed
- // and an adjustment for locale is made when encoding
- 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;
-}
-
-function iso8601_decode($idate, $utc=0) {
- // return a timet in the localtime, or UTC
- $t=0;
- if (ereg("([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;
-}
-
-/****************************************************************
-* xmlrpc_decode takes a message in PHP xmlrpc object format and *
-* tranlates it into native PHP types. *
-* *
-* author: Dan Libby (dan@libby.com) *
-****************************************************************/
-function _xmlrpc_decode($xmlrpc_val) {
- $kind = $xmlrpc_val->kindOf();
-
- if($kind == "scalar") {
- return $xmlrpc_val->scalarval();
- }
- else if($kind == "array") {
- $size = $xmlrpc_val->arraysize();
- $arr = array();
-
- for($i = 0; $i < $size; $i++) {
- $arr[]=_xmlrpc_decode($xmlrpc_val->arraymem($i));
- }
- return $arr;
- }
- else if($kind == "struct") {
- $xmlrpc_val->structreset();
- $arr = array();
-
- while(list($key,$value)=$xmlrpc_val->structeach()) {
- $arr[$key] = _xmlrpc_decode($value);
- }
- return $arr;
- }
-}
-
-/****************************************************************
-* xmlrpc_encode takes native php types and encodes them into *
-* xmlrpc PHP object format. *
-* BUG: All sequential arrays are turned into structs. I don't *
-* know of a good way to determine if an array is sequential *
-* only. *
-* *
-* feature creep -- could support more types via optional type *
-* argument. *
-* *
-* author: Dan Libby (dan@libby.com) *
-****************************************************************/
-function _xmlrpc_encode($php_val) {
- global $xmlrpcInt;
- global $xmlrpcDouble;
- global $xmlrpcString;
- global $xmlrpcArray;
- global $xmlrpcStruct;
- global $xmlrpcBoolean;
-
- $type = gettype($php_val);
- $xmlrpc_val = new xmlrpcval;
-
- switch($type) {
- case "array":
- case "object":
- $arr = array();
- while (list($k,$v) = each($php_val)) {
- $arr[$k] = _xmlrpc_encode($v);
- }
- $xmlrpc_val->addStruct($arr);
- break;
- case "integer":
- $xmlrpc_val->addScalar($php_val, $xmlrpcInt);
- break;
- case "double":
- $xmlrpc_val->addScalar($php_val, $xmlrpcDouble);
- break;
- case "string":
- $xmlrpc_val->addScalar($php_val, $xmlrpcString);
- break;
-// <G_Giunta_2001-02-29>
-// Add support for encoding/decoding of booleans, since they are supported in PHP
- case "boolean":
- $xmlrpc_val->addScalar($php_val, $xmlrpcBoolean);
- break;
-// </G_Giunta_2001-02-29>
- case "unknown type":
- default:
- // giancarlo pinerolo <ping@alt.it>
- // it has to return
- // an empty object in case (which is already
- // at this point), not a boolean.
- break;
- }
- return $xmlrpc_val;
-}
-
-?>
+<?php // -*-c++-*-\r
+// by Edd Dumbill (C) 1999-2001\r
+// <edd@usefulinc.com>\r
+// $Id: xmlrpc.inc.php,v 1.2 2005-03-04 08:09:34 kimitake Exp $\r
+\r
+/*\r
+ Modifications made for use with Nucleus:\r
+ \r
+ renamed methods:\r
+ xmlrpc_encode -> _xmlrpc_encode\r
+ xmlrpc_decode -> _xmlrpc_decode\r
+*/\r
+\r
+\r
+// Copyright (c) 1999,2000,2001 Edd Dumbill.\r
+// All rights reserved.\r
+//\r
+// Redistribution and use in source and binary forms, with or without\r
+// modification, are permitted provided that the following conditions\r
+// are met:\r
+//\r
+// * Redistributions of source code must retain the above copyright\r
+// notice, this list of conditions and the following disclaimer.\r
+//\r
+// * Redistributions in binary form must reproduce the above\r
+// copyright notice, this list of conditions and the following\r
+// disclaimer in the documentation and/or other materials provided\r
+// with the distribution.\r
+//\r
+// * Neither the name of the "XML-RPC for PHP" nor the names of its\r
+// contributors may be used to endorse or promote products derived\r
+// from this software without specific prior written permission.\r
+//\r
+// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS\r
+// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT\r
+// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS\r
+// FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE\r
+// REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,\r
+// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES\r
+// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR\r
+// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\r
+// HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,\r
+// STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\r
+// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED\r
+// OF THE POSSIBILITY OF SUCH DAMAGE.\r
+\r
+if (!function_exists('xml_parser_create')) {\r
+// Win 32 fix. From: "Leo West" <lwest@imaginet.fr>\r
+ if($WINDIR) {\r
+ dl("php3_xml.dll");\r
+ } else {\r
+ dl("xml.so");\r
+ }\r
+}\r
+\r
+$xmlrpcI4="i4";\r
+$xmlrpcInt="int";\r
+$xmlrpcBoolean="boolean";\r
+$xmlrpcDouble="double";\r
+$xmlrpcString="string";\r
+$xmlrpcDateTime="dateTime.iso8601";\r
+$xmlrpcBase64="base64";\r
+$xmlrpcArray="array";\r
+$xmlrpcStruct="struct";\r
+\r
+\r
+$xmlrpcTypes=array($xmlrpcI4 => 1,\r
+ $xmlrpcInt => 1,\r
+ $xmlrpcBoolean => 1,\r
+ $xmlrpcString => 1,\r
+ $xmlrpcDouble => 1,\r
+ $xmlrpcDateTime => 1,\r
+ $xmlrpcBase64 => 1,\r
+ $xmlrpcArray => 2,\r
+ $xmlrpcStruct => 3);\r
+\r
+$xmlEntities=array( "amp" => "&",\r
+ "quot" => '"',\r
+ "lt" => "<",\r
+ "gt" => ">",\r
+ "apos" => "'");\r
+\r
+$xmlrpcerr["unknown_method"]=1;\r
+$xmlrpcstr["unknown_method"]="Unknown method";\r
+$xmlrpcerr["invalid_return"]=2;\r
+$xmlrpcstr["invalid_return"]="Invalid return payload: enabling debugging to examine incoming payload";\r
+$xmlrpcerr["incorrect_params"]=3;\r
+$xmlrpcstr["incorrect_params"]="Incorrect parameters passed to method";\r
+$xmlrpcerr["introspect_unknown"]=4;\r
+$xmlrpcstr["introspect_unknown"]="Can't introspect: method unknown";\r
+$xmlrpcerr["http_error"]=5;\r
+$xmlrpcstr["http_error"]="Didn't receive 200 OK from remote server.";\r
+$xmlrpcerr["no_data"]=6;\r
+$xmlrpcstr["no_data"]="No data received from server.";\r
+$xmlrpcerr["no_ssl"]=7;\r
+$xmlrpcstr["no_ssl"]="No SSL support compiled in.";\r
+$xmlrpcerr["curl_fail"]=8;\r
+$xmlrpcstr["curl_fail"]="CURL error";\r
+\r
+$xmlrpc_defencoding="UTF-8";\r
+\r
+$xmlrpcName="XML-RPC for PHP";\r
+$xmlrpcVersion="1.02";\r
+\r
+// let user errors start at 800\r
+$xmlrpcerruser=800; \r
+// let XML parse errors start at 100\r
+$xmlrpcerrxml=100;\r
+\r
+// formulate backslashes for escaping regexp\r
+$xmlrpc_backslash=chr(92).chr(92);\r
+\r
+// used to store state during parsing\r
+// quick explanation of components:\r
+// st - used to build up a string for evaluation\r
+// ac - used to accumulate values\r
+// qt - used to decide if quotes are needed for evaluation\r
+// cm - used to denote struct or array (comma needed)\r
+// isf - used to indicate a fault\r
+// lv - used to indicate "looking for a value": implements\r
+// the logic to allow values with no types to be strings\r
+// params - used to store parameters in method calls\r
+// method - used to store method name\r
+\r
+$_xh=array();\r
+\r
+function xmlrpc_entity_decode($string) {\r
+ $top=split("&", $string);\r
+ $op="";\r
+ $i=0; \r
+ while($i<sizeof($top)) {\r
+ if (ereg("^([#a-zA-Z0-9]+);", $top[$i], $regs)) {\r
+ $op.=ereg_replace("^[#a-zA-Z0-9]+;",\r
+ xmlrpc_lookup_entity($regs[1]),\r
+ $top[$i]);\r
+ } else {\r
+ if ($i==0) \r
+ $op=$top[$i]; \r
+ else\r
+ $op.="&" . $top[$i];\r
+ }\r
+ $i++;\r
+ }\r
+ return $op;\r
+}\r
+\r
+function xmlrpc_lookup_entity($ent) {\r
+ global $xmlEntities;\r
+ \r
+ if (isset($xmlEntities[strtolower($ent)]))\r
+ return $xmlEntities[strtolower($ent)];\r
+ if (ereg("^#([0-9]+)$", $ent, $regs))\r
+ return chr($regs[1]);\r
+ return "?";\r
+}\r
+\r
+function xmlrpc_se($parser, $name, $attrs) {\r
+ global $_xh, $xmlrpcDateTime, $xmlrpcString;\r
+ \r
+ switch($name) {\r
+ case "STRUCT":\r
+ case "ARRAY":\r
+ $_xh[$parser]['st'].="array(";\r
+ $_xh[$parser]['cm']++;\r
+ // this last line turns quoting off\r
+ // this means if we get an empty array we'll \r
+ // simply get a bit of whitespace in the eval\r
+ $_xh[$parser]['qt']=0;\r
+ break;\r
+ case "NAME":\r
+ $_xh[$parser]['st'].="'"; $_xh[$parser]['ac']="";\r
+ break;\r
+ case "FAULT":\r
+ $_xh[$parser]['isf']=1;\r
+ break;\r
+ case "PARAM":\r
+ $_xh[$parser]['st']="";\r
+ break;\r
+ case "VALUE":\r
+ $_xh[$parser]['st'].="new xmlrpcval("; \r
+ $_xh[$parser]['vt']=$xmlrpcString;\r
+ $_xh[$parser]['ac']="";\r
+ $_xh[$parser]['qt']=0;\r
+ $_xh[$parser]['lv']=1;\r
+ // look for a value: if this is still 1 by the\r
+ // time we reach the first data segment then the type is string\r
+ // by implication and we need to add in a quote\r
+ break;\r
+\r
+ case "I4":\r
+ case "INT":\r
+ case "STRING":\r
+ case "BOOLEAN":\r
+ case "DOUBLE":\r
+ case "DATETIME.ISO8601":\r
+ case "BASE64":\r
+ $_xh[$parser]['ac']=""; // reset the accumulator\r
+\r
+ if ($name=="DATETIME.ISO8601" || $name=="STRING") {\r
+ $_xh[$parser]['qt']=1; \r
+ if ($name=="DATETIME.ISO8601")\r
+ $_xh[$parser]['vt']=$xmlrpcDateTime;\r
+ } else if ($name=="BASE64") {\r
+ $_xh[$parser]['qt']=2;\r
+ } else {\r
+ // No quoting is required here -- but\r
+ // at the end of the element we must check\r
+ // for data format errors.\r
+ $_xh[$parser]['qt']=0;\r
+ }\r
+ break;\r
+ case "MEMBER":\r
+ $_xh[$parser]['ac']="";\r
+ break;\r
+ default:\r
+ break;\r
+ }\r
+\r
+ if ($name!="VALUE") $_xh[$parser]['lv']=0;\r
+}\r
+\r
+function xmlrpc_ee($parser, $name) {\r
+ global $_xh,$xmlrpcTypes,$xmlrpcString;\r
+\r
+ switch($name) {\r
+ case "STRUCT":\r
+ case "ARRAY":\r
+ if ($_xh[$parser]['cm'] && substr($_xh[$parser]['st'], -1) ==',') {\r
+ $_xh[$parser]['st']=substr($_xh[$parser]['st'],0,-1);\r
+ }\r
+ $_xh[$parser]['st'].=")"; \r
+ $_xh[$parser]['vt']=strtolower($name);\r
+ $_xh[$parser]['cm']--;\r
+ break;\r
+ case "NAME":\r
+ $_xh[$parser]['st'].= $_xh[$parser]['ac'] . "' => ";\r
+ break;\r
+ case "BOOLEAN":\r
+ // special case here: we translate boolean 1 or 0 into PHP\r
+ // constants true or false\r
+ if ($_xh[$parser]['ac']=='1') \r
+ $_xh[$parser]['ac']="true";\r
+ else \r
+ $_xh[$parser]['ac']="false";\r
+ $_xh[$parser]['vt']=strtolower($name);\r
+ // Drop through intentionally.\r
+ case "I4":\r
+ case "INT":\r
+ case "STRING":\r
+ case "DOUBLE":\r
+ case "DATETIME.ISO8601":\r
+ case "BASE64":\r
+ if ($_xh[$parser]['qt']==1) {\r
+ // we use double quotes rather than single so backslashification works OK\r
+ $_xh[$parser]['st'].="\"". $_xh[$parser]['ac'] . "\""; \r
+ } else if ($_xh[$parser]['qt']==2) {\r
+ $_xh[$parser]['st'].="base64_decode('". $_xh[$parser]['ac'] . "')"; \r
+ } else if ($name=="BOOLEAN") {\r
+ $_xh[$parser]['st'].=$_xh[$parser]['ac'];\r
+ } else {\r
+ // we have an I4, INT or a DOUBLE\r
+ // we must check that only 0123456789-.<space> are characters here\r
+ if (!ereg("^\-?[0123456789 \t\.]+$", $_xh[$parser]['ac'])) {\r
+ // TODO: find a better way of throwing an error\r
+ // than this!\r
+ error_log("XML-RPC: non numeric value received in INT or DOUBLE");\r
+ $_xh[$parser]['st'].="ERROR_NON_NUMERIC_FOUND";\r
+ } else {\r
+ // it's ok, add it on\r
+ $_xh[$parser]['st'].=$_xh[$parser]['ac'];\r
+ }\r
+ }\r
+ $_xh[$parser]['ac']=""; $_xh[$parser]['qt']=0;\r
+ $_xh[$parser]['lv']=3; // indicate we've found a value\r
+ break;\r
+ case "VALUE":\r
+ // deal with a string value\r
+ if (strlen($_xh[$parser]['ac'])>0 &&\r
+ $_xh[$parser]['vt']==$xmlrpcString) {\r
+ $_xh[$parser]['st'].="\"". $_xh[$parser]['ac'] . "\""; \r
+ }\r
+ // This if() detects if no scalar was inside <VALUE></VALUE>\r
+ // and pads an empty "".\r
+ if($_xh[$parser]['st'][strlen($_xh[$parser]['st'])-1] == '(') {\r
+ $_xh[$parser]['st'].= '""';\r
+ }\r
+ $_xh[$parser]['st'].=", '" . $_xh[$parser]['vt'] . "')";\r
+ if ($_xh[$parser]['cm']) $_xh[$parser]['st'].=",";\r
+ break;\r
+ case "MEMBER":\r
+ $_xh[$parser]['ac']=""; $_xh[$parser]['qt']=0;\r
+ break;\r
+ case "DATA":\r
+ $_xh[$parser]['ac']=""; $_xh[$parser]['qt']=0;\r
+ break;\r
+ case "PARAM":\r
+ $_xh[$parser]['params'][]=$_xh[$parser]['st'];\r
+ break;\r
+ case "METHODNAME":\r
+ $_xh[$parser]['method']=ereg_replace("^[\n\r\t ]+", "", \r
+ $_xh[$parser]['ac']);\r
+ break;\r
+ case "BOOLEAN":\r
+ // special case here: we translate boolean 1 or 0 into PHP\r
+ // constants true or false\r
+ if ($_xh[$parser]['ac']=='1') \r
+ $_xh[$parser]['ac']="true";\r
+ else \r
+ $_xh[$parser]['ac']="false";\r
+ $_xh[$parser]['vt']=strtolower($name);\r
+ break;\r
+ default:\r
+ break;\r
+ }\r
+ // if it's a valid type name, set the type\r
+ if (isset($xmlrpcTypes[strtolower($name)])) {\r
+ $_xh[$parser]['vt']=strtolower($name);\r
+ }\r
+ \r
+}\r
+\r
+function xmlrpc_cd($parser, $data)\r
+{ \r
+ global $_xh, $xmlrpc_backslash;\r
+\r
+ //if (ereg("^[\n\r \t]+$", $data)) return;\r
+ // print "adding [${data}]\n";\r
+\r
+ if ($_xh[$parser]['lv']!=3) {\r
+ // "lookforvalue==3" means that we've found an entire value\r
+ // and should discard any further character data\r
+ if ($_xh[$parser]['lv']==1) { \r
+ // if we've found text and we're just in a <value> then\r
+ // turn quoting on, as this will be a string\r
+ $_xh[$parser]['qt']=1; \r
+ // and say we've found a value\r
+ $_xh[$parser]['lv']=2; \r
+ }\r
+ // replace characters that eval would\r
+ // do special things with\r
+ $_xh[$parser]['ac'].=str_replace('$', '\$',\r
+ str_replace('"', '\"', str_replace(chr(92),\r
+ $xmlrpc_backslash, $data)));\r
+ }\r
+}\r
+\r
+function xmlrpc_dh($parser, $data)\r
+{\r
+ global $_xh;\r
+ if (substr($data, 0, 1) == "&" && substr($data, -1, 1) == ";") {\r
+ if ($_xh[$parser]['lv']==1) { \r
+ $_xh[$parser]['qt']=1; \r
+ $_xh[$parser]['lv']=2; \r
+ }\r
+ $_xh[$parser]['ac'].=str_replace('$', '\$',\r
+ str_replace('"', '\"', str_replace(chr(92),\r
+ $xmlrpc_backslash, $data)));\r
+ }\r
+}\r
+\r
+class xmlrpc_client {\r
+ var $path;\r
+ var $server;\r
+ var $port;\r
+ var $errno;\r
+ var $errstring;\r
+ var $debug=0;\r
+ var $username="";\r
+ var $password="";\r
+ var $cert="";\r
+ var $certpass="";\r
+ \r
+ function xmlrpc_client($path, $server, $port=0) {\r
+ $this->port=$port; $this->server=$server; $this->path=$path;\r
+ }\r
+\r
+ function setDebug($in) {\r
+ if ($in) { \r
+ $this->debug=1;\r
+ } else {\r
+ $this->debug=0;\r
+ }\r
+ }\r
+\r
+ function setCredentials($u, $p) {\r
+ $this->username=$u;\r
+ $this->password=$p;\r
+ }\r
+\r
+ function setCertificate($cert, $certpass) {\r
+ $this->cert = $cert;\r
+ $this->certpass = $certpass;\r
+ }\r
+\r
+ function send($msg, $timeout=0, $method='http') {\r
+ // where msg is an xmlrpcmsg\r
+ $msg->debug=$this->debug;\r
+ \r
+ if ($method == 'https') {\r
+ return $this->sendPayloadHTTPS($msg,\r
+ $this->server,\r
+ $this->port, $timeout,\r
+ $this->username, $this->password,\r
+ $this->cert,\r
+ $this->certpass);\r
+ } else {\r
+ return $this->sendPayloadHTTP10($msg, $this->server, $this->port,\r
+ $timeout, $this->username, \r
+ $this->password);\r
+ }\r
+ }\r
+\r
+ function sendPayloadHTTP10($msg, $server, $port, $timeout=0,\r
+ $username="", $password="") {\r
+ if ($port==0) $port=80;\r
+ if($timeout>0)\r
+ $fp=@fsockopen($server, $port,\r
+ $this->errno, $this->errstr, $timeout);\r
+ else\r
+ $fp=@fsockopen($server, $port,\r
+ $this->errno, $this->errstr);\r
+ if (!$fp) { \r
+ return 0;\r
+ }\r
+ // Only create the payload if it was not created previously\r
+ if(empty($msg->payload)) $msg->createPayload();\r
+ \r
+ // thanks to Grant Rauscher <grant7@firstworld.net>\r
+ // for this\r
+ $credentials="";\r
+ if ($username!="") {\r
+ $credentials="Authorization: Basic " .\r
+ base64_encode($username . ":" . $password) . "\r\n";\r
+ }\r
+ \r
+ $op= "POST " . $this->path. " HTTP/1.0\r\nUser-Agent: PHP XMLRPC 1.0\r\n" .\r
+ "Host: ". $this->server . "\r\n" .\r
+ $credentials . \r
+ "Content-Type: text/xml\r\nContent-Length: " .\r
+ strlen($msg->payload) . "\r\n\r\n" .\r
+ $msg->payload;\r
+ \r
+ if (!fputs($fp, $op, strlen($op))) {\r
+ $this->errstr="Write error";\r
+ return 0;\r
+ }\r
+ $resp=$msg->parseResponseFile($fp);\r
+ fclose($fp);\r
+ return $resp;\r
+ }\r
+\r
+ // contributed by Justin Miller <justin@voxel.net>\r
+ // requires curl to be built into PHP\r
+ function sendPayloadHTTPS($msg, $server, $port, $timeout=0,\r
+ $username="", $password="", $cert="",\r
+ $certpass="") {\r
+ global $xmlrpcerr, $xmlrpcstr;\r
+ if ($port == 0) $port = 443;\r
+ \r
+ // Only create the payload if it was not created previously\r
+ if(empty($msg->payload)) $msg->createPayload();\r
+ \r
+ if (!function_exists("curl_init")) {\r
+ $r=new xmlrpcresp(0, $xmlrpcerr["no_ssl"],\r
+ $xmlrpcstr["no_ssl"]);\r
+ return $r;\r
+ }\r
+\r
+ $curl = curl_init("https://" . $server . ':' . $port .\r
+ $this->path);\r
+ \r
+ curl_setopt($curl, CURLOPT_RETURNTRANSFER, 1);\r
+ // results into variable\r
+ if ($this->debug) {\r
+ curl_setopt($curl, CURLOPT_VERBOSE, 1);\r
+ }\r
+ curl_setopt($curl, CURLOPT_USERAGENT, 'PHP XMLRPC 1.0');\r
+ // required for XMLRPC\r
+ curl_setopt($curl, CURLOPT_POST, 1);\r
+ // post the data\r
+ curl_setopt($curl, CURLOPT_POSTFIELDS, $msg->payload);\r
+ // the data\r
+ curl_setopt($curl, CURLOPT_HEADER, 1);\r
+ // return the header too\r
+ curl_setopt($curl, CURLOPT_HTTPHEADER, array('Content-Type: text/xml'));\r
+ // required for XMLRPC\r
+ if ($timeout) curl_setopt($curl, CURLOPT_TIMEOUT, $timeout == 1 ? 1 :\r
+ $timeout - 1);\r
+ // timeout is borked\r
+ if ($username && $password) curl_setopt($curl, CURLOPT_USERPWD,\r
+ "$username:$password"); \r
+ // set auth stuff\r
+ if ($cert) curl_setopt($curl, CURLOPT_SSLCERT, $cert);\r
+ // set cert file\r
+ if ($certpass) curl_setopt($curl, CURLOPT_SSLCERTPASSWD,\r
+ $certpass); \r
+ // set cert password\r
+ \r
+ $result = curl_exec($curl);\r
+ \r
+ if (!$result) {\r
+ $resp=new xmlrpcresp(0, \r
+ $xmlrpcerr["curl_fail"],\r
+ $xmlrpcstr["curl_fail"]. ": ". \r
+ curl_error($curl));\r
+ } else {\r
+ $resp = $msg->parseResponse($result);\r
+ }\r
+ curl_close($curl);\r
+ return $resp;\r
+ }\r
+\r
+} // end class xmlrpc_client\r
+\r
+class xmlrpcresp {\r
+ var $xv;\r
+ var $fn;\r
+ var $fs;\r
+ var $hdrs;\r
+\r
+ function xmlrpcresp($val, $fcode=0, $fstr="") {\r
+ if ($fcode!=0) {\r
+ $this->xv=0;\r
+ $this->fn=$fcode;\r
+ $this->fs=htmlspecialchars($fstr);\r
+ } else {\r
+ $this->xv=$val;\r
+ $this->fn=0;\r
+ }\r
+ }\r
+\r
+ function faultCode() { \r
+ if (isset($this->fn)) \r
+ return $this->fn;\r
+ else\r
+ return 0; \r
+ }\r
+\r
+ function faultString() { return $this->fs; }\r
+ function value() { return $this->xv; }\r
+\r
+ function serialize() { \r
+ $rs="<methodResponse>\n";\r
+ if ($this->fn) {\r
+ $rs.="<fault>\r
+ <value>\r
+ <struct>\r
+ <member>\r
+ <name>faultCode</name>\r
+ <value><int>" . $this->fn . "</int></value>\r
+ </member>\r
+ <member>\r
+ <name>faultString</name>\r
+ <value><string>" . $this->fs . "</string></value>\r
+ </member>\r
+ </struct>\r
+ </value>\r
+</fault>";\r
+ } else {\r
+ $rs.="<params>\n<param>\n" . $this->xv->serialize() . \r
+ "</param>\n</params>";\r
+ }\r
+ $rs.="\n</methodResponse>";\r
+ return $rs;\r
+ }\r
+}\r
+\r
+class xmlrpcmsg {\r
+ var $payload;\r
+ var $methodname;\r
+ var $params=array();\r
+ var $debug=0;\r
+\r
+ function xmlrpcmsg($meth, $pars=0) {\r
+ $this->methodname=$meth;\r
+ if (is_array($pars) && sizeof($pars)>0) {\r
+ for($i=0; $i<sizeof($pars); $i++) \r
+ $this->addParam($pars[$i]);\r
+ }\r
+ }\r
+\r
+ function xml_header() {\r
+ return "<" . "?xml version=\"1.0\"?".">\n<methodCall>\n";\r
+ }\r
+\r
+ function xml_footer() {\r
+ return "</methodCall>\n";\r
+ }\r
+\r
+ function createPayload() {\r
+ $this->payload=$this->xml_header();\r
+ $this->payload.="<methodName>" . $this->methodname . "</methodName>\n";\r
+ // if (sizeof($this->params)) {\r
+ $this->payload.="<params>\n";\r
+ for($i=0; $i<sizeof($this->params); $i++) {\r
+ $p=$this->params[$i];\r
+ $this->payload.="<param>\n" . $p->serialize() .\r
+ "</param>\n";\r
+ }\r
+ $this->payload.="</params>\n";\r
+ // }\r
+ $this->payload.=$this->xml_footer();\r
+ $this->payload=str_replace("\n", "\r\n", $this->payload);\r
+ }\r
+\r
+ function method($meth="") {\r
+ if ($meth!="") {\r
+ $this->methodname=$meth;\r
+ }\r
+ return $this->methodname;\r
+ }\r
+\r
+ function serialize() {\r
+ $this->createPayload();\r
+ return $this->payload;\r
+ }\r
+\r
+ function addParam($par) { $this->params[]=$par; }\r
+ function getParam($i) { return $this->params[$i]; }\r
+ function getNumParams() { return sizeof($this->params); }\r
+\r
+ function parseResponseFile($fp) {\r
+ $ipd="";\r
+\r
+ while($data=fread($fp, 32768)) {\r
+ $ipd.=$data;\r
+ }\r
+ return $this->parseResponse($ipd);\r
+ }\r
+\r
+ function parseResponse($data="") {\r
+ global $_xh,$xmlrpcerr,$xmlrpcstr;\r
+ global $xmlrpc_defencoding;\r
+\r
+ \r
+ $parser = xml_parser_create($xmlrpc_defencoding);\r
+\r
+ $_xh[$parser]=array();\r
+\r
+ $_xh[$parser]['st']=""; \r
+ $_xh[$parser]['cm']=0; \r
+ $_xh[$parser]['isf']=0; \r
+ $_xh[$parser]['ac']="";\r
+ $_xh[$parser]['qt']="";\r
+ $_xh[$parser]['ha']="";\r
+ $_xh[$parser]['ac']="";\r
+\r
+ xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);\r
+ xml_set_element_handler($parser, "xmlrpc_se", "xmlrpc_ee");\r
+ xml_set_character_data_handler($parser, "xmlrpc_cd");\r
+ xml_set_default_handler($parser, "xmlrpc_dh");\r
+ $xmlrpc_value=new xmlrpcval;\r
+\r
+ if ($this->debug)\r
+ print "<PRE>---GOT---\n" . htmlspecialchars($data) . \r
+ "\n---END---\n</PRE>";\r
+ if ($data=="") {\r
+ error_log("No response received from server.");\r
+ $r=new xmlrpcresp(0, $xmlrpcerr["no_data"],\r
+ $xmlrpcstr["no_data"]);\r
+ xml_parser_free($parser);\r
+ return $r;\r
+ }\r
+ // see if we got an HTTP 200 OK, else bomb\r
+ // but only do this if we're using the HTTP protocol.\r
+ if (ereg("^HTTP",$data) && \r
+ !ereg("^HTTP/[0-9\.]+ 200 ", $data)) {\r
+ $errstr= substr($data, 0, strpos($data, "\n")-1);\r
+ error_log("HTTP error, got response: " .$errstr);\r
+ $r=new xmlrpcresp(0, $xmlrpcerr["http_error"],\r
+ $xmlrpcstr["http_error"]. " (" . $errstr . ")");\r
+ xml_parser_free($parser);\r
+ return $r;\r
+ }\r
+\r
+ // if using HTTP, then gotta get rid of HTTP headers here\r
+ // and we store them in the 'ha' bit of our data array\r
+ if (ereg("^HTTP", $data)) {\r
+ $ar=explode("\r\n", $data);\r
+ $newdata="";\r
+ $hdrfnd=0;\r
+ for ($i=0; $i<sizeof($ar); $i++) {\r
+ if (!$hdrfnd) {\r
+ if (strlen($ar[$i])>0) {\r
+ $_xh[$parser]['ha'].=$ar[$i]. "\r\n";\r
+ } else {\r
+ $hdrfnd=1; \r
+ }\r
+ } else {\r
+ $newdata.=$ar[$i] . "\r\n";\r
+ }\r
+ }\r
+ $data=$newdata;\r
+ }\r
+ \r
+ if (!xml_parse($parser, $data, sizeof($data))) {\r
+ // thanks to Peter Kocks <peter.kocks@baygate.com>\r
+ if((xml_get_current_line_number($parser)) == 1) \r
+ $errstr = "XML error at line 1, check URL";\r
+ else\r
+ $errstr = sprintf("XML error: %s at line %d",\r
+ xml_error_string(xml_get_error_code($parser)),\r
+ xml_get_current_line_number($parser));\r
+ error_log($errstr);\r
+ $r=new xmlrpcresp(0, $xmlrpcerr["invalid_return"],\r
+ $xmlrpcstr["invalid_return"]);\r
+ xml_parser_free($parser);\r
+ return $r;\r
+ }\r
+ xml_parser_free($parser);\r
+ if ($this->debug) {\r
+ print "<PRE>---EVALING---[" . \r
+ strlen($_xh[$parser]['st']) . " chars]---\n" . \r
+ htmlspecialchars($_xh[$parser]['st']) . ";\n---END---</PRE>";\r
+ }\r
+ if (strlen($_xh[$parser]['st'])==0) {\r
+ // then something odd has happened\r
+ // and it's time to generate a client side error\r
+ // indicating something odd went on\r
+ $r=new xmlrpcresp(0, $xmlrpcerr["invalid_return"],\r
+ $xmlrpcstr["invalid_return"]);\r
+ } else {\r
+ eval('$v=' . $_xh[$parser]['st'] . '; $allOK=1;');\r
+ if ($_xh[$parser]['isf']) {\r
+ $f=$v->structmem("faultCode");\r
+ $fs=$v->structmem("faultString");\r
+ $r=new xmlrpcresp($v, $f->scalarval(), \r
+ $fs->scalarval());\r
+ } else {\r
+ $r=new xmlrpcresp($v);\r
+ }\r
+ }\r
+ $r->hdrs=split("\r?\n", $_xh[$parser]['ha']);\r
+ return $r;\r
+ }\r
+\r
+}\r
+\r
+class xmlrpcval {\r
+ var $me=array();\r
+ var $mytype=0;\r
+\r
+ function xmlrpcval($val=-1, $type="") {\r
+ global $xmlrpcTypes;\r
+ $this->me=array();\r
+ $this->mytype=0;\r
+ if ($val!=-1 || $type!="") {\r
+ if ($type=="") $type="string";\r
+ if ($xmlrpcTypes[$type]==1) {\r
+ $this->addScalar($val,$type);\r
+ }\r
+ else if ($xmlrpcTypes[$type]==2)\r
+ $this->addArray($val);\r
+ else if ($xmlrpcTypes[$type]==3)\r
+ $this->addStruct($val);\r
+ }\r
+ }\r
+\r
+ function addScalar($val, $type="string") {\r
+ global $xmlrpcTypes, $xmlrpcBoolean;\r
+\r
+ if ($this->mytype==1) {\r
+ echo "<B>xmlrpcval</B>: scalar can have only one value<BR>";\r
+ return 0;\r
+ }\r
+ $typeof=$xmlrpcTypes[$type];\r
+ if ($typeof!=1) {\r
+ echo "<B>xmlrpcval</B>: not a scalar type (${typeof})<BR>";\r
+ return 0;\r
+ }\r
+ \r
+ if ($type==$xmlrpcBoolean) {\r
+ if (strcasecmp($val,"true")==0 || \r
+ $val==1 || ($val==true &&\r
+ strcasecmp($val,"false"))) {\r
+ $val=1;\r
+ } else {\r
+ $val=0;\r
+ }\r
+ }\r
+ \r
+ if ($this->mytype==2) {\r
+ // we're adding to an array here\r
+ $ar=$this->me["array"];\r
+ $ar[]=new xmlrpcval($val, $type);\r
+ $this->me["array"]=$ar;\r
+ } else {\r
+ // a scalar, so set the value and remember we're scalar\r
+ $this->me[$type]=$val;\r
+ $this->mytype=$typeof;\r
+ }\r
+ return 1;\r
+ }\r
+\r
+ function addArray($vals) {\r
+ global $xmlrpcTypes;\r
+ if ($this->mytype!=0) {\r
+ echo "<B>xmlrpcval</B>: already initialized as a [" . \r
+ $this->kindOf() . "]<BR>";\r
+ return 0;\r
+ }\r
+\r
+ $this->mytype=$xmlrpcTypes["array"];\r
+ $this->me["array"]=$vals;\r
+ return 1;\r
+ }\r
+\r
+ function addStruct($vals) {\r
+ global $xmlrpcTypes;\r
+ if ($this->mytype!=0) {\r
+ echo "<B>xmlrpcval</B>: already initialized as a [" . \r
+ $this->kindOf() . "]<BR>";\r
+ return 0;\r
+ }\r
+ $this->mytype=$xmlrpcTypes["struct"];\r
+ $this->me["struct"]=$vals;\r
+ return 1;\r
+ }\r
+\r
+ function dump($ar) {\r
+ reset($ar);\r
+ while ( list( $key, $val ) = each( $ar ) ) {\r
+ echo "$key => $val<br>";\r
+ if ($key == 'array')\r
+ while ( list( $key2, $val2 ) = each( $val ) ) {\r
+ echo "-- $key2 => $val2<br>";\r
+ }\r
+ }\r
+ }\r
+\r
+ function kindOf() {\r
+ switch($this->mytype) {\r
+ case 3:\r
+ return "struct";\r
+ break;\r
+ case 2:\r
+ return "array";\r
+ break;\r
+ case 1:\r
+ return "scalar";\r
+ break;\r
+ default:\r
+ return "undef";\r
+ }\r
+ }\r
+\r
+ function serializedata($typ, $val) {\r
+ $rs="";\r
+ global $xmlrpcTypes, $xmlrpcBase64, $xmlrpcString,\r
+ $xmlrpcBoolean;\r
+ switch($xmlrpcTypes[$typ]) {\r
+ case 3:\r
+ // struct\r
+ $rs.="<struct>\n";\r
+ reset($val);\r
+ while(list($key2, $val2)=each($val)) {\r
+ $rs.="<member><name>${key2}</name>\n";\r
+ $rs.=$this->serializeval($val2);\r
+ $rs.="</member>\n";\r
+ }\r
+ $rs.="</struct>";\r
+ break;\r
+ case 2:\r
+ // array\r
+ $rs.="<array>\n<data>\n";\r
+ for($i=0; $i<sizeof($val); $i++) {\r
+ $rs.=$this->serializeval($val[$i]);\r
+ }\r
+ $rs.="</data>\n</array>";\r
+ break;\r
+ case 1:\r
+ switch ($typ) {\r
+ case $xmlrpcBase64:\r
+ $rs.="<${typ}>" . base64_encode($val) . "</${typ}>";\r
+ break;\r
+ case $xmlrpcBoolean:\r
+ $rs.="<${typ}>" . ($val ? "1" : "0") . "</${typ}>";\r
+ break;\r
+ case $xmlrpcString:\r
+ $rs.="<${typ}>" . htmlspecialchars($val). "</${typ}>";\r
+ break;\r
+ default:\r
+ $rs.="<${typ}>${val}</${typ}>";\r
+ }\r
+ break;\r
+ default:\r
+ break;\r
+ }\r
+ return $rs;\r
+ }\r
+\r
+ function serialize() {\r
+ return $this->serializeval($this);\r
+ }\r
+\r
+ function serializeval($o) {\r
+ global $xmlrpcTypes;\r
+ $rs="";\r
+ $ar=$o->me;\r
+ reset($ar);\r
+ list($typ, $val) = each($ar);\r
+ $rs.="<value>";\r
+ $rs.=$this->serializedata($typ, $val);\r
+ $rs.="</value>\n";\r
+ return $rs;\r
+ }\r
+\r
+ function structmem($m) {\r
+ $nv=$this->me["struct"][$m];\r
+ return $nv;\r
+ }\r
+\r
+ function structreset() {\r
+ reset($this->me["struct"]);\r
+ }\r
+ \r
+ function structeach() {\r
+ return each($this->me["struct"]);\r
+ }\r
+\r
+ function getval() {\r
+ // UNSTABLE\r
+ global $xmlrpcBoolean, $xmlrpcBase64;\r
+ reset($this->me);\r
+ list($a,$b)=each($this->me);\r
+ // contributed by I Sofer, 2001-03-24\r
+ // add support for nested arrays to scalarval\r
+ // i've created a new method here, so as to\r
+ // preserve back compatibility\r
+\r
+ if (is_array($b)) {\r
+ foreach ($b as $id => $cont) {\r
+ $b[$id] = $cont->scalarval();\r
+ }\r
+ }\r
+\r
+ // add support for structures directly encoding php objects\r
+ if (is_object($b)) {\r
+ $t = get_object_vars($b);\r
+ foreach ($t as $id => $cont) {\r
+ $t[$id] = $cont->scalarval();\r
+ }\r
+ foreach ($t as $id => $cont) {\r
+ eval('$b->'.$id.' = $cont;');\r
+ }\r
+ }\r
+ // end contrib\r
+ return $b;\r
+ }\r
+\r
+ function scalarval() {\r
+ global $xmlrpcBoolean, $xmlrpcBase64;\r
+ reset($this->me);\r
+ list($a,$b)=each($this->me);\r
+ return $b;\r
+ }\r
+\r
+ function scalartyp() {\r
+ global $xmlrpcI4, $xmlrpcInt;\r
+ reset($this->me);\r
+ list($a,$b)=each($this->me);\r
+ if ($a==$xmlrpcI4) \r
+ $a=$xmlrpcInt;\r
+ return $a;\r
+ }\r
+\r
+ function arraymem($m) {\r
+ $nv=$this->me["array"][$m];\r
+ return $nv;\r
+ }\r
+\r
+ function arraysize() {\r
+ reset($this->me);\r
+ list($a,$b)=each($this->me);\r
+ return sizeof($b);\r
+ }\r
+}\r
+\r
+// date helpers\r
+function iso8601_encode($timet, $utc=0) {\r
+ // return an ISO8601 encoded string\r
+ // really, timezones ought to be supported\r
+ // but the XML-RPC spec says:\r
+ //\r
+ // "Don't assume a timezone. It should be specified by the server in its\r
+ // documentation what assumptions it makes about timezones."\r
+ // \r
+ // these routines always assume localtime unless \r
+ // $utc is set to 1, in which case UTC is assumed\r
+ // and an adjustment for locale is made when encoding\r
+ if (!$utc) {\r
+ $t=strftime("%Y%m%dT%H:%M:%S", $timet);\r
+ } else {\r
+ if (function_exists("gmstrftime")) \r
+ // gmstrftime doesn't exist in some versions\r
+ // of PHP\r
+ $t=gmstrftime("%Y%m%dT%H:%M:%S", $timet);\r
+ else {\r
+ $t=strftime("%Y%m%dT%H:%M:%S", $timet-date("Z"));\r
+ }\r
+ }\r
+ return $t;\r
+}\r
+\r
+function iso8601_decode($idate, $utc=0) {\r
+ // return a timet in the localtime, or UTC\r
+ $t=0;\r
+ if (ereg("([0-9]{4})([0-9]{2})([0-9]{2})T([0-9]{2}):([0-9]{2}):([0-9]{2})",\r
+ $idate, $regs)) {\r
+ if ($utc) {\r
+ $t=gmmktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);\r
+ } else {\r
+ $t=mktime($regs[4], $regs[5], $regs[6], $regs[2], $regs[3], $regs[1]);\r
+ }\r
+ } \r
+ return $t;\r
+}\r
+\r
+/****************************************************************\r
+* xmlrpc_decode takes a message in PHP xmlrpc object format and *\r
+* tranlates it into native PHP types. *\r
+* *\r
+* author: Dan Libby (dan@libby.com) *\r
+****************************************************************/\r
+function _xmlrpc_decode($xmlrpc_val) {\r
+ $kind = $xmlrpc_val->kindOf();\r
+\r
+ if($kind == "scalar") {\r
+ return $xmlrpc_val->scalarval();\r
+ }\r
+ else if($kind == "array") {\r
+ $size = $xmlrpc_val->arraysize();\r
+ $arr = array();\r
+\r
+ for($i = 0; $i < $size; $i++) {\r
+ $arr[]=_xmlrpc_decode($xmlrpc_val->arraymem($i));\r
+ }\r
+ return $arr; \r
+ }\r
+ else if($kind == "struct") {\r
+ $xmlrpc_val->structreset();\r
+ $arr = array();\r
+\r
+ while(list($key,$value)=$xmlrpc_val->structeach()) {\r
+ $arr[$key] = _xmlrpc_decode($value);\r
+ }\r
+ return $arr;\r
+ }\r
+}\r
+\r
+/****************************************************************\r
+* xmlrpc_encode takes native php types and encodes them into *\r
+* xmlrpc PHP object format. *\r
+* BUG: All sequential arrays are turned into structs. I don't *\r
+* know of a good way to determine if an array is sequential *\r
+* only. *\r
+* *\r
+* feature creep -- could support more types via optional type *\r
+* argument. *\r
+* *\r
+* author: Dan Libby (dan@libby.com) *\r
+****************************************************************/\r
+function _xmlrpc_encode($php_val) {\r
+ global $xmlrpcInt;\r
+ global $xmlrpcDouble;\r
+ global $xmlrpcString;\r
+ global $xmlrpcArray;\r
+ global $xmlrpcStruct;\r
+ global $xmlrpcBoolean;\r
+\r
+ $type = gettype($php_val);\r
+ $xmlrpc_val = new xmlrpcval;\r
+\r
+ switch($type) {\r
+ case "array":\r
+ case "object":\r
+ $arr = array();\r
+ while (list($k,$v) = each($php_val)) {\r
+ $arr[$k] = _xmlrpc_encode($v);\r
+ }\r
+ $xmlrpc_val->addStruct($arr);\r
+ break;\r
+ case "integer":\r
+ $xmlrpc_val->addScalar($php_val, $xmlrpcInt);\r
+ break;\r
+ case "double":\r
+ $xmlrpc_val->addScalar($php_val, $xmlrpcDouble);\r
+ break;\r
+ case "string":\r
+ $xmlrpc_val->addScalar($php_val, $xmlrpcString);\r
+ break;\r
+// <G_Giunta_2001-02-29>\r
+// Add support for encoding/decoding of booleans, since they are supported in PHP\r
+ case "boolean":\r
+ $xmlrpc_val->addScalar($php_val, $xmlrpcBoolean);\r
+ break;\r
+// </G_Giunta_2001-02-29>\r
+ case "unknown type":\r
+ default:\r
+ // giancarlo pinerolo <ping@alt.it>\r
+ // it has to return \r
+ // an empty object in case (which is already\r
+ // at this point), not a boolean. \r
+ break;\r
+ }\r
+ return $xmlrpc_val;\r
+}\r
+\r
+?>\r