chamilo-lms/main/webservices/soap.php

<?php
/* For licensing terms, see /license.txt */
/**
 * @package chamilo.webservices
 */
require_once '../inc/global.inc.php';
require_once(dirname(__FILE__).'/webservice.php');
$libpath = api_get_path(LIBRARY_PATH);
require_once $libpath.'nusoap/nusoap.php';

/**
 * SOAP error handler. Handles an error sending a SOAP fault
 */
class WSSoapErrorHandler implements WSErrorHandler {
	/**
	 * Handles the error by sending a SOAP fault through the server
	 * 
	 * @param WSError Error to handle
	 */
	public function handle($error) {
		$server = WSSoapServer::singleton();
		$server->fault(strval($error->code), $error->message);
	}
}

/**
 * SOAP server wrapper implementing a Singleton
 */
class WSSoapServer {
	/**
	 * SOAP server instance
	 * 
	 * @var soap_server
	 */
	private static $_instance;
	
	/**
	 * Private constructor
	 */
	private function __construct() {
	}
	
	/**
	 * Singleton method
	 */
	public static function singleton() {
		if(!isset(self::$_instance)) {
			self::$_instance = new soap_server();
			// Set the error handler
			WSError::setErrorHandler(new WSSoapErrorHandler());
			// Configure the service
			self::$_instance->configureWSDL('WSService', 'urn:WSService');
		}
		
		return self::$_instance;
	}
}
			
$s = WSSoapServer::singleton();

$s->wsdl->addComplexType(
	'result',
	'complexType',
	'struct',
	'all',
	'',
	array(
		'code' => array('name' => 'code', 'type' => 'xsd:int'),
		'message' => array('name' => 'message', 'type' => 'xsd:string')
	)
);

$s->wsdl->addComplexType(
  'extras',
  'complexType',
  'struct',
  'all',
  '',
  array(
          'field_name' => array('name' => 'field_name', 'type' => 'xsd:string'),
          'field_value' => array('name' => 'field_value', 'type' => 'xsd:string')
       )
);

$s->wsdl->addComplexType(
  'extra_field',
  'complexType',
  'array',
  '',
  'SOAP-ENC:Array',
  array(),
  array(array('ref'=>'SOAP-ENC:arrayType','wsdl:arrayType' => 'tns:extras[]')),'tns:extras'
);

/*
$s->wsdl->addComplexType(
	'extra_field',
	'complexType',
	'struct',
	'all',
	'',
	array(
		'field_name' => array('name' => 'field_name', 'type' => 'xsd:string'),
		'field_value' => array('name' => 'field_value', 'type' => 'xsd:string')
	)
);
*/

$s->register(
	'WS.test',
	array(),
	array('return' => 'xsd:string')
);

require_once(dirname(__FILE__).'/soap_user.php');
require_once(dirname(__FILE__).'/soap_course.php');
require_once(dirname(__FILE__).'/soap_session.php');
require_once(dirname(__FILE__).'/soap_report.php');

// Use the request to (try to) invoke the service
$HTTP_RAW_POST_DATA = isset($HTTP_RAW_POST_DATA) ? $HTTP_RAW_POST_DATA : '';
$s->service($HTTP_RAW_POST_DATA);