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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
# Variable calculations should be done in this file.
# It is read and interpreted by wims for all valid calls to the module.
!if $notallowed=1
error=notallowedmodule
!exit
!endif
!! check access
!if $statuttchat!=open
!restart module=home
!endif
!! disconnect tchat for example class
!if $wims_superclass=$empty
sclass=$wims_class
!else
sclass=$wims_superclass
!endif
!if $sclass<10000
error=closedmodexcls
!exit
!endif
wims_prefix=class user tchat
!read wimshome/log/classes/$wims_class/tchat/.def
!bound tchat_open within yes,no default no
!bound tchat_refreshtiming between $msg_min_timing and 1000 default $msg_min_timing
!bound tchat_onlynonempty within no,yes default no
!read adm/language lang/names.phtml
!read tabletheme
!if $tchat_open!=yes
!if $wims_user!=supervisor
warning=notopen
job=close
!else
job=config
!endif
!endif
!! create list of living for the user (all for supervisor)
!reset livinglist livingfile
dt=!record 0 of wimshome/log/classes/$wims_class/tchat/.livings
livingst_0=!line 1 of $dt
!if $(livingst_0)=1
livinglist=0
!endif
livingname_0=!line 2 of $dt
!default livingname_0=!nosubst $wims_name_class
livingusers_0=all
livingnb_0=$[$nbuser+1]
nbliving=!recordcnt wimshome/log/classes/$wims_class/tchat/.livings
!for k=1 to $nbliving
dt=!record $k of wimshome/log/classes/$wims_class/tchat/.livings
!distribute line $dt into livingst_$k,livingname_$k,livingusers_$k
!default livingname_$k=$name_living $k
livingusers_$k=!append item supervisor to $(livingusers_$k)
livingnb_$k=!itemcnt $(livingusers_$k)
!if $(livingst_$k)=1 and $wims_user isitemof $(livingusers_$k)
livinglist=!append item $k to $livinglist
!endif
!next k
livingfile=!makelist .living k for k in $livinglist
livingfile=!nospace $livingfile
!! ------ use math in message
!let insmath_rawmath=yes
!let wims_backslash_insmath=yes
!if $cmd=help
!exit
!endif
!if $class_expiration=$empty
!defread wimshome/log/classes/$wims_class/.def
!if $wims_superclass!=$empty
class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
!endif
!endif
!if $class_expiration=$empty
error=bad_class
!exit
!endif
!readproc linkmodule/tchat.proc
!if $wims_allowlink_tchat!=yes
error=badright
notallowed=1
!exit
!endif
!if $wims_user=supervisor
!readproc adm/whoconnect
listjob=userlistliving,edit,viewpage,listliving,addliving,config,showhide
defjob=userlist
!else
listjob=edit,close,sharescreen,uploadfile
defjob=edit
!endif
!bound job within $listjob default $defjob
!if $job=sharescreen
!if $wims_sharescreen=yes
wims_sharescreen=$empty
!else
wims_sharescreen=yes
!endif
ses=!replace internal _ by , in $wims_session
ses=!item 1 of $ses
!setdef wims_sharescreen=$wims_sharescreen in wimshome/sessions/$ses/var.stat
job=edit
!endif
!if $wims_user!=supervisor
!set page_name=*
!else
!if $job isitemof listliving,addliving,userlistliving
!set page_name=$(wims_name_$(job))
!else
!default page_name=$(name_$(job))
!if $job isitemof config
!set page_name=$name_configuration
!endif
!endif
!default page_name=$wims_name_userlistliving
!endif
!if $wims_user=supervisor
!! ariane only for supervisor.
!set wims_ariane=!append line tchat,1,module=adm/class/tchat to $wims_ariane
!set wims_ariane=!append line "$page_name",8, to $wims_ariane
!set wims_ariane_self=no
!endif
!read lang.phtml.$lang
!changeto $job.proc
|
