+/**
+ * Recursively walk the tree of trash mailboxes and delete all folders and messages
+ *
+ * @param int index the place in the tree to start, usually 0
+ * @param stream imap_stream the IMAP connection to send commands to
+ * @param array tree the tree to walk
+ * @return void
+ */
+function walkTreeInPreOrderEmptyTrash($index, $imap_stream, $tree) {
+ global $trash_folder;
+ walkTreeInPreOrderEmptyFolder($index, $imap_stream, $tree, $trash_folder);
+}
+
+/**
+ * Recursively walk the tree of mailboxes in the given folder and delete all folders and messages
+ *
+ * @param int index the place in the tree to start, usually 0
+ * @param stream imap_stream the IMAP connection to send commands to
+ * @param array tree the tree to walk
+ * @param mailbox the name of the root folder to empty
+ * @return void
+ */
+function walkTreeInPreOrderEmptyFolder($index, $imap_stream, $tree, $mailbox) {
+ if ($tree[$index]['doIHaveChildren']) {
+ for ($j = 0; $j < count($tree[$index]['subNodes']); $j++) {
+ walkTreeInPreOrderEmptyTrash($tree[$index]['subNodes'][$j], $imap_stream, $tree);
+ }
+ if ($tree[$index]['value'] != $mailbox) {
+ sqimap_mailbox_delete($imap_stream, $tree[$index]['value']);
+ } else {
+ $mbx_response = sqimap_mailbox_select($imap_stream, $mailbox);
+ if ($mbx_response['EXISTS'] > 0) {
+ sqimap_toggle_flag($imap_stream, '1:*', '\\Deleted', true, true);
+ // CLOSE === EXPUNGE and UNSELECT
+ sqimap_run_command($imap_stream,'CLOSE',false,$response,$message);
+ }
+ }
+ } else {
+ if ($tree[$index]['value'] != $mailbox) {
+ sqimap_mailbox_delete($imap_stream, $tree[$index]['value']);
+ } else {
+ $mbx_response = sqimap_mailbox_select($imap_stream, $mailbox);
+ if ($mbx_response['EXISTS'] > 0) {
+ sqimap_toggle_flag($imap_stream, '1:*', '\\Deleted', true, true);
+ // CLOSE === EXPUNGE and UNSELECT
+ sqimap_run_command($imap_stream,'CLOSE',false,$response,$message);
+ }
+ }
+ }
+}