+ // Got to grab this out of prefs, since it isn't saved from mailbox_view.php
+ if ($allow_thread_sort) {
+ $thread_sort_messages = getPref($data_dir, $username, "thread_$mailbox",0);
+ }
+
+ for ($i = 0; $i < count($msort); $i++) {
+ if ($msgs[$i]['ID'] == $message_id) {
+ break;
+ }
+ }
+
+ if ( isset($msgs) ) {
+ unset($msgs[$i]);
+ $msgs = array_values($msgs);
+ sqsession_register($msgs, 'msgs');
+ }
+
+ if ( isset($msort) ) {
+ unset($msort[$i]);
+ $msort = array_values($msort);
+ sqsession_register($msort, 'msort');
+ }
+
+ if ($auto_expunge) {
+ $cnt = sqimap_mailbox_expunge($imapConnection, $mailbox, true);
+ }
+
+ // And after all that mucking around, update the sort list!
+ // Remind me why the hell we need those two arrays again?!
+ if ( $allow_thread_sort && $thread_sort_messages ) {
+ $server_sort_array = get_thread_sort($imapConnection);
+ } elseif ( $allow_server_sort ) {
+ $server_sort_array = sqimap_get_sort_order($imapConnection, $sort, $mbx_response);
+ } else {
+ $server_sort_array = sqimap_get_php_sort_order($imapConnection, $mbx_response);
+ }
+ return $cnt;
+}
+
+/**
+ * Checks whether or not the specified mailbox exists
+ */
+function sqimap_mailbox_exists ($imap_stream, $mailbox) {
+ if (!isset($mailbox) || empty($mailbox)) {
+ return false;
+ }
+ $mbx = sqimap_run_command($imap_stream, 'LIST "" ' . sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ return isset($mbx[0]);
+}
+
+/**
+ * Selects a mailbox
+ */
+function sqimap_mailbox_select ($imap_stream, $mailbox) {
+ global $auto_expunge;
+
+ if ($mailbox == 'None') {
+ return;
+ }
+
+ $read = sqimap_run_command($imap_stream, 'SELECT ' . sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ $result = array();
+ for ($i = 0, $cnt = count($read); $i < $cnt; $i++) {
+ if (preg_match('/^\*\s+OK\s\[(\w+)\s(\w+)\]/',$read[$i], $regs)) {
+ $result[strtoupper($regs[1])] = $regs[2];
+ } else if (preg_match('/^\*\s([0-9]+)\s(\w+)/',$read[$i], $regs)) {
+ $result[strtoupper($regs[2])] = $regs[1];
+ } else {
+ if (preg_match("/PERMANENTFLAGS(.*)/i",$read[$i], $regs)) {
+ $regs[1]=trim(preg_replace ( array ("/\(/","/\)/","/\]/") ,'', $regs[1])) ;
+ $result['PERMANENTFLAGS'] = $regs[1];
+ } else if (preg_match("/FLAGS(.*)/i",$read[$i], $regs)) {
+ $regs[1]=trim(preg_replace ( array ("/\(/","/\)/") ,'', $regs[1])) ;
+ $result['FLAGS'] = $regs[1];
+ }
+ }
+ }
+ if (preg_match('/^\[(.+)\]/',$message, $regs)) {
+ $result['RIGHTS']=$regs[1];
+ }
+
+ if ($auto_expunge) {
+ $tmp = sqimap_run_command($imap_stream, 'EXPUNGE', false, $a, $b);
+ }
+ return $result;
+}
+
+/**
+ * Creates a folder.
+ */
+function sqimap_mailbox_create ($imap_stream, $mailbox, $type) {
+ global $delimiter;
+ if (strtolower($type) == 'noselect') {
+ $mailbox .= $delimiter;
+ }
+
+ $read_ary = sqimap_run_command($imap_stream, 'CREATE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ sqimap_subscribe ($imap_stream, $mailbox);
+}
+
+/**
+ * Subscribes to an existing folder.
+ */
+function sqimap_subscribe ($imap_stream, $mailbox) {
+ $read_ary = sqimap_run_command($imap_stream, 'SUBSCRIBE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+}
+
+/**
+ * Unsubscribes from an existing folder
+ */
+function sqimap_unsubscribe ($imap_stream, $mailbox) {
+ $read_ary = sqimap_run_command($imap_stream, 'UNSUBSCRIBE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ false, $response, $message);
+}
+
+/**
+ * Deletes the given folder
+ */
+function sqimap_mailbox_delete ($imap_stream, $mailbox) {
+ global $data_dir, $username;
+ sqimap_unsubscribe ($imap_stream, $mailbox);
+ $read_ary = sqimap_run_command($imap_stream, 'DELETE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ if ($response !== 'OK') {
+ // subscribe again
+ sqimap_subscribe ($imap_stream, $mailbox);
+ } else {
+ do_hook_function('rename_or_delete_folder', $args = array($mailbox, 'delete', ''));
+ removePref($data_dir, $username, "thread_$mailbox");
+ }
+}
+
+/**
+ * Determines if the user is subscribed to the folder or not
+ */
+function sqimap_mailbox_is_subscribed($imap_stream, $folder) {
+ $boxesall = sqimap_mailbox_list ($imap_stream);
+ foreach ($boxesall as $ref) {
+ if ($ref['unformatted'] == $folder) {
+ return true;
+ }
+ }
+ return false;
+}
+
+/**
+ * Renames a mailbox.
+ */
+function sqimap_mailbox_rename( $imap_stream, $old_name, $new_name ) {
+ if ( $old_name != $new_name ) {
+ global $delimiter, $imap_server_type, $data_dir, $username;
+ if ( substr( $old_name, -1 ) == $delimiter ) {
+ $old_name = substr( $old_name, 0, strlen( $old_name ) - 1 );
+ $new_name = substr( $new_name, 0, strlen( $new_name ) - 1 );
+ $postfix = $delimiter;
+ } else {
+ $postfix = '';
+ }
+
+ $boxesall = sqimap_mailbox_list($imap_stream);
+ $cmd = 'RENAME ' . sqimap_encode_mailbox_name($old_name) .
+ ' ' . sqimap_encode_mailbox_name($new_name);
+ $data = sqimap_run_command($imap_stream, $cmd, true, $response, $message);
+ sqimap_unsubscribe($imap_stream, $old_name.$postfix);
+ $oldpref = getPref($data_dir, $username, 'thread_'.$old_name.$postfix);
+ removePref($data_dir, $username, 'thread_'.$old_name.$postfix);
+ sqimap_subscribe($imap_stream, $new_name.$postfix);
+ setPref($data_dir, $username, 'thread_'.$new_name.$postfix, $oldpref);
+ do_hook_function('rename_or_delete_folder',$args = array($old_name, 'rename', $new_name));
+ $l = strlen( $old_name ) + 1;
+ $p = 'unformatted';
+
+ foreach ($boxesall as $box) {
+ if (substr($box[$p], 0, $l) == $old_name . $delimiter) {
+ $new_sub = $new_name . $delimiter . substr($box[$p], $l);
+ if ($imap_server_type == 'cyrus') {
+ $cmd = 'RENAME "' . $box[$p] . '" "' . $new_sub . '"';
+ $data = sqimap_run_command($imap_stream, $cmd, true,
+ $response, $message);
+ }
+ sqimap_unsubscribe($imap_stream, $box[$p]);
+ $oldpref = getPref($data_dir, $username, 'thread_'.$box[$p]);
+ removePref($data_dir, $username, 'thread_'.$box[$p]);
+ sqimap_subscribe($imap_stream, $new_sub);
+ setPref($data_dir, $username, 'thread_'.$new_sub, $oldpref);
+ do_hook_function('rename_or_delete_folder',
+ $args = array($box[$p], 'rename', $new_sub));
+ }
+ }
+ }
+}
+
+/**
+ * Formats a mailbox into parts for the $boxesall array
+ *
+ * The parts are:
+ *
+ * raw - Raw LIST/LSUB response from the IMAP server
+ * formatted - nicely formatted folder name
+ * unformatted - unformatted, but with delimiter at end removed
+ * unformatted-dm - folder name as it appears in raw response
+ * unformatted-disp - unformatted without $folder_prefix
+ */
+function sqimap_mailbox_parse ($line, $line_lsub) {
+ global $folder_prefix, $delimiter;
+
+ /* Process each folder line */
+ for ($g = 0, $cnt = count($line); $g < $cnt; ++$g) {
+ /* Store the raw IMAP reply */
+ if (isset($line[$g])) {
+ $boxesall[$g]['raw'] = $line[$g];
+ } else {
+ $boxesall[$g]['raw'] = '';
+ }
+
+ /* Count number of delimiters ($delimiter) in folder name */
+ $mailbox = /*trim(*/$line_lsub[$g]/*)*/;
+ $dm_count = substr_count($mailbox, $delimiter);
+ if (substr($mailbox, -1) == $delimiter) {
+ /* If name ends in delimiter, decrement count by one */
+ $dm_count--;
+ }
+
+ /* Format folder name, but only if it's a INBOX.* or has a parent. */
+ $boxesallbyname[$mailbox] = $g;
+ $parentfolder = readMailboxParent($mailbox, $delimiter);
+ if ( (strtolower(substr($mailbox, 0, 5)) == "inbox") ||
+ (substr($mailbox, 0, strlen($folder_prefix)) == $folder_prefix) ||
+ (isset($boxesallbyname[$parentfolder]) &&
+ (strlen($parentfolder) > 0) ) ) {
+ $indent = $dm_count - (substr_count($folder_prefix, $delimiter));
+ if ($indent > 0) {
+ $boxesall[$g]['formatted'] = str_repeat(' ', $indent);
+ } else {
+ $boxesall[$g]['formatted'] = '';
+ }
+ $boxesall[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
+ } else {
+ $boxesall[$g]['formatted'] = imap_utf7_decode_local($mailbox);
+ }
+
+ $boxesall[$g]['unformatted-dm'] = $mailbox;
+ if (substr($mailbox, -1) == $delimiter) {
+ $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
+ }
+ $boxesall[$g]['unformatted'] = $mailbox;
+ if (substr($mailbox,0,strlen($folder_prefix))==$folder_prefix) {
+ $mailbox = substr($mailbox, strlen($folder_prefix));
+ }
+ $boxesall[$g]['unformatted-disp'] = $mailbox;
+ $boxesall[$g]['id'] = $g;
+
+ $boxesall[$g]['flags'] = array();
+ if (isset($line[$g])) {
+ ereg("\(([^)]*)\)",$line[$g],$regs);
+ // FIXME Flags do contain the \ character. \NoSelect \NoInferiors
+ // and $MDNSent <= last one doesn't have the \
+ // It's better to follow RFC3501 instead of using our own naming.
+ $flags = trim(strtolower(str_replace('\\', '',$regs[1])));
+ if ($flags) {
+ $boxesall[$g]['flags'] = explode(' ', $flags);
+ }
+ }
+ }
+ return $boxesall;
+}
+
+/**
+ * Returns list of options (to be echoed into select statement
+ * based on available mailboxes and separators
+ * Caller should surround options with <SELECT..> </SELECT> and
+ * any formatting.
+ * $imap_stream - $imapConnection to query for mailboxes
+ * $show_selected - array containing list of mailboxes to pre-select (0 if none)
+ * $folder_skip - array of folders to keep out of option list (compared in lower)
+ * $boxes - list of already fetched boxes (for places like folder panel, where
+ * you know these options will be shown 3 times in a row.. (most often unset).
+ * $flag - flag to check for in mailbox flags, used to filter out mailboxes.
+ * 'noselect' by default to remove unselectable mailboxes.
+ * 'noinferiors' used to filter out folders that can not contain subfolders.
+ * NULL to avoid flag check entirely.
+ * NOTE: noselect and noiferiors are used internally. The IMAP representation is
+ * \NoSelect and \NoInferiors
+ * $use_long_format - override folder display preference and always show full folder name.
+ */
+function sqimap_mailbox_option_list($imap_stream, $show_selected = 0, $folder_skip = 0, $boxes = 0,
+ $flag = 'noselect', $use_long_format = false ) {
+ global $username, $data_dir;
+ $mbox_options = '';
+ if ( $use_long_format ) {
+ $shorten_box_names = 0;
+ } else {
+ $shorten_box_names = getPref($data_dir, $username, 'mailbox_select_style', SMPREF_OFF);
+ }
+
+ if ($boxes == 0) {
+ $boxes = sqimap_mailbox_list($imap_stream);
+ }
+
+ foreach ($boxes as $boxes_part) {
+ if ($flag == NULL || !in_array($flag, $boxes_part['flags'])) {
+ $box = $boxes_part['unformatted'];
+
+ if ($folder_skip != 0 && in_array($box, $folder_skip) ) {
+ continue;
+ }
+ $lowerbox = strtolower($box);
+ // mailboxes are casesensitive => inbox.sent != inbox.Sent
+ // nevermind, to many dependencies this should be fixed!
+
+ if (strtolower($box) == 'inbox') { // inbox is special and not casesensitive
+ $box2 = _("INBOX");
+ } else {
+ switch ($shorten_box_names)
+ {
+ case 2: /* delimited, style = 2 */
+ $box2 = str_replace(' ', '. ', $boxes_part['formatted']);
+ break;
+ case 1: /* indent, style = 1 */
+ $box2 = $boxes_part['formatted'];
+ break;
+ default: /* default, long names, style = 0 */
+ $box2 = str_replace(' ', ' ', htmlspecialchars(imap_utf7_decode_local($boxes_part['unformatted-disp'])));
+ break;
+ }
+ }
+ if ($show_selected != 0 && in_array($lowerbox, $show_selected) ) {
+ $mbox_options .= '<OPTION VALUE="' . htmlspecialchars($box) .'" SELECTED>'.$box2.'</OPTION>' . "\n";
+ } else {
+ $mbox_options .= '<OPTION VALUE="' . htmlspecialchars($box) .'">'.$box2.'</OPTION>' . "\n";
+ }
+ }
+ }
+ return $mbox_options;
+}
+
+/**
+ * Returns sorted mailbox lists in several different ways.
+ * See comment on sqimap_mailbox_parse() for info about the returned array.
+ */
+function sqimap_mailbox_list($imap_stream) {
+ global $default_folder_prefix;
+
+ if (!isset($boxesnew)) {
+ 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, $noselect_fix_enable;
+
+ $inbox_in_list = false;
+ $inbox_subscribed = false;
+
+ require_once(SM_PATH . 'include/load_prefs.php');
+
+ if ($noselect_fix_enable) {
+ $lsub_args = "LSUB \"$folder_prefix\" \"*%\"";
+ } else {
+ $lsub_args = "LSUB \"$folder_prefix\" \"*\"";
+ }
+ /* LSUB array */
+ $lsub_ary = sqimap_run_command ($imap_stream, $lsub_args,
+ true, $response, $message);
+ $lsub_ary = compact_mailboxes_response($lsub_ary);
+
+ $sorted_lsub_ary = array();
+ for ($i = 0, $cnt = count($lsub_ary);$i < $cnt; $i++) {
+ $temp_mailbox_name = find_mailbox_name($lsub_ary[$i]);
+ $sorted_lsub_ary[] = $temp_mailbox_name;
+ if (!$inbox_subscribed && strtoupper($temp_mailbox_name) == 'INBOX') {
+ $inbox_subscribed = true;
+ }
+ }
+
+ /* natural sort mailboxes */
+ if (isset($sorted_lsub_ary)) {
+ usort($sorted_lsub_ary, 'strnatcasecmp');
+ }
+ /*
+ * The LSUB response doesn't provide us information about \Noselect
+ * mail boxes. The LIST response does, that's why we need to do a LIST
+ * call to retrieve the flags for the mailbox
+ * Note: according RFC2060 an imap server may provide \NoSelect flags in the LSUB response.
+ * in other words, we cannot rely on it.
+ */
+ $sorted_list_ary = array();
+ for ($i=0; $i < count($sorted_lsub_ary); $i++) {
+ if (substr($sorted_lsub_ary[$i], -1) == $delimiter) {
+ $mbx = substr($sorted_lsub_ary[$i], 0, strlen($sorted_lsub_ary[$i])-1);
+ }
+ else {
+ $mbx = $sorted_lsub_ary[$i];
+ }
+ $mbx = stripslashes($mbx);
+ $read = sqimap_run_command ($imap_stream, 'LIST "" ' . sqimap_encode_mailbox_name($mbx),
+ true, $response, $message);
+ $read = compact_mailboxes_response($read);
+ if (isset($read[0])) {
+ $sorted_list_ary[$i] = $read[0];
+ } else {
+ $sorted_list_ary[$i] = '';
+ }
+ }
+ /*
+ * Just in case they're not subscribed to their inbox,
+ * we'll get it for them anyway
+ */
+ if (!$inbox_subscribed) {
+ $inbox_ary = sqimap_run_command ($imap_stream, 'LIST "" INBOX',
+ true, $response, $message);
+ $sorted_list_ary[] = implode('', compact_mailboxes_response($inbox_ary));
+ $sorted_lsub_ary[] = find_mailbox_name($inbox_ary[0]);
+ }
+
+ $boxesall = sqimap_mailbox_parse ($sorted_list_ary, $sorted_lsub_ary);
+
+ /* Now, lets sort for special folders */
+ $boxesnew = $used = array();
+
+ /* Find INBOX */
+ $cnt = count($boxesall);
+ $used = array_pad($used,$cnt,false);
+ for($k = 0; $k < $cnt; ++$k) {
+ if (strtolower($boxesall[$k]['unformatted']) == 'inbox') {
+ $boxesnew[] = $boxesall[$k];
+ $used[$k] = true;
+ break;
+ }
+ }
+ /* List special folders and their subfolders, if requested. */
+ if ($list_special_folders_first) {
+ for($k = 0; $k < $cnt; ++$k) {
+ if (!$used[$k] && isSpecialMailbox($boxesall[$k]['unformatted'])) {
+ $boxesnew[] = $boxesall[$k];
+ $used[$k] = true;
+ }
+ }
+ }
+
+ /* Rest of the folders */
+ for($k = 0; $k < $cnt; $k++) {
+ if (!$used[$k]) {
+ $boxesnew[] = $boxesall[$k];
+ }
+ }
+ }
+
+ return $boxesnew;
+}
+
+/**
+ * Returns a list of all folders, subscribed or not
+ */
+function sqimap_mailbox_list_all($imap_stream) {
+ global $list_special_folders_first, $folder_prefix, $delimiter;
+
+ $read_ary = sqimap_run_command($imap_stream,"LIST \"$folder_prefix\" *",true,$response, $message,false);
+ $read_ary = compact_mailboxes_response($read_ary);
+
+ $g = 0;
+ $phase = 'inbox';
+ $fld_pre_length = strlen($folder_prefix);
+ for ($i = 0, $cnt = count($read_ary); $i < $cnt; $i++) {
+ /* Store the raw IMAP reply */
+ $boxes[$g]['raw'] = $read_ary[$i];
+
+ /* Count number of delimiters ($delimiter) in folder name */
+ $mailbox = find_mailbox_name($read_ary[$i]);
+ $dm_count = substr_count($mailbox, $delimiter);
+ if (substr($mailbox, -1) == $delimiter) {
+ /* If name ends in delimiter - decrement count by one */
+ $dm_count--;
+ }
+
+ /* Format folder name, but only if it's a INBOX.* or has a parent. */
+ $boxesallbyname[$mailbox] = $g;
+ $parentfolder = readMailboxParent($mailbox, $delimiter);
+ if((eregi('^inbox'.quotemeta($delimiter), $mailbox)) ||
+ (ereg('^'.$folder_prefix, $mailbox)) ||
+ ( isset($boxesallbyname[$parentfolder]) && (strlen($parentfolder) > 0) ) ) {
+ if ($dm_count) {
+ $boxes[$g]['formatted'] = str_repeat(' ', $dm_count);
+ } else {
+ $boxes[$g]['formatted'] = '';
+ }
+ $boxes[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
+ } else {
+ $boxes[$g]['formatted'] = imap_utf7_decode_local($mailbox);
+ }
+
+ $boxes[$g]['unformatted-dm'] = $mailbox;
+ if (substr($mailbox, -1) == $delimiter) {