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:

• acs_mail_lite::bounce_ministry

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc acs_mail_lite::record_bounce
        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