/* module guestIO - part server */
/* by iri : info@irizone.net - jnuary 2004 */

typeof beforein = S;;
typeof afterin = S;;
typeof beforeout = S;;
typeof afterout = S;;

fun broadTxt(s)=
  _DMSeventTag this nil "msg" s nil nil;;

fun activate(from,cli,action,param,rep)=
 if !strcmp action "enter" then
   broadTxt strcatn (beforein::" "::(_DMSgetLogin cli)::" "::afterin::nil)
 else if !strcmp action "leave" then
   broadTxt strcatn (beforeout::" "::(_DMSgetLogin cli)::" "::afterout::nil)
 else
   nil;;

fun IniDMI(file)=
  let strextr _getpack _checkpack file -> l in  
   (
    set beforein = getInfo l "beforein";
    set afterin = getInfo l "afterin";
    set beforeout = getInfo l "beforeout";
    set afterout = getInfo l "afterout"
   );
  _DMSregisterDMI this @activate nil nil nil;
0;;