notification::email::bounce_mail_message (public)

 notification::email::bounce_mail_message -to_addr to_addr \
    -from_addr from_addr -body body -message_headers message_headers \
    [ -reason reason ]

Defined in packages/notifications/tcl/notification-email-procs.tcl

This sends a bounce message indicating a failure while sending a message to the system.

Switches:

-to_addr (required)

who the bounce is going to

-from_addr (required)

who the bouncing message as sent to

-body (required)

the message body

-message_headers (required)

the headers of the message

-reason (optional)

(defaults to nothing). Reason for bounce

Author:

mkovach@alal.com

Created:

05 Nov 2003

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        set domain [address_domain]
        set bounce_to [parse_email_address $to_addr]
        set bounce_address [parse_email_address $from_addr]
        set bounce_from "MAILER-DAEMON@$domain"
        set bounce_subject "failure notice"
        set l "Hi.  This is the notification program at $domain.\n"
        append l "I'm afraid I wasn't able to deliver your message to the\n"
        append l "following addresses.  This is a permanent error; I've\n"
        append l "given up.  Sorry it didn't work out.\n\n"
        append l "<$from_addr>:\n"
        append l "$reason\n\n"
        append l "--- Below is this line is a copy of the message.\n\n"
        append l "$message_headers\n\n"
        append l "$body\n"
        acs_mail_lite::send  -to_addr $bounce_to  -from_addr $bounce_from  -subject $bounce_subject  -body $l  -extraheaders ""

XQL Not present:

PostgreSQL

Generic XQL file:

packages/notifications/tcl/notification-email-procs.xql

Oracle XQL file:

packages/notifications/tcl/notification-email-procs-oracle.xql