acs_mail_lite::bounce_address (private)

 acs_mail_lite::bounce_address -user_id user_id -package_id package_id \
    -message_id message_id

Defined in packages/acs-mail-lite/tcl/email-inbound-procs.tcl

Composes a bounce address. If parameter FixedSenderEmail empty, message_id is used. If message_id is empty, the legacy approach for creating bounce_address is used.

Switches:
-user_id
(required)
-package_id
(required)
-message_id
(required)
Options:
-user_id
user_id of the mail recipient
-package_id
package_id of the mail sending package (needed to call package-specific code to deal with bounces)
-message_id
message-id of the mail
Returns:
bounce address

Partial Call Graph (max 5 caller/called nodes):
%3 acs_mail_lite::send_immediately acs_mail_lite::send_immediately (private) acs_mail_lite::bounce_address acs_mail_lite::bounce_address acs_mail_lite::send_immediately->acs_mail_lite::bounce_address acs_mail_lite::address_domain acs_mail_lite::address_domain (private) acs_mail_lite::bounce_address->acs_mail_lite::address_domain acs_mail_lite::bounce_prefix acs_mail_lite::bounce_prefix (private) acs_mail_lite::bounce_address->acs_mail_lite::bounce_prefix apm_package_id_from_key apm_package_id_from_key (public) acs_mail_lite::bounce_address->apm_package_id_from_key parameter::get parameter::get (public) acs_mail_lite::bounce_address->parameter::get

Testcases:
No testcase defined.
Source code:
    set mail_package_id [apm_package_id_from_key "acs-mail-lite"]
    set fixed_sender [parameter::get -parameter "FixedSenderEmail"  -package_id $mail_package_id  -default "" ]
    if { $fixed_sender ne "" } {
        set ba $fixed_sender
    } else {
        if { $message_id ne "" } {
            set ba $message_id
        } else {
            set ba [bounce_prefix]
            append ba "-" $user_id "-" [ns_sha1 $message_id]  "-" $package_id "@" [address_domain]
            ns_log Warning "acs_mail_lite::bounce_address is using  deprecated way. Supply message_id. Use acs_mail_lite::unique_id_create"
        }
    }
    return $ba
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-mail-lite/tcl/email-inbound-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: