Subversion Repositories wimsdev

Rev

Rev 5279 | Rev 5419 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5279 Rev 5352
Line 2... Line 2...
2 
!!          numpartconnected=number of participant connected
 2 
!!          numpartconnected=number of participant connected
3 
!! in wims_class
 3 
!! in wims_class
4 
!!
 4 
!!
5 
!!
 5 
!!
6 
 
 6 
 
- 
 
 7 
!if $wims_user=supervisor
7 
!let file_=!replace internal / by ~ in $wims_class
 8 
 !let file_=!replace internal / by ~ in $wims_class
8 
last_=!sh if [ -e $wims_home/s2/$wims_session/whoconnect.$file_ ]; then\
 9 
 last_=!sh if [ -e $wims_home/s2/$wims_session/whoconnect.$file_ ]; then\
9 
stat -c%Y $wims_home/s2/$wims_session/whoconnect.$file_;\
 10 
stat -c%Y $wims_home/s2/$wims_session/whoconnect.$file_;\
10 
fi;
 11 
fi;
11 
!default $last_=0
 12 
 !default $last_=0
12 
!if $wims_nowseconds-$last_>300 or $wims_read_parm=1
 13 
 !if $wims_nowseconds-$last_>300 or $wims_read_parm=1
13 
 ses_=!sh cd $wims_home/sessions;\
 14 
  ses_=!sh cd $wims_home/sessions;\
14 
 grep -r wims_class=$wims_class ./*/var.stat | cut -d/ -f2;
 15 
  grep -r wims_class=$wims_class ./*/var.stat | cut -d/ -f2;
15 
 ses_=!words2items $ses_
 16 
  ses_=!words2items $ses_
16 
 whoconnect=$empty
 17 
  whoconnect=$empty
17 
 !for s_ in $ses_
 18 
  !for s_ in $ses_
18 
  t_=!defof wims_user\
 19 
   t_=!defof wims_user\
19 
wims_firstname\
 20 
wims_firstname\
20 
wims_lastname in wimshome/sessions/$s_/var.stat
 21 
wims_lastname in wimshome/sessions/$s_/var.stat
21 
  !distribute line $t_ into t1_,t2_,t3_
 22 
   !distribute line $t_ into t1_,t2_,t3_
22 
  !if $t1_!=supervisor
 23 
   !if $t1_!=supervisor
23 
   whoconnect=!append line $t1_,$s_,$t2_,$t3_ to $whoconnect
 24 
    whoconnect=!append line $t1_,$s_,$t2_,$t3_ to $whoconnect
24 
  !endif
 25 
   !endif
25 
 !next s_
 26 
  !next s_
26 
 !writefile wimshome/s2/$wims_session/whoconnect.$file_ $whoconnect
 27 
  !writefile wimshome/s2/$wims_session/whoconnect.$file_ $whoconnect
- 
 
 28 
 !else
- 
 
 29 
  whoconnect=!record 0 of wimshome/s2/$wims_session/whoconnect.$file_
- 
 
 30 
 !endif
- 
 
 31 
 numpartconnected=!linecnt $whoconnect
- 
 
 32 
 !setdef user_connected=$wims_session in wimshome/log/classes/$wims_class/supconnected
27 
!else
 33 
!else
28 
 whoconnect=!record 0 of wimshome/s2/$wims_session/whoconnect.$file_
 34 
 supervisorconnected=!defof user_connected in wimshome/log/classes/$wims_class/supconnected
- 
 
 35 
 !if $supervisorconnected!=$empty
- 
 
 36 
  test_=!defof wims_user in wimshome/sessions/$supervisorconnected/var.stat
- 
 
 37 
  !if $test_=$empty
- 
 
 38 
   !reset supervisorconnected
- 
 
 39 
   !setdef user_connected=$empty in wimshome/log/classes/$wims_class/supconnected
- 
 
 40 
  !endif
- 
 
 41 
 !endif
29 
!endif
 42 
!endif
30 
numpartconnected=!linecnt $whoconnect
 -