<h2>Editing File: /usr/local/sitepad/lib/classes/xml.php</h2><form method='post'><textarea name='content' class='file-edit'>&lt;?php

if(version_compare(PHP_VERSION, '5.3.0', '&lt;')){
	set_magic_quotes_runtime(false);
}elseif(function_exists('ini_set')){
	ini_set('magic_quotes_runtime', false);
}

/*
An XML-RPC implementation by Keith Devens, version 2.5f.
http://www.keithdevens.com/software/xmlrpc/

Release history available at:
http://www.keithdevens.com/software/xmlrpc/history/

This code is Open Source, released under terms similar to the Artistic License.
Read the license at http://www.keithdevens.com/software/license/

Note: this code requires version 4.1.0 or higher of PHP.
*/

function &amp; XML_serialize(&amp;$data, $level = 0, $prior_key = NULL){
	#assumes a hash, keys are the variable names
	$xml_serialized_string = &quot;&quot;;
	while(list($key, $value) = each($data)){
		$inline = false;
		$numeric_array = false;
		$attributes = &quot;&quot;;
		#echo &quot;My current key is '$key', called with prior key '$prior_key'&lt;br&gt;&quot;;
		if(!strstr($key, &quot; attr&quot;)){ #if it's not an attribute
			if(array_key_exists(&quot;$key attr&quot;, $data)){
				while(list($attr_name, $attr_value) = each($data[&quot;$key attr&quot;])){
					#echo &quot;Found attribute $attribute_name with value $attribute_value&lt;br&gt;&quot;;
					$attr_value = &amp;htmlspecialchars($attr_value, ENT_QUOTES);
					$attributes .= &quot; $attr_name=\&quot;$attr_value\&quot;&quot;;
				}
			}

			if(is_numeric($key)){
				#echo &quot;My current key ($key) is numeric. My parent key is '$prior_key'&lt;br&gt;&quot;;
				$key = $prior_key;
			}else{
				#you can't have numeric keys at two levels in a row, so this is ok
				#echo &quot;Checking to see if a numeric key exists in data.&quot;;
				if(is_array($value) and array_key_exists(0, $value)){
				#	echo &quot; It does! Calling myself as a result of a numeric array.&lt;br&gt;&quot;;
					$numeric_array = true;
					$xml_serialized_string .= XML_serialize($value, $level, $key);
				}
				#echo &quot;&lt;br&gt;&quot;;
			}

			if(!$numeric_array){
				$xml_serialized_string .= str_repeat(&quot;\t&quot;, $level) . &quot;&lt;$key$attributes&gt;&quot;;

				if(is_array($value)){
					$xml_serialized_string .= &quot;\r\n&quot; . XML_serialize($value, $level+1);
				}else{
					$inline = true;
					$xml_serialized_string .= htmlspecialchars($value);
				}

				$xml_serialized_string .= (!$inline ? str_repeat(&quot;\t&quot;, $level) : &quot;&quot;) . &quot;&lt;/$key&gt;\r\n&quot;;
			}
		}else{
			#echo &quot;Skipping attribute record for key $key&lt;bR&gt;&quot;;
		}
	}
	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 __construct($data=null){
		$this-&gt;parser = xml_parser_create();

		xml_parser_set_option ($this-&gt;parser, XML_OPTION_CASE_FOLDING, 0);
		xml_set_object($this-&gt;parser, $this);
		xml_set_element_handler($this-&gt;parser, &quot;open&quot;, &quot;close&quot;);
		xml_set_character_data_handler($this-&gt;parser, &quot;data&quot;);
#		register_shutdown_function(array(&amp;$this, 'destruct'));
	}

	function destruct(){
		xml_parser_free($this-&gt;parser);
	}

	function parse($data){
		$this-&gt;document = array();
		$this-&gt;parent = &amp;$this-&gt;document;
		$this-&gt;parents = array();
		$this-&gt;last_opened_tag = NULL;
		xml_parse($this-&gt;parser, $data);
		return $this-&gt;document;
	}

	function open($parser, $tag, $attributes){
		#echo &quot;Opening tag $tag&lt;br&gt;\n&quot;;
		$this-&gt;data = &quot;&quot;;
		$this-&gt;last_opened_tag = $tag; #tag is a string
		if(array_key_exists($tag, $this-&gt;parent)){
			#echo &quot;There's already an instance of '$tag' at the current level ($level)&lt;br&gt;\n&quot;;
			if(is_array($this-&gt;parent[$tag]) and array_key_exists(0, $this-&gt;parent[$tag])){ #if the keys are numeric
				#need to make sure they're numeric (account for attributes)
				$key = count_numeric_items($this-&gt;parent[$tag]);
				#echo &quot;There are $key instances: the keys are numeric.&lt;br&gt;\n&quot;;
			}else{
				#echo &quot;There is only one instance. Shifting everything around&lt;br&gt;\n&quot;;
				$temp = &amp;$this-&gt;parent[$tag];
				unset($this-&gt;parent[$tag]);
				$this-&gt;parent[$tag][0] = &amp;$temp;

				if(array_key_exists(&quot;$tag attr&quot;, $this-&gt;parent)){
					#shift the attributes around too if they exist
					$temp = &amp;$this-&gt;parent[&quot;$tag attr&quot;];
					unset($this-&gt;parent[&quot;$tag attr&quot;]);
					$this-&gt;parent[$tag][&quot;0 attr&quot;] = &amp;$temp;
				}
				$key = 1;
			}
			$this-&gt;parent = &amp;$this-&gt;parent[$tag];
		}else{
			$key = $tag;
		}
		if($attributes){
			$this-&gt;parent[&quot;$key attr&quot;] = $attributes;
		}

		$this-&gt;parent[$key] = array();
		$this-&gt;parent = &amp;$this-&gt;parent[$key];

        // Can't unshift by reference, so insert dummy and replace it with reference afterwards
        array_unshift($this-&gt;parents, NULL);
        $this-&gt;parents[0]=&amp;$this-&gt;parent;

	}

	function data($parser, $data){
		#echo &quot;Data is '&quot;, htmlspecialchars($data), &quot;'&lt;br&gt;\n&quot;;
		if($this-&gt;last_opened_tag != NULL){
			$this-&gt;data .= $data;
		}
	}

	function close($parser, $tag){
		#echo &quot;Close tag $tag&lt;br&gt;\n&quot;;
		if($this-&gt;last_opened_tag == $tag){
			$this-&gt;parent = $this-&gt;data;
			$this-&gt;last_opened_tag = NULL;
		}
		array_shift($this-&gt;parents);
		$this-&gt;parent = &amp;$this-&gt;parents[0];
	}
}

function &amp; XML_unserialize(&amp;$xml){
	$xml_parser = new XML();
	$data = $xml_parser-&gt;parse($xml);
	$xml_parser-&gt;destruct();
	return $data;
}

function &amp; XMLRPC_parse(&amp;$request){
	if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
		XMLRPC_debug('XMLRPC_parse', &quot;&lt;p&gt;Received the following raw request:&lt;/p&gt;&quot; . XMLRPC_show($request, 'print_r', true));
	}
	$data = &amp;XML_unserialize($request);
	if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
		XMLRPC_debug('XMLRPC_parse', &quot;&lt;p&gt;Returning the following parsed request:&lt;/p&gt;&quot; . XMLRPC_show($data, 'print_r', true));
	}
	return $data;
}

function &amp; 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' =&gt; array('data' =&gt; NULL));
			}else{
				$returnvalue['array']['data']['value'] = array();
				$temp = &amp;$returnvalue['array']['data']['value'];
				$count = count_numeric_items($data);
				for($n=0; $n&lt;$count; $n++){
					$type = NULL;
					if(array_key_exists(&quot;$n type&quot;, $data)){
						$type = $data[&quot;$n type&quot;];
					}
					$temp[$n] = XMLRPC_prepare($data[$n], $type);
				}
			}
		}else{ #it's a struct
			if(!$num_elements){ #if the struct is empty
				$returnvalue = array('struct' =&gt; NULL);
			}else{
				$returnvalue['struct']['member'] = array();
				$temp = &amp;$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(&quot;$key type&quot;, $data)){
							$type = $data[&quot;$key type&quot;];
						}
						$temp[] = array('name' =&gt; $key, 'value' =&gt; 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 &amp; XMLRPC_adjustValue(&amp;$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 &quot;Getting rid of array -&gt; data -&gt; value&lt;br&gt;\n&quot;;
				$temp = &amp;$current_node['array']['data']['value'];
				if(is_array($temp) and array_key_exists(0, $temp)){
					$count = count($temp);
					for($n=0;$n&lt;$count;$n++){
						$temp2[$n] = &amp;XMLRPC_adjustValue($temp[$n]);
					}
					$temp = &amp;$temp2;
				}else{
					$temp2 = &amp;XMLRPC_adjustValue($temp);
					$temp = array(&amp;$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(&amp;XMLRPC_adjustValue(&amp;$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 &quot;Getting rid of struct -&gt; member&lt;br&gt;\n&quot;;
				$temp = &amp;$current_node['struct']['member'];
				if(is_array($temp) and array_key_exists(0, $temp)){
					$count = count($temp);
					for($n=0;$n&lt;$count;$n++){
						#echo &quot;Passing name {$temp[$n][name]}. Value is: &quot; . show($temp[$n][value], var_dump, true) . &quot;&lt;br&gt;\n&quot;;
						$temp2[$temp[$n]['name']] = &amp;XMLRPC_adjustValue($temp[$n]['value']);
						#echo &quot;adjustValue(): After assigning, the value is &quot; . show($temp2[$temp[$n]['name']], var_dump, true) . &quot;&lt;br&gt;\n&quot;;
					}
				}else{
					#echo &quot;Passing name $temp[name]&lt;br&gt;\n&quot;;
					$temp2[$temp['name']] = &amp;XMLRPC_adjustValue($temp['value']);
				}
				$temp = &amp;$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 &quot;Getting rid of '$type'&lt;br&gt;\n&quot;;
					$temp = &amp;$current_node[$type];
					#echo &quot;adjustValue(): The current node is set with a type of $type&lt;br&gt;\n&quot;;
					$fell_through = false;
					break;
				}
			}
			if($fell_through){
				$type = 'string';
				#echo &quot;Fell through! Type is $type&lt;br&gt;\n&quot;;
			}
			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 &quot;Getting rid of methodCall -&gt; params -&gt; param&lt;br&gt;\n&quot;;
		$temp = &amp;$request['methodCall']['params']['param'];
		if(is_array($temp) and array_key_exists(0, $temp)){
			$count = count($temp);
			for($n = 0; $n &lt; $count; $n++){
				#echo &quot;Serializing parameter $n&lt;br&gt;&quot;;
				$temp2[$n] = &amp;XMLRPC_adjustValue($temp[$n]['value']);
			}
		}else{
			$temp2[0] = &amp;XMLRPC_adjustValue($temp['value']);
		}
		$temp = &amp;$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[&quot;methodCall&quot;][&quot;methodName&quot;] = $methodName;
	$param_count = count($params);
	if(!$param_count){
		$data[&quot;methodCall&quot;][&quot;params&quot;] = NULL;
	}else{
		for($n = 0; $n&lt;$param_count; $n++){
			$data[&quot;methodCall&quot;][&quot;params&quot;][&quot;param&quot;][$n][&quot;value&quot;] = $params[$n];
		}
	}
	$data = XML_serialize($data);

	if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
		XMLRPC_debug('XMLRPC_request', &quot;&lt;p&gt;Received the following parameter list to send:&lt;/p&gt;&quot; . 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', &quot;&lt;p&gt;Connection failed: Couldn't make the connection to $site.&lt;/p&gt;&quot;);
		}
		return array(false, array('faultCode'=&gt;10532, 'faultString'=&gt;&quot;Connection failed: Couldn't make the connection to $site.&quot;));
	}else{
		$headers =
			&quot;POST $location HTTP/1.0\r\n&quot; .
			&quot;Host: $site\r\n&quot; .
			&quot;Connection: close\r\n&quot; .
			($user_agent ? &quot;User-Agent: $user_agent\r\n&quot; : '') .
			&quot;Content-Type: text/xml\r\n&quot; .
			&quot;Content-Length: &quot; . strlen($data) . &quot;\r\n\r\n&quot;;

		fputs($conn, &quot;$headers&quot;);
		fputs($conn, $data);

		if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
			XMLRPC_debug('XMLRPC_request', &quot;&lt;p&gt;Sent the following request:&lt;/p&gt;\n\n&quot; . XMLRPC_show($headers . $data, 'print_r', true));
		}

		#socket_set_blocking ($conn, false);
		$response = &quot;&quot;;
		while(!feof($conn)){
			$response .= fgets($conn, 1024);
		}
		fclose($conn);

		#strip headers off of response
		$data = XML_unserialize(substr($response, strpos($response, &quot;\r\n\r\n&quot;)+4));

		if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
			XMLRPC_debug('XMLRPC_request', &quot;&lt;p&gt;Received the following response:&lt;/p&gt;\n\n&quot; . XMLRPC_show($response, 'print_r', true) . &quot;&lt;p&gt;Which was serialized into the following data:&lt;/p&gt;\n\n&quot; . 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', &quot;&lt;p&gt;Returning:&lt;/p&gt;\n\n&quot; . 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', &quot;&lt;p&gt;Returning:&lt;/p&gt;\n\n&quot; . XMLRPC_show($return, 'var_dump', true));
			}
			return $return;
		}
	}
}

function XMLRPC_response($return_value, $server = NULL){
	$data[&quot;methodResponse&quot;][&quot;params&quot;][&quot;param&quot;][&quot;value&quot;] = &amp;$return_value;
	$return = XML_serialize($data);

	if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
		XMLRPC_debug('XMLRPC_response', &quot;&lt;p&gt;Received the following data to return:&lt;/p&gt;\n\n&quot; . XMLRPC_show($return_value, 'print_r', true));
	}

	header(&quot;Connection: close&quot;);
	header(&quot;Content-Length: &quot; . strlen($return));
	header(&quot;Content-Type: text/xml&quot;);
	header(&quot;Date: &quot; . date(&quot;r&quot;));
	if($server){
		header(&quot;Server: $server&quot;);
	}

	if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
		XMLRPC_debug('XMLRPC_response', &quot;&lt;p&gt;Sent the following response:&lt;/p&gt;\n\n&quot; . XMLRPC_show($return, 'print_r', true));
	}
	echo $return;
}

function XMLRPC_error($faultCode, $faultString, $server = NULL){
	$array[&quot;methodResponse&quot;][&quot;fault&quot;][&quot;value&quot;][&quot;struct&quot;][&quot;member&quot;] = array();
	$temp = &amp;$array[&quot;methodResponse&quot;][&quot;fault&quot;][&quot;value&quot;][&quot;struct&quot;][&quot;member&quot;];
	$temp[0][&quot;name&quot;] = &quot;faultCode&quot;;
	$temp[0][&quot;value&quot;][&quot;int&quot;] = $faultCode;
	$temp[1][&quot;name&quot;] = &quot;faultString&quot;;
	$temp[1][&quot;value&quot;][&quot;string&quot;] = $faultString;

	$return = XML_serialize($array);

	header(&quot;Connection: close&quot;);
	header(&quot;Content-Length: &quot; . strlen($return));
	header(&quot;Content-Type: text/xml&quot;);
	header(&quot;Date: &quot; . date(&quot;r&quot;));
	if($server){
		header(&quot;Server: $server&quot;);
	}
	if(defined('XMLRPC_DEBUG') and XMLRPC_DEBUG){
		XMLRPC_debug('XMLRPC_error', &quot;&lt;p&gt;Sent the following error response:&lt;/p&gt;\n\n&quot; . 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 &quot;20010822T03:14:33&quot;
	return date(&quot;Ymd\TH:i:s&quot;, $timestamp);
}

function XMLRPC_convert_iso8601_to_timestamp($iso8601){
	return strtotime($iso8601);
}

function count_numeric_items(&amp;$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 &quot;&lt;table border=\&quot;1\&quot; width=\&quot;100%\&quot;&gt;\n&quot;;
		foreach($GLOBALS['XMLRPC_DEBUG_INFO'] as $debug){
			echo &quot;&lt;tr&gt;&lt;th style=\&quot;vertical-align: top\&quot;&gt;$debug[0]&lt;/th&gt;&lt;td&gt;$debug[1]&lt;/td&gt;&lt;/tr&gt;\n&quot;;
		}
		echo &quot;&lt;/table&gt;\n&quot;;
		unset($GLOBALS['XMLRPC_DEBUG_INFO']);
	}else{
		echo &quot;&lt;p&gt;No debugging information available yet.&lt;/p&gt;&quot;;
	}
}

function XMLRPC_show($data, $func = &quot;print_r&quot;, $return_str = false){
	ob_start();
	$func($data);
	$output = ob_get_contents();
	ob_end_clean();
	if($return_str){
		return &quot;&lt;pre&gt;&quot; . htmlspecialchars($output) . &quot;&lt;/pre&gt;\n&quot;;
	}else{
		echo &quot;&lt;pre&gt;&quot;, htmlspecialchars($output), &quot;&lt;/pre&gt;\n&quot;;
	}
}

?&gt;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fsitepad%2Flib%2Fclasses'>Back to Directory</a>