-<?php
-// by Edd Dumbill (C) 1999-2001
-// <edd@usefulinc.com>
-// $Id: xmlrpcs.inc.php,v 1.1.1.1 2005-02-28 07:14:54 kimitake Exp $
-
-// 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.
-
-// XML RPC Server class
-// requires: xmlrpc.inc
-
-// listMethods: either a string, or nothing
-$_xmlrpcs_listMethods_sig=array(array($xmlrpcArray, $xmlrpcString),
- array($xmlrpcArray));
-$_xmlrpcs_listMethods_doc='This method lists all the methods that the XML-RPC server knows how to dispatch';
-function _xmlrpcs_listMethods($server, $m) {
- global $xmlrpcerr, $xmlrpcstr, $_xmlrpcs_dmap;
- $v=new xmlrpcval();
- $dmap=$server->dmap;
- $outAr=array();
- for(reset($dmap); list($key, $val)=each($dmap); ) {
- $outAr[]=new xmlrpcval($key, "string");
- }
- $dmap=$_xmlrpcs_dmap;
- for(reset($dmap); list($key, $val)=each($dmap); ) {
- $outAr[]=new xmlrpcval($key, "string");
- }
- $v->addArray($outAr);
- return new xmlrpcresp($v);
-}
-
-$_xmlrpcs_methodSignature_sig=array(array($xmlrpcArray, $xmlrpcString));
-$_xmlrpcs_methodSignature_doc='Returns an array of known signatures (an array of arrays) for the method name passed. If no signatures are known, returns a none-array (test for type != array to detect missing signature)';
-function _xmlrpcs_methodSignature($server, $m) {
- global $xmlrpcerr, $xmlrpcstr, $_xmlrpcs_dmap;
-
- $methName=$m->getParam(0);
- $methName=$methName->scalarval();
- if (ereg("^system\.", $methName)) {
- $dmap=$_xmlrpcs_dmap; $sysCall=1;
- } else {
- $dmap=$server->dmap; $sysCall=0;
- }
- // print "<!-- ${methName} -->\n";
- if (isset($dmap[$methName])) {
- if ($dmap[$methName]["signature"]) {
- $sigs=array();
- $thesigs=$dmap[$methName]["signature"];
- for($i=0; $i<sizeof($thesigs); $i++) {
- $cursig=array();
- $inSig=$thesigs[$i];
- for($j=0; $j<sizeof($inSig); $j++) {
- $cursig[]=new xmlrpcval($inSig[$j], "string");
- }
- $sigs[]=new xmlrpcval($cursig, "array");
- }
- $r=new xmlrpcresp(new xmlrpcval($sigs, "array"));
- } else {
- $r=new xmlrpcresp(new xmlrpcval("undef", "string"));
- }
- } else {
- $r=new xmlrpcresp(0,
- $xmlrpcerr["introspect_unknown"],
- $xmlrpcstr["introspect_unknown"]);
- }
- return $r;
-}
-
-$_xmlrpcs_methodHelp_sig=array(array($xmlrpcString, $xmlrpcString));
-$_xmlrpcs_methodHelp_doc='Returns help text if defined for the method passed, otherwise returns an empty string';
-function _xmlrpcs_methodHelp($server, $m) {
- global $xmlrpcerr, $xmlrpcstr, $_xmlrpcs_dmap;
-
- $methName=$m->getParam(0);
- $methName=$methName->scalarval();
- if (ereg("^system\.", $methName)) {
- $dmap=$_xmlrpcs_dmap; $sysCall=1;
- } else {
- $dmap=$server->dmap; $sysCall=0;
- }
- // print "<!-- ${methName} -->\n";
- if (isset($dmap[$methName])) {
- if ($dmap[$methName]["docstring"]) {
- $r=new xmlrpcresp(new xmlrpcval($dmap[$methName]["docstring"]),
- "string");
- } else {
- $r=new xmlrpcresp(new xmlrpcval("", "string"));
- }
- } else {
- $r=new xmlrpcresp(0,
- $xmlrpcerr["introspect_unknown"],
- $xmlrpcstr["introspect_unknown"]);
- }
- return $r;
-}
-
-$_xmlrpcs_dmap=array(
- "system.listMethods" =>
- array("function" => "_xmlrpcs_listMethods",
- "signature" => $_xmlrpcs_listMethods_sig,
- "docstring" => $_xmlrpcs_listMethods_doc),
- "system.methodHelp" =>
- array("function" => "_xmlrpcs_methodHelp",
- "signature" => $_xmlrpcs_methodHelp_sig,
- "docstring" => $_xmlrpcs_methodHelp_doc),
- "system.methodSignature" =>
- array("function" => "_xmlrpcs_methodSignature",
- "signature" => $_xmlrpcs_methodSignature_sig,
- "docstring" => $_xmlrpcs_methodSignature_doc)
- );
-
-$_xmlrpc_debuginfo="";
-function xmlrpc_debugmsg($m) {
- global $_xmlrpc_debuginfo;
- $_xmlrpc_debuginfo=$_xmlrpc_debuginfo . $m . "\n";
-}
-
-class xmlrpc_server {
- var $dmap=array();
-
- function xmlrpc_server($dispMap, $serviceNow=1) {
- global $HTTP_RAW_POST_DATA;
- // dispMap is a despatch array of methods
- // mapped to function names and signatures
- // if a method
- // doesn't appear in the map then an unknown
- // method error is generated
- $this->dmap=$dispMap;
- if ($serviceNow) {
- $this->service();
- }
- }
-
- function serializeDebug() {
- global $_xmlrpc_debuginfo;
- if ($_xmlrpc_debuginfo!="")
- return "<!-- DEBUG INFO:\n\n" .
- $_xmlrpc_debuginfo . "\n-->\n";
- else
- return "";
- }
-
- function service() {
- $r=$this->parseRequest();
- $payload="<" . "?xml version=\"1.0\"?" . ">\n" .
- $this->serializeDebug() .
- $r->serialize();
- Header("Content-type: text/xml\r\nContent-length: " .
- strlen($payload));
- print $payload;
- }
-
- function verifySignature($in, $sig) {
- for($i=0; $i<sizeof($sig); $i++) {
- // check each possible signature in turn
- $cursig=$sig[$i];
- if (sizeof($cursig)==$in->getNumParams()+1) {
- $itsOK=1;
- for($n=0; $n<$in->getNumParams(); $n++) {
- $p=$in->getParam($n);
- // print "<!-- $p -->\n";
- if ($p->kindOf() == "scalar") {
- $pt=$p->scalartyp();
- } else {
- $pt=$p->kindOf();
- }
- // $n+1 as first type of sig is return type
- if ($pt != $cursig[$n+1]) {
- $itsOK=0;
- $pno=$n+1; $wanted=$cursig[$n+1]; $got=$pt;
- break;
- }
- }
- if ($itsOK)
- return array(1);
- }
- }
- return array(0, "Wanted ${wanted}, got ${got} at param ${pno})");
- }
-
- function parseRequest($data="") {
- global $_xh,$HTTP_RAW_POST_DATA;
- global $xmlrpcerr, $xmlrpcstr, $xmlrpcerrxml, $xmlrpc_defencoding,
- $_xmlrpcs_dmap;
-
-
-
- if ($data=="") {
- $data=$HTTP_RAW_POST_DATA;
- }
- $parser = xml_parser_create($xmlrpc_defencoding);
-
- $_xh[$parser]=array();
- $_xh[$parser]['st']="";
- $_xh[$parser]['cm']=0;
- $_xh[$parser]['isf']=0;
- $_xh[$parser]['params']=array();
- $_xh[$parser]['method']="";
-
- // decompose incoming XML into request structure
-
- 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");
- if (!xml_parse($parser, $data, 1)) {
- // return XML error as a faultCode
- $r=new xmlrpcresp(0,
- $xmlrpcerrxml+xml_get_error_code($parser),
- sprintf("XML error: %s at line %d",
- xml_error_string(xml_get_error_code($parser)),
- xml_get_current_line_number($parser)));
- xml_parser_free($parser);
- } else {
- xml_parser_free($parser);
- $m=new xmlrpcmsg($_xh[$parser]['method']);
- // now add parameters in
- $plist="";
- for($i=0; $i<sizeof($_xh[$parser]['params']); $i++) {
- //print "<!-- " . $_xh[$parser]['params'][$i]. "-->\n";
- $plist.="$i - " . $_xh[$parser]['params'][$i]. " \n";
- eval('$m->addParam(' . $_xh[$parser]['params'][$i]. ");");
- }
- // uncomment this to really see what the server's getting!
- // xmlrpc_debugmsg($plist);
- // now to deal with the method
- $methName=$_xh[$parser]['method'];
- if (ereg("^system\.", $methName)) {
- $dmap=$_xmlrpcs_dmap; $sysCall=1;
- } else {
- $dmap=$this->dmap; $sysCall=0;
- }
- if (isset($dmap[$methName]['function'])) {
- // dispatch if exists
- if (isset($dmap[$methName]['signature'])) {
- $sr=$this->verifySignature($m,
- $dmap[$methName]['signature'] );
- }
- if ( (!isset($dmap[$methName]['signature']))
- || $sr[0]) {
- // if no signature or correct signature
- if ($sysCall) {
- eval('$r=' . $dmap[$methName]['function'] .
- '($this, $m);');
- } else {
- eval('$r=' . $dmap[$methName]['function'] .
- '($m);');
- }
- } else {
- $r=new xmlrpcresp(0,
- $xmlrpcerr["incorrect_params"],
- $xmlrpcstr["incorrect_params"].": ". $sr[1]);
- }
- } else {
- // else prepare error response
- $r=new xmlrpcresp(0,
- $xmlrpcerr["unknown_method"],
- $xmlrpcstr["unknown_method"]);
- }
- }
- return $r;
- }
-
- function echoInput() {
- global $HTTP_RAW_POST_DATA;
-
- // a debugging routine: just echos back the input
- // packet as a string value
-
- $r=new xmlrpcresp;
- $r->xv=new xmlrpcval( "'Aha said I: '" . $HTTP_RAW_POST_DATA, "string");
- print $r->serialize();
- }
-}
-
-?>
+<?php\r
+// by Edd Dumbill (C) 1999-2001\r
+// <edd@usefulinc.com>\r
+// $Id: xmlrpcs.inc.php,v 1.2 2005-03-04 08:09:34 kimitake Exp $\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
+// XML RPC Server class\r
+// requires: xmlrpc.inc\r
+\r
+// listMethods: either a string, or nothing\r
+$_xmlrpcs_listMethods_sig=array(array($xmlrpcArray, $xmlrpcString), \r
+ array($xmlrpcArray));\r
+$_xmlrpcs_listMethods_doc='This method lists all the methods that the XML-RPC server knows how to dispatch';\r
+function _xmlrpcs_listMethods($server, $m) {\r
+ global $xmlrpcerr, $xmlrpcstr, $_xmlrpcs_dmap;\r
+ $v=new xmlrpcval();\r
+ $dmap=$server->dmap;\r
+ $outAr=array();\r
+ for(reset($dmap); list($key, $val)=each($dmap); ) {\r
+ $outAr[]=new xmlrpcval($key, "string");\r
+ }\r
+ $dmap=$_xmlrpcs_dmap;\r
+ for(reset($dmap); list($key, $val)=each($dmap); ) {\r
+ $outAr[]=new xmlrpcval($key, "string");\r
+ }\r
+ $v->addArray($outAr);\r
+ return new xmlrpcresp($v);\r
+}\r
+\r
+$_xmlrpcs_methodSignature_sig=array(array($xmlrpcArray, $xmlrpcString));\r
+$_xmlrpcs_methodSignature_doc='Returns an array of known signatures (an array of arrays) for the method name passed. If no signatures are known, returns a none-array (test for type != array to detect missing signature)';\r
+function _xmlrpcs_methodSignature($server, $m) {\r
+ global $xmlrpcerr, $xmlrpcstr, $_xmlrpcs_dmap;\r
+\r
+ $methName=$m->getParam(0);\r
+ $methName=$methName->scalarval();\r
+ if (ereg("^system\.", $methName)) {\r
+ $dmap=$_xmlrpcs_dmap; $sysCall=1;\r
+ } else {\r
+ $dmap=$server->dmap; $sysCall=0;\r
+ }\r
+ // print "<!-- ${methName} -->\n";\r
+ if (isset($dmap[$methName])) {\r
+ if ($dmap[$methName]["signature"]) {\r
+ $sigs=array();\r
+ $thesigs=$dmap[$methName]["signature"];\r
+ for($i=0; $i<sizeof($thesigs); $i++) {\r
+ $cursig=array();\r
+ $inSig=$thesigs[$i];\r
+ for($j=0; $j<sizeof($inSig); $j++) {\r
+ $cursig[]=new xmlrpcval($inSig[$j], "string");\r
+ }\r
+ $sigs[]=new xmlrpcval($cursig, "array");\r
+ }\r
+ $r=new xmlrpcresp(new xmlrpcval($sigs, "array"));\r
+ } else {\r
+ $r=new xmlrpcresp(new xmlrpcval("undef", "string"));\r
+ }\r
+ } else {\r
+ $r=new xmlrpcresp(0,\r
+ $xmlrpcerr["introspect_unknown"],\r
+ $xmlrpcstr["introspect_unknown"]);\r
+ }\r
+ return $r;\r
+}\r
+\r
+$_xmlrpcs_methodHelp_sig=array(array($xmlrpcString, $xmlrpcString));\r
+$_xmlrpcs_methodHelp_doc='Returns help text if defined for the method passed, otherwise returns an empty string';\r
+function _xmlrpcs_methodHelp($server, $m) {\r
+ global $xmlrpcerr, $xmlrpcstr, $_xmlrpcs_dmap;\r
+\r
+ $methName=$m->getParam(0);\r
+ $methName=$methName->scalarval();\r
+ if (ereg("^system\.", $methName)) {\r
+ $dmap=$_xmlrpcs_dmap; $sysCall=1;\r
+ } else {\r
+ $dmap=$server->dmap; $sysCall=0;\r
+ }\r
+ // print "<!-- ${methName} -->\n";\r
+ if (isset($dmap[$methName])) {\r
+ if ($dmap[$methName]["docstring"]) {\r
+ $r=new xmlrpcresp(new xmlrpcval($dmap[$methName]["docstring"]),\r
+ "string");\r
+ } else {\r
+ $r=new xmlrpcresp(new xmlrpcval("", "string"));\r
+ }\r
+ } else {\r
+ $r=new xmlrpcresp(0,\r
+ $xmlrpcerr["introspect_unknown"],\r
+ $xmlrpcstr["introspect_unknown"]);\r
+ }\r
+ return $r;\r
+}\r
+\r
+$_xmlrpcs_dmap=array(\r
+ "system.listMethods" =>\r
+ array("function" => "_xmlrpcs_listMethods",\r
+ "signature" => $_xmlrpcs_listMethods_sig,\r
+ "docstring" => $_xmlrpcs_listMethods_doc),\r
+ "system.methodHelp" =>\r
+ array("function" => "_xmlrpcs_methodHelp",\r
+ "signature" => $_xmlrpcs_methodHelp_sig,\r
+ "docstring" => $_xmlrpcs_methodHelp_doc),\r
+ "system.methodSignature" =>\r
+ array("function" => "_xmlrpcs_methodSignature",\r
+ "signature" => $_xmlrpcs_methodSignature_sig,\r
+ "docstring" => $_xmlrpcs_methodSignature_doc)\r
+ );\r
+\r
+$_xmlrpc_debuginfo="";\r
+function xmlrpc_debugmsg($m) {\r
+ global $_xmlrpc_debuginfo;\r
+ $_xmlrpc_debuginfo=$_xmlrpc_debuginfo . $m . "\n";\r
+}\r
+\r
+class xmlrpc_server {\r
+ var $dmap=array();\r
+\r
+ function xmlrpc_server($dispMap, $serviceNow=1) {\r
+ global $HTTP_RAW_POST_DATA;\r
+ // dispMap is a despatch array of methods\r
+ // mapped to function names and signatures\r
+ // if a method\r
+ // doesn't appear in the map then an unknown\r
+ // method error is generated\r
+ $this->dmap=$dispMap;\r
+ if ($serviceNow) {\r
+ $this->service();\r
+ }\r
+ }\r
+\r
+ function serializeDebug() {\r
+ global $_xmlrpc_debuginfo;\r
+ if ($_xmlrpc_debuginfo!="") \r
+ return "<!-- DEBUG INFO:\n\n" .\r
+ $_xmlrpc_debuginfo . "\n-->\n";\r
+ else\r
+ return "";\r
+ }\r
+\r
+ function service() {\r
+ $r=$this->parseRequest();\r
+ $payload="<" . "?xml version=\"1.0\"?" . ">\n" . \r
+ $this->serializeDebug() .\r
+ $r->serialize();\r
+ Header("Content-type: text/xml\r\nContent-length: " . \r
+ strlen($payload));\r
+ print $payload;\r
+ }\r
+\r
+ function verifySignature($in, $sig) {\r
+ for($i=0; $i<sizeof($sig); $i++) {\r
+ // check each possible signature in turn\r
+ $cursig=$sig[$i];\r
+ if (sizeof($cursig)==$in->getNumParams()+1) {\r
+ $itsOK=1;\r
+ for($n=0; $n<$in->getNumParams(); $n++) {\r
+ $p=$in->getParam($n);\r
+ // print "<!-- $p -->\n";\r
+ if ($p->kindOf() == "scalar") {\r
+ $pt=$p->scalartyp();\r
+ } else {\r
+ $pt=$p->kindOf();\r
+ }\r
+ // $n+1 as first type of sig is return type\r
+ if ($pt != $cursig[$n+1]) {\r
+ $itsOK=0;\r
+ $pno=$n+1; $wanted=$cursig[$n+1]; $got=$pt;\r
+ break;\r
+ }\r
+ }\r
+ if ($itsOK) \r
+ return array(1);\r
+ }\r
+ }\r
+ return array(0, "Wanted ${wanted}, got ${got} at param ${pno})");\r
+ }\r
+\r
+ function parseRequest($data="") {\r
+ global $_xh,$HTTP_RAW_POST_DATA;\r
+ global $xmlrpcerr, $xmlrpcstr, $xmlrpcerrxml, $xmlrpc_defencoding,\r
+ $_xmlrpcs_dmap;\r
+\r
+ \r
+\r
+ if ($data=="") {\r
+ $data=$HTTP_RAW_POST_DATA;\r
+ }\r
+ $parser = xml_parser_create($xmlrpc_defencoding);\r
+\r
+ $_xh[$parser]=array();\r
+ $_xh[$parser]['st']="";\r
+ $_xh[$parser]['cm']=0; \r
+ $_xh[$parser]['isf']=0; \r
+ $_xh[$parser]['params']=array();\r
+ $_xh[$parser]['method']="";\r
+\r
+ // decompose incoming XML into request structure\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
+ if (!xml_parse($parser, $data, 1)) {\r
+ // return XML error as a faultCode\r
+ $r=new xmlrpcresp(0,\r
+ $xmlrpcerrxml+xml_get_error_code($parser),\r
+ sprintf("XML error: %s at line %d",\r
+ xml_error_string(xml_get_error_code($parser)),\r
+ xml_get_current_line_number($parser)));\r
+ xml_parser_free($parser);\r
+ } else {\r
+ xml_parser_free($parser);\r
+ $m=new xmlrpcmsg($_xh[$parser]['method']);\r
+ // now add parameters in\r
+ $plist="";\r
+ for($i=0; $i<sizeof($_xh[$parser]['params']); $i++) {\r
+ //print "<!-- " . $_xh[$parser]['params'][$i]. "-->\n";\r
+ $plist.="$i - " . $_xh[$parser]['params'][$i]. " \n";\r
+ eval('$m->addParam(' . $_xh[$parser]['params'][$i]. ");");\r
+ }\r
+ // uncomment this to really see what the server's getting!\r
+ // xmlrpc_debugmsg($plist);\r
+ // now to deal with the method\r
+ $methName=$_xh[$parser]['method'];\r
+ if (ereg("^system\.", $methName)) {\r
+ $dmap=$_xmlrpcs_dmap; $sysCall=1;\r
+ } else {\r
+ $dmap=$this->dmap; $sysCall=0;\r
+ }\r
+ if (isset($dmap[$methName]['function'])) {\r
+ // dispatch if exists\r
+ if (isset($dmap[$methName]['signature'])) {\r
+ $sr=$this->verifySignature($m, \r
+ $dmap[$methName]['signature'] );\r
+ }\r
+ if ( (!isset($dmap[$methName]['signature']))\r
+ || $sr[0]) {\r
+ // if no signature or correct signature\r
+ if ($sysCall) { \r
+ eval('$r=' . $dmap[$methName]['function'] . \r
+ '($this, $m);');\r
+ } else {\r
+ eval('$r=' . $dmap[$methName]['function'] . \r
+ '($m);');\r
+ }\r
+ } else {\r
+ $r=new xmlrpcresp(0,\r
+ $xmlrpcerr["incorrect_params"],\r
+ $xmlrpcstr["incorrect_params"].": ". $sr[1]);\r
+ }\r
+ } else {\r
+ // else prepare error response\r
+ $r=new xmlrpcresp(0,\r
+ $xmlrpcerr["unknown_method"],\r
+ $xmlrpcstr["unknown_method"]);\r
+ }\r
+ }\r
+ return $r;\r
+ }\r
+\r
+ function echoInput() {\r
+ global $HTTP_RAW_POST_DATA;\r
+\r
+ // a debugging routine: just echos back the input\r
+ // packet as a string value\r
+\r
+ $r=new xmlrpcresp;\r
+ $r->xv=new xmlrpcval( "'Aha said I: '" . $HTTP_RAW_POST_DATA, "string");\r
+ print $r->serialize();\r
+ }\r
+}\r
+\r
+?>\r