Subversion Repositories wimsdev

Rev

Rev 5352 | Go to most recent revision | Details | 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]????
9
!else
10
 auth_password=!passcrypt $auth_password
11
!endif
12