auth::local::authentication::Authenticate (private)

 auth::local::authentication::Authenticate username password \
    [ parameters ] [ authority_id ]

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

Implements the Authenticate operation of the auth_authentication service contract for the local account implementation.

Parameters:

username
password
parameters (optional)
authority_id (optional)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

acs_sc_impl_new_from_spec

Source code:

    array set auth_info [list]

    if {$authority_id eq ""} {
        set authority_id [auth::authority::local]
    }

    set user_id [acs_user::get_by_username -authority_id $authority_id -username $username]
    if { $user_id eq "" } {
        set result(auth_status) "no_account"
        return [array get result]
    }

    if { [ad_check_password $user_id $password] } {
        set auth_info(auth_status) "ok"
    } else {
        set auth_info(auth_status) "bad_password"
        set auth_info(auth_message) [_ acs-authentication.Invalid_username_or_password]
        return [array get auth_info]
    }

    # We set 'external' account status to 'ok', because the
    # local account status will be checked anyways by the framework
    set auth_info(account_status) ok

    return [array get auth_info]

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

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