email-confirm.tcl
Verify users's email by checking the authentication token. People normally come here from a confirmation email.
- Location:
- /packages/acs-subsite/lib/email-confirm.tcl
Related Files
[ hide source ] | [ make this the default ]
File Contents
ad_include_contract { Verify users's email by checking the authentication token. People normally come here from a confirmation email. } { user_id:integer,notnull token:word,notnull } set user [acs_user::get_user_info -user_id $user_id] if {$user eq "" || $token ne [auth::get_user_secret_token -user_id $user_id] } { set title "Bad token" set message "The link given to authenticate your email was invalid." ad_return_template /packages/acs-subsite/lib/message } else { auth::set_email_verified -user_id $user_id set member_state [acs_user::get_user_info -user_id $user_id -element member_state] set export_vars [export_vars -form { { username "[dict get $user username]" } }] set site_link [ad_site_home_link] set system_name [ad_system_name] } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: