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 failuring in 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):
%3 callback::acs_mail_lite::incoming_email::impl::notifications callback::acs_mail_lite::incoming_email::impl::notifications (private) notification::email::bounce_mail_message notification::email::bounce_mail_message callback::acs_mail_lite::incoming_email::impl::notifications->notification::email::bounce_mail_message notification::email::load_qmail_mail_queue notification::email::load_qmail_mail_queue (private) notification::email::load_qmail_mail_queue->notification::email::bounce_mail_message acs_mail_lite::send acs_mail_lite::send (public) notification::email::bounce_mail_message->acs_mail_lite::send notification::email::address_domain notification::email::address_domain (public) notification::email::bounce_mail_message->notification::email::address_domain notification::email::parse_email_address notification::email::parse_email_address (private) notification::email::bounce_mail_message->notification::email::parse_email_address

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

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