acs_mail_lite::record_bounce (public, deprecated)

 acs_mail_lite::record_bounce [ -user_id user_id ] [ -email email ]

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

Deprecated. Invoking this procedure generates a warning.

Records that an email bounce for this user

Switches:
-user_id (optional)
-email (optional)

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::record_bounce acs_mail_lite::record_bounce callback::acs_mail_lite::incoming_email::impl::acs-mail-lite->acs_mail_lite::record_bounce acs_mail_lite::bouncing_user_p acs_mail_lite::bouncing_user_p (private) acs_mail_lite::record_bounce->acs_mail_lite::bouncing_user_p ad_get_tcl_call_stack ad_get_tcl_call_stack (public) acs_mail_lite::record_bounce->ad_get_tcl_call_stack db_dml db_dml (public) acs_mail_lite::record_bounce->db_dml db_resultrows db_resultrows (public) acs_mail_lite::record_bounce->db_resultrows party::get_by_email party::get_by_email (public) acs_mail_lite::record_bounce->party::get_by_email

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

        if {$user_id eq ""} {
            set user_id [party::get_by_email -email $email]
        }
        if { $user_id ne "" && ![acs_mail_lite::bouncing_user_p -user_id $user_id] } {
            ns_log Debug "acs_mail_lite::incoming_email impl acs-mail-lite: Bouncing email from user $user_id"
            # record the bounce in the database
            db_dml record_bounce {}

            if {![db_resultrows]} {
                db_dml insert_bounce {}
            }
        }
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
<fullquery name="acs_mail_lite::record_bounce.record_bounce">
    <querytext>

       update acs_mail_lite_bounce
       set bounce_count = bounce_count + 1
       where party_id = :user_id

     </querytext>
</fullquery>

<fullquery name="acs_mail_lite::record_bounce.insert_bounce">
    <querytext>

       insert into acs_mail_lite_bounce (party_id, bounce_count)
       values (:user_id, 1)

     </querytext>
</fullquery>
packages/acs-mail-lite/tcl/legacy-inbound-procs.xql

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