egroupware/setup/applist.php

<?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');
	include('./inc/xml_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();
?>