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

!! -------- check if authorized session
list_window=!defof $user in wimshome/s2/$wims_session/.indexusersession
nbwindow=!itemcnt $list_window
!if $numberses<1 or $numberses>$nbwindow
  error=usernotintchat
  !exit
!endif
userses=!item $numberses of $list_window
test=!fileexists wimshome/s2/$userses/last.html
!if tchat isin $userses or $test!=yes
  error=addressplay
  !exit
!endif

po=!positionof item $user in $ulist
username=$(nlist[$po])
name_title=$username $name_page $numberses

!!basesession=!replace internal _ by , in $userses
!!basesession=!item 1 of $basesession
!!basesession=!nospace $basesession

!! ---------- 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 -n '/<!--BEGINSUPVIEW-->/,/<!--ENDSUPVIEW-->/p' $wims_home/s2/$userses/last.html | sed 's#<a[^>]*>#<font color="blue"><u>#gi;\
s#</a>#</u></font>#gi;\
s#<form[^>]*># #gi;\
s#</form># #gi;\
s#$(userses)#$wims_session#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

!let rd=!randint 111111,999999
local_html_header=<META HTTP-EQUIV="Refresh" CONTENT="$(tchat_refreshtiming);wims.cgi?session=$wims_session&+cmd=reply&+module=adm/class/tchat&+job=viewpage&+numberses=$k&+user=$user">

!exit



!! ----------- not in use


page_content=!sh sed -n '/<!--BEGINSUPVIEW-->/,/<!--ENDSUPVIEW-->/p' $wims_home/s2/$userses/last.html | sed 's#<a[^>]*>#<font color="blue"><u>#gi;\
s#</a>#</u></font>#gi;\
s#<form[^>]*># #gi;\
s#</form># #gi;\
s#$(userses)#$wims_session#gi;\
s#id="exo_giveup_opener"# #gi;\
$listsed'

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#$(userses)#$wims_session#gi;\
$listsed'