}\r
// be tolerant to line endings, and extra empty lines\r
$ar = preg_split("/\r?\n/", trim(substr($data, 0, $pos)));\r
- while(list(,$line) = @each($ar))\r
+ foreach($ar as $line)\r
{\r
// take care of multi-line headers and cookies\r
$arr = explode(':',$line,2);\r
echo "$key => $val<br />";\r
if($key == 'array')\r
{\r
- while(list($key2, $val2) = each($val))\r
+ foreach($val as $key2 => $val2)\r
{\r
echo "-- $key2 => $val2<br />";\r
}\r
// add check? slower, but helps to avoid recursion in serializing broken xmlrpcvals...\r
//if (is_object($o) && (get_class($o) == 'xmlrpcval' || is_subclass_of($o, 'xmlrpcval')))\r
//{\r
- reset($this->me);\r
- list($typ, $val) = each($this->me);\r
+ $val = reset($this->me);\r
+ $typ = key($this->me);\r
return '<value>' . $this->serializedata($typ, $val, $charset_encoding) . "</value>\n";\r
//}\r
}\r
// add check? slower, but helps to avoid recursion in serializing broken xmlrpcvals...\r
//if (is_object($o) && (get_class($o) == 'xmlrpcval' || is_subclass_of($o, 'xmlrpcval')))\r
//{\r
- $ar=$o->me;\r
- reset($ar);\r
- list($typ, $val) = each($ar);\r
+ $val = reset($o->me);\r
+ $typ = key($o->me);\r
return '<value>' . $this->serializedata($typ, $val) . "</value>\n";\r
//}\r
}\r
function getval()\r
{\r
// UNSTABLE\r
- reset($this->me);\r
- list($a,$b)=each($this->me);\r
+ $b = reset($this->me);\r
+ $a = key($this->me);\r
// contributed by I Sofer, 2001-03-24\r
// add support for nested arrays to scalarval\r
// i've created a new method here, so as to\r
\r
if(is_array($b))\r
{\r
- @reset($b);\r
- while(list($id,$cont) = @each($b))\r
+ foreach($b as $id => $cont)\r
{\r
$b[$id] = $cont->scalarval();\r
}\r
if(is_object($b))\r
{\r
$t = get_object_vars($b);\r
- @reset($t);\r
- while(list($id,$cont) = @each($t))\r
+ foreach($t as $id => $cont)\r
{\r
$t[$id] = $cont->scalarval();\r
}\r
- @reset($t);\r
- while(list($id,$cont) = @each($t))\r
+ foreach($t as $id => $cont)\r
{\r
@$b->$id = $cont;\r
}\r
*/\r
function scalarval()\r
{\r
- reset($this->me);\r
- list(,$b)=each($this->me);\r
+ $b = reset($this->me);\r
return $b;\r
}\r
\r
function scalartyp()\r
{\r
reset($this->me);\r
- list($a,)=each($this->me);\r
+ $a = key($this->me);\r
if($a==$GLOBALS['xmlrpcI4'])\r
{\r
$a=$GLOBALS['xmlrpcInt'];\r
case 'scalar':\r
if (in_array('extension_api', $options))\r
{\r
- reset($xmlrpc_val->me);\r
- list($typ,$val) = each($xmlrpc_val->me);\r
+ $val = reset($xmlrpc_val->me);\r
+ $typ = key($xmlrpc_val->me);\r
switch ($typ)\r
{\r
case 'dateTime.iso8601':\r
else\r
{\r
$arr = array();\r
- reset($php_val);\r
- while(list($k,$v) = each($php_val))\r
+ foreach($php_val as $k => $v)\r
{\r
$arr[$k] = php_xmlrpc_encode($v, $options);\r
}\r