source: branches/1.2/setup/applist.php @ 2

<?php
/**************************************************************************\
* eGroupWare - XML-RPC Test App                                            *
* http://www.egroupware.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 = array();
        $GLOBALS['phpgw_info']['flags'] = array(
                'noheader' => True,
                'nonavbar' => True,
                'currentapp' => 'home',
                'noapi' => True
        );
        include('./inc/functions.inc.php');
        include(PHPGW_SERVER_ROOT . 'phpgwapi/inc/xml_functions.inc.php');

        /* Check header and authentication */
        if (!$GLOBALS['phpgw_setup']->auth('Config'))
        {
                Header('Location: index.php');
                exit;
        }
        // Does not return unless user is authorized

        $tpl_root = $GLOBALS['phpgw_setup']->html->setup_tpl_dir('setup');
        $setup_tpl = CreateObject('setup.Template',$tpl_root);
        $setup_tpl->set_file(array(
                'T_head'   => 'head.tpl',
                'T_footer' => 'footer.tpl'
        ));
        $setup_tpl->set_block('T_footer','footer','footer');

        $host = 'us.egroupware.org';
        $path = '/cvsdemo/xmlrpc.php';

        $GLOBALS['phpgw_setup']->html->show_header(lang('Application List'),True);

        /* Login as demo */
        $login = CreateObject(
                'phpgwapi.xmlrpcmsg',
                'system.login',
                array(
                        CreateObject(
                                'phpgwapi.xmlrpcval',
                                array(
                                        'domain'   => CreateObject('phpgwapi.xmlrpcval','default','string'),
                                        'username' => CreateObject('phpgwapi.xmlrpcval','demo','string'),
                                        'password' => CreateObject('phpgwapi.xmlrpcval','guest','string')
                                ),
                                'struct'
                        )
                )
        );
        echo '<pre>' . htmlentities($login->serialize()) . "</pre>\n";

        $c = CreateObject('phpgwapi.xmlrpc_client',$path,$host,80);
        $c->setDebug(1);
        $r = $c->send($login);
        $v = $r->value();
        $result = xmlrpc_decode($v);

        /* Get applist */
        $f = CreateObject('phpgwapi.xmlrpcmsg','system.listApps','');
        echo '<pre>' . htmlentities($f->serialize()) . "</pre>\n";

        $c = CreateObject('phpgwapi.xmlrpc_client',$path,$host,80);
        $c->setDebug(1);
        $c->username = $result['sessionid'];
        $c->password = $result['kp3'];
        $r = $c->send($f);

        /* Logout */
        $logout = CreateObject(
                'phpgwapi.xmlrpcmsg',
                'system.logout',
                array(
                        CreateObject(
                                'phpgwapi.xmlrpcval',
                                array(
                                        'sessionid' => CreateObject('phpgwapi.xmlrpcval',$result['sessionid'],'string'),
                                        'kp3'       => CreateObject('phpgwapi.xmlrpcval',$result['kp3'],'string')
                                ),
                                'struct'
                        )
                )
        );
        echo '<pre>' . htmlentities($logout->serialize()) . "</pre>\n";

        $c = CreateObject('phpgwapi.xmlrpc_client',$path,$host,80);
        $c->setDebug(1);
        $r = $c->send($logout);
        $v = $r->value();

        $GLOBALS['phpgw_setup']->html->show_footer();
?>