auth::login_attempts::record (private)

 auth::login_attempts::record [ -login_attempt_key login_attempt_key ]

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

Record a failed login attempt

Switches:
-login_attempt_key
(defaults to "[ad_conn peeraddr]-[ad_conn subsite_id]") (optional)
Identifier of this login attempt. Defaults to "[ad_conn peeraddr]-[ad_conn subsite]"

Partial Call Graph (max 5 caller/called nodes):
%3 test_auth__login_attempts auth__login_attempts (test acs-authentication) auth::login_attempts::record auth::login_attempts::record test_auth__login_attempts->auth::login_attempts::record auth::login_attempts::login_attempt_incr auth::login_attempts::login_attempt_incr (private) auth::login_attempts::record->auth::login_attempts::login_attempt_incr parameter::get_from_package_key parameter::get_from_package_key (public) auth::login_attempts::record->parameter::get_from_package_key auth::authenticate auth::authenticate (public) auth::authenticate->auth::login_attempts::record

Testcases:
auth__login_attempts
Source code:

    if { [parameter::get_from_package_key -parameter "MaxConsecutiveFailedLoginAttempts" -package_key "acs-authentication" -default 0] } {

        set max_age [parameter::get_from_package_key  -parameter "MaxConsecutiveFailedLoginAttemptsLockoutTime"  -package_key "acs-authentication"  -default 21600]

        ::auth::login_attempts::login_attempt_incr -key $login_attempt_key -max_age $max_age
    }
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

[ hide source ] | [ make this the default ]
Show another procedure: