/* Timer Client - DMS - apr 98 - by Marc Barilley */
/* Rev. 1.1 - Sep. '98 - by Marc BARILLEY */
/* rev 03-01 - by Sebastien DENEUX */

typeof timer = Timer;;

fun rflTimer (t, blurp)=
  _DMSevent this "top" nil nil;
  0;;

fun activate (from, action, param, reply)=
  if !strcmp action "top"
  then
    _DMSevent this "top" nil nil   
  else if !strcmp action "period"
  then
  {
    _deltimer timer;
    set timer = _rfltimer _starttimer _channel (atoi param) @rflTimer 0;
    nil
  }
  else if !strcmp action "destroy"
  then
  {
    _deltimer timer;
    _DMSdelete this
  }
  else
    nil;;

fun beforeclose ()=
  _deltimer timer;
  0;;

fun IniDMI (param)=
  _DMSregisterDMI this @activate @beforeclose;
  set timer = _rfltimer _starttimer _channel (atoi param) @rflTimer 0
;;