/* ToComutron Client - DMS - March 98 - by Sylvain HUET */
/* Rev. Aug. '98 - by Marc BARILLEY */
/* rev May 00 - by Sebastien DENEUX */

defcom CgetIp=getIp I;;
defcom SmainCom=main S;;
defcom S_load=_load S;;

var scr = "Dms/CommTools/ToComutron/mcom.pkg";;

fun activate(from,action,param,rep)=
 if !strcmp action "toComutron" then
 (_DMSevent this "privateInfo" _loc this "CONTACT_MSG" nil nil;
  _DMSsend this CgetIp [atoi param])
 else nil;;
 
fun IniDMI(param)=
 _DMSregisterDMI this @activate nil;;

fun __setIp(i,name,ip)=
 _DMSevent this "privateInfo" _loc this "CONTACTING_MSG" name::nil nil;
 _openchannel strcat _hostIP ":1290" 
  strcat mkscript S_load [scr]
   mkscript SmainCom [ip] _envchannel _channel;;