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;