+function sqimap_mailbox_tree($imap_stream) {
+ global $boxesnew, $default_folder_prefix, $unseen_notify, $unseen_type;
+ if (!isset($boxesnew)) {
+
+ global $data_dir, $username, $list_special_folders_first,
+ $folder_prefix, $delimiter, $trash_folder, $move_to_trash,
+ $imap_server_type;
+
+
+ $inbox_in_list = false;
+ $inbox_subscribed = false;
+
+ require_once(SM_PATH . 'include/load_prefs.php');
+
+ /* LSUB array */
+ $lsub_ary = sqimap_run_command ($imap_stream, "LSUB \"$folder_prefix\" \"*\"",
+ true, $response, $message);
+
+ /* Check to see if we have an INBOX */
+ $has_inbox = false;
+
+ for ($i = 0, $cnt = count($lsub_ary); $i < $cnt; $i++) {
+ if (preg_match("/^\*\s+LSUB\s+(.*)\"?INBOX\"?[^(\/\.)].*$/",$lsub_ary[$i])) {
+ $has_inbox = true;
+ break;
+ }
+ }
+
+ if ($has_inbox == false) {
+ $lsub_ibx = sqimap_run_command( $imap_stream, "LSUB \"\" \"INBOX\"", true, $response, $message );
+ if (isset($lsub_ibx[0]) && (preg_match("/^\*\s+LSUB\s+(.*)\"?INBOX\"?[^(\/\.)].*$/",$lsub_ibx[0]))) {
+ $lsub_ary[] = $lsub_ibx[0];
+ } else {
+ $lsub_ibx = sqimap_run_command( $imap_stream, "LIST \"\" \"INBOX\"", true, $response, $message );
+ if (preg_match("/^\*\s+LIST\s+(.*)\"?INBOX\"?[^(\/\.)].*$/",$lsub_ibx[0])) {
+ sqimap_run_command( $imap_stream, "SUBSCRIBE \"INBOX\"", true, $response, $message );
+ $lsub_ibx[0] = str_replace("LIST","LSUB",$lsub_ibx[0]);
+ $lsub_ary[] = $lsub_ibx[0];
+ }
+ }
+ }
+
+ /*
+ * Section about removing the last element was removed
+ * We don't return "* OK" anymore from sqimap_read_data
+ */
+ $sorted_lsub_ary = array();
+ $cnt = count($lsub_ary);
+
+ for ($i = 0; $i < $cnt; $i++) {
+ /*
+ * Workaround for EIMS
+ * Doesn't work if the mailbox name is multiple lines
+ */
+ if (isset($lsub_ary[$i + 1]) &&
+ ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
+ $lsub_ary[$i], $regs)) {
+ $i++;
+ $lsub_ary[$i] = $regs[1] . '"' . addslashes(trim($lsub_ary[$i])) . '"' . $regs[2];
+ }
+
+ $mbx = find_mailbox_name($lsub_ary[$i]);
+
+ // Force a list for UW as it returns \NoSelect in LIST and not LSUB //
+ if ($imap_server_type == "uw") {
+ $tmp_str = sqimap_run_command( $imap_stream , "LIST \"\" \"$mbx\"" , true, $response, $message );
+ if (isset($tmp_str[0])) {
+ $lsub_ary[$i] = $tmp_str[0];
+ }
+ }
+ $noselect = check_is_noselect($lsub_ary[$i]);
+ if (substr($mbx, -1) == $delimiter) {
+ $mbx = substr($mbx, 0, strlen($mbx) - 1);
+ }
+ $sorted_lsub_ary[] = array ('mbx' => $mbx, 'noselect' => $noselect);
+ }
+ array_multisort($sorted_lsub_ary, SORT_ASC, SORT_REGULAR);
+
+ for ($i = 0 ; $i < $cnt; $i++) {
+ $mbx = $sorted_lsub_ary[$i]['mbx'];
+ if (($unseen_notify == 2 && $mbx == 'INBOX') ||
+ ($unseen_notify == 3) ||
+ ($move_to_trash && ($mbx == $trash_folder))) {
+ if( $sorted_lsub_ary[$i]['noselect'] ) {
+ $sorted_lsub_ary[$i]['unseen'] = 0;
+ } else {
+ $sorted_lsub_ary[$i]['unseen'] =
+ sqimap_unseen_messages($imap_stream, $mbx);
+ }
+ if (($unseen_type == 2) ||
+ ($move_to_trash && ($mbx == $trash_folder)) ||
+ ($mbx == $trash_folder)) {
+ if($sorted_lsub_ary[$i]['noselect']) {
+ $sorted_lsub_ary[$i]['nummessages'] = 0;
+ } else {
+ $sorted_lsub_ary[$i]['nummessages'] =
+ sqimap_get_num_messages($imap_stream, $mbx);
+ }
+ }
+ }
+ }
+ $boxesnew = sqimap_fill_mailbox_tree($sorted_lsub_ary);
+ return $boxesnew;
+ }
+}
+
+
+function sqimap_fill_mailbox_tree($mbx_ary, $mbxs=false) {
+ global $data_dir, $username, $list_special_folders_first,
+ $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
+ $move_to_trash, $move_to_sent, $save_as_draft,
+ $delimiter, $imap_server_type;
+
+ $special_folders = array ('INBOX', $sent_folder, $draft_folder, $trash_folder);
+
+ /* create virtual root node */
+ $mailboxes= new mailboxes();
+ $mailboxes->is_root = true;
+ $trail_del = false;
+ $start = 0;
+
+
+ if (isset($folder_prefix) && ($folder_prefix != '')) {
+ $start = substr_count($folder_prefix,$delimiter);
+ if (strrpos($folder_prefix, $delimiter) == (strlen($folder_prefix)-1)) {
+ $trail_del = true;
+ $mailboxes->mailboxname_full = substr($folder_prefix,0, (strlen($folder_prefix)-1));
+ } else {
+ $mailboxes->mailboxname_full = $folder_prefix;
+ $start++;
+ }
+ $mailboxes->mailboxname_sub = $mailboxes->mailboxname_full;
+ } else {
+ $start = 0;
+ }
+
+ $cnt = count($mbx_ary);
+ for ($i=0; $i < $cnt; $i++) {
+ if ($mbx_ary[$i]['mbx'] !='' ) {
+ $mbx = new mailboxes();
+ $mailbox = $mbx_ary[$i]['mbx'];
+ switch ($mailbox) {
+ case 'INBOX':
+ $mbx->is_inbox = true;
+ $mbx->is_special = true;
+ break;
+ case $trash_folder:
+ $mbx->is_trash = true;
+ $mbx->is_special = true;
+ break;
+ case $sent_folder:
+ $mbx->is_sent = true;
+ $mbx->is_special = true;
+ break;
+ case $draft_folder:
+ $mbx->is_draft = true;
+ $mbx->is_special = true;
+ break;
+ }
+
+ if (isset($mbx_ary[$i]['unseen'])) {
+ $mbx->unseen = $mbx_ary[$i]['unseen'];
+ }
+ if (isset($mbx_ary[$i]['nummessages'])) {
+ $mbx->total = $mbx_ary[$i]['nummessages'];
+ }
+
+ $mbx->is_noselect = $mbx_ary[$i]['noselect'];
+
+ $r_del_pos = strrpos($mbx_ary[$i]['mbx'], $delimiter);
+ if ($r_del_pos) {
+ $mbx->mailboxname_sub = substr($mbx_ary[$i]['mbx'],$r_del_pos+1);
+ } else { /* mailbox is root folder */
+ $mbx->mailboxname_sub = $mbx_ary[$i]['mbx'];
+ }
+ $mbx->mailboxname_full = $mbx_ary[$i]['mbx'];
+
+ $mailboxes->addMbx($mbx, $delimiter, $start, $list_special_folders_first);
+ }
+ }
+ sqimap_utf7_decode_mbx_tree($mailboxes);
+ return $mailboxes;
+}
+
+function sqimap_utf7_decode_mbx_tree(&$mbx_tree) {
+ $mbx_tree->mailboxname_sub=imap_utf7_decode_local($mbx_tree->mailboxname_sub);
+ if ($mbx_tree->mbxs) {
+ $iCnt = count($mbx_tree->mbxs);
+ for ($i=0;$i<$iCnt;++$i) {
+ $mbxs_tree->mbxs[$i] = sqimap_utf7_decode_mbx_tree($mbx_tree->mbxs[$i]);
+ }
+ }
+}
+