Subversion Repositories wimsdev

!if robot isin $session

  !exit

!endif

wims_prefix=mb class user tmp

!defread wimshome/log/classes/$wims_class/.def

!!! the forum in levels should be accessible from the portal

!if $wims_class=$wims_superclass and $class_type=4

  participate_=!defof user_participate in wimshome/log/classes/$wims_class/.users/$wims_user

  supervise_=!defof user_supervise in wimshome/log/classes/$wims_class/.users/$wims_user

  for_test=!replace internal classes/ by in $forum

  !reset for_test_

  !if ,$for_test isin ,$participate_,$supervise_

    for_test_=yes

    for_test=!replace internal / by , in $for_test

    for_test=!item 2 of $for_test

  !endif

!endif

!if $wims_class>0 and ($forum=$empty or $forum=classes/$wims_class or $for_test_=yes)

  !if $for_test_!=

    for_level=!nospace /$for_test

  !else

    for_level=

  !endif

  classname=!defof class_description in wimshome/log/classes/$wims_class$for_level/.def

  forumdir=wimshome/log/classes/$wims_class$for_level/forum

  Forumdir=$wims_home/log/classes/$wims_class$for_level/forum

  forum=classes/$wims_class$level

  !defread $forumdir/.def

  !if $mb_defined!=yes

    !if / notin $wims_class and $wims_class<9999

      cfm_send=mailuser

    !else

      cfm_send=alluser

    !endif

    !mexec scripts/mkclassforum.sh

    !defread $forumdir/.def

  !endif

  !if $mb_defined!=yes

    error=forum_not_exist

    job=list

    !exit

  !endif

  forumrealuser=$wims_realuser

  forumuser=$wims_user

  !default forumrealuser=$wims_user

!else

  forum=!text select 0123456789 in $forum

  !default forum=1001

  forumdir=wimshome/log/forums/$forum

  !defread $forumdir/.def

  !if $mb_defined!=yes

    error=forum_not_exist

    job=list

    !exit

  !endif

  !if $job=authuser

    !read var.init.auth

    job=list

  !else

    !defread wimshome/$wims_sesdir/mb_user.$forum

  !endif

!endif

## a supprimer dans les prochaines versions

!sh mkdir -p $Forumdir/.users

!mexec scripts/rmdeposit.sh

!if $forumrealuser!=$empty

  !if classes isin $forumdir

    !read adm/class/userdef classes,$wims_class,$forumrealuser

    !defread $userdef

  !else

    !defread $forumdir/.users/$forumuser

  !endif

  c_sender=$wims_firstname $wims_lastname

  c_smail=$wims_email

  !default c_sender=$user_firstname $user_lastname

  !default c_smail=$user_email

!endif

is_owner=no

!if $forumuser=supervisor

  is_owner=yes

!endif

!bound mb_readpolicy within open,alluser,selecuser,owner default alluser

rpolycode=!positionof item $mb_readpolicy in open,alluser,selecuser,owner

!if $forumuser!=$empty

  !if $is_owner=yes

    read_right=1

  !else

    read_right=!item $rpolycode of 1,1,1,0

  !endif

!else

  read_right=!item $rpolycode of 1,0,0,0

!endif

!bound mb_sendpolicy within open,mail,alluser,mailuser,selecuser,owner default alluser

# 0: no right. 1: email verify. 2: owner check. 3: immediate.

spolycode=!positionof item $mb_sendpolicy in open,mail,alluser,mailuser,selecuser,owner

!if $forumuser!=$empty

  !if $is_owner=yes

    send_right=!item $spolycode of 3,3,3,3,3,3

  !else

    send_right=!item $spolycode of 3,3,3,1,3,0

  !endif

!else

  send_right=!item $spolycode of 3,1,0,0,0,0

!endif

!bound mb_nolink within yes,no default yes