acs_mail_lite::parse_bounce_address (public, deprecated)

 acs_mail_lite::parse_bounce_address -bounce_address bounce_address

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

Deprecated. Invoking this procedure generates a warning.

This takes a reply address, checks it for consistency, and returns a list of user_id, package_id and bounce_signature found

Switches:
-bounce_address (required)
Options:
-bounce_address
bounce address to be checked
Returns:
tcl-list of user_id package_id bounce_signature

See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 callback::acs_mail_lite::incoming_email::impl::acs-mail-lite callback::acs_mail_lite::incoming_email::impl::acs-mail-lite (private, deprecated) acs_mail_lite::parse_bounce_address acs_mail_lite::parse_bounce_address callback::acs_mail_lite::incoming_email::impl::acs-mail-lite->acs_mail_lite::parse_bounce_address acs_mail_lite::bounce_prefix acs_mail_lite::bounce_prefix (private) acs_mail_lite::parse_bounce_address->acs_mail_lite::bounce_prefix ad_get_tcl_call_stack ad_get_tcl_call_stack (public) acs_mail_lite::parse_bounce_address->ad_get_tcl_call_stack

Testcases:
No testcase defined.
Source code:
ns_log Notice "Deprecated proc acs_mail_lite::parse_bounce_address used:\n[ad_get_tcl_call_stack]"

        set regexp_str "\[[bounce_prefix]\]-(\[0-9\]+)-(\[^-\]+)-(\[0-9\]*)\@"
        if {![regexp $regexp_str $bounce_address all user_id signature package_id]} {
            ns_log Debug "acs-mail-lite: bounce address not found for $bounce_address"
            return ""
        }
        return [list $user_id $package_id $signature]
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-mail-lite/tcl/legacy-inbound-procs.xql

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