user-add-3.tcl
Sends email confirmation to user after they've been created
- Location:
- /packages/acs-admin/www/users/user-add-3.tcl
- CVS ID:
$Id: user-add-3.tcl,v 1.11 2018/01/21 00:38:38 gustafn Exp $
Related Files
- packages/acs-admin/www/users/user-add-3.xql
- packages/acs-admin/www/users/user-add-3.tcl
- packages/acs-admin/www/users/user-add-3.adp
[ hide source ] | [ make this the default ]
File Contents
ad_page_contract { Sends email confirmation to user after they've been created @cvs-id $Id: user-add-3.tcl,v 1.11 2018/01/21 00:38:38 gustafn Exp $ } -query { email message first_names last_name user_id:naturalnum,notnull {referer "/acs-admin/users"} } -properties { context:onevalue first_names:onevalue last_name:onevalue export_vars:onevalue } set admin_user_id [ad_conn user_id] set context [list [list "./" "Users"] "New user notified"] set admin_url [acs_community_member_admin_url -user_id $user_id] set admin_email [db_string get_admin_email {}] set subject "You have been added as a user to [ad_system_name] at [ad_url]" if {[catch {acs_mail_lite::send -send_immediately -to_addr $email -from_addr $admin_email -subject $subject -body $message} errmsg]} { ad_return_error "Mail Failed" [subst { <p>The system was unable to send email. Please notify the user personally. This problem is probably caused by a misconfiguration of your email system. Here is the error message:</p> <div><code> [ns_quotehtml $errmsg] </code></div> }] ad_script_abort } # Local variables: # mode: tcl # tcl-indent-level: 4 # indent-tabs-mode: nil # End: