Subversion Repositories wimsdev

!! output : whoconnect=list of connected participant

!!          numpartconnected=number of participant connected

!! in wims_class

!!

!!

!let file_=!replace internal / by ~ in $wims_class

last_=!sh if [ -e $wims_home/s2/$wims_session/whoconnect.$file_ ]; then\

stat -c%Y $wims_home/s2/$wims_session/whoconnect.$file_;\

fi;

!default $last_=0

!if $wims_nowseconds-$last_>300 or $wims_read_parm=1

 ses_=!sh cd $wims_home/sessions;\

 grep -r wims_class=$wims_class ./*/var.stat | cut -d/ -f2;

 ses_=!words2items $ses_

 whoconnect=$empty

 !for s_ in $ses_

  t_=!defof wims_user\

wims_firstname\

wims_lastname in wimshome/sessions/$s_/var.stat

  !distribute line $t_ into t1_,t2_,t3_

  !if $t1_!=supervisor

   whoconnect=!append line $t1_,$s_,$t2_,$t3_ to $whoconnect

  !endif

 !next s_

 !writefile wimshome/s2/$wims_session/whoconnect.$file_ $whoconnect

!else

 whoconnect=!record 0 of wimshome/s2/$wims_session/whoconnect.$file_

!endif

numpartconnected=!linecnt $whoconnect