password-reset.tcl

Reset a user's password.

Location:

/packages/acs-admin/www/users/password-reset.tcl

Related Files

• packages/acs-admin/www/users/password-reset.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
    Reset a user's password.
} {
    user_id:naturalnum,notnull
    {return_url:localurl .}
}

set user_info [acs_user::get_user_info -user_id $user_id]

auth::password::reset \
    -admin \
    -authority_id [dict get $user_info authority_id] \
    -username [dict get $user_info username]

ad_returnredirect $return_url
ad_script_abort


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: