<?php
/**
 * Moodle - Modular Object-Oriented Dynamic Learning Environment
 *         http://moodle.com
 *
 * LICENSE
 *
 * 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.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details:
 *
 *         http://www.gnu.org/copyleft/gpl.html
 *
 * @category  Moodle
 * @package   webservice
 * @copyright Copyright (c) 1999 onwards Martin Dougiamas     http://dougiamas.com
 * @license   http://www.gnu.org/copyleft/gpl.html     GNU GPL License
 */

/*
 * XML-RPC server class
 */

require_once($CFG->dirroot.'/webservice/lib.php');

final class xmlrpc_server extends webservice_server {

    public function __construct() {

        $this->set_protocolname("XML-RPC");
        $this->set_protocolid("xmlrpc");
    }

    public function run() {
        $enable = $this->get_enable();
        if (empty($enable)) {
            die;
        }
        include "Zend/Loader.php";
        Zend_Loader::registerAutoload();

        Zend_XmlRpc_Server_Fault::attachFaultException('moodle_exception');

        // retrieve the token from the url
        // if the token doesn't exist, set a class containing only get_token()
        $token = optional_param('token',null,PARAM_ALPHANUM);
        if (empty($token)) {
            $server = new Zend_XmlRpc_Server();
            $server->setClass("ws_authentication", "authentication");
            // Create a request object
            $request = new Zend_XmlRpc_Request_Http();
            $params = $request->getParams();
            $this->convertXmlrpcParams($params);
            $request->setParams($params);
            echo $server->handle($request);
        } else { // if token exist, do the authentication here
        /// TODO: following function will need to be modified
            $user = webservice_lib::mock_check_token($token);
            if (empty($user)) {
                throw new moodle_exception('wrongidentification');
            } else {
            /// TODO: probably change this
                global $USER;
                $USER = $user;
            }

            //retrieve the api name
            $classpath = optional_param('classpath', null, PARAM_SAFEDIR);
            require_once(dirname(__FILE__) . '/../../'.$classpath.'/external.php');

            /// run the server
            $server = new Zend_XmlRpc_Server();
            $server->setClass($classpath."_external", $classpath);
            $request = new Zend_XmlRpc_Request_Http();
            $params = $request->getParams();
            $this->convertXmlrpcParams($params);
            $request->setParams($params);         
            echo $server->handle($request);
        }
    }

    private function convertXmlrpcParams(&$params) {
        if (is_array($params)) {
        //get the first key
            $key = key($params);

            reset($params);

            //if first key == 0 so do not change the params
            if (strcmp($key, "0") == 0) {
                foreach ($params as &$param) {
                    $this->convertXmlrpcParams($param);
                }
            }

            //first key is a string, params need to be converted into an object
            //first go into
            else {
                foreach ($params as $paramkey => &$param) {
                    $this->convertXmlrpcParams($param);
                }
                $params = (object) $params;
            }
        }
    }

}


?>