Subversion Repositories wimsdev

Rev

Rev 20 | Rev 12555 | Go to most recent revision | 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
8
 auth_password=?$[$currentauth-$lastauth]????
5352 guerimand 9
 delay=bad
20 reyssat 10
!else
5352 guerimand 11
 delay=good
20 reyssat 12
 auth_password=!passcrypt $auth_password
13
!endif
14