login-attempts-reset.tcl
Flush login attempts
- Location:
- /packages/acs-admin/www/auth/login-attempts-reset.tcl
- Author:
- Günter Ernst <guenter.ernst@wu.ac.at>
- Created:
- 2018-02-19
- CVS ID:
$Id: login-attempts-reset.tcl,v 1.2 2018/06/29 17:27:18 hectorr Exp $
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Flush login attempts @author Günter Ernst (guenter.ernst@wu.ac.at) @creation-date 2018-02-19 @cvs-id $Id: login-attempts-reset.tcl,v 1.2 2018/06/29 17:27:18 hectorr Exp $ } { {attempt_key:notnull,token,multiple} } if {$attempt_key eq "all"} { ::auth::login_attempts::reset_all } else { foreach k $attempt_key { ::auth::login_attempts::reset -login_attempt_key $attempt_key } } ad_returnredirect "login-attempts" ad_script_abort # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: