* 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 */ /** * This file generate a web service documentation in HTML * This documentation describe how to call a Moodle Web Service */ require_once '../config.php'; require_once 'lib.php'; $protocol = optional_param('protocol', "soap", PARAM_ALPHA); print_header(get_string('wspagetitle', 'webservice'), get_string('wspagetitle', 'webservice') . ":", true); webservice_lib::display_webservices_availability($protocol); generate_documentation($protocol); generate_functionlist(); print_footer(); /** * Generate documentation specific to a protocol * @param string $protocol */ function generate_documentation($protocol) { switch ($protocol) { case "soap": $documentation = get_string('soapdocumentation', 'webservice'); break; case "xmlrpc": $documentation = get_string('xmlrpcdocumentation', 'webservice');
* @copyright Copyright (c) 1999 onwards Martin Dougiamas http://dougiamas.com * @license http://www.gnu.org/copyleft/gpl.html GNU GPL License */ /* * Zend Soap sclient */ require_once '../../../config.php'; require_once '../lib.php'; include "Zend/Loader.php"; Zend_Loader::registerAutoload(); ///Display Moodle page header print_header('Soap test client', 'Soap test client' . ":", true); /// check that webservices are enable into your Moodle /// WARNING: it makes sens here only because this client runs on the same machine as the /// server, if you change the WSDL url, please comment the following if statement if (!webservice_lib::display_webservices_availability("soap")) { echo "<br/><br/>"; echo "Please fix the previous problem(s), the testing session has been interupted."; print_footer(); exit; } /// authenticate => get a conversation token from the server /// You need a wsuser/wspassword user in the remote Moodle $client = new Zend_Soap_Client($CFG->wwwroot . "/webservice/soap/server.php?wsdl"); try { $token = $client->get_token(array('username' => "wsuser", 'password' => "wspassword")); print "<pre>\n"; print "<br><br><strong>Token: </strong>" . $token; print "</pre>"; } catch (exception $exception) { print "<br><br><strong>An exception occured during authentication: \n</strong>";