extern/egroupware
1
0
Fork 1
mirror of https://github.com/EGroupware/egroupware.git synced 2025-01-13 09:28:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

This calls the system.listApps from the local server as a test

Browse Source
This commit is contained in:
Miles Lott 2001-08-09 15:51:38 +00:00
parent f5b5c2b24f
commit e877085fd8
1 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
setup/applist.php Normal file
View File

@ -0,0 +1,49 @@
<?php
/**************************************************************************\
* phpGroupWare - XML-RPC Test App *
* http://www.phpgroupware.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. *
\**************************************************************************/
/* $Id$ */
$phpgw_info['flags'] = array(
'noheader' => True,
'nonavbar' => True,
'currentapp' => 'home',
'noapi' => True
);
include ('./inc/functions.inc.php');
$tpl_root = $phpgw_setup->setup_tpl_dir('setup');
$setup_tpl = CreateObject('phpgwapi.Template',$tpl_root);
$setup_tpl->set_file(array('T_footer' => 'footer.tpl'));
$setup_tpl->set_block('T_footer','footer','footer');
$f = CreateObject('phpgwapi.xmlrpcmsg','system.listApps',array(CreateObject('phpgwapi.xmlrpcval',0, "int")));
print "<pre>" . htmlentities($f->serialize()) . "</pre>\n";
$c = CreateObject('phpgwapi.xmlrpc_client',"/phpgroupware/xmlrpc.php", $HTTP_HOST, 80);
$c->setDebug(1);
$r = $c->send($f);
if (!$r)
{
die('send failed');
}
$v = $r->value();
if (!$r->faultCode())
{
// print "<HR>I got this value back<BR><PRE>" .
// htmlentities($r->serialize()). "</PRE><HR>\n";
}
else
{
print 'Fault: ';
print 'Code: ' . $r->faultCode() . " Reason '" .$r->faultString()."'<br>";
}
$phpgw_setup->show_footer();
?>