auth::login_attempts::threshold_reached_p (private)

 auth::login_attempts::threshold_reached_p \
    [ -login_attempt_key login_attempt_key ]

Defined in packages/acs-authentication/tcl/authentication-procs.tcl

Check if the maximum number of consecutive failed login attempts has been reached

Switches:

-login_attempt_key (optional, defaults to "[ad_conn peeraddr]-[ad_conn subsite_id]")

Identifier of this login attempt. Defaults to "[ad_conn peeraddr]-[ad_conn subsite]"

Returns:

1 if limit has been reached otherwise 0

Testcases:

auth__login_attempts

Source code:

    set max_failed_login_attempts [parameter::get_from_package_key  -parameter "MaxConsecutiveFailedLoginAttempts"  -package_key "acs-authentication"  -default 0]

    if {$max_failed_login_attempts > 0
        && [::auth::login_attempts::get -key $login_attempt_key] > $max_failed_login_attempts
    } {
        return 1
    } else {
        return 0
    }

Generic XQL file:

packages/acs-authentication/tcl/authentication-procs.xql

PostgreSQL XQL file:

packages/acs-authentication/tcl/authentication-procs-postgresql.xql

Oracle XQL file:

packages/acs-authentication/tcl/authentication-procs-oracle.xql