converted to unix-style eol
[www-register-wizard.git] / libraries / Xmlrpcs.php
index a210183..cdbdee9 100644 (file)
-<?php  if ( ! defined('BASEPATH')) exit('No direct script access allowed');\r
-/**\r
- * CodeIgniter\r
- *\r
- * An open source application development framework for PHP 4.3.2 or newer\r
- *\r
- * @package            CodeIgniter\r
- * @author             ExpressionEngine Dev Team\r
- * @copyright  Copyright (c) 2008, EllisLab, Inc.\r
- * @license            http://codeigniter.com/user_guide/license.html\r
- * @link               http://codeigniter.com\r
- * @since              Version 1.0\r
- * @filesource\r
- */\r
-\r
-if ( ! function_exists('xml_parser_create'))\r
-{      \r
-       show_error('Your PHP installation does not support XML');\r
-}\r
-\r
-if ( ! class_exists('CI_Xmlrpc'))\r
-{\r
-       show_error('You must load the Xmlrpc class before loading the Xmlrpcs class in order to create a server.');\r
-}\r
-\r
-// ------------------------------------------------------------------------\r
-\r
-/**\r
- * XML-RPC server class\r
- *\r
- * @package            CodeIgniter\r
- * @subpackage Libraries\r
- * @category   XML-RPC\r
- * @author             ExpressionEngine Dev Team\r
- * @link               http://codeigniter.com/user_guide/libraries/xmlrpc.html\r
- */\r
-class CI_Xmlrpcs extends CI_Xmlrpc\r
-{\r
-       var $methods            = array();      //array of methods mapped to function names and signatures\r
-       var $debug_msg          = '';           // Debug Message\r
-       var $system_methods = array(); // XML RPC Server methods\r
-       var $controller_obj;\r
-\r
-       var $object                     = FALSE;\r
-       \r
-       \r
-       //-------------------------------------\r
-       //  Constructor, more or less\r
-       //-------------------------------------\r
-\r
-       function CI_Xmlrpcs($config=array())\r
-       {       \r
-               parent::CI_Xmlrpc();\r
-               $this->set_system_methods();\r
-       \r
-               if (isset($config['functions']) && is_array($config['functions']))\r
-               {\r
-                       $this->methods = array_merge($this->methods, $config['functions']);\r
-               }\r
-               \r
-               log_message('debug', "XML-RPC Server Class Initialized");\r
-       }\r
-       \r
-       //-------------------------------------\r
-       //  Initialize Prefs and Serve\r
-       //-------------------------------------\r
-       \r
-       function initialize($config=array())\r
-       {       \r
-               if (isset($config['functions']) && is_array($config['functions']))\r
-               {\r
-                       $this->methods = array_merge($this->methods, $config['functions']);\r
-               }\r
-               \r
-               if (isset($config['debug']))\r
-               {\r
-                       $this->debug = $config['debug'];\r
-               }\r
-               \r
-               if (isset($config['object']) && is_object($config['object']))\r
-               {\r
-                       $this->object = $config['object'];\r
-               }\r
-       }\r
-       \r
-       //-------------------------------------\r
-       //  Setting of System Methods\r
-       //-------------------------------------\r
-       \r
-       function set_system_methods ()\r
-       {\r
-               $this->methods = array(\r
-                                       'system.listMethods'     => array(\r
-                                                                                                       'function' => 'this.listMethods',\r
-                                                                                                       'signature' => array(array($this->xmlrpcArray, $this->xmlrpcString), array($this->xmlrpcArray)),\r
-                                                                                                       'docstring' => 'Returns an array of available methods on this server'),\r
-                                       'system.methodHelp'              => array(\r
-                                                                                                       'function' => 'this.methodHelp',\r
-                                                                                                       'signature' => array(array($this->xmlrpcString, $this->xmlrpcString)),\r
-                                                                                                       'docstring' => 'Returns a documentation string for the specified method'),\r
-                                       'system.methodSignature' => array(\r
-                                                                                                       'function' => 'this.methodSignature',\r
-                                                                                                       'signature' => array(array($this->xmlrpcArray, $this->xmlrpcString)),\r
-                                                                                                       'docstring' => 'Returns an array describing the return type and required parameters of a method'),\r
-                                       'system.multicall'               => array(\r
-                                                                                               'function' => 'this.multicall',\r
-                                                                                               'signature' => array(array($this->xmlrpcArray, $this->xmlrpcArray)),\r
-                                                                                               'docstring' => 'Combine multiple RPC calls in one request. See http://www.xmlrpc.com/discuss/msgReader$1208 for details')\r
-                                       );\r
-       }\r
-\r
-\r
-       //-------------------------------------\r
-       //  Main Server Function\r
-       //-------------------------------------\r
-       \r
-       function serve()\r
-       {\r
-               $r = $this->parseRequest();\r
-               $payload  = '<?xml version="1.0" encoding="'.$this->xmlrpc_defencoding.'"?'.'>'."\n";\r
-               $payload .= $this->debug_msg;\r
-               $payload .= $r->prepare_response();\r
-               \r
-               header("Content-Type: text/xml");\r
-               header("Content-Length: ".strlen($payload));\r
-               echo $payload;\r
-       }\r
-\r
-       //-------------------------------------\r
-       //  Add Method to Class\r
-       //-------------------------------------\r
-       \r
-       function add_to_map($methodname,$function,$sig,$doc)\r
-       {\r
-               $this->methods[$methodname] = array(\r
-                       'function'  => $function,\r
-                       'signature' => $sig,\r
-                       'docstring' => $doc\r
-               );\r
-       }\r
-\r
-\r
-       //-------------------------------------\r
-       //  Parse Server Request\r
-       //-------------------------------------\r
-       \r
-       function parseRequest($data='')\r
-       {\r
-               global $HTTP_RAW_POST_DATA;\r
-               \r
-               //-------------------------------------\r
-               //  Get Data\r
-               //-------------------------------------\r
-\r
-               if ($data == '')\r
-               {\r
-                       $data = $HTTP_RAW_POST_DATA;\r
-               }\r
-\r
-               //-------------------------------------\r
-               //  Set up XML Parser\r
-               //-------------------------------------\r
-               \r
-               $parser = xml_parser_create($this->xmlrpc_defencoding);\r
-               $parser_object = new XML_RPC_Message("filler");\r
-               \r
-               $parser_object->xh[$parser]                                     = array();\r
-               $parser_object->xh[$parser]['isf']                      = 0;\r
-               $parser_object->xh[$parser]['isf_reason']       = '';\r
-               $parser_object->xh[$parser]['params']           = array();\r
-               $parser_object->xh[$parser]['stack']            = array();\r
-               $parser_object->xh[$parser]['valuestack']       = array();\r
-               $parser_object->xh[$parser]['method']           = '';\r
-\r
-               xml_set_object($parser, $parser_object);\r
-               xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);\r
-               xml_set_element_handler($parser, 'open_tag', 'closing_tag');\r
-               xml_set_character_data_handler($parser, 'character_data');\r
-               //xml_set_default_handler($parser, 'default_handler');\r
-               \r
-               \r
-               //-------------------------------------\r
-               //  PARSE + PROCESS XML DATA\r
-               //-------------------------------------         \r
-               \r
-               if ( ! xml_parse($parser, $data, 1))\r
-               {\r
-                       // return XML error as a faultCode\r
-                       $r = new XML_RPC_Response(0,\r
-                       $this->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
-               }\r
-               elseif($parser_object->xh[$parser]['isf'])\r
-               {\r
-                       return new XML_RPC_Response(0, $this->xmlrpcerr['invalid_return'], $this->xmlrpcstr['invalid_return']);\r
-               }\r
-               else\r
-               {\r
-                       xml_parser_free($parser);\r
-                       \r
-                       $m = new XML_RPC_Message($parser_object->xh[$parser]['method']);\r
-                       $plist='';\r
-                       \r
-                       for($i=0; $i < sizeof($parser_object->xh[$parser]['params']); $i++)\r
-                       {\r
-                               if ($this->debug === TRUE)\r
-                               {\r
-                                       $plist .= "$i - " .  print_r(get_object_vars($parser_object->xh[$parser]['params'][$i]), TRUE). ";\n";\r
-                               }\r
-                               \r
-                               $m->addParam($parser_object->xh[$parser]['params'][$i]);\r
-                       }\r
-                       \r
-                       if ($this->debug === TRUE)\r
-                       {\r
-                               echo "<pre>";\r
-                               echo "---PLIST---\n" . $plist . "\n---PLIST END---\n\n";\r
-                               echo "</pre>";\r
-                       }\r
-                       \r
-                       $r = $this->_execute($m);\r
-               }\r
-               \r
-               //-------------------------------------\r
-               //  SET DEBUGGING MESSAGE\r
-               //-------------------------------------         \r
-               \r
-               if ($this->debug === TRUE)\r
-               {\r
-                       $this->debug_msg = "<!-- DEBUG INFO:\n\n".$plist."\n END DEBUG-->\n";\r
-               }\r
-               \r
-               return $r;\r
-       }\r
-\r
-       //-------------------------------------\r
-       //  Executes the Method\r
-       //-------------------------------------\r
-       \r
-       function _execute($m)\r
-       {\r
-               $methName = $m->method_name;\r
-               \r
-               // Check to see if it is a system call\r
-               $system_call = (strncmp($methName, 'system', 5) == 0) ? TRUE : FALSE;\r
-               \r
-               //-------------------------------------\r
-               //  Valid Method\r
-               //-------------------------------------\r
-               \r
-               if ( ! isset($this->methods[$methName]['function']))\r
-               {\r
-                       return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);\r
-               }\r
-               \r
-               //-------------------------------------\r
-               //  Check for Method (and Object)\r
-               //-------------------------------------\r
-                       \r
-               $method_parts = explode(".", $this->methods[$methName]['function']);\r
-               $objectCall = (isset($method_parts['1']) && $method_parts['1'] != "") ? TRUE : FALSE;\r
-               \r
-               if ($system_call === TRUE)\r
-               {\r
-                       if ( ! is_callable(array($this,$method_parts['1'])))\r
-                       {\r
-                               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);\r
-                       }\r
-               }\r
-               else\r
-               {\r
-                       if ($objectCall && ! is_callable(array($method_parts['0'],$method_parts['1'])))\r
-                       {\r
-                               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);\r
-                       }\r
-                       elseif ( ! $objectCall && ! is_callable($this->methods[$methName]['function']))\r
-                       {\r
-                               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);\r
-                       }\r
-               }\r
-               \r
-               //-------------------------------------\r
-               //  Checking Methods Signature\r
-               //-------------------------------------\r
-               \r
-               if (isset($this->methods[$methName]['signature']))\r
-               {\r
-                       $sig = $this->methods[$methName]['signature'];\r
-                       for($i=0; $i<sizeof($sig); $i++)\r
-                       {\r
-                               $current_sig = $sig[$i];\r
-               \r
-                               if (sizeof($current_sig) == sizeof($m->params)+1)\r
-                               {\r
-                                       for($n=0; $n < sizeof($m->params); $n++)\r
-                                       {\r
-                                               $p = $m->params[$n];\r
-                                               $pt = ($p->kindOf() == 'scalar') ? $p->scalarval() : $p->kindOf();\r
-                                               \r
-                                               if ($pt != $current_sig[$n+1])\r
-                                               {\r
-                                                       $pno = $n+1;\r
-                                                       $wanted = $current_sig[$n+1];\r
-                                                       \r
-                                                       return new XML_RPC_Response(0,\r
-                                                               $this->xmlrpcerr['incorrect_params'],\r
-                                                               $this->xmlrpcstr['incorrect_params'] .\r
-                                                               ": Wanted {$wanted}, got {$pt} at param {$pno})");\r
-                                               }\r
-                                       }\r
-                               }\r
-                       }\r
-               }\r
-\r
-               //-------------------------------------\r
-               //  Calls the Function\r
-               //-------------------------------------\r
-\r
-               if ($objectCall === TRUE)\r
-               {\r
-                       if ($method_parts[0] == "this" && $system_call == TRUE)\r
-                       {\r
-                               return call_user_func(array($this, $method_parts[1]), $m);\r
-                       }\r
-                       else\r
-                       {\r
-                               if ($this->object === FALSE)\r
-                               {\r
-                                       $CI =& get_instance();\r
-                                       return $CI->$method_parts['1']($m);\r
-                               }\r
-                               else\r
-                               {\r
-                                       return $this->object->$method_parts['1']($m);\r
-                                       //return call_user_func(array(&$method_parts['0'],$method_parts['1']), $m);\r
-                               }\r
-                       }\r
-               }\r
-               else\r
-               {\r
-                       return call_user_func($this->methods[$methName]['function'], $m);\r
-               }\r
-       }\r
-       \r
-       \r
-       //-------------------------------------\r
-       //  Server Function:  List Methods\r
-       //-------------------------------------\r
-       \r
-       function listMethods($m)\r
-       {\r
-               $v = new XML_RPC_Values();\r
-               $output = array();\r
-               \r
-               foreach($this->methods as $key => $value)\r
-               {\r
-                       $output[] = new XML_RPC_Values($key, 'string');\r
-               }\r
-               \r
-               foreach($this->system_methods as $key => $value)\r
-               {\r
-                       $output[]= new XML_RPC_Values($key, 'string');\r
-               }\r
-\r
-               $v->addArray($output);\r
-               return new XML_RPC_Response($v);\r
-       }\r
-       \r
-       //-------------------------------------\r
-       //  Server Function:  Return Signature for Method\r
-       //-------------------------------------\r
-               \r
-       function methodSignature($m)\r
-       {\r
-               $parameters = $m->output_parameters();\r
-               $method_name = $parameters[0];\r
-               \r
-               if (isset($this->methods[$method_name]))\r
-               {\r
-                       if ($this->methods[$method_name]['signature'])\r
-                       {\r
-                               $sigs = array();\r
-                               $signature = $this->methods[$method_name]['signature'];\r
-                               \r
-                               for($i=0; $i < sizeof($signature); $i++)\r
-                               {\r
-                                       $cursig = array();\r
-                                       $inSig = $signature[$i];\r
-                                       for($j=0; $j<sizeof($inSig); $j++)\r
-                                       {\r
-                                               $cursig[]= new XML_RPC_Values($inSig[$j], 'string');\r
-                                       }\r
-                                       $sigs[]= new XML_RPC_Values($cursig, 'array');\r
-                               }\r
-                               $r = new XML_RPC_Response(new XML_RPC_Values($sigs, 'array'));\r
-                       }\r
-                       else\r
-                       {\r
-                               $r = new XML_RPC_Response(new XML_RPC_Values('undef', 'string'));\r
-                       }\r
-               }\r
-               else\r
-               {\r
-                       $r = new XML_RPC_Response(0,$this->xmlrpcerr['introspect_unknown'], $this->xmlrpcstr['introspect_unknown']);\r
-               }\r
-               return $r;\r
-       }\r
-       \r
-       //-------------------------------------\r
-       //  Server Function:  Doc String for Method\r
-       //-------------------------------------\r
-       \r
-       function methodHelp($m)\r
-       {\r
-               $parameters = $m->output_parameters();\r
-               $method_name = $parameters[0];\r
-       \r
-               if (isset($this->methods[$method_name]))\r
-               {\r
-                       $docstring = isset($this->methods[$method_name]['docstring']) ? $this->methods[$method_name]['docstring'] : '';\r
-                       \r
-                       return new XML_RPC_Response(new XML_RPC_Values($docstring, 'string'));\r
-               }\r
-               else\r
-               {\r
-                       return new XML_RPC_Response(0, $this->xmlrpcerr['introspect_unknown'], $this->xmlrpcstr['introspect_unknown']);\r
-               }\r
-       }\r
-\r
-       //-------------------------------------\r
-       //  Server Function:  Multi-call\r
-       //-------------------------------------\r
-\r
-       function multicall($m)\r
-       {\r
-               // Disabled\r
-               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);\r
-               \r
-               $parameters = $m->output_parameters();\r
-               $calls = $parameters[0];\r
-\r
-               $result = array();\r
-\r
-               foreach ($calls as $value)\r
-               {\r
-                       //$attempt = $this->_execute(new XML_RPC_Message($value[0], $value[1]));\r
-                       \r
-                       $m = new XML_RPC_Message($value[0]);\r
-                       $plist='';\r
-                       \r
-                       for($i=0; $i < sizeof($value[1]); $i++)\r
-                       {\r
-                               $m->addParam(new XML_RPC_Values($value[1][$i], 'string'));\r
-                       }\r
-                       \r
-                       $attempt = $this->_execute($m);\r
-\r
-                       if ($attempt->faultCode() != 0)\r
-                       {\r
-                               return $attempt;\r
-                       }\r
-\r
-                       $result[] = new XML_RPC_Values(array($attempt->value()), 'array');\r
-               }\r
-\r
-               return new XML_RPC_Response(new XML_RPC_Values($result, 'array'));\r
-       }\r
-       \r
-       \r
-       //-------------------------------------\r
-       //  Multi-call Function:  Error Handling\r
-       //-------------------------------------\r
-\r
-       function multicall_error($err)\r
-       {\r
-               $str  = is_string($err) ? $this->xmlrpcstr["multicall_${err}"] : $err->faultString();\r
-               $code = is_string($err) ? $this->xmlrpcerr["multicall_${err}"] : $err->faultCode();\r
-               \r
-               $struct['faultCode'] = new XML_RPC_Values($code, 'int');\r
-               $struct['faultString'] = new XML_RPC_Values($str, 'string');\r
-       \r
-               return new XML_RPC_Values($struct, 'struct');\r
-       }\r
-       \r
-       \r
-       //-------------------------------------\r
-       //  Multi-call Function:  Processes method\r
-       //-------------------------------------\r
-       \r
-       function do_multicall($call)\r
-       {\r
-               if ($call->kindOf() != 'struct')\r
-                       return $this->multicall_error('notstruct');\r
-               elseif ( ! $methName = $call->me['struct']['methodName'])\r
-                       return $this->multicall_error('nomethod');\r
-               \r
-               list($scalar_type,$scalar_value)=each($methName->me);\r
-               $scalar_type = $scalar_type == $this->xmlrpcI4 ? $this->xmlrpcInt : $scalar_type;\r
-                       \r
-               if ($methName->kindOf() != 'scalar' OR $scalar_type != 'string')\r
-                       return $this->multicall_error('notstring');\r
-               elseif ($scalar_value == 'system.multicall')\r
-                       return $this->multicall_error('recursion');\r
-               elseif ( ! $params = $call->me['struct']['params'])\r
-                       return $this->multicall_error('noparams');\r
-               elseif ($params->kindOf() != 'array')\r
-                       return $this->multicall_error('notarray');\r
-                       \r
-               list($a,$b)=each($params->me);\r
-               $numParams = sizeof($b);\r
-\r
-               $msg = new XML_RPC_Message($scalar_value);\r
-               for ($i = 0; $i < $numParams; $i++)\r
-               {\r
-                       $msg->params[] = $params->me['array'][$i];\r
-               }\r
-\r
-               $result = $this->_execute($msg);\r
-\r
-               if ($result->faultCode() != 0)\r
-               {\r
-                       return $this->multicall_error($result);\r
-               }\r
-\r
-               return new XML_RPC_Values(array($result->value()), 'array');\r
-       }       \r
-       \r
-}\r
-// END XML_RPC_Server class\r
-\r
-\r
-/* End of file Xmlrpcs.php */\r
+<?php  if ( ! defined('BASEPATH')) exit('No direct script access allowed');
+/**
+ * CodeIgniter
+ *
+ * An open source application development framework for PHP 4.3.2 or newer
+ *
+ * @package            CodeIgniter
+ * @author             ExpressionEngine Dev Team
+ * @copyright  Copyright (c) 2008, EllisLab, Inc.
+ * @license            http://codeigniter.com/user_guide/license.html
+ * @link               http://codeigniter.com
+ * @since              Version 1.0
+ * @filesource
+ */
+
+if ( ! function_exists('xml_parser_create'))
+{      
+       show_error('Your PHP installation does not support XML');
+}
+
+if ( ! class_exists('CI_Xmlrpc'))
+{
+       show_error('You must load the Xmlrpc class before loading the Xmlrpcs class in order to create a server.');
+}
+
+// ------------------------------------------------------------------------
+
+/**
+ * XML-RPC server class
+ *
+ * @package            CodeIgniter
+ * @subpackage Libraries
+ * @category   XML-RPC
+ * @author             ExpressionEngine Dev Team
+ * @link               http://codeigniter.com/user_guide/libraries/xmlrpc.html
+ */
+class CI_Xmlrpcs extends CI_Xmlrpc
+{
+       var $methods            = array();      //array of methods mapped to function names and signatures
+       var $debug_msg          = '';           // Debug Message
+       var $system_methods = array(); // XML RPC Server methods
+       var $controller_obj;
+
+       var $object                     = FALSE;
+       
+       
+       //-------------------------------------
+       //  Constructor, more or less
+       //-------------------------------------
+
+       function CI_Xmlrpcs($config=array())
+       {       
+               parent::CI_Xmlrpc();
+               $this->set_system_methods();
+       
+               if (isset($config['functions']) && is_array($config['functions']))
+               {
+                       $this->methods = array_merge($this->methods, $config['functions']);
+               }
+               
+               log_message('debug', "XML-RPC Server Class Initialized");
+       }
+       
+       //-------------------------------------
+       //  Initialize Prefs and Serve
+       //-------------------------------------
+       
+       function initialize($config=array())
+       {       
+               if (isset($config['functions']) && is_array($config['functions']))
+               {
+                       $this->methods = array_merge($this->methods, $config['functions']);
+               }
+               
+               if (isset($config['debug']))
+               {
+                       $this->debug = $config['debug'];
+               }
+               
+               if (isset($config['object']) && is_object($config['object']))
+               {
+                       $this->object = $config['object'];
+               }
+       }
+       
+       //-------------------------------------
+       //  Setting of System Methods
+       //-------------------------------------
+       
+       function set_system_methods ()
+       {
+               $this->methods = array(
+                                       'system.listMethods'     => array(
+                                                                                                       'function' => 'this.listMethods',
+                                                                                                       'signature' => array(array($this->xmlrpcArray, $this->xmlrpcString), array($this->xmlrpcArray)),
+                                                                                                       'docstring' => 'Returns an array of available methods on this server'),
+                                       'system.methodHelp'              => array(
+                                                                                                       'function' => 'this.methodHelp',
+                                                                                                       'signature' => array(array($this->xmlrpcString, $this->xmlrpcString)),
+                                                                                                       'docstring' => 'Returns a documentation string for the specified method'),
+                                       'system.methodSignature' => array(
+                                                                                                       'function' => 'this.methodSignature',
+                                                                                                       'signature' => array(array($this->xmlrpcArray, $this->xmlrpcString)),
+                                                                                                       'docstring' => 'Returns an array describing the return type and required parameters of a method'),
+                                       'system.multicall'               => array(
+                                                                                               'function' => 'this.multicall',
+                                                                                               'signature' => array(array($this->xmlrpcArray, $this->xmlrpcArray)),
+                                                                                               'docstring' => 'Combine multiple RPC calls in one request. See http://www.xmlrpc.com/discuss/msgReader$1208 for details')
+                                       );
+       }
+
+
+       //-------------------------------------
+       //  Main Server Function
+       //-------------------------------------
+       
+       function serve()
+       {
+               $r = $this->parseRequest();
+               $payload  = '<?xml version="1.0" encoding="'.$this->xmlrpc_defencoding.'"?'.'>'."\n";
+               $payload .= $this->debug_msg;
+               $payload .= $r->prepare_response();
+               
+               header("Content-Type: text/xml");
+               header("Content-Length: ".strlen($payload));
+               echo $payload;
+       }
+
+       //-------------------------------------
+       //  Add Method to Class
+       //-------------------------------------
+       
+       function add_to_map($methodname,$function,$sig,$doc)
+       {
+               $this->methods[$methodname] = array(
+                       'function'  => $function,
+                       'signature' => $sig,
+                       'docstring' => $doc
+               );
+       }
+
+
+       //-------------------------------------
+       //  Parse Server Request
+       //-------------------------------------
+       
+       function parseRequest($data='')
+       {
+               global $HTTP_RAW_POST_DATA;
+               
+               //-------------------------------------
+               //  Get Data
+               //-------------------------------------
+
+               if ($data == '')
+               {
+                       $data = $HTTP_RAW_POST_DATA;
+               }
+
+               //-------------------------------------
+               //  Set up XML Parser
+               //-------------------------------------
+               
+               $parser = xml_parser_create($this->xmlrpc_defencoding);
+               $parser_object = new XML_RPC_Message("filler");
+               
+               $parser_object->xh[$parser]                                     = array();
+               $parser_object->xh[$parser]['isf']                      = 0;
+               $parser_object->xh[$parser]['isf_reason']       = '';
+               $parser_object->xh[$parser]['params']           = array();
+               $parser_object->xh[$parser]['stack']            = array();
+               $parser_object->xh[$parser]['valuestack']       = array();
+               $parser_object->xh[$parser]['method']           = '';
+
+               xml_set_object($parser, $parser_object);
+               xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);
+               xml_set_element_handler($parser, 'open_tag', 'closing_tag');
+               xml_set_character_data_handler($parser, 'character_data');
+               //xml_set_default_handler($parser, 'default_handler');
+               
+               
+               //-------------------------------------
+               //  PARSE + PROCESS XML DATA
+               //-------------------------------------         
+               
+               if ( ! xml_parse($parser, $data, 1))
+               {
+                       // return XML error as a faultCode
+                       $r = new XML_RPC_Response(0,
+                       $this->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);
+               }
+               elseif($parser_object->xh[$parser]['isf'])
+               {
+                       return new XML_RPC_Response(0, $this->xmlrpcerr['invalid_return'], $this->xmlrpcstr['invalid_return']);
+               }
+               else
+               {
+                       xml_parser_free($parser);
+                       
+                       $m = new XML_RPC_Message($parser_object->xh[$parser]['method']);
+                       $plist='';
+                       
+                       for($i=0; $i < sizeof($parser_object->xh[$parser]['params']); $i++)
+                       {
+                               if ($this->debug === TRUE)
+                               {
+                                       $plist .= "$i - " .  print_r(get_object_vars($parser_object->xh[$parser]['params'][$i]), TRUE). ";\n";
+                               }
+                               
+                               $m->addParam($parser_object->xh[$parser]['params'][$i]);
+                       }
+                       
+                       if ($this->debug === TRUE)
+                       {
+                               echo "<pre>";
+                               echo "---PLIST---\n" . $plist . "\n---PLIST END---\n\n";
+                               echo "</pre>";
+                       }
+                       
+                       $r = $this->_execute($m);
+               }
+               
+               //-------------------------------------
+               //  SET DEBUGGING MESSAGE
+               //-------------------------------------         
+               
+               if ($this->debug === TRUE)
+               {
+                       $this->debug_msg = "<!-- DEBUG INFO:\n\n".$plist."\n END DEBUG-->\n";
+               }
+               
+               return $r;
+       }
+
+       //-------------------------------------
+       //  Executes the Method
+       //-------------------------------------
+       
+       function _execute($m)
+       {
+               $methName = $m->method_name;
+               
+               // Check to see if it is a system call
+               $system_call = (strncmp($methName, 'system', 5) == 0) ? TRUE : FALSE;
+               
+               //-------------------------------------
+               //  Valid Method
+               //-------------------------------------
+               
+               if ( ! isset($this->methods[$methName]['function']))
+               {
+                       return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);
+               }
+               
+               //-------------------------------------
+               //  Check for Method (and Object)
+               //-------------------------------------
+                       
+               $method_parts = explode(".", $this->methods[$methName]['function']);
+               $objectCall = (isset($method_parts['1']) && $method_parts['1'] != "") ? TRUE : FALSE;
+               
+               if ($system_call === TRUE)
+               {
+                       if ( ! is_callable(array($this,$method_parts['1'])))
+                       {
+                               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);
+                       }
+               }
+               else
+               {
+                       if ($objectCall && ! is_callable(array($method_parts['0'],$method_parts['1'])))
+                       {
+                               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);
+                       }
+                       elseif ( ! $objectCall && ! is_callable($this->methods[$methName]['function']))
+                       {
+                               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);
+                       }
+               }
+               
+               //-------------------------------------
+               //  Checking Methods Signature
+               //-------------------------------------
+               
+               if (isset($this->methods[$methName]['signature']))
+               {
+                       $sig = $this->methods[$methName]['signature'];
+                       for($i=0; $i<sizeof($sig); $i++)
+                       {
+                               $current_sig = $sig[$i];
+               
+                               if (sizeof($current_sig) == sizeof($m->params)+1)
+                               {
+                                       for($n=0; $n < sizeof($m->params); $n++)
+                                       {
+                                               $p = $m->params[$n];
+                                               $pt = ($p->kindOf() == 'scalar') ? $p->scalarval() : $p->kindOf();
+                                               
+                                               if ($pt != $current_sig[$n+1])
+                                               {
+                                                       $pno = $n+1;
+                                                       $wanted = $current_sig[$n+1];
+                                                       
+                                                       return new XML_RPC_Response(0,
+                                                               $this->xmlrpcerr['incorrect_params'],
+                                                               $this->xmlrpcstr['incorrect_params'] .
+                                                               ": Wanted {$wanted}, got {$pt} at param {$pno})");
+                                               }
+                                       }
+                               }
+                       }
+               }
+
+               //-------------------------------------
+               //  Calls the Function
+               //-------------------------------------
+
+               if ($objectCall === TRUE)
+               {
+                       if ($method_parts[0] == "this" && $system_call == TRUE)
+                       {
+                               return call_user_func(array($this, $method_parts[1]), $m);
+                       }
+                       else
+                       {
+                               if ($this->object === FALSE)
+                               {
+                                       $CI =& get_instance();
+                                       return $CI->$method_parts['1']($m);
+                               }
+                               else
+                               {
+                                       return $this->object->$method_parts['1']($m);
+                                       //return call_user_func(array(&$method_parts['0'],$method_parts['1']), $m);
+                               }
+                       }
+               }
+               else
+               {
+                       return call_user_func($this->methods[$methName]['function'], $m);
+               }
+       }
+       
+       
+       //-------------------------------------
+       //  Server Function:  List Methods
+       //-------------------------------------
+       
+       function listMethods($m)
+       {
+               $v = new XML_RPC_Values();
+               $output = array();
+               
+               foreach($this->methods as $key => $value)
+               {
+                       $output[] = new XML_RPC_Values($key, 'string');
+               }
+               
+               foreach($this->system_methods as $key => $value)
+               {
+                       $output[]= new XML_RPC_Values($key, 'string');
+               }
+
+               $v->addArray($output);
+               return new XML_RPC_Response($v);
+       }
+       
+       //-------------------------------------
+       //  Server Function:  Return Signature for Method
+       //-------------------------------------
+               
+       function methodSignature($m)
+       {
+               $parameters = $m->output_parameters();
+               $method_name = $parameters[0];
+               
+               if (isset($this->methods[$method_name]))
+               {
+                       if ($this->methods[$method_name]['signature'])
+                       {
+                               $sigs = array();
+                               $signature = $this->methods[$method_name]['signature'];
+                               
+                               for($i=0; $i < sizeof($signature); $i++)
+                               {
+                                       $cursig = array();
+                                       $inSig = $signature[$i];
+                                       for($j=0; $j<sizeof($inSig); $j++)
+                                       {
+                                               $cursig[]= new XML_RPC_Values($inSig[$j], 'string');
+                                       }
+                                       $sigs[]= new XML_RPC_Values($cursig, 'array');
+                               }
+                               $r = new XML_RPC_Response(new XML_RPC_Values($sigs, 'array'));
+                       }
+                       else
+                       {
+                               $r = new XML_RPC_Response(new XML_RPC_Values('undef', 'string'));
+                       }
+               }
+               else
+               {
+                       $r = new XML_RPC_Response(0,$this->xmlrpcerr['introspect_unknown'], $this->xmlrpcstr['introspect_unknown']);
+               }
+               return $r;
+       }
+       
+       //-------------------------------------
+       //  Server Function:  Doc String for Method
+       //-------------------------------------
+       
+       function methodHelp($m)
+       {
+               $parameters = $m->output_parameters();
+               $method_name = $parameters[0];
+       
+               if (isset($this->methods[$method_name]))
+               {
+                       $docstring = isset($this->methods[$method_name]['docstring']) ? $this->methods[$method_name]['docstring'] : '';
+                       
+                       return new XML_RPC_Response(new XML_RPC_Values($docstring, 'string'));
+               }
+               else
+               {
+                       return new XML_RPC_Response(0, $this->xmlrpcerr['introspect_unknown'], $this->xmlrpcstr['introspect_unknown']);
+               }
+       }
+
+       //-------------------------------------
+       //  Server Function:  Multi-call
+       //-------------------------------------
+
+       function multicall($m)
+       {
+               // Disabled
+               return new XML_RPC_Response(0, $this->xmlrpcerr['unknown_method'], $this->xmlrpcstr['unknown_method']);
+               
+               $parameters = $m->output_parameters();
+               $calls = $parameters[0];
+
+               $result = array();
+
+               foreach ($calls as $value)
+               {
+                       //$attempt = $this->_execute(new XML_RPC_Message($value[0], $value[1]));
+                       
+                       $m = new XML_RPC_Message($value[0]);
+                       $plist='';
+                       
+                       for($i=0; $i < sizeof($value[1]); $i++)
+                       {
+                               $m->addParam(new XML_RPC_Values($value[1][$i], 'string'));
+                       }
+                       
+                       $attempt = $this->_execute($m);
+
+                       if ($attempt->faultCode() != 0)
+                       {
+                               return $attempt;
+                       }
+
+                       $result[] = new XML_RPC_Values(array($attempt->value()), 'array');
+               }
+
+               return new XML_RPC_Response(new XML_RPC_Values($result, 'array'));
+       }
+       
+       
+       //-------------------------------------
+       //  Multi-call Function:  Error Handling
+       //-------------------------------------
+
+       function multicall_error($err)
+       {
+               $str  = is_string($err) ? $this->xmlrpcstr["multicall_${err}"] : $err->faultString();
+               $code = is_string($err) ? $this->xmlrpcerr["multicall_${err}"] : $err->faultCode();
+               
+               $struct['faultCode'] = new XML_RPC_Values($code, 'int');
+               $struct['faultString'] = new XML_RPC_Values($str, 'string');
+       
+               return new XML_RPC_Values($struct, 'struct');
+       }
+       
+       
+       //-------------------------------------
+       //  Multi-call Function:  Processes method
+       //-------------------------------------
+       
+       function do_multicall($call)
+       {
+               if ($call->kindOf() != 'struct')
+                       return $this->multicall_error('notstruct');
+               elseif ( ! $methName = $call->me['struct']['methodName'])
+                       return $this->multicall_error('nomethod');
+               
+               list($scalar_type,$scalar_value)=each($methName->me);
+               $scalar_type = $scalar_type == $this->xmlrpcI4 ? $this->xmlrpcInt : $scalar_type;
+                       
+               if ($methName->kindOf() != 'scalar' OR $scalar_type != 'string')
+                       return $this->multicall_error('notstring');
+               elseif ($scalar_value == 'system.multicall')
+                       return $this->multicall_error('recursion');
+               elseif ( ! $params = $call->me['struct']['params'])
+                       return $this->multicall_error('noparams');
+               elseif ($params->kindOf() != 'array')
+                       return $this->multicall_error('notarray');
+                       
+               list($a,$b)=each($params->me);
+               $numParams = sizeof($b);
+
+               $msg = new XML_RPC_Message($scalar_value);
+               for ($i = 0; $i < $numParams; $i++)
+               {
+                       $msg->params[] = $params->me['array'][$i];
+               }
+
+               $result = $this->_execute($msg);
+
+               if ($result->faultCode() != 0)
+               {
+                       return $this->multicall_error($result);
+               }
+
+               return new XML_RPC_Values(array($result->value()), 'array');
+       }       
+       
+}
+// END XML_RPC_Server class
+
+
+/* End of file Xmlrpcs.php */
 /* Location: ./system/libraries/Xmlrpcs.php */
\ No newline at end of file