Subversion Repositories wimsdev

Rev

Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 20 Rev 12555
Line 3... Line 3...
3 
raftest=!sh grep rafale $wims_home/log/classes/$class/score/$auth_user 2>/dev/null | tail -1
 3 
raftest=!sh grep rafale $wims_home/log/classes/$class/score/$auth_user 2>/dev/null | tail -1
4 
 raftest=!word 1 of $raftest
 4 
 raftest=!word 1 of $raftest
5 
 nowm=!char 13 of $wims_now
 5 
 nowm=!char 13 of $wims_now
6 
 lastallow=$wims_now
 6 
 lastallow=$wims_now
7 
 !if $nowm=0
 7 
 !if $nowm=0
8 
  lastallow=!replace char number 13 by 5 in $lastallow
 8 
    lastallow=!replace char number 13 by 5 in $lastallow
9 
  nowm=!char 11 of $lastallow
 9 
    nowm=!char 11 of $lastallow
10 
  !if $nowm=0
 10 
    !if $nowm=0
11 
   lastallow=!replace char number 11 by 9 in $lastallow
 11 
      lastallow=!replace char number 11 by 9 in $lastallow
12 
   nowm=!char 10 of $lastallow
 12 
      nowm=!char 10 of $lastallow
13 
   lastallow=!replace char number 10 by $[$nowm-1] in $lastallow
 13 
      lastallow=!replace char number 10 by $[$nowm-1] in $lastallow
14 
  !else
 14 
    !else
15 
   lastallow=!replace char number 11 by $[$nowm-1] in $lastallow
 15 
      lastallow=!replace char number 11 by $[$nowm-1] in $lastallow
16 
  !endif
 16 
    !endif
17 
 !else
 17 
 !else
18 
  lastallow=!replace char number 13 by $[$nowm-1] in $lastallow
 18 
    lastallow=!replace char number 13 by $[$nowm-1] in $lastallow
19 
 !endif
 19 
 !endif
20 
 raftest=!char 3,4,5,6,7,8,10,11,13,14 of $raftest
 20 
 raftest=!char 3,4,5,6,7,8,10,11,13,14 of $raftest
21 
 lastallow=!char 3,4,5,6,7,8,10,11,13,14 of $lastallow
 21 
 lastallow=!char 3,4,5,6,7,8,10,11,13,14 of $lastallow
22 
 
 -