Index: openacs-4/packages/acs-authentication/acs-authentication.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/acs-authentication.info,v
diff -u -r1.30 -r1.30.2.1
--- openacs-4/packages/acs-authentication/acs-authentication.info 13 May 2009 21:29:32 -0000 1.30
+++ openacs-4/packages/acs-authentication/acs-authentication.info 15 May 2009 12:59:23 -0000 1.30.2.1
@@ -20,6 +20,7 @@
+
Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.81 -r1.81.2.1
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 8 Sep 2008 20:14:58 -0000 1.81
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl 15 May 2009 12:59:23 -0000 1.81.2.1
@@ -1430,11 +1430,11 @@
set confirmation_url [export_vars -base "[ad_url]/register/email-confirm" { token user_id }]
set system_name [ad_system_name]
- ns_sendmail \
- $user(email) \
- "\"$system_name\" <[parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]]>" \
- [_ acs-subsite.lt_Welcome_to_system_nam] \
- [_ acs-subsite.lt_To_confirm_your_regis]
+ acs_mail_lite::send -send_immediately \
+ -to_addr $user(email) \
+ -from_addr "\"$system_name\" <[parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]]>" \
+ -subject [_ acs-subsite.lt_Welcome_to_system_nam] \
+ -body [_ acs-subsite.lt_To_confirm_your_regis]
}
ad_proc -private auth::validate_account_info {
Index: openacs-4/packages/acs-authentication/tcl/password-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/password-procs.tcl,v
diff -u -r1.15 -r1.15.4.1
--- openacs-4/packages/acs-authentication/tcl/password-procs.tcl 10 Jan 2007 21:22:01 -0000 1.15
+++ openacs-4/packages/acs-authentication/tcl/password-procs.tcl 15 May 2009 12:59:23 -0000 1.15.4.1
@@ -577,7 +577,11 @@
}
# Send email
- ns_sendmail $user(email) $system_owner $subject $body
+ acs_mail_lite::send -send_immediately \
+ -to_addr $user(email) \
+ -from_addr $system_owner \
+ -subject $subject \
+ -body $body
}
ad_proc -private auth::password::CanChangePassword {
Index: openacs-4/packages/acs-authentication/tcl/sync-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/sync-procs.tcl,v
diff -u -r1.33 -r1.33.4.1
--- openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 10 Jan 2007 21:22:01 -0000 1.33
+++ openacs-4/packages/acs-authentication/tcl/sync-procs.tcl 15 May 2009 12:59:23 -0000 1.33.4.1
@@ -179,11 +179,11 @@
# Only send out email if not an interactive job
with_catch errmsg {
- ns_sendmail \
- [ad_system_owner] \
- [ad_system_owner] \
- "Batch user synchronization for $job(authority_pretty_name) complete" \
- "Batch user synchronization for $job(authority_pretty_name) is complete.
+ acs_mail_lite::send -send_immediately \
+ -to_addr [ad_system_owner] \
+ -from_addr [ad_system_owner] \
+ -subject "Batch user synchronization for $job(authority_pretty_name) complete" \
+ -body "Batch user synchronization for $job(authority_pretty_name) is complete.
Authority : $job(authority_pretty_name)
Running time : $job(run_time_seconds) seconds