1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
test=!defof allowed_optional_module in wimshome/log/wims.conf
!if class/tchat notitemof $test
notallowed=1
!exit
!endif
!! ------ configuration variable (maybe some of them should be parametrizable in a conf file ?)
!! -- number of char in a msg
msg_limit=400
!! -- number of char displayed
msg_numberlimit=10
!! -- number of msg in each record file (after change file with .old$num extension) this limit have to be superior of msg_numberlimit (display problem if not)
msg_recordlimit=100
!! -- max number of living in the class
msg_maxliving=10
!! -- max char fotr title living
title_limit=50
!! -- minimal time to refresh page
msg_min_timing=5
!! ---------- test if site manager open configfilsize
test=!defof optionalmod_parameter in wimshome/log/wims.conf
!if tchat_nofile isitemof $test
conf_nofile=yes
tchat_configfilesize=0
!else
!reset conf_nofile
!bound tchat_configfilesize between 0 and 4 default 0
!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
|
