From 7fbf1175cbad62ab289fba5a22d24912d82a770d Mon Sep 17 00:00:00 2001 From: Laurent Destailleur Date: Tue, 6 Sep 2005 20:40:01 +0000 Subject: [PATCH] Fix: Mise a jour librairie XML-RPC car ancienne version incompatible PHP5. --- htdocs/adherents/XML-RPC.functions.php | 516 ------------------------- htdocs/adherents/fiche.php | 2 +- htdocs/lib/xmlrpc.php | 496 ++++++++++++++++++++++++ 3 files changed, 497 insertions(+), 517 deletions(-) delete mode 100644 htdocs/adherents/XML-RPC.functions.php create mode 100644 htdocs/lib/xmlrpc.php diff --git a/htdocs/adherents/XML-RPC.functions.php b/htdocs/adherents/XML-RPC.functions.php deleted file mode 100644 index e5f92d44dc9..00000000000 --- a/htdocs/adherents/XML-RPC.functions.php +++ /dev/null @@ -1,516 +0,0 @@ -"; - if(!strstr($key, " attr")){ #if it's not an attribute - if(array_key_exists("$key attr", $data)){ - while(list($attr_name, $attr_value) = each($data["$key attr"])){ - #echo "Found attribute $attribute_name with value $attribute_value
"; - $attr_value = &htmlspecialchars($attr_value, ENT_QUOTES); - $attributes .= " $attr_name=\"$attr_value\""; - } - } - - if(is_numeric($key)){ - #echo "My current key ($key) is numeric. My parent key is '$prior_key'
"; - $key = $prior_key; - }else{ - #you can't have numeric keys at two levels in a row, so this is ok - #echo "Checking to see if a numeric key exists in data."; - if(is_array($value) and array_key_exists(0, $value)){ - # echo " It does! Calling myself as a result of a numeric array.
"; - $numeric_array = true; - $xml_serialized_string .= XML_serialize($value, $level, $key); - } - #echo "
"; - } - - if(!$numeric_array){ - $xml_serialized_string .= str_repeat("\t", $level) . "<$key$attributes>"; - - if(is_array($value)){ - $xml_serialized_string .= "\r\n" . XML_serialize($value, $level+1); - }else{ - $inline = true; - $xml_serialized_string .= $value; - } - - $xml_serialized_string .= (!$inline ? str_repeat("\t", $level) : "") . "\r\n"; - } - }else{ - #echo "Skipping attribute record for key $key
"; - } - } - if($level == 0){ - $xml_serialized_string = "\r\n" . $xml_serialized_string; - return $xml_serialized_string; - }else{ - return $xml_serialized_string; - } -} - - -/*! \class XML - \brief Class XML -*/ -class XML { - var $parser; /**< a reference to the XML parser */ - var $document; /**< the entire XML structure built up so far */ - var $current; /**< a pointer to the current item - what is this */ - var $parent; /**< a pointer to the current parent - the parent will be an array */ - var $parents; /**< an array of the most recent parent at each level */ - - var $last_opened_tag; - - function XML($data=null){ - $this->parser = xml_parser_create(); - - xml_parser_set_option ($this->parser, XML_OPTION_CASE_FOLDING, 0); - xml_set_object($this->parser, $this); - xml_set_element_handler($this->parser, "open", "close"); - xml_set_character_data_handler($this->parser, "data"); -# register_shutdown_function(array(&$this, 'destruct')); - } - - function destruct(){ - xml_parser_free($this->parser); - } - - function parse($data){ - $this->document = array(); - $this->parent = &$this->document; - $this->parents = array(); - $this->last_opened_tag = NULL; - xml_parse($this->parser, $data); - return $this->document; - } - - function open($parser, $tag, $attributes){ - #echo "Opening tag $tag
\n"; - $this->data = ""; - $this->last_opened_tag = $tag; #tag is a string - if(array_key_exists($tag, $this->parent)){ - #echo "There's already an instance of '$tag' at the current level ($level)
\n"; - if(is_array($this->parent[$tag]) and array_key_exists(0, $this->parent[$tag])){ #if the keys are numeric - #need to make sure they're numeric (account for attributes) - $key = count_numeric_items($this->parent[$tag]); - #echo "There are $key instances: the keys are numeric.
\n"; - }else{ - #echo "There is only one instance. Shifting everything around
\n"; - $temp = &$this->parent[$tag]; - unset($this->parent[$tag]); - $this->parent[$tag][0] = &$temp; - - if(array_key_exists("$tag attr", $this->parent)){ - #shift the attributes around too if they exist - $temp = &$this->parent["$tag attr"]; - unset($this->parent["$tag attr"]); - $this->parent[$tag]["0 attr"] = &$temp; - } - $key = 1; - } - $this->parent = &$this->parent[$tag]; - }else{ - $key = $tag; - } - if($attributes){ - $this->parent["$key attr"] = $attributes; - } - - $this->parent[$key] = array(); - $this->parent = &$this->parent[$key]; - array_unshift($this->parents, $this->parent); - } - - function data($parser, $data){ - #echo "Data is '", htmlspecialchars($data), "'
\n"; - if($this->last_opened_tag != NULL){ - $this->data .= $data; - } - } - - function close($parser, $tag){ - #echo "Close tag $tag
\n"; - if($this->last_opened_tag == $tag){ - $this->parent = $this->data; - $this->last_opened_tag = NULL; - } - array_shift($this->parents); - $this->parent = &$this->parents[0]; - } -} - -function & XML_unserialize(&$xml){ - $xml_parser = new XML(); - $data = &$xml_parser->parse($xml); - $xml_parser->destruct(); - return $data; -} - -function & XMLRPC_parse(&$request){ - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_parse', "

Received the following raw request:

" . XMLRPC_show($request, 'print_r', true)); - } - $data = &XML_unserialize($request); - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_parse', "

Returning the following parsed request:

" . XMLRPC_show($data, 'print_r', true)); - } - return $data; -} - -function & XMLRPC_prepare($data, $type = NULL){ - if(is_array($data)){ - $num_elements = count($data); - if((array_key_exists(0, $data) or !$num_elements) and $type != 'struct'){ #it's an array - if(!$num_elements){ #if the array is empty - $returnvalue = array('array' => array('data' => NULL)); - }else{ - $returnvalue['array']['data']['value'] = array(); - $temp = &$returnvalue['array']['data']['value']; - $count = count_numeric_items($data); - for($n=0; $n<$count; $n++){ - $type = NULL; - if(array_key_exists("$n type", $data)){ - $type = $data["$n type"]; - } - $temp[$n] = XMLRPC_prepare($data[$n], $type); - } - } - }else{ #it's a struct - if(!$num_elements){ #if the struct is empty - $returnvalue = array('struct' => NULL); - }else{ - $returnvalue['struct']['member'] = array(); - $temp = &$returnvalue['struct']['member']; - while(list($key, $value) = each($data)){ - if(substr($key, -5) != ' type'){ #if it's not a type specifier - $type = NULL; - if(array_key_exists("$key type", $data)){ - $type = $data["$key type"]; - } - $temp[] = array('name' => $key, 'value' => XMLRPC_prepare($value, $type)); - } - } - } - } - }else{ #it's a scalar - if(!$type){ - if(is_int($data)){ - $returnvalue['int'] = $data; - return $returnvalue; - }elseif(is_float($data)){ - $returnvalue['double'] = $data; - return $returnvalue; - }elseif(is_bool($data)){ - $returnvalue['boolean'] = ($data ? 1 : 0); - return $returnvalue; - }elseif(preg_match('/\d{8}T\d{2}:\d{2}:\d{2}/', $data, $matches)){ #it's a date - $returnvalue['dateTime.iso8601'] = $data; - return $returnvalue; - }elseif(is_string($data)){ - $returnvalue['string'] = htmlspecialchars($data); - return $returnvalue; - } - }else{ - $returnvalue[$type] = htmlspecialchars($data); - } - } - return $returnvalue; -} - -function & XMLRPC_adjustValue(&$current_node){ - if(is_array($current_node)){ - if(isset($current_node['array'])){ - if(!is_array($current_node['array']['data'])){ - #If there are no elements, return an empty array - return array(); - }else{ - #echo "Getting rid of array -> data -> value
\n"; - $temp = &$current_node['array']['data']['value']; - if(is_array($temp) and array_key_exists(0, $temp)){ - $count = count($temp); - for($n=0;$n<$count;$n++){ - $temp2[$n] = &XMLRPC_adjustValue($temp[$n]); - } - $temp = &$temp2; - }else{ - $temp2 = &XMLRPC_adjustValue($temp); - $temp = array($temp2); - #I do the temp assignment because it avoids copying, - # since I can put a reference in the array - #php's reference model is a bit silly, and I can't just say: - # $temp = array(&XMLRPC_adjustValue(&$temp)); - } - } - }elseif(isset($current_node['struct'])){ - if(!is_array($current_node['struct'])){ - #If there are no members, return an empty array - return array(); - }else{ - #echo "Getting rid of struct -> member
\n"; - $temp = &$current_node['struct']['member']; - if(is_array($temp) and array_key_exists(0, $temp)){ - $count = count($temp); - for($n=0;$n<$count;$n++){ - #echo "Passing name {$temp[$n][name]}. Value is: " . show($temp[$n][value], var_dump, true) . "
\n"; - $temp2[$temp[$n]['name']] = &XMLRPC_adjustValue($temp[$n]['value']); - #echo "adjustValue(): After assigning, the value is " . show($temp2[$temp[$n]['name']], var_dump, true) . "
\n"; - } - }else{ - #echo "Passing name $temp[name]
\n"; - $temp2[$temp['name']] = &XMLRPC_adjustValue($temp['value']); - } - $temp = &$temp2; - } - }else{ - $types = array('string', 'int', 'i4', 'double', 'dateTime.iso8601', 'base64', 'boolean'); - $fell_through = true; - foreach($types as $type){ - if(array_key_exists($type, $current_node)){ - #echo "Getting rid of '$type'
\n"; - $temp = &$current_node[$type]; - #echo "adjustValue(): The current node is set with a type of $type
\n"; - $fell_through = false; - break; - } - } - if($fell_through){ - $type = 'string'; - #echo "Fell through! Type is $type
\n"; - } - switch ($type){ - case 'int': case 'i4': $temp = (int)$temp; break; - case 'string': $temp = (string)$temp; break; - case 'double': $temp = (double)$temp; break; - case 'boolean': $temp = (bool)$temp; break; - } - } - }else{ - $temp = (string)$current_node; - } - return $temp; -} - -function XMLRPC_getParams($request){ - if(!is_array($request['methodCall']['params'])){ - #If there are no parameters, return an empty array - return array(); - }else{ - #echo "Getting rid of methodCall -> params -> param
\n"; - $temp = &$request['methodCall']['params']['param']; - if(is_array($temp) and array_key_exists(0, $temp)){ - $count = count($temp); - for($n = 0; $n < $count; $n++){ - #echo "Serializing parameter $n
"; - $temp2[$n] = &XMLRPC_adjustValue($temp[$n]['value']); - } - }else{ - $temp2[0] = &XMLRPC_adjustValue($temp['value']); - } - $temp = &$temp2; - return $temp; - } -} - -function XMLRPC_getMethodName($methodCall){ - #returns the method name - return $methodCall['methodCall']['methodName']; -} - -function XMLRPC_request($site, $location, $methodName, $params = NULL, $user_agent = NULL){ - $site = explode(':', $site); - if(isset($site[1]) and is_numeric($site[1])){ - $port = $site[1]; - }else{ - $port = 80; - } - $site = $site[0]; - - $data["methodCall"]["methodName"] = $methodName; - $param_count = count($params); - if(!$param_count){ - $data["methodCall"]["params"] = NULL; - }else{ - for($n = 0; $n<$param_count; $n++){ - $data["methodCall"]["params"]["param"][$n]["value"] = $params[$n]; - } - } - $data = XML_serialize($data); - - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_request', "

Received the following parameter list to send:

" . XMLRPC_show($params, 'print_r', true)); - } - $conn = fsockopen ($site, $port); #open the connection - if(!$conn){ #if the connection was not opened successfully - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_request', "

Connection failed: Couldn't make the connection to $site.

"); - } - return array(false, array('faultCode'=>10532, 'faultString'=>"Connection failed: Couldn't make the connection to $site.")); - }else{ - $headers = - "POST $location HTTP/1.0\r\n" . - "Host: $site\r\n" . - "Connection: close\r\n" . - ($user_agent ? "User-Agent: $user_agent\r\n" : '') . - "Content-Type: text/xml\r\n" . - "Content-Length: " . strlen($data) . "\r\n\r\n"; - - fputs($conn, "$headers"); - fputs($conn, $data); - - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_request', "

Sent the following request:

\n\n" . XMLRPC_show($headers . $data, 'print_r', true)); - } - - #socket_set_blocking ($conn, false); - $response = ""; - while(!feof($conn)){ - $response .= fgets($conn, 1024); - } - fclose($conn); - - #strip headers off of response - $data = XML_unserialize(substr($response, strpos($response, "\r\n\r\n")+4)); - - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_request', "

Received the following response:

\n\n" . XMLRPC_show($response, 'print_r', true) . "

Which was serialized into the following data:

\n\n" . XMLRPC_show($data, 'print_r', true)); - } - if(isset($data['methodResponse']['fault'])){ - $return = array(false, XMLRPC_adjustValue($data['methodResponse']['fault']['value'])); - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_request', "

Returning:

\n\n" . XMLRPC_show($return, 'var_dump', true)); - } - return $return; - }else{ - $return = array(true, XMLRPC_adjustValue($data['methodResponse']['params']['param']['value'])); - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_request', "

Returning:

\n\n" . XMLRPC_show($return, 'var_dump', true)); - } - return $return; - } - } -} - -function XMLRPC_response($return_value, $server = NULL){ - $data["methodResponse"]["params"]["param"]["value"] = &$return_value; - $return = XML_serialize($data); - - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_response', "

Received the following data to return:

\n\n" . XMLRPC_show($return_value, 'print_r', true)); - } - - header("Connection: close"); - header("Content-Length: " . strlen($return)); - header("Content-Type: text/xml"); - header("Date: " . date("r")); - if($server){ - header("Server: $server"); - } - - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_response', "

Sent the following response:

\n\n" . XMLRPC_show($return, 'print_r', true)); - } - echo $return; -} - -function XMLRPC_error($faultCode, $faultString, $server = NULL){ - $array["methodResponse"]["fault"]["value"]["struct"]["member"] = array(); - $this = &$array["methodResponse"]["fault"]["value"]["struct"]["member"]; - $this[0]["name"] = "faultCode"; - $this[0]["value"]["int"] = $faultCode; - $this[1]["name"] = "faultString"; - $this[1]["value"]["string"] = $faultString; - - $return = XML_serialize($array); - - header("Connection: close"); - header("Content-Length: " . strlen($return)); - header("Content-Type: text/xml"); - header("Date: " . date("r")); - if($server){ - header("Server: $server"); - } - if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ - XMLRPC_debug('XMLRPC_error', "

Sent the following error response:

\n\n" . XMLRPC_show($return, 'print_r', true)); - } - echo $return; -} - -function XMLRPC_convert_timestamp_to_iso8601($timestamp){ - #takes a unix timestamp and converts it to iso8601 required by XMLRPC - #an example iso8601 datetime is "20010822T03:14:33" - return date("Ymd\TH:i:s", $timestamp); -} - -function XMLRPC_convert_iso8601_to_timestamp($iso8601){ - return strtotime($iso8601); -} - -function count_numeric_items(&$array){ - return is_array($array) ? count(array_filter(array_keys($array), 'is_numeric')) : 0; -} - -function XMLRPC_debug($function_name, $debug_message){ - $GLOBALS['XMLRPC_DEBUG_INFO'][] = array($function_name, $debug_message); -} - -function XMLRPC_debug_print(){ - if($GLOBALS['XMLRPC_DEBUG_INFO']){ - echo "\n"; - foreach($GLOBALS['XMLRPC_DEBUG_INFO'] as $debug){ - echo "\n"; - } - echo "
$debug[0]$debug[1]
\n"; - unset($GLOBALS['XMLRPC_DEBUG_INFO']); - }else{ - echo "

No debugging information available yet.

"; - } -} - -function XMLRPC_show($data, $func = "print_r", $return_str = false){ - ob_start(); - $func($data); - $output = ob_get_contents(); - ob_end_clean(); - if($return_str){ - return "
" . htmlspecialchars($output) . "
\n"; - }else{ - echo "
", htmlspecialchars($output), "
\n"; - } -} - -?> diff --git a/htdocs/adherents/fiche.php b/htdocs/adherents/fiche.php index 635c40e55f4..4d12cfef3a7 100644 --- a/htdocs/adherents/fiche.php +++ b/htdocs/adherents/fiche.php @@ -33,8 +33,8 @@ require("./pre.inc.php"); require_once(DOL_DOCUMENT_ROOT."/adherents/adherent.class.php"); require_once(DOL_DOCUMENT_ROOT."/adherents/adherent_type.class.php"); require_once(DOL_DOCUMENT_ROOT."/adherents/adherent_options.class.php"); -require_once(DOL_DOCUMENT_ROOT."/adherents/XML-RPC.functions.php"); require_once(DOL_DOCUMENT_ROOT."/compta/bank/account.class.php"); +require_once(DOL_DOCUMENT_ROOT."/lib/xmlrpc.php"); $langs->load("companies"); $langs->load("bills"); diff --git a/htdocs/lib/xmlrpc.php b/htdocs/lib/xmlrpc.php new file mode 100644 index 00000000000..65b7afe5381 --- /dev/null +++ b/htdocs/lib/xmlrpc.php @@ -0,0 +1,496 @@ +"; + if(!strstr($key, " attr")){ #if it's not an attribute + if(array_key_exists("$key attr", $data)){ + while(list($attr_name, $attr_value) = each($data["$key attr"])){ + #echo "Found attribute $attribute_name with value $attribute_value
"; + $attr_value = &htmlspecialchars($attr_value, ENT_QUOTES); + $attributes .= " $attr_name=\"$attr_value\""; + } + } + + if(is_numeric($key)){ + #echo "My current key ($key) is numeric. My parent key is '$prior_key'
"; + $key = $prior_key; + }else{ + #you can't have numeric keys at two levels in a row, so this is ok + #echo "Checking to see if a numeric key exists in data."; + if(is_array($value) and array_key_exists(0, $value)){ + # echo " It does! Calling myself as a result of a numeric array.
"; + $numeric_array = true; + $xml_serialized_string .= XML_serialize($value, $level, $key); + } + #echo "
"; + } + + if(!$numeric_array){ + $xml_serialized_string .= str_repeat("\t", $level) . "<$key$attributes>"; + + if(is_array($value)){ + $xml_serialized_string .= "\r\n" . XML_serialize($value, $level+1); + }else{ + $inline = true; + $xml_serialized_string .= htmlspecialchars($value); + } + + $xml_serialized_string .= (!$inline ? str_repeat("\t", $level) : "") . "\r\n"; + } + }else{ + #echo "Skipping attribute record for key $key
"; + } + } + if($level == 0){ + $xml_serialized_string = "\r\n" . $xml_serialized_string; + return $xml_serialized_string; + }else{ + return $xml_serialized_string; + } +} + +class XML { + var $parser; #a reference to the XML parser + var $document; #the entire XML structure built up so far + var $current; #a pointer to the current item - what is this + var $parent; #a pointer to the current parent - the parent will be an array + var $parents; #an array of the most recent parent at each level + + var $last_opened_tag; + + function XML($data=null){ + $this->parser = xml_parser_create(); + + xml_parser_set_option ($this->parser, XML_OPTION_CASE_FOLDING, 0); + xml_set_object($this->parser, &$this); + xml_set_element_handler($this->parser, "open", "close"); + xml_set_character_data_handler($this->parser, "data"); +# register_shutdown_function(array(&$this, 'destruct')); + } + + function destruct(){ + xml_parser_free($this->parser); + } + + function parse($data){ + $this->document = array(); + $this->parent = &$this->document; + $this->parents = array(); + $this->last_opened_tag = NULL; + xml_parse($this->parser, $data); + return $this->document; + } + + function open($parser, $tag, $attributes){ + #echo "Opening tag $tag
\n"; + $this->data = ""; + $this->last_opened_tag = $tag; #tag is a string + if(array_key_exists($tag, $this->parent)){ + #echo "There's already an instance of '$tag' at the current level ($level)
\n"; + if(is_array($this->parent[$tag]) and array_key_exists(0, $this->parent[$tag])){ #if the keys are numeric + #need to make sure they're numeric (account for attributes) + $key = count_numeric_items($this->parent[$tag]); + #echo "There are $key instances: the keys are numeric.
\n"; + }else{ + #echo "There is only one instance. Shifting everything around
\n"; + $temp = &$this->parent[$tag]; + unset($this->parent[$tag]); + $this->parent[$tag][0] = &$temp; + + if(array_key_exists("$tag attr", $this->parent)){ + #shift the attributes around too if they exist + $temp = &$this->parent["$tag attr"]; + unset($this->parent["$tag attr"]); + $this->parent[$tag]["0 attr"] = &$temp; + } + $key = 1; + } + $this->parent = &$this->parent[$tag]; + }else{ + $key = $tag; + } + if($attributes){ + $this->parent["$key attr"] = $attributes; + } + + $this->parent[$key] = array(); + $this->parent = &$this->parent[$key]; + array_unshift($this->parents, &$this->parent); + } + + function data($parser, $data){ + #echo "Data is '", htmlspecialchars($data), "'
\n"; + if($this->last_opened_tag != NULL){ + $this->data .= $data; + } + } + + function close($parser, $tag){ + #echo "Close tag $tag
\n"; + if($this->last_opened_tag == $tag){ + $this->parent = $this->data; + $this->last_opened_tag = NULL; + } + array_shift($this->parents); + $this->parent = &$this->parents[0]; + } +} + +function & XML_unserialize(&$xml){ + $xml_parser = new XML(); + $data = &$xml_parser->parse(&$xml); + $xml_parser->destruct(); + return $data; +} + +function & XMLRPC_parse(&$request){ + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_parse', "

Received the following raw request:

" . XMLRPC_show($request, 'print_r', true)); + } + $data = &XML_unserialize(&$request); + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_parse', "

Returning the following parsed request:

" . XMLRPC_show($data, 'print_r', true)); + } + return $data; +} + +function & XMLRPC_prepare($data, $type = NULL){ + if(is_array($data)){ + $num_elements = count($data); + if((array_key_exists(0, $data) or !$num_elements) and $type != 'struct'){ #it's an array + if(!$num_elements){ #if the array is empty + $returnvalue = array('array' => array('data' => NULL)); + }else{ + $returnvalue['array']['data']['value'] = array(); + $temp = &$returnvalue['array']['data']['value']; + $count = count_numeric_items($data); + for($n=0; $n<$count; $n++){ + $type = NULL; + if(array_key_exists("$n type", $data)){ + $type = $data["$n type"]; + } + $temp[$n] = XMLRPC_prepare(&$data[$n], $type); + } + } + }else{ #it's a struct + if(!$num_elements){ #if the struct is empty + $returnvalue = array('struct' => NULL); + }else{ + $returnvalue['struct']['member'] = array(); + $temp = &$returnvalue['struct']['member']; + while(list($key, $value) = each($data)){ + if(substr($key, -5) != ' type'){ #if it's not a type specifier + $type = NULL; + if(array_key_exists("$key type", $data)){ + $type = $data["$key type"]; + } + $temp[] = array('name' => $key, 'value' => XMLRPC_prepare(&$value, $type)); + } + } + } + } + }else{ #it's a scalar + if(!$type){ + if(is_int($data)){ + $returnvalue['int'] = $data; + return $returnvalue; + }elseif(is_float($data)){ + $returnvalue['double'] = $data; + return $returnvalue; + }elseif(is_bool($data)){ + $returnvalue['boolean'] = ($data ? 1 : 0); + return $returnvalue; + }elseif(preg_match('/^\d{8}T\d{2}:\d{2}:\d{2}$/', $data, $matches)){ #it's a date + $returnvalue['dateTime.iso8601'] = $data; + return $returnvalue; + }elseif(is_string($data)){ + $returnvalue['string'] = htmlspecialchars($data); + return $returnvalue; + } + }else{ + $returnvalue[$type] = htmlspecialchars($data); + } + } + return $returnvalue; +} + +function & XMLRPC_adjustValue(&$current_node){ + if(is_array($current_node)){ + if(isset($current_node['array'])){ + if(!is_array($current_node['array']['data'])){ + #If there are no elements, return an empty array + return array(); + }else{ + #echo "Getting rid of array -> data -> value
\n"; + $temp = &$current_node['array']['data']['value']; + if(is_array($temp) and array_key_exists(0, $temp)){ + $count = count($temp); + for($n=0;$n<$count;$n++){ + $temp2[$n] = &XMLRPC_adjustValue(&$temp[$n]); + } + $temp = &$temp2; + }else{ + $temp2 = &XMLRPC_adjustValue(&$temp); + $temp = array(&$temp2); + #I do the temp assignment because it avoids copying, + # since I can put a reference in the array + #PHP's reference model is a bit silly, and I can't just say: + # $temp = array(&XMLRPC_adjustValue(&$temp)); + } + } + }elseif(isset($current_node['struct'])){ + if(!is_array($current_node['struct'])){ + #If there are no members, return an empty array + return array(); + }else{ + #echo "Getting rid of struct -> member
\n"; + $temp = &$current_node['struct']['member']; + if(is_array($temp) and array_key_exists(0, $temp)){ + $count = count($temp); + for($n=0;$n<$count;$n++){ + #echo "Passing name {$temp[$n][name]}. Value is: " . show($temp[$n][value], var_dump, true) . "
\n"; + $temp2[$temp[$n]['name']] = &XMLRPC_adjustValue(&$temp[$n]['value']); + #echo "adjustValue(): After assigning, the value is " . show($temp2[$temp[$n]['name']], var_dump, true) . "
\n"; + } + }else{ + #echo "Passing name $temp[name]
\n"; + $temp2[$temp['name']] = &XMLRPC_adjustValue(&$temp['value']); + } + $temp = &$temp2; + } + }else{ + $types = array('string', 'int', 'i4', 'double', 'dateTime.iso8601', 'base64', 'boolean'); + $fell_through = true; + foreach($types as $type){ + if(array_key_exists($type, $current_node)){ + #echo "Getting rid of '$type'
\n"; + $temp = &$current_node[$type]; + #echo "adjustValue(): The current node is set with a type of $type
\n"; + $fell_through = false; + break; + } + } + if($fell_through){ + $type = 'string'; + #echo "Fell through! Type is $type
\n"; + } + switch ($type){ + case 'int': case 'i4': $temp = (int)$temp; break; + case 'string': $temp = (string)$temp; break; + case 'double': $temp = (double)$temp; break; + case 'boolean': $temp = (bool)$temp; break; + } + } + }else{ + $temp = (string)$current_node; + } + return $temp; +} + +function XMLRPC_getParams($request){ + if(!is_array($request['methodCall']['params'])){ + #If there are no parameters, return an empty array + return array(); + }else{ + #echo "Getting rid of methodCall -> params -> param
\n"; + $temp = &$request['methodCall']['params']['param']; + if(is_array($temp) and array_key_exists(0, $temp)){ + $count = count($temp); + for($n = 0; $n < $count; $n++){ + #echo "Serializing parameter $n
"; + $temp2[$n] = &XMLRPC_adjustValue(&$temp[$n]['value']); + } + }else{ + $temp2[0] = &XMLRPC_adjustValue($temp['value']); + } + $temp = &$temp2; + return $temp; + } +} + +function XMLRPC_getMethodName($methodCall){ + #returns the method name + return $methodCall['methodCall']['methodName']; +} + +function XMLRPC_request($site, $location, $methodName, $params = NULL, $user_agent = NULL){ + $site = explode(':', $site); + if(isset($site[1]) and is_numeric($site[1])){ + $port = $site[1]; + }else{ + $port = 80; + } + $site = $site[0]; + + $data["methodCall"]["methodName"] = $methodName; + $param_count = count($params); + if(!$param_count){ + $data["methodCall"]["params"] = NULL; + }else{ + for($n = 0; $n<$param_count; $n++){ + $data["methodCall"]["params"]["param"][$n]["value"] = $params[$n]; + } + } + $data = XML_serialize($data); + + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_request', "

Received the following parameter list to send:

" . XMLRPC_show($params, 'print_r', true)); + } + $conn = fsockopen ($site, $port); #open the connection + if(!$conn){ #if the connection was not opened successfully + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_request', "

Connection failed: Couldn't make the connection to $site.

"); + } + return array(false, array('faultCode'=>10532, 'faultString'=>"Connection failed: Couldn't make the connection to $site.")); + }else{ + $headers = + "POST $location HTTP/1.0\r\n" . + "Host: $site\r\n" . + "Connection: close\r\n" . + ($user_agent ? "User-Agent: $user_agent\r\n" : '') . + "Content-Type: text/xml\r\n" . + "Content-Length: " . strlen($data) . "\r\n\r\n"; + + fputs($conn, "$headers"); + fputs($conn, $data); + + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_request', "

Sent the following request:

\n\n" . XMLRPC_show($headers . $data, 'print_r', true)); + } + + #socket_set_blocking ($conn, false); + $response = ""; + while(!feof($conn)){ + $response .= fgets($conn, 1024); + } + fclose($conn); + + #strip headers off of response + $data = XML_unserialize(substr($response, strpos($response, "\r\n\r\n")+4)); + + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_request', "

Received the following response:

\n\n" . XMLRPC_show($response, 'print_r', true) . "

Which was serialized into the following data:

\n\n" . XMLRPC_show($data, 'print_r', true)); + } + if(isset($data['methodResponse']['fault'])){ + $return = array(false, XMLRPC_adjustValue(&$data['methodResponse']['fault']['value'])); + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_request', "

Returning:

\n\n" . XMLRPC_show($return, 'var_dump', true)); + } + return $return; + }else{ + $return = array(true, XMLRPC_adjustValue(&$data['methodResponse']['params']['param']['value'])); + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_request', "

Returning:

\n\n" . XMLRPC_show($return, 'var_dump', true)); + } + return $return; + } + } +} + +function XMLRPC_response($return_value, $server = NULL){ + $data["methodResponse"]["params"]["param"]["value"] = &$return_value; + $return = XML_serialize(&$data); + + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_response', "

Received the following data to return:

\n\n" . XMLRPC_show($return_value, 'print_r', true)); + } + + header("Connection: close"); + header("Content-Length: " . strlen($return)); + header("Content-Type: text/xml"); + header("Date: " . date("r")); + if($server){ + header("Server: $server"); + } + + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_response', "

Sent the following response:

\n\n" . XMLRPC_show($return, 'print_r', true)); + } + echo $return; +} + +function XMLRPC_error($faultCode, $faultString, $server = NULL){ + $array["methodResponse"]["fault"]["value"]["struct"]["member"] = array(); + $temp = &$array["methodResponse"]["fault"]["value"]["struct"]["member"]; + $temp[0]["name"] = "faultCode"; + $temp[0]["value"]["int"] = $faultCode; + $temp[1]["name"] = "faultString"; + $temp[1]["value"]["string"] = $faultString; + + $return = XML_serialize($array); + + header("Connection: close"); + header("Content-Length: " . strlen($return)); + header("Content-Type: text/xml"); + header("Date: " . date("r")); + if($server){ + header("Server: $server"); + } + if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){ + XMLRPC_debug('XMLRPC_error', "

Sent the following error response:

\n\n" . XMLRPC_show($return, 'print_r', true)); + } + echo $return; +} + +function XMLRPC_convert_timestamp_to_iso8601($timestamp){ + #takes a unix timestamp and converts it to iso8601 required by XMLRPC + #an example iso8601 datetime is "20010822T03:14:33" + return date("Ymd\TH:i:s", $timestamp); +} + +function XMLRPC_convert_iso8601_to_timestamp($iso8601){ + return strtotime($iso8601); +} + +function count_numeric_items(&$array){ + return is_array($array) ? count(array_filter(array_keys($array), 'is_numeric')) : 0; +} + +function XMLRPC_debug($function_name, $debug_message){ + $GLOBALS['XMLRPC_DEBUG_INFO'][] = array($function_name, $debug_message); +} + +function XMLRPC_debug_print(){ + if($GLOBALS['XMLRPC_DEBUG_INFO']){ + echo "\n"; + foreach($GLOBALS['XMLRPC_DEBUG_INFO'] as $debug){ + echo "\n"; + } + echo "
$debug[0]$debug[1]
\n"; + unset($GLOBALS['XMLRPC_DEBUG_INFO']); + }else{ + echo "

No debugging information available yet.

"; + } +} + +function XMLRPC_show($data, $func = "print_r", $return_str = false){ + ob_start(); + $func($data); + $output = ob_get_contents(); + ob_end_clean(); + if($return_str){ + return "
" . htmlspecialchars($output) . "
\n"; + }else{ + echo "
", htmlspecialchars($output), "
\n"; + } +} + +?>