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):
- 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 1XQL Not present: PostgreSQL, Oracle Generic XQL file: packages/acs-mail-lite/tcl/email-inbound-procs.xql