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
|
!! job=wiewpage
!! supervisor can view page of participant connected to the tchat
!!
!! -------- user check
!bound user within $ulist default $empty
!if $user=$empty
error=nouser
!exit
!endif
po=!positionof item $user in $ulist
username=$(nlist[$po])
name_title=$username $name_page $numberses
!! -------- check if authorized session
basesession=!replace _ by , in $wims_session
basesession=!item 1 of $basesession
list_window=!defof $user in wimshome/sessions/$basesession/.indexusersession
nbwindow=!itemcnt $list_window
!if $numberses<1 or $numberses>$nbwindow
error=usernotintchat
!exit
!endif
userses=!item $numberses of $list_window
!if tchat isin $userses
error=addressplay
!exit
!endif
!readproc script/mktitle.proc $userses
!!reset logfile
!!!if exam isin $userses
!! !! case of exercise in an exam
!! userbasesession=!replace _ by , in $userses
!! userbasesession=!item 1 of $userbasesession
!! tmp=!replace internal $(userbasesession)_examt by $empty in $userses
!! tmp=!replace t by . in $tmp
!! logfile=wimshome/log/classes/$wims_class/examlog/$user/$userbasesession/$tmp
!!else
!! !! case of an exercise in a sheet
!! tmp=!defof w_wims_exo,w_wims_sheet,w_module in wimshome/sessions/$userses/var
!! !distribute item $tmp into userexo,usersheet,exomod
!! !if $usersheet!=$empty and $userexo!=$empty
!! logfile=wimshome/sessions/$userses/exolog.$usersheet.$userexo
!! !else
!! !! case of a exercise (not in a sheet for exemple in a document)
!! category=!defof category in wimshome/public_html/modules/$exomod/INDEX
!! !if exercise isin $category
!! logfile=wimshome/sessions/$userses/exolog
!! !endif
!! !endif
!!!endif
!if $logfile!=$empty
!! ----------- use adm/class/exolog module to display exo in a sheet or exam
test=!fileexists $logfile
!if $test!=yes
error=addressplay
!exit
!endif
!writefile wimshome/$wims_sesdir/var REMOTE_ADDR=$httpd_REMOTE_ADDR\
HTTP_REFERER=$httpd_HTTP_REFERER\
QUERY_STRING=\
HTTP_USER_AGENT=$httpd_HTTP_USER_AGENT\
HTTP_COOKIE=$httpd_HTTP_COOKIE\
w_cmd=new\
w_lang=$class_lang\
w_special_parm=1\
w_special_parm2=\
w_useropts=$useropts\
w_wims_session=$wims_session\
w_wims_subsession=$wims_subsession\
w_wims_window=$wims_window\
w_wims_mode=$wims_mode\
w_wims_module_start_time=\
w_wims_protocol=$wims_protocol\
w_wims_req_time=$wims_req_time\
w_wims_session_serial=$wims_session_serial\
w_wims_session_start_time=$wims_session_start_time
!setdef wims_checkfile=$logfile in wimshome/$wims_sesdir/var.stat
!setdef wims_checktitle=$output_title in wimshome/sessions/$basesession/var.stat
nbstep=!recordcnt $logfile
!restart module=adm/class/exolog&+cmd=new&+job=examcheck&+checkuser=$user&+checkexo=file&+checkstep=$nbstep
!endif
!! ------------- in case of other ressources use the last.html file in s2.
!! ---------- make list of file of the user
!! the file of list_forbiddent are ignored (to be completed if need)
list_forbidden=last.html
listfile=!sh cd $wims_home/s2/$userses;\
ls *
listfile=!lines2items $listfile
listfile=!listcomplement $list_forbidden in $listfile
listsed=$empty
listlink=$empty
!for f in $listfile
listsed=!append line s#$f#user$po-$f#g; to $listsed
listlink=!append line ln -s $wims_home/s2/$userses/$f $wims_home/s2/$wims_session/user$po-$f; to $listlink
!next f
!! ---------- build copy of user page
!read oef/fr/names
page_content=!sh sed '1,3d' $wims_home/s2/$userses/last.html | sed 's#$(userses)#$wims_session#gi;\
s#<a href="[^"]*"#<a href=""#gi;\
s# target="[^"]*"# #gi;\
s#<input type="submit"#<input type="submit" disabled #gi;\
s#<input type="image"#<img #gi;\
s#<button #<button disabled #gi;\
s#onclick="wims_[a-zA-Z0-9^=]*=window.open([^)]*)"# #gi;\
$listsed'
!! make link to file of the user_session in supervisor_session (del old link before)
list=!sh cd $wims_home/s2/$wims_session;\
lt=`find user$(po)* -type l 2>/dev/null`;\
for f in $$lt; do rm $$f; done;\
$listlink
warning=workinprogress
!! --- suppress auto refresh (need to put a button to refresh)
!let rd=!randint 111111,999999
!set wims_menu_items=!append line refresh,1,module=$module&cmd=reply&+module=adm/class/tchat&+job=viewpage&+numberses=$numberses&+user=$user&+serial=$rd to $wims_menu_items
|
