Rev 12555 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | # delay 5 minutes after wrong auth password. |
| 2 | |||
| 3 | currentauth=$wims_nowseconds |
||
| 4 | lastauth=!record 0 of wimshome/$wims_sesdir/lastauth |
||
| 5 | lastauth=!word 1 of $lastauth |
||
| 6 | !writefile wimshome/$wims_sesdir/lastauth $currentauth |
||
| 7 | !if $lastauth!=$empty and $lastauth>=$currentauth-5 |
||
| 12555 | bpr | 8 | auth_password=?$[$currentauth-$lastauth]???? |
| 9 | delay=bad |
||
| 20 | reyssat | 10 | !else |
| 12555 | bpr | 11 | delay=good |
| 15324 | bpr | 12 | auth_password_check=!passcheck $auth_password and $pass |
| 13 | !!yet useful ?? |
||
| 14 | !!auth_password=!passcrypt $auth_password |
||
| 20 | reyssat | 15 | !endif |