Fix php8/php7 compat for xml_parser_create that nows returns object

* this function returns an XMLParser instance on php8;
  previously, a resource was returned, or false on failure.
  so i just compare php versions and use thep roperty on

Author: mckaygerhard

appsys/libraries/Xmlrpc.php

@@ -703,6 +703,10 @@ function parseResponse($fp)
 		//-------------------------------------
 
 		$parser = xml_parser_create($this->xmlrpc_defencoding);
+		if (version_compare(PHP_VERSION, '7.2.0') >= 0 && is_object($parser))
+			$parser = spl_object_id($parser);
+		else
+			$parser = (string) $parser;
 
 		$this->xh[$parser]					= array();
 		$this->xh[$parser]['isf']			= 0;
@@ -847,6 +851,11 @@ function parseResponse($fp)
 
 	function open_tag($the_parser, $name, $attrs)
 	{
+		if (version_compare(PHP_VERSION, '7.2.0') >= 0 && is_object($the_parser))
+			$the_parser = spl_object_id($the_parser);
+		else
+			$the_parser = (string) $the_parser;
+
 		// If invalid nesting, then return
 		if ($this->xh[$the_parser]['isf'] > 1) return;
 
@@ -949,6 +958,11 @@ function open_tag($the_parser, $name, $attrs)
 
 	function closing_tag($the_parser, $name)
 	{
+		if (version_compare(PHP_VERSION, '7.2.0') >= 0 && is_object($the_parser))
+			$the_parser = spl_object_id($the_parser);
+		else
+			$the_parser = (string) $the_parser;
+
 		if ($this->xh[$the_parser]['isf'] > 1) return;
 
 		// Remove current element from stack and set variable
@@ -1093,6 +1107,11 @@ function closing_tag($the_parser, $name)
 
 	function character_data($the_parser, $data)
 	{
+		if (version_compare(PHP_VERSION, '7.2.0') >= 0 && is_object($the_parser))
+			$the_parser = spl_object_id($the_parser);
+		else
+			$the_parser = (string) $the_parser;
+
 		if ($this->xh[$the_parser]['isf'] > 1) return; // XML Fault found already
 
 		// If a value has not been found

appsys/libraries/Xmlrpcs.php

@@ -190,6 +190,10 @@ function parseRequest($data='')
 
 		$parser = xml_parser_create($this->xmlrpc_defencoding);
 		$parser_object = new XML_RPC_Message("filler");
+		if (version_compare(PHP_VERSION, '7.2.0') >= 0 && is_object($parser))
+			$parser = spl_object_id($parser);
+		else
+			$parser = (string) $parser;
 
 		$parser_object->xh[$parser]					= array();
 		$parser_object->xh[$parser]['isf']			= 0;