mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-12-15 11:11:49 +01:00
319 lines
6.3 KiB
PHP
319 lines
6.3 KiB
PHP
<?php
|
|
// by Edd Dumbill (C) 1999-2001
|
|
// <edd@usefulinc.com>
|
|
// xmlrpc.inc,v 1.18 2001/07/06 18:23:57 edmundd
|
|
|
|
// License is granted to use or modify this software ("XML-RPC for PHP")
|
|
// for commercial or non-commercial use provided the copyright of the author
|
|
// is preserved in any distributed or derivative work.
|
|
|
|
// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESSED OR
|
|
// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
// OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
// IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
// NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
// THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
class xmlrpcval
|
|
{
|
|
var $me = array();
|
|
var $mytype = 0;
|
|
|
|
function xmlrpcval($val=-1, $type='')
|
|
{
|
|
global $xmlrpcTypes;
|
|
$this->me = array();
|
|
$this->mytype = 0;
|
|
if ($val!=-1 || $type!='')
|
|
{
|
|
if ($type=='')
|
|
{
|
|
$type='string';
|
|
}
|
|
if ($xmlrpcTypes[$type]==1)
|
|
{
|
|
$this->addScalar($val,$type);
|
|
}
|
|
elseif ($xmlrpcTypes[$type]==2)
|
|
{
|
|
$this->addArray($val);
|
|
}
|
|
elseif ($xmlrpcTypes[$type]==3)
|
|
{
|
|
$this->addStruct($val);
|
|
}
|
|
}
|
|
}
|
|
|
|
function addScalar($val, $type='string')
|
|
{
|
|
global $xmlrpcTypes, $xmlrpcBoolean;
|
|
|
|
if ($this->mytype==1)
|
|
{
|
|
echo "<B>xmlrpcval</B>: scalar can have only one value<BR>";
|
|
return 0;
|
|
}
|
|
$typeof=$xmlrpcTypes[$type];
|
|
if ($typeof!=1)
|
|
{
|
|
echo "<B>xmlrpcval</B>: not a scalar type (${typeof})<BR>";
|
|
return 0;
|
|
}
|
|
|
|
if ($type==$xmlrpcBoolean)
|
|
{
|
|
if (strcasecmp($val,"true")==0 ||
|
|
$val==1 || ($val==true &&
|
|
strcasecmp($val,"false")))
|
|
{
|
|
$val=1;
|
|
}
|
|
else
|
|
{
|
|
$val=0;
|
|
}
|
|
}
|
|
|
|
if ($this->mytype==2)
|
|
{
|
|
// we're adding to an array here
|
|
$ar=$this->me["array"];
|
|
$ar[] = CreateObject('phpgwapi.xmlrpcval',$val, $type);
|
|
$this->me["array"]=$ar;
|
|
}
|
|
else
|
|
{
|
|
// a scalar, so set the value and remember we're scalar
|
|
$this->me[$type]=$val;
|
|
$this->mytype=$typeof;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
function addArray($vals)
|
|
{
|
|
global $xmlrpcTypes;
|
|
if ($this->mytype!=0)
|
|
{
|
|
echo "<B>xmlrpcval</B>: already initialized as a [" . $this->kindOf() . "]<BR>";
|
|
return 0;
|
|
}
|
|
|
|
$this->mytype=$xmlrpcTypes["array"];
|
|
$this->me["array"]=$vals;
|
|
return 1;
|
|
}
|
|
|
|
function addStruct($vals)
|
|
{
|
|
global $xmlrpcTypes;
|
|
if ($this->mytype!=0)
|
|
{
|
|
echo "<B>xmlrpcval</B>: already initialized as a [" . $this->kindOf() . "]<BR>";
|
|
return 0;
|
|
}
|
|
$this->mytype=$xmlrpcTypes["struct"];
|
|
$this->me["struct"]=$vals;
|
|
return 1;
|
|
}
|
|
|
|
function dump($ar)
|
|
{
|
|
reset($ar);
|
|
while (list($key,$val) = each($ar))
|
|
{
|
|
echo "$key => $val<br>";
|
|
if ($key == 'array')
|
|
{
|
|
while (list($key2,$val2) = each($val))
|
|
{
|
|
echo "-- $key2 => $val2<br>";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
function kindOf()
|
|
{
|
|
switch($this->mytype)
|
|
{
|
|
case 3:
|
|
return "struct";
|
|
break;
|
|
case 2:
|
|
return "array";
|
|
break;
|
|
case 1:
|
|
return "scalar";
|
|
break;
|
|
default:
|
|
return "undef";
|
|
}
|
|
}
|
|
|
|
function serializedata($typ, $val)
|
|
{
|
|
$rs='';
|
|
global $xmlrpcTypes, $xmlrpcBase64, $xmlrpcString,$xmlrpcBoolean;
|
|
|
|
if($typ)
|
|
{
|
|
switch($xmlrpcTypes[$typ])
|
|
{
|
|
case 3:
|
|
// struct
|
|
$rs.="<struct>\n";
|
|
reset($val);
|
|
while(list($key2, $val2)=each($val))
|
|
{
|
|
$rs .= "<member><name>${key2}</name>\n";
|
|
$rs .= $this->serializeval($val2);
|
|
$rs .= "</member>\n";
|
|
}
|
|
$rs.="</struct>";
|
|
break;
|
|
case 2:
|
|
// array
|
|
$rs.="<array>\n<data>\n";
|
|
for($i=0; $i<sizeof($val); $i++)
|
|
{
|
|
$rs .= $this->serializeval($val[$i]);
|
|
}
|
|
$rs.="</data>\n</array>";
|
|
break;
|
|
case 1:
|
|
switch ($typ)
|
|
{
|
|
case $xmlrpcBase64:
|
|
$rs.="<${typ}>" . base64_encode($val) . "</${typ}>";
|
|
break;
|
|
case $xmlrpcBoolean:
|
|
$rs.="<${typ}>" . ($val ? "1" : "0") . "</${typ}>";
|
|
break;
|
|
case $xmlrpcString:
|
|
$rs.="<${typ}>" . htmlspecialchars($val). "</${typ}>";
|
|
break;
|
|
default:
|
|
$rs.="<${typ}>${val}</${typ}>";
|
|
}
|
|
break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
return $rs;
|
|
}
|
|
|
|
function serialize()
|
|
{
|
|
return $this->serializeval($this);
|
|
}
|
|
|
|
function serializeval($o)
|
|
{
|
|
global $xmlrpcTypes;
|
|
$rs="";
|
|
$ar=$o->me;
|
|
reset($ar);
|
|
list($typ, $val) = each($ar);
|
|
$rs.="<value>";
|
|
$rs.=$this->serializedata($typ, $val);
|
|
$rs.="</value>\n";
|
|
return $rs;
|
|
}
|
|
|
|
function structmem($m)
|
|
{
|
|
$nv=$this->me["struct"][$m];
|
|
return $nv;
|
|
}
|
|
|
|
function structreset()
|
|
{
|
|
reset($this->me["struct"]);
|
|
}
|
|
|
|
function structeach()
|
|
{
|
|
return each($this->me["struct"]);
|
|
}
|
|
|
|
function getval()
|
|
{
|
|
// UNSTABLE
|
|
global $xmlrpcBoolean, $xmlrpcBase64;
|
|
reset($this->me);
|
|
list($a,$b)=each($this->me);
|
|
// contributed by I Sofer, 2001-03-24
|
|
// add support for nested arrays to scalarval
|
|
// i've created a new method here, so as to
|
|
// preserve back compatibility
|
|
|
|
if (is_array($b))
|
|
{
|
|
@reset($b);
|
|
while(list($id,$cont) = @each($b))
|
|
{
|
|
$b[$id] = $cont->scalarval();
|
|
}
|
|
}
|
|
|
|
// add support for structures directly encoding php objects
|
|
if (is_object($b))
|
|
{
|
|
$t = get_object_vars($b);
|
|
@reset($t);
|
|
while(list($id,$cont) = @each($t))
|
|
{
|
|
$t[$id] = $cont->scalarval();
|
|
}
|
|
@reset($t);
|
|
while(list($id,$cont) = @each($t))
|
|
{
|
|
eval('$b->'.$id.' = $cont;');
|
|
}
|
|
}
|
|
// end contrib
|
|
return $b;
|
|
}
|
|
|
|
function scalarval()
|
|
{
|
|
global $xmlrpcBoolean, $xmlrpcBase64;
|
|
reset($this->me);
|
|
list($a,$b)=each($this->me);
|
|
return $b;
|
|
}
|
|
|
|
function scalartyp()
|
|
{
|
|
global $xmlrpcI4, $xmlrpcInt;
|
|
reset($this->me);
|
|
list($a,$b)=each($this->me);
|
|
if ($a==$xmlrpcI4)
|
|
{
|
|
$a=$xmlrpcInt;
|
|
}
|
|
return $a;
|
|
}
|
|
|
|
function arraymem($m)
|
|
{
|
|
$nv=$this->me["array"][$m];
|
|
return $nv;
|
|
}
|
|
|
|
function arraysize()
|
|
{
|
|
reset($this->me);
|
|
list($a,$b)=each($this->me);
|
|
return sizeof($b);
|
|
}
|
|
}
|
|
?>
|