/* Input Module Server - DMS - nov 2000 - by Arnaud QUENTIN */

fun activate(from,cli,action,param,rep)=
if !strcmp action "show"
then
    if _DMScreateClientDMI this cli getInfo (_DMSgetDef this "data") "conf"
    then _DMSevent this cli "started" nil nil
    else nil
else
if !strcmp action "destroy"
    then _DMSdelClientDMI this cli
    else 0;;
   
fun IniDMI(file)=
  _DMSregisterDMI this @activate nil nil nil;
0;;