Subversion Repositories wimsdev

!! 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