/*******************************************************************************
 Plugin Teleport
 Server part
 Version: 1.0
 Authors: Sylvain HUET & sebastien DENEUX
 Last update: 20/06/2001
*******************************************************************************/

typeof class = S;; /* plugin class */

fun cbInit(from,u,action,param,ulist,tag,ui) =  

 UsendMessage ui UtoC u "select" nil;
 0;;
 
      //(_DLGMessageBox _channel nil "Plugin Select !" strcat "avatar sélectionné N° : " param nil;0);;

fun cbGoto(from, u, action, param, ulist, tag) =  
(
  ObPlaceAvatar u getInfo strextr param "position")
;;

fun cbGotoUser(from, u, action, param, ulist, tag) =  
let strextr param -> list in

  let getInfo list "user" -> user in
  let _DMSbyLogin user -> client in
  let CtoU client -> uu in
(
  ObPlaceAvatar uu getInfo list "position")
;;

fun cbAlerteUser(from, u, action, param, ulist, tag) =  

let _DMSgetLogin UtoC u -> sender in

let strextr param -> list in
  let getInfo list "user" -> user in
  let _DMSbyLogin user -> client in
  let CtoU client -> uu in
  let _DMSgetLogin UtoC uu -> recept in
  let getInfo list "message" -> texte in
(

_DMSservice client strcatn "Nouveau Message !\n-------------------------\nDe : "::sender::"\nA : "::recept::"\n\n "::texte::nil)
;;


fun cbSenduser(from, u, action, param, ulist, tag) =  
//_fooS strcat "value de param server: " param;
let strextr param -> list in
  let getInfo list "user" -> user in
  let _DMSbyLogin user -> client in
  let CtoU client -> uu in
  let _DMSgetLogin UtoC uu -> recept in
  let getInfo list "function" -> function in
  let getInfo list "ref" -> reference in
   (
   if !strcmp function "Configurer son Avatar" then
   _DMSevent this client strcat class ".ShowConfigAvatar" nil nil
   
   else if !strcmp function "Tableau Blanc" then
   _DMSevent this client strcat class ".ShowWitheBoard" nil nil
   
   else if !strcmp function "Push Url Web" then
  let getInfo list "UrlWeb" -> url in
   _DMSevent this client strcat class ".ShowNavWeb" url nil
   
   else if !strcmp function "Envoi e-mail" then
   _DMSevent this client strcat class ".ShowSendMail" nil nil
   
   else if !strcmp function "Webcam" then
   _DMSevent this client strcat class ".ShowWebcam" nil nil
   
   else if !strcmp function "Envoyer un Fichier" then
   _DMSevent this client strcat class ".ShowSendFile" nil nil
   
   else if !strcmp function "Envoyer Msg Audio" then
   _DMSevent this client strcat class ".SendMsgAudio" reference nil
   
	else nil)
;;




fun newOb(o)=
  //_DMSdefineActions this [strcat class ".showadminS" mkfun7 @cbInit ObUi o]::nil;
    _DMSdefineActions this [strcat class ".goto" @cbGoto]::nil;
    _DMSdefineActions this [strcat class ".gotouser" @cbGotoUser]::nil;
    _DMSdefineActions this [strcat class ".alerte" @cbAlerteUser]::nil;
    _DMSdefineActions this [strcat class ".senduser" @cbSenduser]::nil;
0;;


/*******************************************************************************
  Function called when plugin is initialised
  file -> S : '*.plug' file name
       <- I : not used
*******************************************************************************/
fun IniPlug(file) =

  set class = getInfo strextr _getpack _checkpack file "name";
  PlugRegister class @newOb nil;
  0
;;