/* ChgAv Server - DMS - september 99 - by Sylvain HUET */


var name="Avatar";;

fun activate(from,cli,action,param,rep)=
 let _DMSgetress cli name -> s in
  /*if !strcmp s action then /* already in this class*/
    nil
  else*/
  (
    _DMSsetress cli name action;    
    _DMSevent this cli "changed" nil nil
  )
;;

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