Subversion Repositories wimsdev

# test rafale to see whether the user can be allowed to login.

raftest=!sh grep rafale $wims_home/log/classes/$class/score/$auth_user 2>/dev/null | tail -1
 raftest=!word 1 of $raftest
 nowm=!char 13 of $wims_now
 lastallow=$wims_now
 !if $nowm=0
    lastallow=!replace char number 13 by 5 in $lastallow
    nowm=!char 11 of $lastallow
    !if $nowm=0
      lastallow=!replace char number 11 by 9 in $lastallow
      nowm=!char 10 of $lastallow
      lastallow=!replace char number 10 by $[$nowm-1] in $lastallow
    !else
      lastallow=!replace char number 11 by $[$nowm-1] in $lastallow
    !endif
 !else
    lastallow=!replace char number 13 by $[$nowm-1] in $lastallow
 !endif
 raftest=!char 3,4,5,6,7,8,10,11,13,14 of $raftest
 lastallow=!char 3,4,5,6,7,8,10,11,13,14 of $lastallow