Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl,v diff -u -N -r1.23 -r1.24 --- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl 27 Oct 2014 16:39:40 -0000 1.23 +++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-callback-procs.tcl 7 Aug 2017 23:47:57 -0000 1.24 @@ -24,32 +24,25 @@ {-filesystem_files} {-delete_filesystem_files_p} {-object_id} + {-status ok} + {-errorMsg ""} } { Callback for executing code after an email has been send using the send mechanism. @param package_id Package ID of the sending package - @param message_id the generated message_id for this mail - @param from_addr email of the sender - @param to_addr list of emails to whom did we send this email - @param body Text body of the email - - @param mime_type Mime type of the email body - + @param mime_type Mime type of the email body @param subject of the email - @param cc_addr list of emails to whom did we send this email in CC - @param bcc_addr list of emails to whom did we send this email in BCC - @param file_ids List of file ids sent as attachments. - - @param object_id The ID of the object that is responsible for sending the mail in the first place - + @param object_id The ID of the object that is responsible for sending the mail in the first place + @param status Status of the send operation ("ok" or "error") + @param errorMsg Error Details } - ad_proc -public -callback acs_mail_lite::incoming_email { @@ -99,7 +92,7 @@ upvar $array email set to [acs_mail_lite::parse_email_address -email $email(to)] - ns_log Debug "acs_mail_lite::incoming_email -impl acs-mail-lite called. Recepient $to" + ns_log Debug "acs_mail_lite::incoming_email -impl acs-mail-lite called. Recipient $to" lassign [acs_mail_lite::parse_bounce_address -bounce_address $to] user_id package_id signature @@ -112,3 +105,9 @@ } } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: