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="5;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'