Subversion Repositories wimsdev

Rev

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

Rev 5419 Rev 5420
Line 4... Line 4...
4 
!!
 4 
!!
5 
!!
 5 
!!
6 
 
 6 
 
7 
!if $wims_user=supervisor
 7 
!if $wims_user=supervisor
8 
 !let file_=!replace internal / by ~ in $wims_class
 8 
 !let file_=!replace internal / by ~ in $wims_class
9 
 last_=!sh if [ -e $wims_home/s2/$wims_session/whoconnect.$file_ ]; then\
 9 
 last_=!sh if [ -e $wims_home/tmp/whoconnect/$file_ ]; then\
10 
perl -e '@a = stat($ARGV[0]); print $a[9]' $wims_home/s2/$wims_session/whoconnect.$file_;\
 10 
perl -e '@a = stat($ARGV[0]); print $a[9]' $wims_home/tmp/whoconnect/$file_;\
11 
fi;
 11 
fi;
12 
 !default $last_=0
 12 
 !default $last_=0
13 
 !if $wims_nowseconds-$last_>300 or $wims_read_parm=1
 13 
 !if $wims_nowseconds-$last_>300 or $wims_read_parm=1
14 
  ses_=!sh cd $wims_home/sessions;\
 14 
  ses_=!sh cd $wims_home/sessions;\
15 
  grep -r wims_class=$wims_class ./*/var.stat | cut -d/ -f2;
 15 
  grep -r wims_class=$wims_class ./*/var.stat | cut -d/ -f2;
Line 22... Line 22...
22 
   !distribute line $t_ into t1_,t2_,t3_
 22 
   !distribute line $t_ into t1_,t2_,t3_
23 
   !if $t1_!=supervisor
 23 
   !if $t1_!=supervisor
24 
    whoconnect=!append line $t1_,$s_,$t2_,$t3_ to $whoconnect
 24 
    whoconnect=!append line $t1_,$s_,$t2_,$t3_ to $whoconnect
25 
   !endif
 25 
   !endif
26 
  !next s_
 26 
  !next s_
27 
  !writefile wimshome/s2/$wims_session/whoconnect.$file_ $whoconnect
 27 
  !writefile wimshome/tmp/whoconnect/$file_ $whoconnect
28 
 !else
 28 
 !else
29 
  whoconnect=!record 0 of wimshome/s2/$wims_session/whoconnect.$file_
 29 
  whoconnect=!record 0 of wimshome/tmp/whoconnect/$file_
30 
 !endif
 30 
 !endif
31 
 numpartconnected=!linecnt $whoconnect
 31 
 numpartconnected=!linecnt $whoconnect
32 
 !setdef user_connected=$wims_session in wimshome/log/classes/$wims_class/supconnected
 32 
 !setdef user_connected=$wims_session in wimshome/tmp/whoconnect/sup$file_
33 
!else
 33 
!else
34 
 supervisorconnected=!defof user_connected in wimshome/log/classes/$wims_class/supconnected
 34 
 supervisorconnected=!defof user_connected in wimshome/tmp/whoconnect/sup$file_
35 
 !if $supervisorconnected!=$empty
 35 
 !if $supervisorconnected!=$empty
36 
  test_=!defof wims_user in wimshome/sessions/$supervisorconnected/var.stat
 36 
  test_=!defof wims_user in wimshome/sessions/$supervisorconnected/var.stat
37 
  !if $test_=$empty
 37 
  !if $test_=$empty
38 
   !reset supervisorconnected
 38 
   !reset supervisorconnected
39 
   !setdef user_connected=$empty in wimshome/log/classes/$wims_class/supconnected
 39 
   !setdef user_connected=$empty in wimshome/tmp/whoconnect/sup$file_
40 
  !endif
 40 
  !endif
41 
 !endif
 41 
 !endif
42 
!endif
 42 
!endif