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 |
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; |