Subversion Repositories wimsdev

Rev

Rev 14637 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2290 bpr 1
 
23 reyssat 2
!if robot isin $session
14287 obado 3
  !exit
23 reyssat 4
!endif
2290 bpr 5
 
23 reyssat 6
wims_prefix=mb class user tmp
1441 bpr 7
!defread wimshome/log/classes/$wims_class/.def
8
!!! the forum in levels should be accessible from the portal
9
!if $wims_class=$wims_superclass and $class_type=4
10
  participate_=!defof user_participate in wimshome/log/classes/$wims_class/.users/$wims_user
11
  supervise_=!defof user_supervise in wimshome/log/classes/$wims_class/.users/$wims_user
12
  for_test=!replace internal classes/ by in $forum
13
  !reset for_test_
14
  !if ,$for_test isin ,$participate_,$supervise_
15
    for_test_=yes
16
    for_test=!replace internal / by , in $for_test
17
    for_test=!item 2 of $for_test
18
  !endif
19
!endif
20
!if $wims_class>0 and ($forum=$empty or $forum=classes/$wims_class or $for_test_=yes)
13679 bpr 21
  !if $for_test_!=
22
    for_level=!nospace /$for_test
23 reyssat 23
  !else
13679 bpr 24
    for_level=
23 reyssat 25
  !endif
14287 obado 26
  classname=!defof class_description in wimshome/log/classes/$wims_class$for_level/.def
13679 bpr 27
  forumdir=wimshome/log/classes/$wims_class$for_level/forum
28
  Forumdir=$wims_home/log/classes/$wims_class$for_level/forum
29
  forum=classes/$wims_class$level
23 reyssat 30
  !defread $forumdir/.def
13679 bpr 31
  !if $mb_defined!=yes
15648 bpr 32
    !if / notin $wims_class and $wims_class<9999
33
      cfm_send=mailuser
34
    !else
13679 bpr 35
      cfm_send=alluser
36
    !endif
37
    !mexec scripts/mkclassforum.sh
38
    !defread $forumdir/.def
39
  !endif
40
  !if $mb_defined!=yes
41
    error=forum_not_exist
42
    job=list
43
    !exit
44
  !endif
45
  forumrealuser=$wims_realuser
46
  forumuser=$wims_user
47
  !default forumrealuser=$wims_user
23 reyssat 48
!else
13679 bpr 49
  forum=!text select 0123456789 in $forum
50
  !default forum=1001
51
  forumdir=wimshome/log/forums/$forum
52
  !defread $forumdir/.def
53
  !if $mb_defined!=yes
54
    error=forum_not_exist
55
    job=list
56
    !exit
57
  !endif
58
  !if $job=authuser
59
    !read var.init.auth
60
    job=list
61
  !else
62
    !defread wimshome/$wims_sesdir/mb_user.$forum
63
  !endif
23 reyssat 64
!endif
4759 bpr 65
## a supprimer dans les prochaines versions
66
!sh mkdir -p $Forumdir/.users
23 reyssat 67
 
68
!mexec scripts/rmdeposit.sh
69
 
10991 bpr 70
!if $forumrealuser!=$empty
13679 bpr 71
  !if classes isin $forumdir
72
    !read adm/class/userdef classes,$wims_class,$forumrealuser
73
    !defread $userdef
74
  !else
75
    !defread $forumdir/.users/$forumuser
76
  !endif
77
  c_sender=$wims_firstname $wims_lastname
78
  c_smail=$wims_email
79
  !default c_sender=$user_firstname $user_lastname
80
  !default c_smail=$user_email
23 reyssat 81
!endif
82
 
83
is_owner=no
84
!if $forumuser=supervisor
13679 bpr 85
  is_owner=yes
23 reyssat 86
!endif
87
 
88
!bound mb_readpolicy within open,alluser,selecuser,owner default alluser
89
rpolycode=!positionof item $mb_readpolicy in open,alluser,selecuser,owner
90
!if $forumuser!=$empty
13679 bpr 91
  !if $is_owner=yes
92
    read_right=1
93
  !else
94
    read_right=!item $rpolycode of 1,1,1,0
95
  !endif
23 reyssat 96
!else
13679 bpr 97
  read_right=!item $rpolycode of 1,0,0,0
23 reyssat 98
!endif
99
 
100
!bound mb_sendpolicy within open,mail,alluser,mailuser,selecuser,owner default alluser
101
# 0: no right. 1: email verify. 2: owner check. 3: immediate.
102
spolycode=!positionof item $mb_sendpolicy in open,mail,alluser,mailuser,selecuser,owner
103
!if $forumuser!=$empty
13679 bpr 104
  !if $is_owner=yes
105
    send_right=!item $spolycode of 3,3,3,3,3,3
106
  !else
107
    send_right=!item $spolycode of 3,3,3,1,3,0
108
  !endif
23 reyssat 109
!else
13679 bpr 110
  send_right=!item $spolycode of 3,1,0,0,0,0
23 reyssat 111
!endif
15648 bpr 112
!bound mb_nolink within yes,no default yes