auth::local::password::RetrievePassword (private)

 auth::local::password::RetrievePassword username parameters

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

Implements the RetrievePassword operation of the auth_password service contract for the local account implementation.

Parameters:
username
parameters

Partial Call Graph (max 5 caller/called nodes):
%3 test_auth_password_implementations auth_password_implementations (test acs-authentication) auth::local::password::RetrievePassword auth::local::password::RetrievePassword test_auth_password_implementations->auth::local::password::RetrievePassword _ _ (public) auth::local::password::RetrievePassword->_ acs_mail_lite::send acs_mail_lite::send (public) auth::local::password::RetrievePassword->acs_mail_lite::send ad_outgoing_sender ad_outgoing_sender (public) auth::local::password::RetrievePassword->ad_outgoing_sender ad_system_name ad_system_name (public) auth::local::password::RetrievePassword->ad_system_name ad_url ad_url (public) auth::local::password::RetrievePassword->ad_url AcsSc.auth_password.retrievepassword.local AcsSc.auth_password.retrievepassword.local (private) AcsSc.auth_password.retrievepassword.local->auth::local::password::RetrievePassword auth::local::password::register_impl auth::local::password::register_impl (private) auth::local::password::register_impl->auth::local::password::RetrievePassword

Testcases:
auth_password_implementations
Source code:
    set result(password_status) "ok"
    set result(password_message) [_ acs-subsite.Request_Change_Password_token_email]

    db_1row get_usr_id_and_password_hash {SELECT user_id, password as password_hash FROM users WHERE username = :username}

    set email [party::email -party_id $user_id]
    # TODO: This email message text should go in the recipient user language, english or every language supported
    set subject "[ad_system_name]: [_ acs-subsite.change_password_email_subject] $username"
    set body "[_ acs-subsite.change_password_email_body_0]\n\n[export_vars -base "[ad_url]/user/password-reset" {user_id password_hash}]\n\n[_ acs-subsite.change_password_email_body_1]"

    acs_mail_lite::send  -send_immediately  -to_addr $email  -from_addr [ad_outgoing_sender]  -subject $subject  -body $body

    return [array get result]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-authentication/tcl/local-procs.xql

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