mirror of
https://github.com/EGroupware/egroupware.git
synced 2024-11-22 16:03:47 +01:00
Update header to include xml/soap functions... this needs to be ironed out
This commit is contained in:
Miles Lott
parent
c1acca2fd7
commit
5efdffad7b
@ -84,11 +84,13 @@
|
|||||||
$phpgw_info["server"]["versions"]["phpgwapi"] = $setup_info['phpgwapi']['version'];
|
$phpgw_info["server"]["versions"]["phpgwapi"] = $setup_info['phpgwapi']['version'];
|
||||||
$phpgw_info['server']['versions']['current_header'] = $setup_info['phpgwapi']['versions']['current_header'];
|
$phpgw_info['server']['versions']['current_header'] = $setup_info['phpgwapi']['versions']['current_header'];
|
||||||
unset($setup_info);
|
unset($setup_info);
|
||||||
$phpgw_info['server']['versions']['header'] = '1.16';
|
$phpgw_info['server']['versions']['header'] = '1.17';
|
||||||
/* This is a fix for NT */
|
/* This is a fix for NT */
|
||||||
if (!isset($phpgw_info['flags']['noapi']) || !$phpgw_info['flags']['noapi'] == True)
|
if (!isset($phpgw_info['flags']['noapi']) || !$phpgw_info['flags']['noapi'] == True)
|
||||||
{
|
{
|
||||||
include(PHPGW_API_INC . '/functions.inc.php');
|
include(PHPGW_API_INC . '/functions.inc.php');
|
||||||
|
include(PHPGW_API_INC . '/xml_functions.inc.php');
|
||||||
|
include(PHPGW_API_INC . '/soap_functions.inc.php');
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
|||||||
@ -15,7 +15,7 @@
|
|||||||
$setup_info['phpgwapi']['name'] = 'phpgwapi';
|
$setup_info['phpgwapi']['name'] = 'phpgwapi';
|
||||||
$setup_info['phpgwapi']['title'] = 'phpgwapi';
|
$setup_info['phpgwapi']['title'] = 'phpgwapi';
|
||||||
$setup_info['phpgwapi']['version'] = '0.9.13.008';
|
$setup_info['phpgwapi']['version'] = '0.9.13.008';
|
||||||
$setup_info['phpgwapi']['versions']['current_header'] = '1.16';
|
$setup_info['phpgwapi']['versions']['current_header'] = '1.17';
|
||||||
$setup_info['phpgwapi']['enable'] = 3;
|
$setup_info['phpgwapi']['enable'] = 3;
|
||||||
$setup_info['phpgwapi']['app_order'] = 1;
|
$setup_info['phpgwapi']['app_order'] = 1;
|
||||||
|
|
||||||
|
|||||||
750
xmlrpc.php
Normal file
750
xmlrpc.php
Normal file
@ -0,0 +1,750 @@
|
|||||||
|
<?php
|
||||||
|
/**************************************************************************\
|
||||||
|
* phpGroupWare xmlrpc server *
|
||||||
|
* http://www.phpgroupware.org *
|
||||||
|
* Written by Dan Kuykendall <dan@kuykendall.org> *
|
||||||
|
* -------------------------------------------- *
|
||||||
|
* This program is free software; you can redistribute it and/or modify it *
|
||||||
|
* under the terms of the GNU General Public License as published by the *
|
||||||
|
* Free Software Foundation; either version 2 of the License, or (at your *
|
||||||
|
* option) any later version. *
|
||||||
|
\**************************************************************************/
|
||||||
|
|
||||||
|
$phpgw_info['flags'] = array(
|
||||||
|
'currentapp' => 'login',
|
||||||
|
'noheader' => True
|
||||||
|
);
|
||||||
|
|
||||||
|
include('./header.inc.php');
|
||||||
|
|
||||||
|
// a PHP version
|
||||||
|
// of the state-number server
|
||||||
|
// send me an integer and i'll sell you a state
|
||||||
|
|
||||||
|
$stateNames = array(
|
||||||
|
"Alabama", "Alaska", "Arizona", "Arkansas", "California",
|
||||||
|
"Colorado", "Columbia", "Connecticut", "Delaware", "Florida",
|
||||||
|
"Georgia", "Hawaii", "Idaho", "Illinois", "Indiana", "Iowa", "Kansas",
|
||||||
|
"Kentucky", "Louisiana", "Maine", "Maryland", "Massachusetts", "Michigan",
|
||||||
|
"Minnesota", "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada",
|
||||||
|
"New Hampshire", "New Jersey", "New Mexico", "New York", "North Carolina",
|
||||||
|
"North Dakota", "Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island",
|
||||||
|
"South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", "Vermont",
|
||||||
|
"Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming"
|
||||||
|
);
|
||||||
|
|
||||||
|
$findstate_sig = array(array($xmlrpcString, $xmlrpcInt));
|
||||||
|
|
||||||
|
$findstate_doc = 'When passed an integer between 1 and 51 returns the
|
||||||
|
name of a US state, where the integer is the index of that state name
|
||||||
|
in an alphabetic order.';
|
||||||
|
|
||||||
|
function findstate($m)
|
||||||
|
{
|
||||||
|
global $xmlrpcerruser, $stateNames;
|
||||||
|
$err="";
|
||||||
|
// get the first param
|
||||||
|
$sno=$m->getParam(0);
|
||||||
|
// if it's there and the correct type
|
||||||
|
|
||||||
|
if (isset($sno) && ($sno->scalartyp()=="int"))
|
||||||
|
{
|
||||||
|
// extract the value of the state number
|
||||||
|
$snv=$sno->scalarval();
|
||||||
|
// look it up in our array (zero-based)
|
||||||
|
if (isset($stateNames[$snv-1]))
|
||||||
|
{
|
||||||
|
$sname=$stateNames[$snv-1];
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
// not, there so complain
|
||||||
|
$err="I don't have a state for the index '" . $snv . "'";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
// parameter mismatch, complain
|
||||||
|
$err="One integer parameter required";
|
||||||
|
}
|
||||||
|
|
||||||
|
// if we generated an error, create an error return response
|
||||||
|
if ($err)
|
||||||
|
{
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval'), $xmlrpcerruser, $err);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
// otherwise, we create the right response
|
||||||
|
// with the state name
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$sname));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$addtwo_sig=array(array($xmlrpcInt, $xmlrpcInt, $xmlrpcInt));
|
||||||
|
$addtwo_doc='Add two integers together and return the result';
|
||||||
|
|
||||||
|
function addtwo($m)
|
||||||
|
{
|
||||||
|
$s=$m->getParam(0);
|
||||||
|
$t=$m->getParam(1);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$s->scalarval()+$t->scalarval(),"int"));
|
||||||
|
}
|
||||||
|
|
||||||
|
$addtwodouble_sig=array(array($xmlrpcDouble, $xmlrpcDouble, $xmlrpcDouble));
|
||||||
|
$addtwodouble_doc='Add two doubles together and return the result';
|
||||||
|
|
||||||
|
function addtwodouble($m)
|
||||||
|
{
|
||||||
|
$s=$m->getParam(0);
|
||||||
|
$t=$m->getParam(1);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$s->scalarval()+$t->scalarval(),"double"));
|
||||||
|
}
|
||||||
|
|
||||||
|
$stringecho_sig=array(array($xmlrpcString, $xmlrpcString));
|
||||||
|
$stringecho_doc='Accepts a string parameter, returns the string.';
|
||||||
|
|
||||||
|
function stringecho($m)
|
||||||
|
{
|
||||||
|
// just sends back a string
|
||||||
|
$s=$m->getParam(0);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$s->scalarval()));
|
||||||
|
}
|
||||||
|
|
||||||
|
$echoback_sig=array(array($xmlrpcString, $xmlrpcString));
|
||||||
|
$echoback_doc='Accepts a string parameter, returns the entire incoming payload';
|
||||||
|
|
||||||
|
function echoback($m)
|
||||||
|
{
|
||||||
|
// just sends back a string with what i got
|
||||||
|
// send to me, just escaped, that's all
|
||||||
|
//
|
||||||
|
// $m is an incoming message
|
||||||
|
$s="I got the following message:\n" . $m->serialize();
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$s));
|
||||||
|
}
|
||||||
|
|
||||||
|
$echosixtyfour_sig=array(array($xmlrpcString, $xmlrpcBase64));
|
||||||
|
$echosixtyfour_doc='Accepts a base64 parameter and returns it decoded as a string';
|
||||||
|
|
||||||
|
function echosixtyfour($m)
|
||||||
|
{
|
||||||
|
// accepts an encoded value, but sends it back
|
||||||
|
// as a normal string. this is to test base64 encoding
|
||||||
|
// is working as expected
|
||||||
|
$incoming=$m->getParam(0);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$incoming->scalarval(), "string"));
|
||||||
|
}
|
||||||
|
|
||||||
|
$bitflipper_sig=array(array($xmlrpcArray, $xmlrpcArray));
|
||||||
|
$bitflipper_doc='Accepts an array of booleans, and returns them inverted';
|
||||||
|
|
||||||
|
function bitflipper($m)
|
||||||
|
{
|
||||||
|
global $xmlrpcArray;
|
||||||
|
|
||||||
|
$v = $m->getParam(0);
|
||||||
|
$sz = $v->arraysize();
|
||||||
|
$rv = CreateObject('phpgwapi.xmlrpcval',array(), $xmlrpcArray);
|
||||||
|
|
||||||
|
for($j=0; $j<$sz; $j++)
|
||||||
|
{
|
||||||
|
$b = $v->arraymem($j);
|
||||||
|
if ($b->scalarval())
|
||||||
|
{
|
||||||
|
$rv->addScalar(False, 'boolean');
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$rv->addScalar(True, 'boolean');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',$rv);
|
||||||
|
}
|
||||||
|
|
||||||
|
// Sorting demo
|
||||||
|
//
|
||||||
|
// send me an array of structs thus:
|
||||||
|
//
|
||||||
|
// Dave 35
|
||||||
|
// Edd 45
|
||||||
|
// Fred 23
|
||||||
|
// Barney 37
|
||||||
|
//
|
||||||
|
// and I'll return it to you in sorted order
|
||||||
|
|
||||||
|
function agesorter_compare($a, $b)
|
||||||
|
{
|
||||||
|
global $agesorter_arr;
|
||||||
|
|
||||||
|
// don't even ask me _why_ these come padded with
|
||||||
|
// hyphens, I couldn't tell you :p
|
||||||
|
$a=ereg_replace("-", "", $a);
|
||||||
|
$b=ereg_replace("-", "", $b);
|
||||||
|
|
||||||
|
if ($agesorter_arr[$a]==$agesorter[$b])
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
return ($agesorter_arr[$a] > $agesorter_arr[$b]) ? -1 : 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
$agesorter_sig=array(array($xmlrpcArray, $xmlrpcArray));
|
||||||
|
$agesorter_doc='Send this method an array of [string, int] structs, eg:
|
||||||
|
<PRE>
|
||||||
|
Dave 35
|
||||||
|
Edd 45
|
||||||
|
Fred 23
|
||||||
|
Barney 37
|
||||||
|
</PRE>
|
||||||
|
And the array will be returned with the entries sorted by their numbers.
|
||||||
|
';
|
||||||
|
|
||||||
|
function agesorter($m)
|
||||||
|
{
|
||||||
|
global $agesorter_arr, $xmlrpcerruser, $s;
|
||||||
|
|
||||||
|
xmlrpc_debugmsg("Entering 'agesorter'");
|
||||||
|
// get the parameter
|
||||||
|
$sno = $m->getParam(0);
|
||||||
|
// error string for [if|when] things go wrong
|
||||||
|
$err = '';
|
||||||
|
// create the output value
|
||||||
|
$v = CreateObject('phpgwapi.xmlrpcval');
|
||||||
|
$agar = array();
|
||||||
|
|
||||||
|
if (isset($sno) && $sno->kindOf()=="array")
|
||||||
|
{
|
||||||
|
$max = $sno->arraysize();
|
||||||
|
// TODO: create debug method to print can work once more
|
||||||
|
// print "<!-- found $max array elements -->\n";
|
||||||
|
for($i=0; $i<$max; $i++)
|
||||||
|
{
|
||||||
|
$rec = $sno->arraymem($i);
|
||||||
|
if ($rec->kindOf()!="struct")
|
||||||
|
{
|
||||||
|
$err = "Found non-struct in array at element $i";
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
// extract name and age from struct
|
||||||
|
$n = $rec->structmem("name");
|
||||||
|
$a = $rec->structmem("age");
|
||||||
|
// $n and $a are xmlrpcvals,
|
||||||
|
// so get the scalarval from them
|
||||||
|
$agar[$n->scalarval()] = $a->scalarval();
|
||||||
|
}
|
||||||
|
|
||||||
|
$agesorter_arr = $agar;
|
||||||
|
// hack, must make global as uksort() won't
|
||||||
|
// allow us to pass any other auxilliary information
|
||||||
|
uksort($agesorter_arr, agesorter_compare);
|
||||||
|
$outAr = array();
|
||||||
|
while (list($key,$val) = each($agesorter_arr))
|
||||||
|
{
|
||||||
|
// recreate each struct element
|
||||||
|
$outAr[] = CreateObject('phpgwapi.xmlrpcval',array(
|
||||||
|
"name" => CreateObject('phpgwapi.xmlrpcval',$key),
|
||||||
|
"age" => CreateObject('phpgwapi.xmlrpcval',$val, "int")
|
||||||
|
),
|
||||||
|
"struct"
|
||||||
|
);
|
||||||
|
}
|
||||||
|
// add this array to the output value
|
||||||
|
$v->addArray($outAr);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$err = "Must be one parameter, an array of structs";
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($err)
|
||||||
|
{
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval'), $xmlrpcerruser, $err);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',$v);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
// signature and instructions, place these in the dispatch map
|
||||||
|
|
||||||
|
$mail_send_sig = array(
|
||||||
|
array(
|
||||||
|
$xmlrpcBoolean, $xmlrpcString, $xmlrpcString,
|
||||||
|
$xmlrpcString, $xmlrpcString, $xmlrpcString,
|
||||||
|
$xmlrpcString, $xmlrpcString
|
||||||
|
)
|
||||||
|
);
|
||||||
|
|
||||||
|
$mail_send_doc = 'mail.send(recipient, subject, text, sender, cc, bcc, mimetype)
|
||||||
|
<BR>recipient, cc, and bcc are strings, comma-separated lists of email addresses, as described above.
|
||||||
|
<BR>subject is a string, the subject of the message.
|
||||||
|
<BR>sender is a string, it\'s the email address of the person sending the message. This string can not be
|
||||||
|
a comma-separated list, it must contain a single email address only.
|
||||||
|
text is a string, it contains the body of the message.
|
||||||
|
<BR>mimetype, a string, is a standard MIME type, for example, text/plain.
|
||||||
|
';
|
||||||
|
|
||||||
|
// WARNING; this functionality depends on the sendmail -t option
|
||||||
|
// it may not work with Windows machines properly; particularly
|
||||||
|
// the Bcc option. Sneak on your friends at your own risk!
|
||||||
|
function mail_send($m)
|
||||||
|
{
|
||||||
|
global $xmlrpcerruser, $xmlrpcBoolean;
|
||||||
|
$err = '';
|
||||||
|
|
||||||
|
$mTo = $m->getParam(0);
|
||||||
|
$mSub = $m->getParam(1);
|
||||||
|
$mBody = $m->getParam(2);
|
||||||
|
$mFrom = $m->getParam(3);
|
||||||
|
$mCc = $m->getParam(4);
|
||||||
|
$mBcc = $m->getParam(5);
|
||||||
|
$mMime = $m->getParam(6);
|
||||||
|
|
||||||
|
if ($mTo->scalarval() == '')
|
||||||
|
{
|
||||||
|
$err = "Error, no 'To' field specified";
|
||||||
|
}
|
||||||
|
if ($mFrom->scalarval() == '')
|
||||||
|
{
|
||||||
|
$err = "Error, no 'From' field specified";
|
||||||
|
}
|
||||||
|
$msghdr = "From: " . $mFrom->scalarval() . "\n";
|
||||||
|
$msghdr .= "To: ". $mTo->scalarval() . "\n";
|
||||||
|
|
||||||
|
if ($mCc->scalarval()!="")
|
||||||
|
{
|
||||||
|
$msghdr .= "Cc: " . $mCc->scalarval(). "\n";
|
||||||
|
}
|
||||||
|
if ($mBcc->scalarval()!="")
|
||||||
|
{
|
||||||
|
$msghdr .= "Bcc: " . $mBcc->scalarval(). "\n";
|
||||||
|
}
|
||||||
|
if ($mMime->scalarval()!="")
|
||||||
|
{
|
||||||
|
$msghdr .= "Content-type: " . $mMime->scalarval() . "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
$msghdr .= "X-Mailer: XML-RPC for PHP mailer 1.0";
|
||||||
|
|
||||||
|
if ($err == '')
|
||||||
|
{
|
||||||
|
if (!mail("", $mSub->scalarval(), $mBody->scalarval(), $msghdr))
|
||||||
|
{
|
||||||
|
$err = "Error, could not send the mail.";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($err)
|
||||||
|
{
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval'), $xmlrpcerruser, $err);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',"true", $xmlrpcBoolean));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_arrayOfStructs_sig = array(array($xmlrpcInt, $xmlrpcArray));
|
||||||
|
$v1_arrayOfStructs_doc = 'This handler takes a single parameter, an array of structs, each of which contains at least three elements named moe, larry and curly, all <i4>s. Your handler must add all the struct elements named curly and return the result.';
|
||||||
|
|
||||||
|
function v1_arrayOfStructs($m)
|
||||||
|
{
|
||||||
|
$sno = $m->getParam(0);
|
||||||
|
$numcurly = 0;
|
||||||
|
for($i=0; $i<$sno->arraysize(); $i++)
|
||||||
|
{
|
||||||
|
$str = $sno->arraymem($i);
|
||||||
|
$str->structreset();
|
||||||
|
while(list($key,$val) = $str->structeach())
|
||||||
|
{
|
||||||
|
if ($key == 'curly')
|
||||||
|
{
|
||||||
|
$numcurly += $val->scalarval();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$numcurly, "int"));
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_easyStruct_sig = array(array($xmlrpcInt, $xmlrpcStruct));
|
||||||
|
$v1_easyStruct_doc = 'This handler takes a single parameter, a struct, containing at least three elements named moe, larry and curly, all <i4>s. Your handler must add the three numbers and return the result.';
|
||||||
|
|
||||||
|
function v1_easyStruct($m)
|
||||||
|
{
|
||||||
|
$sno = $m->getParam(0);
|
||||||
|
$moe = $sno->structmem("moe");
|
||||||
|
$larry = $sno->structmem("larry");
|
||||||
|
$curly = $sno->structmem("curly");
|
||||||
|
$num = $moe->scalarval() + $larry->scalarval() + $curly->scalarval();
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$num, "int"));
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_echoStruct_sig=array(array($xmlrpcStruct, $xmlrpcStruct));
|
||||||
|
$v1_echoStruct_doc='This handler takes a single parameter, a struct. Your handler must return the struct.';
|
||||||
|
|
||||||
|
function v1_echoStruct($m)
|
||||||
|
{
|
||||||
|
$sno=$m->getParam(0);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',$sno);
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_manyTypes_sig = array(
|
||||||
|
array(
|
||||||
|
$xmlrpcArray, $xmlrpcInt, $xmlrpcBoolean,
|
||||||
|
$xmlrpcString, $xmlrpcDouble, $xmlrpcDateTime,
|
||||||
|
$xmlrpcBase64
|
||||||
|
)
|
||||||
|
);
|
||||||
|
$v1_manyTypes_doc = 'This handler takes six parameters, and returns an array containing all the parameters.';
|
||||||
|
|
||||||
|
function v1_manyTypes($m)
|
||||||
|
{
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',array(
|
||||||
|
$m->getParam(0),
|
||||||
|
$m->getParam(1),
|
||||||
|
$m->getParam(2),
|
||||||
|
$m->getParam(3),
|
||||||
|
$m->getParam(4),
|
||||||
|
$m->getParam(5)
|
||||||
|
),
|
||||||
|
"array"
|
||||||
|
));
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_moderateSizeArrayCheck_sig = array(array($xmlrpcString, $xmlrpcArray));
|
||||||
|
$v1_moderateSizeArrayCheck_doc = 'This handler takes a single parameter, which is an array containing between 100 and 200 elements. Each of the items is a string, your handler must return a string containing the concatenated text of the first and last elements.';
|
||||||
|
|
||||||
|
function v1_moderateSizeArrayCheck($m)
|
||||||
|
{
|
||||||
|
$ar = $m->getParam(0);
|
||||||
|
$sz = $ar->arraysize();
|
||||||
|
$first = $ar->arraymem(0);
|
||||||
|
$last = $ar->arraymem($sz-1);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$first->scalarval() . $last->scalarval(), "string"));
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_simpleStructReturn_sig = array(array($xmlrpcStruct, $xmlrpcInt));
|
||||||
|
$v1_simpleStructReturn_doc = 'This handler takes one parameter, and returns a struct containing three elements, times10, times100 and times1000, the result of multiplying the number by 10, 100 and 1000.';
|
||||||
|
|
||||||
|
function v1_simpleStructReturn($m)
|
||||||
|
{
|
||||||
|
$sno=$m->getParam(0);
|
||||||
|
$v=$sno->scalarval();
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',array(
|
||||||
|
"times10" => CreateObject('phpgwapi.xmlrpcval',$v*10, "int"),
|
||||||
|
"times100" => CreateObject('phpgwapi.xmlrpcval',$v*100, "int"),
|
||||||
|
"times1000" => CreateObject('phpgwapi.xmlrpcval',$v*1000, "int")
|
||||||
|
),
|
||||||
|
"struct"
|
||||||
|
));
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_nestedStruct_sig = array(array($xmlrpcInt, $xmlrpcStruct));
|
||||||
|
$v1_nestedStruct_doc = 'This handler takes a single parameter, a struct, that models a daily calendar. At the top level, there is one struct for each year. Each year is broken down into months, and months into days. Most of the days are empty in the struct you receive, but the entry for April 1, 2000 contains a least three elements named moe, larry and curly, all <i4>s. Your handler must add the three numbers and return the result.';
|
||||||
|
|
||||||
|
function v1_nestedStruct($m) {
|
||||||
|
$sno=$m->getParam(0);
|
||||||
|
|
||||||
|
$twoK=$sno->structmem("2000");
|
||||||
|
$april=$twoK->structmem("04");
|
||||||
|
$fools=$april->structmem("01");
|
||||||
|
$curly=$fools->structmem("curly");
|
||||||
|
$larry=$fools->structmem("larry");
|
||||||
|
$moe=$fools->structmem("moe");
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',$curly->scalarval()+
|
||||||
|
$larry->scalarval()+
|
||||||
|
$moe->scalarval(), "int"));
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
$v1_countTheEntities_sig=array(array($xmlrpcStruct, $xmlrpcString));
|
||||||
|
|
||||||
|
$v1_countTheEntities_doc='This handler takes a single parameter, a string, that contains any number of predefined entities, namely <, >, & \' and ".<BR>Your handler must return a struct that contains five fields, all numbers: ctLeftAngleBrackets, ctRightAngleBrackets, ctAmpersands, ctApostrophes, ctQuotes.';
|
||||||
|
|
||||||
|
function v1_countTheEntities($m) {
|
||||||
|
$sno=$m->getParam(0);
|
||||||
|
$str=$sno->scalarval();
|
||||||
|
$gt=0; $lt=0; $ap=0; $qu=0; $amp=0;
|
||||||
|
for($i=0; $i<strlen($str); $i++) {
|
||||||
|
$c=substr($str, $i, 1);
|
||||||
|
switch($c) {
|
||||||
|
case ">":
|
||||||
|
$gt++;
|
||||||
|
break;
|
||||||
|
case "<":
|
||||||
|
$lt++;
|
||||||
|
break;
|
||||||
|
case "\"":
|
||||||
|
$qu++;
|
||||||
|
break;
|
||||||
|
case "'":
|
||||||
|
$ap++;
|
||||||
|
break;
|
||||||
|
case "&":
|
||||||
|
$amp++;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',CreateObject('phpgwapi.xmlrpcval',array(
|
||||||
|
"ctLeftAngleBrackets" => CreateObject('phpgwapi.xmlrpcval',$lt, "int"),
|
||||||
|
"ctRightAngleBrackets" => CreateObject('phpgwapi.xmlrpcval',$gt, "int"),
|
||||||
|
"ctAmpersands" => CreateObject('phpgwapi.xmlrpcval',$amp, "int"),
|
||||||
|
"ctApostrophes" => CreateObject('phpgwapi.xmlrpcval',$ap, "int"),
|
||||||
|
"ctQuotes" => CreateObject('phpgwapi.xmlrpcval',$qu, "int")
|
||||||
|
),
|
||||||
|
"struct"
|
||||||
|
));
|
||||||
|
}
|
||||||
|
|
||||||
|
// trivial interop tests
|
||||||
|
// http://www.xmlrpc.com/stories/storyReader$1636
|
||||||
|
|
||||||
|
$i_echoString_sig=array(array($xmlrpcString, $xmlrpcString));
|
||||||
|
$i_echoString_doc="Echoes string.";
|
||||||
|
|
||||||
|
$i_echoStringArray_sig=array(array($xmlrpcArray, $xmlrpcArray));
|
||||||
|
$i_echoStringArray_doc="Echoes string array.";
|
||||||
|
|
||||||
|
$i_echoInteger_sig=array(array($xmlrpcInt, $xmlrpcInt));
|
||||||
|
$i_echoInteger_doc="Echoes integer.";
|
||||||
|
|
||||||
|
$i_echoIntegerArray_sig=array(array($xmlrpcArray, $xmlrpcArray));
|
||||||
|
$i_echoIntegerArray_doc="Echoes integer array.";
|
||||||
|
|
||||||
|
$i_echoFloat_sig=array(array($xmlrpcDouble, $xmlrpcDouble));
|
||||||
|
$i_echoFloat_doc="Echoes float.";
|
||||||
|
|
||||||
|
$i_echoFloatArray_sig=array(array($xmlrpcArray, $xmlrpcArray));
|
||||||
|
$i_echoFloatArray_doc="Echoes float array.";
|
||||||
|
|
||||||
|
$i_echoStruct_sig=array(array($xmlrpcStruct, $xmlrpcStruct));
|
||||||
|
$i_echoStruct_doc="Echoes struct.";
|
||||||
|
|
||||||
|
$i_echoStructArray_sig=array(array($xmlrpcArray, $xmlrpcArray));
|
||||||
|
$i_echoStructArray_doc="Echoes struct array.";
|
||||||
|
|
||||||
|
$i_echoValue_doc="Echoes any value back.";
|
||||||
|
|
||||||
|
$i_echoBase64_sig=array(array($xmlrpcBase64, $xmlrpcBase64));
|
||||||
|
$i_echoBase64_doc="Echoes base64.";
|
||||||
|
|
||||||
|
$i_echoDate_sig=array(array($xmlrpcDateTime, $xmlrpcDateTime));
|
||||||
|
$i_echoDate_doc="Echoes dateTime.";
|
||||||
|
|
||||||
|
function i_echoParam($m)
|
||||||
|
{
|
||||||
|
$s = $m->getParam(0);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',$s);
|
||||||
|
}
|
||||||
|
|
||||||
|
function i_echoString($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoInteger($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoFloat($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoStruct($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoStringArray($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoIntegerArray($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoFloatArray($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoStructArray($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoValue($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoBase64($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
function i_echoDate($m)
|
||||||
|
{
|
||||||
|
return i_echoParam($m);
|
||||||
|
}
|
||||||
|
|
||||||
|
$i_whichToolkit_doc = "Returns a struct containing the following strings: toolkitDocsUrl, toolkitName, toolkitVersion, toolkitOperatingSystem.";
|
||||||
|
|
||||||
|
function i_whichToolkit($m)
|
||||||
|
{
|
||||||
|
global $xmlrpcName, $xmlrpcVersion,$SERVER_SOFTWARE,$xmlrpcStruct;
|
||||||
|
$ret = array(
|
||||||
|
"toolkitDocsUrl" => "http://xmlrpc.usefulinc.com/php.html",
|
||||||
|
"toolkitName" => $xmlrpcName,
|
||||||
|
"toolkitVersion" => $xmlrpcVersion,
|
||||||
|
"toolkitOperatingSystem" => $SERVER_SOFTWARE
|
||||||
|
);
|
||||||
|
return CreateObject('phpgwapi.xmlrpcresp',xmlrpc_encode($ret));
|
||||||
|
}
|
||||||
|
|
||||||
|
$s = CreateObject('phpgwapi.xmlrpc_server',array(
|
||||||
|
"examples.getStateName" => array(
|
||||||
|
"function" => "findstate",
|
||||||
|
"signature" => $findstate_sig,
|
||||||
|
"docstring" => $findstate_doc
|
||||||
|
),
|
||||||
|
"examples.sortByAge" => array(
|
||||||
|
"function" => "agesorter",
|
||||||
|
"signature" => $agesorter_sig,
|
||||||
|
"docstring" => $agesorter_doc
|
||||||
|
),
|
||||||
|
"examples.addtwo" => array(
|
||||||
|
"function" => "addtwo",
|
||||||
|
"signature" => $addtwo_sig,
|
||||||
|
"docstring" => $addtwo_doc
|
||||||
|
),
|
||||||
|
"examples.addtwodouble" => array(
|
||||||
|
"function" => "addtwodouble",
|
||||||
|
"signature" => $addtwodouble_sig,
|
||||||
|
"docstring" => $addtwodouble_doc
|
||||||
|
),
|
||||||
|
"examples.stringecho" => array(
|
||||||
|
"function" => "stringecho",
|
||||||
|
"signature" => $stringecho_sig,
|
||||||
|
"docstring" => $stringecho_doc
|
||||||
|
),
|
||||||
|
"examples.echo" => array(
|
||||||
|
"function" => "echoback",
|
||||||
|
"signature" => $echoback_sig,
|
||||||
|
"docstring" => $echoback_doc
|
||||||
|
),
|
||||||
|
"examples.decode64" => array(
|
||||||
|
"function" => "echosixtyfour",
|
||||||
|
"signature" => $echosixtyfour_sig,
|
||||||
|
"docstring" => $echosixtyfour_doc
|
||||||
|
),
|
||||||
|
"examples.invertBooleans" => array(
|
||||||
|
"function" => "bitflipper",
|
||||||
|
"signature" => $bitflipper_sig,
|
||||||
|
"docstring" => $bitflipper_doc
|
||||||
|
),
|
||||||
|
"mail.send" => array(
|
||||||
|
"function" => "mail_send",
|
||||||
|
"signature" => $mail_send_sig,
|
||||||
|
"docstring" => $mail_send_doc
|
||||||
|
),
|
||||||
|
"validator1.arrayOfStructsTest" => array(
|
||||||
|
"function" => "v1_arrayOfStructs",
|
||||||
|
"signature" => $v1_arrayOfStructs_sig,
|
||||||
|
"docstring" => $v1_arrayOfStructs_doc),
|
||||||
|
"validator1.easyStructTest" => array(
|
||||||
|
"function" => "v1_easyStruct",
|
||||||
|
"signature" => $v1_easyStruct_sig,
|
||||||
|
"docstring" => $v1_easyStruct_doc
|
||||||
|
),
|
||||||
|
"validator1.echoStructTest" => array(
|
||||||
|
"function" => "v1_echoStruct",
|
||||||
|
"signature" => $v1_echoStruct_sig,
|
||||||
|
"docstring" => $v1_echoStruct_doc
|
||||||
|
),
|
||||||
|
"validator1.manyTypesTest" => array(
|
||||||
|
"function" => "v1_manyTypes",
|
||||||
|
"signature" => $v1_manyTypes_sig,
|
||||||
|
"docstring" => $v1_manyTypes_doc
|
||||||
|
),
|
||||||
|
"validator1.moderateSizeArrayCheck" => array(
|
||||||
|
"function" => "v1_moderateSizeArrayCheck",
|
||||||
|
"signature" => $v1_moderateSizeArrayCheck_sig,
|
||||||
|
"docstring" => $v1_moderateSizeArrayCheck_doc
|
||||||
|
),
|
||||||
|
"validator1.simpleStructReturnTest" => array(
|
||||||
|
"function" => "v1_simpleStructReturn",
|
||||||
|
"signature" => $v1_simpleStructReturn_sig,
|
||||||
|
"docstring" => $v1_simpleStructReturn_doc
|
||||||
|
),
|
||||||
|
"validator1.nestedStructTest" => array(
|
||||||
|
"function" => "v1_nestedStruct",
|
||||||
|
"signature" => $v1_nestedStruct_sig,
|
||||||
|
"docstring" => $v1_nestedStruct_doc
|
||||||
|
),
|
||||||
|
"validator1.countTheEntities" => array(
|
||||||
|
"function" => "v1_countTheEntities",
|
||||||
|
"signature" => $v1_countTheEntities_sig,
|
||||||
|
"docstring" => $v1_countTheEntities_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoString" => array(
|
||||||
|
"function" => "i_echoString",
|
||||||
|
"signature" => $i_echoString_sig,
|
||||||
|
"docstring" => $i_echoString_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoStringArray" => array(
|
||||||
|
"function" => "i_echoStringArray",
|
||||||
|
"signature" => $i_echoStringArray_sig,
|
||||||
|
"docstring" => $i_echoStringArray_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoInteger" => array(
|
||||||
|
"function" => "i_echoInteger",
|
||||||
|
"signature" => $i_echoInteger_sig,
|
||||||
|
"docstring" => $i_echoInteger_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoIntegerArray" => array(
|
||||||
|
"function" => "i_echoIntegerArray",
|
||||||
|
"signature" => $i_echoIntegerArray_sig,
|
||||||
|
"docstring" => $i_echoIntegerArray_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoFloat" => array(
|
||||||
|
"function" => "i_echoFloat",
|
||||||
|
"signature" => $i_echoFloat_sig,
|
||||||
|
"docstring" => $i_echoFloat_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoFloatArray" => array(
|
||||||
|
"function" => "i_echoFloatArray",
|
||||||
|
"signature" => $i_echoFloatArray_sig,
|
||||||
|
"docstring" => $i_echoFloatArray_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoStruct" => array(
|
||||||
|
"function" => "i_echoStruct",
|
||||||
|
"signature" => $i_echoStruct_sig,
|
||||||
|
"docstring" => $i_echoStruct_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoStructArray" => array(
|
||||||
|
"function" => "i_echoStructArray",
|
||||||
|
"signature" => $i_echoStructArray_sig,
|
||||||
|
"docstring" => $i_echoStructArray_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoValue" => array(
|
||||||
|
"function" => "i_echoValue",
|
||||||
|
// no sig as takes anytype
|
||||||
|
"docstring" => $i_echoValue_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoBase64" => array(
|
||||||
|
"function" => "i_echoBase64",
|
||||||
|
"signature" => $i_echoBase64_sig,
|
||||||
|
"docstring" => $i_echoBase64_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.echoDate" => array(
|
||||||
|
"function" => "i_echoDate",
|
||||||
|
"signature" => $i_echoDate_sig,
|
||||||
|
"docstring" => $i_echoDate_doc
|
||||||
|
),
|
||||||
|
"interopEchoTests.whichToolkit" => array(
|
||||||
|
"function" => "i_whichToolkit",
|
||||||
|
// no sig as no parameters
|
||||||
|
"docstring" => $i_whichToolkit_doc
|
||||||
|
)
|
||||||
|
));
|
||||||
|
// that should do all we need!
|
||||||
|
?>
|
||||||
Loading…
Reference in New Issue
Block a user