acs_mail_lite::inbound_queue_release (private)

 acs_mail_lite::inbound_queue_release

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

Delete email from queue that have been flagged 'release'. This does not affect email via imap or other connections.

Partial Call Graph (max 5 caller/called nodes):
%3 db_dml db_dml (public) db_list db_list (public) db_transaction db_transaction (public) acs_mail_lite::inbound_queue_release acs_mail_lite::inbound_queue_release acs_mail_lite::inbound_queue_release->db_dml acs_mail_lite::inbound_queue_release->db_list acs_mail_lite::inbound_queue_release->db_transaction

Testcases:
No testcase defined.
Source code:
    # To flag 'release', set acs_mail_lite_from_external.release_p 1

    set aml_ids_list [db_list acs_mail_lite_from_external_rn {
        select aml_email_id from acs_mail_lite_from_external
        where release_p='1' }]
    foreach aml_email_id $aml_ids_list {
        db_transaction {
            db_dml acs_mail_lite_from_external_dn {
                delete from acs_mail_lite_from_external
                where aml_email_id=:aml_email_id
            }
            db_dml acs_mail_lite_ie_headers_dn {
                delete from acs_mail_lite_ie_headers
                where aml_email_id=:aml_email_id
            }
            db_dml acs_mail_lite_ie_parts_dn {
                delete from acs_mail_lite_ie_parts
                where aml_email_id=:aml_email_id
            }
            db_dml acs_mail_lite_ie_part_nv_pairs_dn {
                delete from acs_mail_lite_ie_part_nv_pairs
                where aml_email_id=:aml_email_id
            }
        } on_error {
            ns_log Error "acs_mail_lite::inbound_queue_release.  Unable to release aml_mail_id '${aml_email_id}'. Error is: ${errmsg}"
        }
    }
    return 1
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-mail-lite/tcl/email-inbound-procs.xql

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