-<?php // -*-c++-*-\r
-// by Edd Dumbill (C) 1999-2001\r
-// <edd@usefulinc.com>\r
-// $Id: xmlrpc.inc.php,v 1.4 2005-03-08 06:49:33 kimitake Exp $\r
-// $NucleusJP$\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
+<?php // -*-c++-*-
+// by Edd Dumbill (C) 1999-2002
+// <edd@usefulinc.com>
+// $Id: xmlrpc.inc.php,v 1.6 2006-07-12 07:11:47 kimitake Exp $
+// $NucleusJP: xmlrpc.inc.php,v 1.5 2005/08/13 07:24:44 kimitake Exp $
+
+
+// Copyright (c) 1999,2000,2002 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');
+ }
+ }
+
+ // G. Giunta 2005/01/29: declare global these variables,
+ // so that xmlrpc.inc will work even if included from within a function
+ // NB: it will give warnings in PHP3, so we comment it out
+ // Milosch: Next round, maybe we should explicitly request these via $GLOBALS where used.
+ if (phpversion() >= '4')
+ {
+ global $xmlrpcI4;
+ global $xmlrpcInt;
+ global $xmlrpcDouble;
+ global $xmlrpcBoolean;
+ global $xmlrpcString;
+ global $xmlrpcDateTime;
+ global $xmlrpcBase64;
+ global $xmlrpcArray;
+ global $xmlrpcStruct;
+
+ global $xmlrpcTypes;
+ global $xmlEntities;
+ global $xmlrpcerr;
+ global $xmlrpcstr;
+ global $xmlrpc_defencoding;
+ global $xmlrpc_internalencoding;
+ global $xmlrpcName;
+ global $xmlrpcVersion;
+ global $xmlrpcerruser;
+ global $xmlrpcerrxml;
+ global $xmlrpc_backslash;
+ global $_xh;
+ }
+ $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
+ );
+
+ $xmlrpc_valid_parents = array(
+ 'BOOLEAN' => array('VALUE' => 'VALUE'),
+ 'I4' => array('VALUE' => 'VALUE'),
+ 'INT' => array('VALUE' => 'VALUE'),
+ 'STRING' => array('VALUE' => 'VALUE'),
+ 'DOUBLE' => array('VALUE' => 'VALUE'),
+ 'DATETIME.ISO8601' => array('VALUE' => 'VALUE'),
+ 'BASE64' => array('VALUE' => 'VALUE'),
+ 'ARRAY' => array('VALUE' => 'VALUE'),
+ 'STRUCT' => array('VALUE' => 'VALUE'),
+ 'PARAM' => array('PARAMS' => 'PARAMS'),
+ 'METHODNAME' => array('METHODCALL' => 'METHODCALL'),
+ 'PARAMS' => array('METHODCALL' => 'METHODCALL', 'METHODRESPONSE' => 'METHODRESPONSE'),
+ 'MEMBER' => array('STRUCT' => 'STRUCT'),
+ 'NAME' => array('MEMBER' => 'MEMBER'),
+ 'DATA' => array('ARRAY' => 'ARRAY'),
+ 'FAULT' => array('METHODRESPONSE' => 'METHODRESPONSE'),
+ 'VALUE' => array('MEMBER' => 'MEMBER', 'DATA' => 'DATA', 'PARAM' => 'PARAM', 'FAULT' => 'FAULT')
+ );
+
+ $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: enable 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';
+ $xmlrpcerr['invalid_request']=15;
+ $xmlrpcstr['invalid_request']='Invalid request payload';
+
+ $xmlrpcerr['multicall_notstruct'] = 9;
+ $xmlrpcstr['multicall_notstruct'] = 'system.multicall expected struct';
+ $xmlrpcerr['multicall_nomethod'] = 10;
+ $xmlrpcstr['multicall_nomethod'] = 'missing methodName';
+ $xmlrpcerr['multicall_notstring'] = 11;
+ $xmlrpcstr['multicall_notstring'] = 'methodName is not a string';
+ $xmlrpcerr['multicall_recursion'] = 12;
+ $xmlrpcstr['multicall_recursion'] = 'recursive system.multicall forbidden';
+ $xmlrpcerr['multicall_noparams'] = 13;
+ $xmlrpcstr['multicall_noparams'] = 'missing params';
+ $xmlrpcerr['multicall_notarray'] = 14;
+ $xmlrpcstr['multicall_notarray'] = 'params is not an array';
+
+ // The charset encoding expected by the server for received messages and
+ // by the client for received responses
+ $xmlrpc_defencoding='UTF-8';
+ // The encoding used by PHP.
+ // String values received will be converted to this.
+ $xmlrpc_internalencoding='ISO-8859-1';
+
+ $xmlrpcName='XML-RPC for PHP';
+ $xmlrpcVersion='1.2.1';
+
+ // 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:
+ // ac - used to accumulate values
+ // 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
+ // stack - array with genealogy of xml elements names:
+ // used to validate nesting of xmlrpc elements
+
+ $_xh=array();
+
+ /**
+ * To help correct communication of non-ascii chars inside strings, regardless
+ * of the charset used when sending requests, parsing them, sending responses
+ * and parsing responses, convert all non-ascii chars present in the message
+ * into their equivalent 'charset entity'. Charset entities enumerated this way
+ * are independent of the charset encoding used to transmit them, and all XML
+ * parsers are bound to understand them.
+ */
+ 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 '?';
+ }
+
+ /**
+ * These entities originate from HTML specs (1.1, proposed 2.0, etc),
+ * and are taken directly from php-4.3.1/ext/mbstring/html_entities.c.
+ * Until php provides functionality to translate these entities in its
+ * core library, use this function.
+ */
+ function xmlrpc_html_entity_xlate($data = '')
+ {
+ $entities = array(
+ " " => " ",
+ "¡" => "¡",
+ "¢" => "¢",
+ "£" => "£",
+ "¤" => "¤",
+ "¥" => "¥",
+ "¦" => "¦",
+ "§" => "§",
+ "¨" => "¨",
+ "©" => "©",
+ "ª" => "ª",
+ "«" => "«",
+ "¬" => "¬",
+ "­" => "­",
+ "®" => "®",
+ "¯" => "¯",
+ "°" => "°",
+ "±" => "±",
+ "²" => "²",
+ "³" => "³",
+ "´" => "´",
+ "µ" => "µ",
+ "¶" => "¶",
+ "·" => "·",
+ "¸" => "¸",
+ "¹" => "¹",
+ "º" => "º",
+ "»" => "»",
+ "¼" => "¼",
+ "½" => "½",
+ "¾" => "¾",
+ "¿" => "¿",
+ "À" => "À",
+ "Á" => "Á",
+ "Â" => "Â",
+ "Ã" => "Ã",
+ "Ä" => "Ä",
+ "Å" => "Å",
+ "Æ" => "Æ",
+ "Ç" => "Ç",
+ "È" => "È",
+ "É" => "É",
+ "Ê" => "Ê",
+ "Ë" => "Ë",
+ "Ì" => "Ì",
+ "Í" => "Í",
+ "Î" => "Î",
+ "Ï" => "Ï",
+ "Ð" => "Ð",
+ "Ñ" => "Ñ",
+ "Ò" => "Ò",
+ "Ó" => "Ó",
+ "Ô" => "Ô",
+ "Õ" => "Õ",
+ "Ö" => "Ö",
+ "×" => "×",
+ "Ø" => "Ø",
+ "Ù" => "Ù",
+ "Ú" => "Ú",
+ "Û" => "Û",
+ "Ü" => "Ü",
+ "Ý" => "Ý",
+ "Þ" => "Þ",
+ "ß" => "ß",
+ "à" => "à",
+ "á" => "á",
+ "â" => "â",
+ "ã" => "ã",
+ "ä" => "ä",
+ "å" => "å",
+ "æ" => "æ",
+ "ç" => "ç",
+ "è" => "è",
+ "é" => "é",
+ "ê" => "ê",
+ "ë" => "ë",
+ "ì" => "ì",
+ "í" => "í",
+ "î" => "î",
+ "ï" => "ï",
+ "ð" => "ð",
+ "ñ" => "ñ",
+ "ò" => "ò",
+ "ó" => "ó",
+ "ô" => "ô",
+ "õ" => "õ",
+ "ö" => "ö",
+ "÷" => "÷",
+ "ø" => "ø",
+ "ù" => "ù",
+ "ú" => "ú",
+ "û" => "û",
+ "ü" => "ü",
+ "ý" => "ý",
+ "þ" => "þ",
+ "ÿ" => "ÿ",
+ "Œ" => "Œ",
+ "œ" => "œ",
+ "Š" => "Š",
+ "š" => "š",
+ "Ÿ" => "Ÿ",
+ "ƒ" => "ƒ",
+ "ˆ" => "ˆ",
+ "˜" => "˜",
+ "Α" => "Α",
+ "Β" => "Β",
+ "Γ" => "Γ",
+ "Δ" => "Δ",
+ "Ε" => "Ε",
+ "Ζ" => "Ζ",
+ "Η" => "Η",
+ "Θ" => "Θ",
+ "Ι" => "Ι",
+ "Κ" => "Κ",
+ "Λ" => "Λ",
+ "Μ" => "Μ",
+ "Ν" => "Ν",
+ "Ξ" => "Ξ",
+ "Ο" => "Ο",
+ "Π" => "Π",
+ "Ρ" => "Ρ",
+ "Σ" => "Σ",
+ "Τ" => "Τ",
+ "Υ" => "Υ",
+ "Φ" => "Φ",
+ "Χ" => "Χ",
+ "Ψ" => "Ψ",
+ "Ω" => "Ω",
+ "β" => "β",
+ "γ" => "γ",
+ "δ" => "δ",
+ "ε" => "ε",
+ "ζ" => "ζ",
+ "η" => "η",
+ "θ" => "θ",
+ "ι" => "ι",
+ "κ" => "κ",
+ "λ" => "λ",
+ "μ" => "μ",
+ "ν" => "ν",
+ "ξ" => "ξ",
+ "ο" => "ο",
+ "π" => "π",
+ "ρ" => "ρ",
+ "ς" => "ς",
+ "σ" => "σ",
+ "τ" => "τ",
+ "υ" => "υ",
+ "φ" => "φ",
+ "χ" => "χ",
+ "ψ" => "ψ",
+ "ω" => "ω",
+ "ϑ" => "ϑ",
+ "ϒ" => "ϒ",
+ "ϖ" => "ϖ",
+ " " => " ",
+ " " => " ",
+ " " => " ",
+ "‌" => "‌",
+ "‍" => "‍",
+ "‎" => "‎",
+ "‏" => "‏",
+ "–" => "–",
+ "—" => "—",
+ "‘" => "‘",
+ "’" => "’",
+ "‚" => "‚",
+ "“" => "“",
+ "”" => "”",
+ "„" => "„",
+ "†" => "†",
+ "‡" => "‡",
+ "•" => "•",
+ "…" => "…",
+ "‰" => "‰",
+ "′" => "′",
+ "″" => "″",
+ "‹" => "‹",
+ "›" => "›",
+ "‾" => "‾",
+ "⁄" => "⁄",
+ "€" => "€",
+ "℘" => "℘",
+ "ℑ" => "ℑ",
+ "ℜ" => "ℜ",
+ "™" => "™",
+ "ℵ" => "ℵ",
+ "←" => "←",
+ "↑" => "↑",
+ "→" => "→",
+ "↓" => "↓",
+ "↔" => "↔",
+ "↵" => "↵",
+ "⇐" => "⇐",
+ "⇑" => "⇑",
+ "⇒" => "⇒",
+ "⇓" => "⇓",
+ "⇔" => "⇔",
+ "∀" => "∀",
+ "∂" => "∂",
+ "∃" => "∃",
+ "∅" => "∅",
+ "∇" => "∇",
+ "∈" => "∈",
+ "∉" => "∉",
+ "∋" => "∋",
+ "∏" => "∏",
+ "∑" => "∑",
+ "−" => "−",
+ "∗" => "∗",
+ "√" => "√",
+ "∝" => "∝",
+ "∞" => "∞",
+ "∠" => "∠",
+ "∧" => "∧",
+ "∨" => "∨",
+ "∩" => "∩",
+ "∪" => "∪",
+ "∫" => "∫",
+ "∴" => "∴",
+ "∼" => "∼",
+ "≅" => "≅",
+ "≈" => "≈",
+ "≠" => "≠",
+ "≡" => "≡",
+ "≤" => "≤",
+ "≥" => "≥",
+ "⊂" => "⊂",
+ "⊃" => "⊃",
+ "⊄" => "⊄",
+ "⊆" => "⊆",
+ "⊇" => "⊇",
+ "⊕" => "⊕",
+ "⊗" => "⊗",
+ "⊥" => "⊥",
+ "⋅" => "⋅",
+ "⌈" => "⌈",
+ "⌉" => "⌉",
+ "⌊" => "⌊",
+ "⌋" => "⌋",
+ "⟨" => "〈",
+ "⟩" => "〉",
+ "◊" => "◊",
+ "♠" => "♠",
+ "♣" => "♣",
+ "♥" => "♥",
+ "♦" => "♦");
+ return strtr($data, $entities);
+ }
+
+ function xmlrpc_encode_entitites($data)
+ {
+ $length = strlen($data);
+ $escapeddata = "";
+ for($position = 0; $position < $length; $position++)
+ {
+ $character = substr($data, $position, 1);
+ $code = Ord($character);
+ switch($code) {
+ case 34:
+ $character = """;
+ break;
+ case 38:
+ $character = "&";
+ break;
+ case 39:
+ $character = "'";
+ break;
+ case 60:
+ $character = "<";
+ break;
+ case 62:
+ $character = ">";
+ break;
+ default:
+ if ($code < 32 || $code > 159)
+ $character = ("&#".strval($code).";");
+ break;
+ }
+ $escapeddata .= $character;
+ }
+ return $escapeddata;
+ }
+
+ function xmlrpc_se($parser, $name, $attrs)
+ {
+ global $_xh, $xmlrpcDateTime, $xmlrpcString, $xmlrpc_valid_parents;
+
+ // if invalid xmlrpc already detected, skip all processing
+ if ($_xh[$parser]['isf'] < 2)
+ {
+
+ // check for correct element nesting
+ // top level element can only be of 2 types
+ if ($_xh[$parser]['sp'] == 0)
+ {
+ if ($name != 'METHODRESPONSE' && $name != 'METHODCALL')
+ {
+ $_xh[$parser]['isf'] = 2;
+ $_xh[$parser]['isf_reason'] = 'missing top level xmlrpc element';
+ return;
+ }
+ }
+ else
+ {
+ // not top level element: see if parent is OK
+ $parent = $_xh[$parser]['stack'][$_xh[$parser]['sp']-1];
+ if (!isset($xmlrpc_valid_parents[$name][$parent]))
+ {
+ $_xh[$parser]['isf'] = 2;
+ $_xh[$parser]['isf_reason'] = "xmlrpc element $name cannot be child of $parent";
+ return;
+ }
+ }
+
+ 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;
+
+ // create an empty array to hold child values, and push it onto appropriate stack
+ $cur_val = array();
+ $cur_val['values'] = array();
+ $cur_val['type'] = $name;
+ $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']] = $cur_val;
+ $_xh[$parser]['vsp']++;
+ break;
+ case 'METHODNAME':
+ case 'NAME':
+ //$_xh[$parser]['st'].='"';
+ $_xh[$parser]['ac']='';
+ break;
+ case 'FAULT':
+ $_xh[$parser]['isf']=1;
+ break;
+ case 'PARAM':
+ //$_xh[$parser]['st']='';
+ // clear value, so we can check later if no value will passed for this param/member
+ $_xh[$parser]['value']='';
+ break;
+ case 'VALUE':
+ //$_xh[$parser]['st'].='new xmlrpcval(';
+ // look for a value: if this is still true by the
+ // time we reach the end tag for value then the type is string
+ // by implication
+ $_xh[$parser]['vt']='value';
+ $_xh[$parser]['ac']='';
+ //$_xh[$parser]['qt']=0;
+ $_xh[$parser]['lv']=1;
+ break;
+ case 'I4':
+ case 'INT':
+ case 'STRING':
+ case 'BOOLEAN':
+ case 'DOUBLE':
+ case 'DATETIME.ISO8601':
+ case 'BASE64':
+ if ($_xh[$parser]['vt']!='value')
+ {
+ //two data elements inside a value: an error occurred!
+ $_xh[$parser]['isf'] = 2;
+ $_xh[$parser]['isf_reason'] = "$name element following a {$_xh[$parser]['vt']} element inside a single value";
+ return;
+ }
+
+ // reset the accumulator
+ $_xh[$parser]['ac']='';
+
+ /*if ($name=='DATETIME.ISO8601' || $name=='STRING')
+ {
+ $_xh[$parser]['qt']=1;
+ if ($name=='DATETIME.ISO8601')
+ {
+ $_xh[$parser]['vt']=$xmlrpcDateTime;
+ }
+ }
+ elseif ($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']='';
+ // avoid warnings later on if no NAME is found before VALUE inside
+ // a struct member predefining member name as NULL
+ $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']-1]['name'] = '';
+ // clear value, so we can check later if no value will passed for this param/member
+ $_xh[$parser]['value']='';
+ break;
+ case 'DATA':
+ case 'METHODCALL':
+ case 'METHODRESPONSE':
+ case 'PARAMS':
+ // valid elements that add little to processing
+ break;
+ default:
+ /// INVALID ELEMENT: RAISE ISF so that it is later recognized!!!
+ $_xh[$parser]['isf'] = 2;
+ $_xh[$parser]['isf_reason'] = "found not-xmlrpc xml element $name";
+ break;
+ }
+
+ // Save current element name to stack, to validate nesting
+ $_xh[$parser]['stack'][$_xh[$parser]['sp']] = $name;
+ $_xh[$parser]['sp']++;
+
+ if ($name!='VALUE')
+ {
+ $_xh[$parser]['lv']=0;
+ }
+ }
+ }
+
+ function xmlrpc_ee($parser, $name)
+ {
+ global $_xh,$xmlrpcTypes,$xmlrpcString,$xmlrpcDateTime;
+
+ if ($_xh[$parser]['isf'] < 2)
+ {
+
+ // push this element name 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...
+ $_xh[$parser]['sp']--;
+ $curr_elem = $_xh[$parser]['stack'][$_xh[$parser]['sp']];
+ unset($_xh[$parser]['stack'][$_xh[$parser]['sp']]);
+ 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'].=')';
+
+ // fetch out of stack array of values, and promote it to current value
+ $_xh[$parser]['vsp']--;
+ $cur_val = $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']];
+ unset($_xh[$parser]['valuestack'][$_xh[$parser]['vsp']]);
+ $_xh[$parser]['value'] = $cur_val['values'];
+
+ $_xh[$parser]['vt']=strtolower($name);
+ //$_xh[$parser]['cm']--;
+ break;
+ case 'NAME':
+ //$_xh[$parser]['st'].= $_xh[$parser]['ac'] . '" => ';
+ $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']-1]['name'] = $_xh[$parser]['ac'];
+ break;
+ case 'BOOLEAN':
+ case 'I4':
+ case 'INT':
+ case 'STRING':
+ case 'DOUBLE':
+ case 'DATETIME.ISO8601':
+ case 'BASE64':
+ $_xh[$parser]['vt']=strtolower($name);
+ //if ($_xh[$parser]['qt']==1)
+ if ($name=='STRING')
+ {
+ // we use double quotes rather than single so backslashification works OK
+ //$_xh[$parser]['st'].='"'. $_xh[$parser]['ac'] . '"';
+ $_xh[$parser]['value']=$_xh[$parser]['ac'];
+ }
+ elseif ($name=='DATETIME.ISO8601')
+ {
+ $_xh[$parser]['vt']=$xmlrpcDateTime;
+ $_xh[$parser]['value']=$_xh[$parser]['ac'];
+ }
+ elseif ($name=='BASE64')
+ {
+ //$_xh[$parser]['st'].='base64_decode("'. $_xh[$parser]['ac'] . '")';
+
+ ///@todo check for failure of base64 decoding / catch warnings
+ $_xh[$parser]['value']=base64_decode($_xh[$parser]['ac']);
+ }
+ elseif ($name=='BOOLEAN')
+ {
+ // special case here: we translate boolean 1 or 0 into PHP
+ // constants true or false
+ // NB: this simple checks helps a lot sanitizing input, ie no
+ // security problems around here
+
+ // [MOD] S. Verberkt (Legolas) (13/02/2006 21:16): Also accept 'true' and 'false'
+ if ($_xh[$parser]['ac']=='1' || strcasecmp($_xh[$parser]['ac'], 'true') == 0)
+ {
+ //$_xh[$parser]['ac']='true';
+ $_xh[$parser]['value']=true;
+ }
+ else
+ {
+ //$_xh[$parser]['ac']='false';
+ // log if receiveing something strange, even though we set the value to false anyway
+ if ($_xh[$parser]['ac']!='0' && strcasecmp($_xh[$parser]['ac'], 'false') != 0)
+ error_log('XML-RPC: invalid value received in BOOLEAN: '.$_xh[$parser]['ac']);
+ $_xh[$parser]['value']=false;
+ }
+ // [/MOD]
+
+ //$_xh[$parser]['st'].=$_xh[$parser]['ac'];
+ }
+ elseif ($name=='DOUBLE')
+ {
+ // we have a DOUBLE
+ // we must check that only 0123456789-.<space> are characters here
+ if (!ereg("^[+-]?[eE0123456789 \\t\\.]+$", $_xh[$parser]['ac']))
+ {
+ // TODO: find a better way of throwing an error
+ // than this!
+ error_log('XML-RPC: non numeric value received in DOUBLE: '.$_xh[$parser]['ac']);
+ //$_xh[$parser]['st'].="'ERROR_NON_NUMERIC_FOUND'";
+ $_xh[$parser]['value']='ERROR_NON_NUMERIC_FOUND';
+ }
+ else
+ {
+ // it's ok, add it on
+ //$_xh[$parser]['st'].=(double)$_xh[$parser]['ac'];
+ $_xh[$parser]['value']=(double)$_xh[$parser]['ac'];
+ }
+ }
+ else
+ {
+ // we have an I4/INT
+ // 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: '.$_xh[$parser]['ac']);
+ //$_xh[$parser]['st'].="'ERROR_NON_NUMERIC_FOUND'";
+ $_xh[$parser]['value']='ERROR_NON_NUMERIC_FOUND';
+ }
+ else
+ {
+ // it's ok, add it on
+ //$_xh[$parser]['st'].=(int)$_xh[$parser]['ac'];
+ $_xh[$parser]['value']=(int)$_xh[$parser]['ac'];
+ }
+ }
+ $_xh[$parser]['ac']='';
+ //$_xh[$parser]['qt']=0;
+ $_xh[$parser]['lv']=3; // indicate we've found a value
+ break;
+ case 'VALUE':
+ // This if() detects if no scalar was inside <VALUE></VALUE>
+ if ($_xh[$parser]['vt']=='value')
+ {
+ $_xh[$parser]['value']=$_xh[$parser]['ac'];
+ $_xh[$parser]['vt']=$xmlrpcString;
+ }
+ /*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'].= '""';
+ }
+ // G. Giunta 2005/03/12 save some chars in the reconstruction of string vals...
+ if ($_xh[$parser]['vt'] != $xmlrpcString)
+ $_xh[$parser]['st'].=", '" . $_xh[$parser]['vt'] . "')";
+ else
+ $_xh[$parser]['st'].=")";
+ if ($_xh[$parser]['cm'])
+ {
+ $_xh[$parser]['st'].=',';
+ }*/
+
+ // build the xmlrpc val out of the data received, and substitute it
+ $temp = new xmlrpcval($_xh[$parser]['value'], $_xh[$parser]['vt']);
+ // check if we are inside an array or struct:
+ // if value just built is inside an array, let's move it into array on the stack
+ if ($_xh[$parser]['vsp'] && $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']-1]['type']=='ARRAY')
+ {
+ $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']-1]['values'][] = $temp;
+ }
+ else
+ {
+ $_xh[$parser]['value'] = $temp;
+ }
+ break;
+ case 'MEMBER':
+ $_xh[$parser]['ac']='';
+ //$_xh[$parser]['qt']=0;
+ // add to array in the stack the last element built
+ // unless no VALUE was found
+ if ($_xh[$parser]['value'])
+ {
+ $_xh[$parser]['valuestack'][$_xh[$parser]['vsp']-1]['values'][$_xh[$parser]['valuestack'][$_xh[$parser]['vsp']-1]['name']] = $_xh[$parser]['value'];
+ }
+ else
+ error_log('XML-RPC: missing VALUE inside STRUCT in received xml');
+ break;
+ case 'DATA':
+ $_xh[$parser]['ac']='';
+ //$_xh[$parser]['qt']=0;
+ break;
+ case 'PARAM':
+ //$_xh[$parser]['params'][]=$_xh[$parser]['st'];
+ if ($_xh[$parser]['value'])
+ $_xh[$parser]['params'][]=$_xh[$parser]['value'];
+ else
+ error_log('XML-RPC: missing VALUE inside PARAM in received xml');
+ break;
+ case 'METHODNAME':
+ $_xh[$parser]['method']=ereg_replace("^[\n\r\t ]+", '', $_xh[$parser]['ac']);
+ break;
+ case 'PARAMS':
+ case 'FAULT':
+ case 'METHODCALL':
+ case 'METHORESPONSE':
+ break;
+ default:
+ // End of INVALID ELEMENT!
+ // shall we add an assert here for unreachable code???
+ 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";
+
+ // skip processing if xml fault already detected
+ if ($_xh[$parser]['isf'] < 2)
+ {
+ 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;
+ }
+ if(!@isset($_xh[$parser]['ac']))
+ {
+ $_xh[$parser]['ac'] = '';
+ }
+ //$_xh[$parser]['ac'].=str_replace('$', '\$', str_replace('"', '\"', str_replace(chr(92),$xmlrpc_backslash, $data)));
+ $_xh[$parser]['ac'].=$data;
+ }
+ }
+ }
+
+ function xmlrpc_dh($parser, $data)
+ {
+ global $_xh, $xmlrpc_backslash;
+
+ // skip processing if xml fault already detected
+ if ($_xh[$parser]['isf'] < 2)
+ {
+ 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)));
+ $_xh[$parser]['ac'].=$data;
+ }
+ }
+ }
+
+ class xmlrpc_client
+ {
+ var $path;
+ var $server;
+ var $port;
+ var $errno;
+ var $errstr;
+ var $debug=0;
+ var $username='';
+ var $password='';
+ var $cert='';
+ var $certpass='';
+ var $verifypeer=1;
+ var $verifyhost=1;
+ var $no_multicall=false;
+
+ 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 setSSLVerifyPeer($i)
+ {
+ $this->verifypeer = $i;
+ }
+
+ function setSSLVerifyHost($i)
+ {
+ $this->verifyhost = $i;
+ }
+
+ function send($msg, $timeout=0, $method='http')
+ {
+ if (is_array($msg))
+ {
+ // $msg is an array of xmlrpcmsg's
+ return $this->multicall($msg, $timeout, $method);
+ }
+
+ // 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='')
+ {
+ global $xmlrpcerr, $xmlrpcstr, $xmlrpcName, $xmlrpcVersion, $xmlrpc_defencoding;
+ 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)
+ {
+ if ($timeout>0 && function_exists('stream_set_timeout'))
+ stream_set_timeout($fp, $timeout);
+ }
+ else
+ {
+ $this->errstr='Connect error';
+ $r=new xmlrpcresp(0, $xmlrpcerr['http_error'],$xmlrpcstr['http_error']);
+ return $r;
+ }
+ // 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\n" .
+ "User-Agent: " . $xmlrpcName . " " . $xmlrpcVersion . "\r\n" .
+ "Host: ". $server . "\r\n" .
+ $credentials .
+ "Accept-Charset: " . $xmlrpc_defencoding . "\r\n" .
+ "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';
+ $r=new xmlrpcresp(0, $xmlrpcerr['http_error'], $xmlrpcstr['http_error']);
+ return $r;
+ }
+ $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, $xmlrpcVersion, $xmlrpc_internalencoding;
+ 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'))
+ {
+ $this->errstr='SSL unavailable on this install';
+ $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 '.$xmlrpcVersion);
+ // 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', 'Accept-Charset: '.$xmlrpc_internalencoding));
+ // whether to verify remote host's cert
+ curl_setopt($curl, CURLOPT_SSL_VERIFYPEER, $this->verifypeer);
+ // whether to verify cert's common name (CN); 0 for no, 1 to verify that it exists, and 2 to verify that it matches the hostname used
+ curl_setopt($curl, CURLOPT_SSL_VERIFYHOST, $this->verifyhost);
+ // 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)
+ {
+ $this->errstr='no response';
+ $resp=new xmlrpcresp(0, $xmlrpcerr['curl_fail'], $xmlrpcstr['curl_fail']. ': '. curl_error($curl));
+ curl_close($curl);
+ }
+ else
+ {
+ curl_close($curl);
+ $resp = $msg->parseResponse($result);
+ }
+ return $resp;
+ }
+
+ function multicall($msgs, $timeout=0, $method='http')
+ {
+ $results = false;
+
+ if (! $this->no_multicall)
+ {
+ $results = $this->_try_multicall($msgs, $timeout, $method);
+ /* TODO - this is not php3-friendly */
+ // if($results !== false)
+ if(is_array($results))
+ {
+ // Either the system.multicall succeeded, or the send
+ // failed (e.g. due to HTTP timeout). In either case,
+ // we're done for now.
+ return $results;
+ }
+ else
+ {
+ // system.multicall unsupported by server,
+ // don't try it next time...
+ $this->no_multicall = true;
+ }
+ }
+
+ // system.multicall is unupported by server:
+ // Emulate multicall via multiple requests
+ $results = array();
+ //foreach($msgs as $msg)
+ @reset($msgs);
+ while(list(,$msg) = @each($msgs))
+ {
+ $results[] = $this->send($msg, $timeout, $method);
+ }
+ return $results;
+ }
+
+ // Attempt to boxcar $msgs via system.multicall.
+ function _try_multicall($msgs, $timeout, $method)
+ {
+ // Construct multicall message
+ $calls = array();
+ //foreach($msgs as $msg)
+ @reset($msgs);
+ while(list(,$msg) = @each($msgs))
+ {
+ $call['methodName'] = new xmlrpcval($msg->method(),'string');
+ $numParams = $msg->getNumParams();
+ $params = array();
+ for ($i = 0; $i < $numParams; $i++)
+ {
+ $params[$i] = $msg->getParam($i);
+ }
+ $call['params'] = new xmlrpcval($params, 'array');
+ $calls[] = new xmlrpcval($call, 'struct');
+ }
+ $multicall = new xmlrpcmsg('system.multicall');
+ $multicall->addParam(new xmlrpcval($calls, 'array'));
+
+ // Attempt RPC call
+ $result = $this->send($multicall, $timeout, $method);
+ if(!is_object($result))
+ {
+ return ($result || 0); // transport failed
+ }
+
+ if($result->faultCode() != 0)
+ {
+ return false; // system.multicall failed
+ }
+
+ // Unpack responses.
+ $rets = $result->value();
+ if($rets->kindOf() != 'array')
+ {
+ return false; // bad return type from system.multicall
+ }
+ $numRets = $rets->arraysize();
+ if($numRets != count($msgs))
+ {
+ return false; // wrong number of return values.
+ }
+
+ $response = array();
+ for ($i = 0; $i < $numRets; $i++)
+ {
+ $val = $rets->arraymem($i);
+ switch ($val->kindOf())
+ {
+ case 'array':
+ if($val->arraysize() != 1)
+ {
+ return false; // Bad value
+ }
+ // Normal return value
+ $response[$i] = new xmlrpcresp($val->arraymem(0));
+ break;
+ case 'struct':
+ $code = $val->structmem('faultCode');
+ if($code->kindOf() != 'scalar' || $code->scalartyp() != 'int')
+ {
+ return false;
+ }
+ $str = $val->structmem('faultString');
+ if($str->kindOf() != 'scalar' || $str->scalartyp() != 'string')
+ {
+ return false;
+ }
+ $response[$i] = new xmlrpcresp(0, $code->scalarval(), $str->scalarval());
+ break;
+ default:
+ return false;
+ }
+ }
+ return $response;
+ }
+ } // end class xmlrpc_client
+
+ class xmlrpcresp
+ {
+ var $val = 0;
+ var $errno = 0;
+ var $errstr = '';
+ var $hdrs = array();
+
+ function xmlrpcresp($val, $fcode = 0, $fstr = '')
+ {
+ if ($fcode != 0)
+ {
+ // error
+ $this->errno = $fcode;
+ $this->errstr = $fstr;
+ //$this->errstr = htmlspecialchars($fstr); // XXX: encoding probably shouldn't be done here; fix later.
+ }
+ elseif (!is_object($val))
+ {
+ // programmer error
+ error_log("Invalid type '" . gettype($val) . "' (value: $val) passed to xmlrpcresp. Defaulting to empty value.");
+ $this->val = new xmlrpcval();
+ }
+ else
+ {
+ // success
+ $this->val = $val;
+ }
+ }
+
+ function faultCode()
+ {
+ return $this->errno;
+ }
+
+ function faultString()
+ {
+ return $this->errstr;
+ }
+
+ function value()
+ {
+ return $this->val;
+ }
+
+ function serialize()
+ {
+ $result = "<methodResponse>\n";
+ if ($this->errno)
+ {
+ // G. Giunta 2005/2/13: let non-ASCII response messages be tolerated by clients
+ $result .= '<fault>
+<value>
+<struct>
+<member>
+<name>faultCode</name>
+<value><int>' . $this->errno . '</int></value>
+</member>
+<member>
+<name>faultString</name>
+<value><string>' . xmlrpc_encode_entitites($this->errstr) . '</string></value>
+</member>
+</struct>
+</value>
+</fault>';
+ }
+ else
+ {
+ $result .= "<params>\n<param>\n" .
+ $this->val->serialize() .
+ "</param>\n</params>";
+ }
+ $result .= "\n</methodResponse>";
+ return $result;
+ }
+ }
+
+ 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, $xmlrpc_internalencoding;
+
+ $hdrfnd = 0;
+ if($this->debug)
+ {
+ //by maHo, replaced htmlspecialchars with htmlentities
+ print "<PRE>---GOT---\n" . htmlentities($data) . "\n---END---\n</PRE>";
+ }
+
+ if($data == '')
+ {
+ error_log('No response received from server.');
+ $r = new xmlrpcresp(0, $xmlrpcerr['no_data'], $xmlrpcstr['no_data']);
+ 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))
+ {
+ // Strip HTTP 1.1 100 Continue header if present
+ while (ereg('^HTTP/1.1 1[0-9]{2}', $data))
+ {
+ $pos = strpos($data, 'HTTP', 12);
+ // server sent a Continue header without any (valid) content following...
+ // give the client a chance to know it
+ if (!$pos && !is_int($pos)) // works fine in php 3, 4 and 5
+ break;
+ $data = substr($data, $pos);
+ }
+ if (!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 . ')');
+ return $r;
+ }
+ }
+ $parser = xml_parser_create($xmlrpc_defencoding);
+
+ // G. Giunta 2004/04/06
+ // Clean up the accumulator, or it will grow indefinitely long
+ // if making xmlrpc calls for a while
+ $_xh=array();
+ $_xh[$parser]=array();
+ $_xh[$parser]['headers'] = array();
+ $_xh[$parser]['stack'] = array();
+ $_xh[$parser]['sp'] = 0;
+ $_xh[$parser]['valuestack'] = array();
+ $_xh[$parser]['vsp'] = 0;
+
+ // separate HTTP headers from data
+ if (ereg("^HTTP", $data))
+ {
+ // be tolerant to usage of \n instead of \r\n to separate headers and data
+ // (even though it is not valid http)
+ $pos = strpos($data,"\r\n\r\n");
+ if($pos || is_int($pos))
+ $bd = $pos+4;
+ else
+ {
+ $pos = strpos($data,"\n\n");
+ if($pos || is_int($pos))
+ $bd = $pos+2;
+ else
+ {
+ // No separation between response headers and body: fault?
+ $bd = 0;
+ }
+ }
+ // be tolerant to line endings, and extra empty lines
+ $ar = split("\r?\n", trim(substr($data, 0, $pos)));
+ while (list(,$line) = @each($ar))
+ {
+ // take care of multi-line headers
+ $arr = explode(':',$line);
+ if(count($arr) > 1)
+ {
+ $header_name = trim($arr[0]);
+ // TO DO: some headers (the ones that allow a CSV list of values)
+ // do allow many values to be passed using multiple header lines.
+ // We should add content to $_xh[$parser]['headers'][$header_name]
+ // instead of replacing it for those...
+ $_xh[$parser]['headers'][$header_name] = $arr[1];
+ for ($i = 2; $i < count($arr); $i++)
+ {
+ $_xh[$parser]['headers'][$header_name] .= ':'.$arr[$i];
+ } // while
+ $_xh[$parser]['headers'][$header_name] = trim($_xh[$parser]['headers'][$header_name]);
+ } else if (isset($header_name))
+ {
+ $_xh[$parser]['headers'][$header_name] .= ' ' . trim($line);
+ }
+ }
+ $data = substr($data, $bd);
+
+ if ($this->debug && count($_xh[$parser]['headers']))
+ {
+ print '<PRE>';
+ //foreach ($_xh[$parser]['headers'] as $header)
+ @reset($_xh[$parser]['headers']);
+ while(list($header, $value) = @each($_xh[$parser]['headers']))
+ {
+ print "HEADER: $header: $value\n";
+ }
+ print "</PRE>\n";
+ }
+ }
+
+ // be tolerant of extra whitespace in response body
+ $data = trim($data);
+
+ // be tolerant of junk after methodResponse (e.g. javascript automatically inserted by free hosts)
+ // idea from Luca Mariano <luca.mariano@email.it> originally in PEARified version of the lib
+ $bd = false;
+ $pos = strpos($data, "</methodResponse>");
+ while ($pos || is_int($pos))
+ {
+ $bd = $pos+17;
+ $pos = strpos($data, "</methodResponse>", $bd);
+ }
+ if ($bd)
+ $data = substr($data, 0, $bd);
+
+ //$_xh[$parser]['st']='';
+ //$_xh[$parser]['cm']=0;
+ $_xh[$parser]['isf']=0;
+ $_xh[$parser]['isf_reason']=0;
+ $_xh[$parser]['ac']='';
+ //$_xh[$parser]['qt']='';
+
+ xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);
+ // G. Giunta 2005/02/13: PHP internally uses ISO-8859-1, so we have to tell
+ // the xml parser to give us back data in the expected charset
+ xml_parser_set_option($parser, XML_OPTION_TARGET_ENCODING, $xmlrpc_internalencoding);
+
+ 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 (!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'].' ('.$errstr.')');
+ xml_parser_free($parser);
+ if ($this->debug)
+ echo $errstr;
+ $r->hdrs = $_xh[$parser]['headers'];
+ return $r;
+ }
+ xml_parser_free($parser);
+
+ if ($_xh[$parser]['isf'] > 1)
+ {
+ if ($this->debug)
+ {
+ ///@todo echo something for user?
+ }
+
+ $r = new xmlrpcresp(0, $xmlrpcerr['invalid_return'],
+ $xmlrpcstr['invalid_return'] . ' ' . $_xh[$parser]['isf_reason']);
+ }
+ //else if (strlen($_xh[$parser]['st'])==0)
+ else if (!is_object($_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 xmlrpcresp(0, $xmlrpcerr['invalid_return'],
+ $xmlrpcstr['invalid_return']);
+ }
+ else
+ {
+
+ if ($this->debug)
+ {
+ //print "<PRE>---EVALING---[" .
+ //strlen($_xh[$parser]['st']) . " chars]---\n" .
+ //htmlspecialchars($_xh[$parser]['st']) . ";\n---END---</PRE>";
+ print "<PRE>---PARSED---\n" ;
+ var_dump($_xh[$parser]['value']);
+ print "\n---END---</PRE>";
+ }
+
+ //$allOK=0;
+ //@eval('$v=' . $_xh[$parser]['st'] . '; $allOK=1;');
+ //if (!$allOK)
+ //{
+ // $r = new xmlrpcresp(0, $xmlrpcerr['invalid_return'], $xmlrpcstr['invalid_return']);
+ //}
+ //else
+ $v = $_xh[$parser]['value'];
+ if ($_xh[$parser]['isf'])
+ {
+ $errno_v = $v->structmem('faultCode');
+ $errstr_v = $v->structmem('faultString');
+ $errno = $errno_v->scalarval();
+
+ if ($errno == 0)
+ {
+ // FAULT returned, errno needs to reflect that
+ $errno = -1;
+ }
+
+ $r = new xmlrpcresp($v, $errno, $errstr_v->scalarval());
+ }
+ else
+ {
+ $r=new xmlrpcresp($v);
+ }
+ }
+
+ $r->hdrs = $_xh[$parser]['headers'];
+ 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 || !is_int($val) || $type!='')
+ {
+ if ($type=='')
+ {
+ $type='string';
+ }
+ if ($xmlrpcTypes[$type]==1)
+ {
+ $this->addScalar($val,$type);
+ }
+ elseif ($xmlrpcTypes[$type]==2)
+ {
+ $this->addArray($val);
+ }
+ elseif ($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:
+ // G. Giunta 2005/2/13: do NOT use htmlentities, since
+ // it will produce named html entities, which are invalid xml
+ // $rs.="<${typ}>" . xmlrpc_encode_entitites($val). "</${typ}>";
+ // $rs.="<${typ}>" . htmlentities($val). "</${typ}>";
+
+ // N. Leenheer 2005/6/30: Use CDATA instead...
+ $rs.="<${typ}><![CDATA[" . $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))
+ {
+ @reset($b);
+ while(list($id,$cont) = @each($b))
+ {
+ $b[$id] = $cont->scalarval();
+ }
+ }
+
+ // add support for structures directly encoding php objects
+ if (is_object($b))
+ {
+ $t = get_object_vars($b);
+ @reset($t);
+ while(list($id,$cont) = @each($t))
+ {
+ $t[$id] = $cont->scalarval();
+ }
+ @reset($t);
+ while(list($id,$cont) = @each($t))
+ {
+ //eval('$b->'.$id.' = $cont;');
+ @$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 php_xmlrpc_decode($xmlrpc_val)
+ {
+ $kind = $xmlrpc_val->kindOf();
+
+ if($kind == 'scalar')
+ {
+ return $xmlrpc_val->scalarval();
+ }
+ elseif($kind == 'array')
+ {
+ $size = $xmlrpc_val->arraysize();
+ $arr = array();
+
+ for($i = 0; $i < $size; $i++)
+ {
+ $arr[] = php_xmlrpc_decode($xmlrpc_val->arraymem($i));
+ }
+ return $arr;
+ }
+ elseif($kind == 'struct')
+ {
+ $xmlrpc_val->structreset();
+ $arr = array();
+
+ while(list($key,$value)=$xmlrpc_val->structeach())
+ {
+ $arr[$key] = php_xmlrpc_decode($value);
+ }
+ return $arr;
+ }
+ }
+
+ if(function_exists('xmlrpc_decode'))
+ {
+ define('XMLRPC_EPI_ENABLED','1');
+ }
+ else
+ {
+ define('XMLRPC_EPI_ENABLED','0');
+ function xmlrpc_decode($xmlrpc_val)
+ {
+ $kind = $xmlrpc_val->kindOf();
+
+ if($kind == 'scalar')
+ {
+ return $xmlrpc_val->scalarval();
+ }
+ elseif($kind == 'array')
+ {
+ $size = $xmlrpc_val->arraysize();
+ $arr = array();
+
+ for($i = 0; $i < $size; $i++)
+ {
+ $arr[]=xmlrpc_decode($xmlrpc_val->arraymem($i));
+ }
+ return $arr;
+ }
+ elseif($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 php_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] = php_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>
+ // catch "resource", "NULL", "user function", "unknown type"
+ //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;
+ }
+
+ if(XMLRPC_EPI_ENABLED == '0')
+ {
+ 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;
+ }
+ }
+?>