From: jamiesensei <jamiesensei>
Date: Tue, 24 Mar 2009 08:19:00 +0000 (+0000)
Subject: Test client using Flex 3 compiler to produce a Flash 9 client for moodle web services.
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=69afc75844c8b80ce001151095174f725416e540;p=moodle.git

Test client using Flex 3 compiler to produce a Flash 9 client for moodle web services.
---

diff --git a/webservice/amf/testclient/index.php b/webservice/amf/testclient/index.php
new file mode 100644
index 0000000000..40835d2246
--- /dev/null
+++ b/webservice/amf/testclient/index.php
@@ -0,0 +1,20 @@
+<?php
+require "../../../config.php";
+print_header_simple('Test Client', 'Test Client');
+
+$url = addslashes_js("$CFG->wwwroot/webservice/amf/testclient/moodleclient.swf");
+$serverurl = addslashes_js("$CFG->wwwroot/webservice/amf/server.php");
+echo '<span id="moodletestclient">
+      <p>You need to install Flash 9.0</p>
+    </span>';
+
+echo <<<EOF
+<script type="text/javascript">
+//<![CDATA[
+  var FO = { movie:"$url", width:"100%", height:"500", majorversion:"9", build:"0",
+    allowscriptaccess:"never", quality: "high", flashvars:"amfurl=$serverurl", setcontainercss:"true"};
+  UFO.create(FO, "moodletestclient");
+//]]>
+</script>
+EOF;
+print_footer();
\ No newline at end of file
diff --git a/webservice/amf/testclient/moodleclient.mxml b/webservice/amf/testclient/moodleclient.mxml
new file mode 100644
index 0000000000..77b8483499
--- /dev/null
+++ b/webservice/amf/testclient/moodleclient.mxml
@@ -0,0 +1,313 @@
+<?xml version="1.0" encoding="utf-8"?>
+<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="initApp(); true;">
+
+
+
+
+
+<mx:Script>
+<![CDATA[
+
+        import mx.collections.*;
+        function print_props(varname:String, objecttoprint:Object):void{
+            if (textarea1.text == null){
+                textarea1.text = '';
+            }
+            if (objecttoprint == null){
+                textarea1.text += "\n"+varname+" = null\n";
+            } else {
+                textarea1.text += "\n"+varname+" = "+objecttoprint+"("+typeof(objecttoprint)+")"+"\n";
+                for (var props:String in objecttoprint){
+                    textarea1.text += varname+"["+props+"] = "+objecttoprint[props]+"("+typeof(objecttoprint[props])+")"+"\n";
+                    if (typeof(objecttoprint[props])=='object'){
+                        print_props(varname+"["+props+"]", objecttoprint[props]);
+                    }
+                }
+            }
+        }
+        public function objectToArray(obj:Object):Array{
+            var arr:Array = new Array();
+            for (var prop:String in obj){
+                if (obj[prop] != ''){
+                    arr[prop] = obj[prop];
+                }
+            }
+            return arr;
+        }
+        import mx.rpc.remoting.mxml.RemoteObject;
+        import mx.messaging.*;
+        import mx.messaging.channels.*;
+        import mx.rpc.events.*;
+        public var moodleWebServices : RemoteObject;
+
+        public function initApp():void{
+            moodleWebServices = new RemoteObject();
+            var cs:ChannelSet = new ChannelSet(); 
+            cs.addChannel(new AMFChannel("myAmf", Application.application.parameters.amfurl));
+            moodleWebServices.destination = "Dest"; 
+            moodleWebServices.channelSet = cs;
+            moodleWebServices.showBusyCursor = true;
+
+            moodleWebServices.get_users.addEventListener('result', handleReturnGetUsers);
+            moodleWebServices.update_users.addEventListener('result', handleReturn);
+            moodleWebServices.create_users.addEventListener('result', handleReturn);
+             
+            moodleWebServices.addEventListener('fault', handleFault);
+            moodleWebServices.addEventListener('result', handleReturn);
+            
+            print_props('Application.application.parameters.amfurl', Application.application.parameters.amfurl);
+            print_props('moodleWebServices', moodleWebServices);
+            getUsers('');
+        }
+        public function handleReturn(e:ResultEvent):void{
+            print_props('createUsersService event.result', e.result);
+            getUsers(search.text);
+        }
+
+        public function handleReturnGetUsers(e:ResultEvent):void{
+            print_props('createUsersService event.result', e.result);
+            initData(e.result);
+        }
+
+        public function handleFault(e:FaultEvent):void{
+            mx.controls.Alert.show(e.fault.faultString);
+        }
+
+        public function getUsers(searchText:String=''):void{
+            var params:Array = new Array();
+            params['search']=searchText;
+            moodleWebServices.get_users(params);
+        }
+        public function updateUsers():void{
+            var params:Array = new Array();
+            print_props('initDG.source', initDG.source);
+            for each(var record:Object in initDG.source){
+                if (record.status == 'to update'){
+                    params.push(objectToArray(record));
+                }
+            }
+            print_props('updateUsers() params', params);
+            if (params.length){
+                moodleWebServices.update_users(params);
+            }
+        }
+        public function createUsers():void{
+            var params:Array = new Array();
+            for each(var record:Object in initDG.source){
+                if (record.status == 'to insert'){
+                    params.push(objectToArray(record));
+                }
+            }
+            print_props('createUsers() params', params);
+            if (params.length){
+                moodleWebServices.create_users(params);
+            }
+        }
+        import mx.events.DataGridEvent;
+        private function itemEditEndEvent(event:DataGridEvent):void {
+            print_props('event:DataGridEvent', event);
+            var newData:String= 
+                    TextInput(event.currentTarget.itemEditorInstance).text;
+            if (newData!=userlist.editedItemRenderer.data[event.dataField])
+            {
+                userlist.editedItemRenderer.data.status='to update';
+            };
+            userlist.dataProvider.itemUpdated(event.itemRenderer.data);
+            print_props('event.dataField', event.dataField);
+            print_props('newData', newData);
+            print_props('initDG[event.rowIndex]', initDG[event.rowIndex]);
+        }
+      import mx.events.ValidationResultEvent;
+      public function handleFormSubmit(){
+         var vResult:ValidationResultEvent;
+
+         var invalid:Boolean = false;
+         vResult = usernameValidator.validate();
+         if (vResult.type==ValidationResultEvent.INVALID) 
+             invalid=true;
+         vResult = passwordValidator.validate();
+         if (vResult.type==ValidationResultEvent.INVALID) 
+             invalid=true;
+         vResult = firstnameValidator.validate();
+         if (vResult.type==ValidationResultEvent.INVALID) 
+             invalid=true;
+         vResult = lastnameValidator.validate();
+         if (vResult.type==ValidationResultEvent.INVALID) 
+             invalid=true;
+         vResult = emailValidator.validate();
+         if (vResult.type==ValidationResultEvent.INVALID) 
+             invalid=true;
+         if (invalid){
+            return;
+         }
+         var itemToAdd:Object=
+            {status:'to insert',
+             username : username.text, 
+             idnumber : idnumber.text, 
+             firstname : firstname.text, 
+             lastname : lastname.text, 
+             email : email.text, 
+             password : password.text, 
+             auth : auth.text, 
+             confirmed : confirmed.text, 
+             timezone : timezone.text, 
+             country : country.text, 
+             emailstop : emailstop.text, 
+             theme : theme.text, 
+             lang : lang.text, 
+             mailformat : mailformat.text};
+         if (initDG==null){
+            initData(new Array(itemToAdd))
+         }else{
+            initDG.addItem(itemToAdd)
+         };
+         print_props('initDG.source', initDG.source);
+         accordion1.selectedIndex=1;
+      }
+      [Bindable]
+      public var initDG:ArrayCollection;
+
+      public function initData(DGArray):void {
+         print_props('DGArraye', DGArray);
+         initDG=new ArrayCollection(DGArray);
+      }
+
+
+]]>
+</mx:Script>
+<mx:Accordion height="100%" width="100%" id="accordion1">
+<mx:VBox width="100%" label="Introduction" >
+ <mx:Text width="100%">
+     <mx:text>
+     <![CDATA[
+This is a test of the batch amf web services exposed by user/external.php.
+
+1. You can add users to the datagrid using the form and add several users at once using the button to call create_users.
+2. You can edit user details in the data grid itself and commit changes to several users at once using the button to call update_users.
+
+If you get a 'no permissions' error message then try logging in to your Moodle installation. The same session used for the normal http sessions are also used by this client since the same cookies are sent along to the server with the web service request as are sent to the server with a web page request.
+
+The text area below displays some debug messages.
+     ]]>
+     </mx:text>
+ </mx:Text>
+ <mx:TextArea id="textarea1" width="80%" height="300"/>
+</mx:VBox>
+<mx:VBox width="100%" label="List of Users">
+
+ <mx:Form width="500" defaultButton="{tmpgetusers}">
+
+<mx:HBox>
+ <mx:Label text="Filter for name"/>
+ <mx:TextInput id="search"/>
+<mx:Button id="tmpgetusers" label="Refresh User List" click="getUsers(search.text);true;"/>
+</mx:HBox>
+ </mx:Form>
+
+
+
+   <mx:DataGrid id ="userlist" itemEditEnd="itemEditEndEvent(event);" editable="true" width="100%" height="400" 
+      dataProvider="{initDG}" > 
+
+      <mx:columns>
+
+         <mx:DataGridColumn editable="false" dataField="id" width="30" headerText="ID"/>
+         <mx:DataGridColumn editable="false" dataField="status" headerText="Status"/>
+         <mx:DataGridColumn editable="false" dataField="username"  headerText="Username"/>
+         <mx:DataGridColumn editable="true" dataField="firstname"  headerText="First Name"/>
+         <mx:DataGridColumn editable="true" dataField="lastname"  headerText="Last Name"/>
+         <mx:DataGridColumn editable="true" dataField="email"  headerText="E-mail"/>
+         <mx:DataGridColumn editable="true" dataField="password"  headerText="Password"/>
+         <mx:DataGridColumn editable="true" dataField="idnumber"  headerText="ID Number"/>
+         <mx:DataGridColumn editable="true" dataField="auth"  headerText="auth"/>
+         <mx:DataGridColumn editable="true" dataField="confirmed"  headerText="confirmed"/>
+         <mx:DataGridColumn editable="true" dataField="timezone"  headerText="timezone"/>
+         <mx:DataGridColumn editable="true" dataField="country"  headerText="country"/>
+         <mx:DataGridColumn editable="true" dataField="emailstop"  headerText="emailstop"/>
+         <mx:DataGridColumn editable="true" dataField="theme"  headerText="theme"/>
+         <mx:DataGridColumn editable="true" dataField="lang"  headerText="lang"/>
+         <mx:DataGridColumn editable="true" dataField="mailformat"  headerText="mailformat"/>
+      </mx:columns>
+   </mx:DataGrid>
+<mx:HBox>
+<mx:Button id="button_update_users" label="Call update_users" click="updateUsers();true;"/>
+<mx:Button id="button_create_users" label="Call create_users" click="createUsers();true;"/>
+</mx:HBox>
+ 
+
+</mx:VBox>
+<mx:Form width="500" defaultButton="{create_users}" label="Add A User">
+            <mx:FormHeading label="Required Fields"/>
+
+
+<mx:HBox>
+ <mx:Label text="Username"/>
+ <mx:TextInput id="username"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="First Name"/>
+ <mx:TextInput id="firstname"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="Last Name"/>
+ <mx:TextInput id="lastname"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="E-mail"/>
+ <mx:TextInput id="email"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="Password"/>
+ <mx:TextInput id="password"/>
+</mx:HBox>
+            <mx:FormHeading label="Optional Fields"/>
+<mx:HBox>
+ <mx:Label text="ID Number"/>
+ <mx:TextInput id="idnumber"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="auth"/>
+ <mx:TextInput id="auth"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="confirmed"/>
+ <mx:TextInput id="confirmed"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="timezone"/>
+ <mx:TextInput id="timezone"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="country"/>
+ <mx:TextInput id="country"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="emailstop"/>
+ <mx:TextInput id="emailstop"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="theme"/>
+ <mx:TextInput id="theme"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="lang"/>
+ <mx:TextInput id="lang"/>
+</mx:HBox>
+<mx:HBox>
+ <mx:Label text="mailformat"/>
+ <mx:TextInput id="mailformat"/>
+</mx:HBox>
+<mx:Button id="create_users" label="Call create_users" click="handleFormSubmit();"/>
+ </mx:Form>
+  </mx:Accordion>
+  <mx:EmailValidator id="emailValidator"
+      source="{email}" property="text"/>
+  <mx:StringValidator id="usernameValidator"
+       source="{username}" property="text"/>
+  <mx:StringValidator id="passwordValidator"
+       source="{password}" property="text"/>
+  <mx:StringValidator id="firstnameValidator"
+       source="{firstname}" property="text"/>
+  <mx:StringValidator id="lastnameValidator"
+       source="{lastname}" property="text"/>
+</mx:Application>
diff --git a/webservice/amf/testclient/moodleclient.swf b/webservice/amf/testclient/moodleclient.swf
new file mode 100644
index 0000000000..c0fcbd3e3f
Binary files /dev/null and b/webservice/amf/testclient/moodleclient.swf differ