egroupware_official/phpgwapi/inc/class.soapval.inc.php

439 lines
9.3 KiB
PHP
Raw Normal View History

2001-07-16 08:05:33 +02:00
<?php
2001-08-18 16:37:52 +02:00
/* $Id$ */
2001-07-16 08:05:33 +02:00
2001-08-18 16:37:52 +02:00
// soap value object
class soapval
{
// function soapval($name='',$type=False,$value=-1,$namespace=False,$type_namespace=False)
function soapval($name='',$type=False,$value=0,$namespace=False,$type_namespace=False)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
global $soapTypes, $typemap, $namespaces, $methodNamespace;
// detect type if not passed
if(!$type)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(is_array($value) && count($value) >= 1)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(ereg("[a-zA-Z0-9\-]*",key($v)))
{
$type = 'struct';
}
else
{
$type = 'array';
}
}
elseif(is_int($v))
{
$type = 'int';
}
elseif(is_float($v) || $v == 'NaN' || $v == 'INF')
{
$type = 'float';
2001-07-16 08:05:33 +02:00
}
else
{
2001-08-18 16:37:52 +02:00
$type = gettype($value);
2001-07-16 08:05:33 +02:00
}
}
2001-08-18 16:37:52 +02:00
// php type name mangle
if($type == 'integer')
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$type = 'int';
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
$this->soapTypes = $soapTypes;
$this->name = $name;
$this->value = '';
$this->type = $type;
$this->type_code = 0;
$this->type_prefix = false;
$this->array_type = '';
$this->debug_flag = True;
$this->debug_str = '';
$this->debug("Entering soapval - name: '$name' type: '$type'");
if($namespace)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$this->namespace = $namespace;
if(!isset($namespaces[$namespace]))
{
$namespaces[$namespace] = "ns".(count($namespaces)+1);
}
$this->prefix = $namespaces[$namespace];
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// get type prefix
if(ereg(":",$type))
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$this->type = substr(strrchr($type,':'),1,strlen(strrchr($type,':')));
$this->type_prefix = substr($type,0,strpos($type,':'));
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
elseif($type_namespace)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(!isset($namespaces[$type_namespace]))
{
$namespaces[$type_namespace] = 'ns'.(count($namespaces)+1);
}
$this->type_prefix = $namespaces[$type_namespace];
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// if type namespace was not explicitly passed, and we're not in a method struct:
elseif(!$this->type_prefix && !isset($this->namespace))
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
// try to get type prefix from typeMap
if(!$this->type_prefix = $this->verify_type($type))
{
// else default to method namespace
$this->type_prefix = $namespaces[$methodNamespace];
}
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// if scalar
if($this->soapTypes[$this->type] == 1)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$this->type_code = 1;
$this->addScalar($value,$this->type,$name);
// if array
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
elseif($this->soapTypes[$this->type] == 2)
{
$this->type_code = 2;
$this->addArray($value);
// if struct
}
elseif($this->soapTypes[$this->type] == 3)
{
2001-07-16 08:05:33 +02:00
$this->type_code = 3;
$this->addStruct($value);
}
else
{
2001-08-18 16:37:52 +02:00
//if($namespace == $methodNamespace){
$this->type_code = 3;
$this->addStruct($value);
//}
2001-07-16 08:05:33 +02:00
}
}
2001-08-18 16:37:52 +02:00
function addScalar($value, $type, $name="")
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$this->debug("adding scalar '$name' of type '$type'");
// if boolean, change value to 1 or 0
if ($type == "boolean")
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if((strcasecmp($value,"true") == 0) || ($value == 1))
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$value = 1;
2001-07-16 08:05:33 +02:00
}
else
{
2001-08-18 16:37:52 +02:00
$value = 0;
}
}
$this->value = $value;
return true;
}
function addArray($vals)
{
$this->debug("adding array '$this->name' with ".count($vals)." vals");
$this->value = array();
if(is_array($vals) && count($vals) >= 1)
{
@reset($vals);
while(list($k,$v) = @each($vals))
/* foreach($vals as $k => $v) */
{
$this->debug("checking value $k : $v");
// if soapval, add..
if(get_class($v) == 'soapval')
{
$this->value[] = $v;
$this->debug($v->debug_str);
// else make obj and serialize
}
else
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(is_array($v))
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(ereg("[a-zA-Z\-]*",key($v)))
{
$type = 'struct';
}
else
{
$type = 'array';
}
}
elseif(!ereg("^[0-9]*$",$k) && in_array($k,array_keys($this->soapTypes)))
{
$type = $k;
}
elseif(is_int($v))
{
$type = 'int';
}
elseif(is_float($v) || $v == 'NaN' || $v == 'INF')
{
$type = 'float';
2001-07-16 08:05:33 +02:00
}
else
{
2001-08-18 16:37:52 +02:00
$type = gettype($v);
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
$new_val = CreateObject('phpgwapi.soapval','item',$type,$v);
$this->debug($new_val->debug_str);
$this->value[] = $new_val;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
}
}
return true;
}
function addStruct($vals)
{
$this->debug("adding struct '$this->name' with ".count($vals).' vals');
if(is_array($vals) && count($vals) >= 1)
{
@reset($vals);
while(list($k,$v) = @each($vals))
/* foreach($vals as $k => $v) */
{
// if serialize, if soapval
if(get_class($v) == 'soapval')
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$this->value[] = $v;
$this->debug($v->debug_str);
// else make obj and serialize
2001-07-16 08:05:33 +02:00
}
else
{
2001-08-18 16:37:52 +02:00
if(is_array($v))
{
@reset($v);
while(list($a,$b) = @each($v))
/* foreach($v as $a => $b) */
{
if($a == "0")
{
$type = 'array';
}
else
{
$type = 'struct';
}
break;
}
}
// elseif(is_array($k) && in_array($k,array_keys($this->soapTypes)))
elseif(is_array($k,in_array($k,array_keys($this->soapTypes))))
{
$this->debug("got type '$type' for value '$v' from soapTypes array!");
$type = $k;
}
elseif(is_int($v))
{
$type = 'int';
}
elseif(is_float($v) || $v == "NaN" || $v == "INF")
{
$type = 'float';
}
else
{
$type = gettype($v);
$this->debug("got type '$type' for value '$v' from php gettype()!");
}
$new_val = CreateObject('phpgwapi.soapval',$k,$type,$v);
$this->debug($new_val->debug_str);
$this->value[] = $new_val;
2001-07-16 08:05:33 +02:00
}
}
}
2001-08-18 16:37:52 +02:00
else
{
$this->value = array();
}
return true;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// turn soapvals into xml, woohoo!
function serializeval($soapval=false)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(!$soapval)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$soapval = $this;
}
$this->debug("serializing '$soapval->name' of type '$soapval->type'");
if($soapval->name == '')
{
$soapval->name = 'return';
}
switch($soapval->type_code)
{
case 3:
// struct
$this->debug('got a struct');
if($soapval->prefix && $soapval->type_prefix)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$xml .= "<$soapval->prefix:$soapval->name xsi:type=\"$soapval->type_prefix:$soapval->type\">\n";
}
elseif($soapval->type_prefix)
{
$xml .= "<$soapval->name xsi:type=\"$soapval->type_prefix:$soapval->type\">\n";
}
elseif($soapval->prefix)
{
$xml .= "<$soapval->prefix:$soapval->name>\n";
}
else
{
$xml .= "<$soapval->name>\n";
}
if(is_array($soapval->value))
{
@reset($soapval->value);
while(list($k,$v) = @each($soapval->value))
/* foreach($soapval->value as $k => $v) */
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$xml .= $this->serializeval($v);
2001-07-16 08:05:33 +02:00
}
}
2001-08-18 16:37:52 +02:00
if($soapval->prefix)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$xml .= "</$soapval->prefix:$soapval->name>\n";
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
else
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$xml .= "</$soapval->name>\n";
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
break;
case 2:
// array
@reset($soapval->value);
while(list($null,$array_val) = @each($soapval->value))
/* foreach($soapval->value as $array_val) */
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$array_types[$array_val->type] = 1;
$xml .= $this->serializeval($array_val);
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
if(count($array_types) > 1)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$array_type = 'xsd:ur-type';
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
elseif(count($array_types) >= 1)
{
$array_type = $array_val->type_prefix.":".$array_val->type;
}
$xml = "<$soapval->name xsi:type=\"SOAP-ENC:Array\" SOAP-ENC:arrayType=\"".$array_type."[".sizeof($soapval->value)."]\">\n".$xml."</$soapval->name>\n";
break;
case 1:
$xml .= "<$soapval->name xsi:type=\"$soapval->type_prefix:$soapval->type\">$soapval->value</$soapval->name>\n";
break;
default:
break;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
return $xml;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// serialize
function serialize()
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
return $this->serializeval($this);
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
function decode($soapval=false)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(!$soapval)
{
$soapval = $this;
}
// scalar decode
if($soapval->type_code == 1)
{
return $soapval->value;
// array decode
}
elseif($soapval->type_code == 2)
{
if(is_array($soapval->value))
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
@reset($soapval->value);
while(list($null,$item) = @each($soapval->value))
/* foreach($soapval->value as $item) */
{
$return[] = $this->decode($item);
}
return $return;
2001-07-16 08:05:33 +02:00
}
else
{
2001-08-18 16:37:52 +02:00
return array();
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// struct decode
}
elseif($soapval->type_code == 3)
{
2001-07-16 08:05:33 +02:00
if(is_array($soapval->value))
{
@reset($soapval->value);
2001-08-18 16:37:52 +02:00
while(list($null,$item) = @each($soapval->value))
/* foreach($soapval->value as $item) */
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$return[$item->name] = $this->decode($item);
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
return $return;
2001-07-16 08:05:33 +02:00
}
else
{
2001-08-18 16:37:52 +02:00
return array();
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
}
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// verify type
function verify_type($type)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if ($type)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
// global $namespaces,$soapTypes,$typemap;
global $namespaces,$typemap;
@reset($typemap);
while(list($namespace,$types) = @each($typemap))
/* foreach($typemap as $namespace => $types) */
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if(in_array($type,$types))
{
return $namespaces[$namespace];
}
2001-07-16 08:05:33 +02:00
}
}
2001-08-18 16:37:52 +02:00
return false;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
// alias for verify_type() - pass it a type, and it returns it's prefix
function get_prefix($type)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if($prefix = $this->verify_type($type))
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
return $prefix;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
return false;
2001-07-16 08:05:33 +02:00
}
2001-08-18 16:37:52 +02:00
function debug($string)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
if($this->debug_flag)
2001-07-16 08:05:33 +02:00
{
2001-08-18 16:37:52 +02:00
$this->debug_str .= "$string\n";
2001-07-16 08:05:33 +02:00
}
}
}
?>