/* StartScol Server - DMS - jan 2000 by Patrice FAVRE */
/* rev. November 00 - by Sebastien DENEUX */

/*-----------------------*/
fun startScol(fic)=
	_newmachineS _checkpack fic nil 0
;;

/*-----------------------*/
fun action(from,cli,act,param,rep)=
	if !strcmp act "gotoScol" then
	 (startScol param;
	 	_fooS strcat "_closemachine (action gotoScol) done by module " _DMSgetName this;
 		_closemachine)
	else
	if !strcmp act "openScol" then
		startScol param
	else
	if !strcmp act "killC" then
	 ( _fooS strcat "#### _DMSdelClient done by module " _DMSgetName this;
	  _DMSdelClient cli)
	else
	if !strcmp act "closeC" then
	 _DMScreateClientDMI this cli nil	  		 
	else
	if !strcmp act "closeS" then
	 (_fooS strcat "_closemachine (action closeS) done by module " _DMSgetName this;
		 _closemachine)
	else nil;;

/*-----------------------*/
fun IniDMI(s)=
	_DMSregisterDMI this @action nil nil nil;;