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

!readproc script/getsession.proc $user
!! -------- check if authorized session
!if $userses notitemof $list_window
  error=usernotintchat
  !exit
!endif

!if tchat isin $userses
  error=addressplay
  !exit
!endif

po=!positionof item $user in $ulist
username=$(flist[$po]) $(llist[$po])
name_title=$username session $userses

!! ---------- build copy of user page
!read oef/fr/names
basesession=!replace internal _ by , in $userses
basesession=!item 1 of $basesession
basesession=!nospace $basesession
page_content=!sh sed -n '/<!--BEGINSUPVIEW-->/,/<!--ENDSUPVIEW-->/p' $wims_home/s2/$userses/last.html | sed -n '/<script>/,/<\/script>/!p' | sed 's#<a[^>]*>#<font color="blue"><u>#gi;\
s#</a>#</u></font>#gi;\
s#<form[^>]*># #gi;\
s#</form># #gi;\
s#$(basesession)# #gi;'

warning=workinprogress

!exit