/* ToComutron Server - DMS - march 98 - by Sylvain HUET */
/* Modified Jul. '99 - by Marc Barilley */

defcom CsetIp=setIp I S 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 nil;;
 
fun IniDMI(file)=
 _DMSregisterDMI this @activate nil nil nil;;

fun __getIp(i)=
 let _DMSbyId i -> c in
 if c==nil then nil
 else
  let
    let _channelIP c.chnCLI -> ip in
    if !strcmp ip "127.0.0.1"
    then
      _hostIP
    else
      ip
  -> ip in
  _DMSsend this DMSsender CsetIp [i _DMSgetLogin c ip];;