Subversion Repositories wimsdev

test=!defof allowed_optional_module in wimshome/log/wims.conf

!if class/tchat notitemof $test

  notallowed=1

  !exit

!endif

!if $wims_class!=$empty

  !sh mkdir -p $wims_home/log/classes/$wims_class/tchat;

  statuttchat=open

!else

  statuttchat=closed

  !exit

!endif

!if $ulist=$empty

  !! --- check for list of user

  nbuser=!recordcnt wimshome/log/classes/$wims_class/.userlist

  !reset ulist,nlist

  !for i=1 to $nbuser

    u_=!record $i of wimshome/log/classes/$wims_class/.userlist

    !distribute item $u_ into l_,f_,n_

    ulist=!append item $n_ to $ulist

    nlist=!append item $f_ $l_ to $nlist

  !next i

!endif