/* Timer Server - DMS - apr 98 - by Marc Barilley */
/* Rev. 1.1 - Sep. '98 - by Marc BARILLEY */

typeof freq = S;;

fun activate (from, client, action, param, reply)=
  if !strcmp action "start"
  then
    _DMScreateClientDMI this client freq
  else
    nil;;

fun IniDMI (file)=
  _DMSregisterDMI this @activate nil nil nil;
  set freq = getInfo strextr _getpack _checkpack file "period";;