Subversion Repositories wimsdev

Rev

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

Rev 5352 Rev 5419
Line 5... Line 5...
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/s2/$wims_session/whoconnect.$file_ ]; then\
10
stat -c%Y $wims_home/s2/$wims_session/whoconnect.$file_;\
10
perl -e '@a = stat($ARGV[0]); print $a[9]' $wims_home/s2/$wims_session/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;