+++ /dev/null
-<?
-/***************************************
-example of a MoodleWS client in PHP5.
-with SoapClient trace enabled
-this demo code is meant to be run as it
-from the directory $CFG->wwwroot/wspp/clients.
-
-To use this code from another machine you
-MUST run on THAT machine the supplied utility script
-wsdl2php.php against your Moodle server
-to generate the MoodleWs class
-and all support classes for returned datatypes.
-eg: php wsdl2php.php http://youmoodle/wspp/wsdl_pp.php.
-
-
-Running that utility several times is harmless.
-If you modify server code and wsdl to add new remote calls
-you MUST rerun the wsdl2php utilty to keep your clients in sync.
-
-
-Don't forget to adjust the paths to required files
-**********************************************/
-
-ini_set('soap.wsdl_cache_enabled', '0'); // Set to '0' for debugging.
-
-require("auth.php");
-require("MoodleWS.php");
-
-$moodle= new MoodleWS("http://localhost:8888/moodle19/wspp/wsdl_pp.php",
- null,
- array('trace'=>1));
-
-heading ("login IN ");
-$lr= $moodle->login(LOGIN,PASSWORD);
-print_r_pre($lr,$moodle);
-
-/*
-print_r_pre($moodle->get_last_changes($lr->client,$lr->sessionkey,2,'id',5),$moodle);
-
-
-heading ("get courses by category 2");
-
-print_r_pre($moodle->get_courses_bycategory($lr->client,$lr->sessionkey,2),$moodle);
-
-
-heading ("get roles");
-
-print_r_pre($moodle->get_roles($lr->client,$lr->sessionkey),$moodle);
-
-
-heading ("get categories");
-
-print_r_pre($moodle->get_categories($lr->client,$lr->sessionkey),$moodle);
-
-
-heading ("get my courses (as current user)");
-
-print_r_pre($moodle->get_my_courses($lr->client,$lr->sessionkey),$moodle);
-
-heading ("get my courses (guest)");
-
-print_r_pre($moodle->get_my_courses($lr->client,$lr->sessionkey,1),$moodle);
-
-
-heading ("get users (ppollet,pguy,toto)");
-
-print_r_pre($moodle->get_users($lr->client,$lr->sessionkey,array('ppollet','pguy','toto'),'username'),$moodle);
-
-
-
-heading ("get courses ('C2I_101','1PC_PASSINFO','unknown']");
-
-//TODO retourne le cours 0 si 'idnumber' est absent
-
-print_r_pre($moodle->get_courses($lr->client,$lr->sessionkey,array('C2I_101','1PC_PASSINFO','unknown'),'idnumber'),$moodle);
-
-heading ("get course C2I_101");
-
-print_r_pre($moodle->get_course($lr->client,$lr->sessionkey,'C2I_101'),,$moodle);
-
-heading ("get course by id 2 ");
-
-print_r_pre($moodle->get_course_byid($lr->client,$lr->sessionkey,2),$moodle);
-
-heading ("get course by id -1 unknown ");
-
-print_r_pre($moodle->get_course_byid($lr->client,$lr->sessionkey,-1),$moodle);
-
-
-
-heading ("get user astrid");
-
-print_r_pre($moodle->get_user($lr->client,$lr->sessionkey,'astrid','username'),$moodle);
-
-
-
-heading ("get users by course id=2 role =0, any ");
-
-$myc=$moodle->get_users_bycourse($lr->client,$lr->sessionkey,2,'id',0);
-
-print (count($myc->users));
-print(" users found <br />\n");
-
-heading ("get users by course id=2 role =3, teachers");
-
-$myc=$moodle->get_users_bycourse($lr->client,$lr->sessionkey,2,'id',3);
-
-print(count($myc->users));
-print(" users found <br />\n");
-
-
-heading ("get users by course id=2 role =5, students");
-
-$myc=$moodle->get_users_bycourse($lr->client,$lr->sessionkey,2,'id',5);
-
-print(count($myc->users));
-print(" users found <br />\n");
-
-*/
-
-heading ("get user by name pguy");
-
-
-print_r_pre($moodle->get_user_byusername($lr->client,$lr->sessionkey,'pguy'),$moodle);
-
-heading ("get user by id 77");
-
-print_r_pre($moodle->get_user_byid($lr->client,$lr->sessionkey,77),$moodle);
-
-heading ("get user by id -1 (unknown)");
-
-print_r_pre($moodle->get_user_byid($lr->client,$lr->sessionkey,-1),$moodle);
-
-
-
-
-heading ("logout and bye");
-
-
-$moodle->logout($lr->client,$lr->sessionkey,$moodle);
-
-
-function heading ($msg) {
- print "<h2>$msg</h2>\n";
-}
-
-/**
-* print something in <pre> tags for better viewing on a browser
-* @param $var any type : the info to dump
-* @param $client : an instance of MoodleWS contructed with option trace=1
-* thus allowing a call to debug functions __getLast*
-*/
-
-function print_r_pre($var,$client=null) {
- print "<pre>";
- print_r($var);
- if ($client) {
- print "<br>\n";
- echo "REQUEST HEADERS:\n" . $client->client->__getLastRequestHeaders() . "<br>\n";
- echo "REQUEST:\n" . $client->client->__getLastRequest() . "<br>\n";
- echo "RESPONSE HEADERS:\n" . $client->client->__getLastResponseHeaders() . "<br>\n";
- echo "RESPONSE:\n" . $client->client->__getLastResponse() . "<br>\n";
- }
- print"</pre>";
-}
-?>