Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | # test rafale to see whether the user can be allowed to login. |
| 2 | |||
| 3 | raftest=!sh grep rafale $wims_home/log/classes/$class/score/$auth_user 2>/dev/null | tail -1 |
||
| 4 | raftest=!word 1 of $raftest |
||
| 5 | nowm=!char 13 of $wims_now |
||
| 6 | lastallow=$wims_now |
||
| 7 | !if $nowm=0 |
||
| 12555 | bpr | 8 | lastallow=!replace char number 13 by 5 in $lastallow |
| 9 | nowm=!char 11 of $lastallow |
||
| 10 | !if $nowm=0 |
||
| 11 | lastallow=!replace char number 11 by 9 in $lastallow |
||
| 12 | nowm=!char 10 of $lastallow |
||
| 13 | lastallow=!replace char number 10 by $[$nowm-1] in $lastallow |
||
| 14 | !else |
||
| 15 | lastallow=!replace char number 11 by $[$nowm-1] in $lastallow |
||
| 16 | !endif |
||
| 20 | reyssat | 17 | !else |
| 12555 | bpr | 18 | lastallow=!replace char number 13 by $[$nowm-1] in $lastallow |
| 20 | reyssat | 19 | !endif |
| 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 |