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: