/* Input/Output Server - DMS - march 98 - by Sylvain HUET */
/* Rev - Apr 99 - by Sebastien DENEUX*/

defcom Copen=open S;;
defcom Cgoto=goto S;;
defcom CactiveX=activeX S;;

fun relay(cli,com,act,param)=
 _DMScreateClientDMI this cli nil;
 _DMSsend this cli com;
 _DMSevent this cli "log" strcatn act::" "::
  param::" by "::(_DMSgetLogin cli)::nil nil;;

fun activate(from,cli,action,param,rep)=
 if !strcmp action "start" then	
  _DMScreateClientDMI this cli nil  
 else if !strcmp action "openUrl" then
  relay cli Copen [param] action param
 else if !strcmp action "gotoUrl" then
  relay cli Cgoto [param] action param
 else if !strcmp action "activeX" then
  relay cli CactiveX [param] action param
 else if !strcmp action "openUser" then
  let _DMSbyId atoi param -> c in
  if c==nil then nil
  else relay cli Copen [strcat "scol://" _DMSgetIP c] action param
 else nil;;

fun IniDMI(file)=
 _DMSregisterDMI this @activate nil nil nil;;