Add comment to parsePriority function. I had to duplicate this function in
[squirrelmail.git] / functions / imap_mailbox.php
CommitLineData
59177427 1<?php
62f7daa5 2
35586184 3/**
4 * imap_mailbox.php
5 *
6c84ba1e 6 * Copyright (c) 1999-2005 The SquirrelMail Project Team
35586184 7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
9 * This impliments all functions that manipulate mailboxes
10 *
eb19bc67 11 * @version $Id$
d6c32258 12 * @package squirrelmail
eb19bc67 13 * @subpackage imap
35586184 14 */
d6c32258 15
16/** UTF7 support */
334a77f8 17require_once(SM_PATH . 'functions/imap_utf7_local.php');
18
3411d4ec 19global $boxesnew;
1da22cda 20
d6c32258 21/**
22 * Mailboxes class
4669e892 23 *
24 * FIXME. This class should be extracted and placed in a separate file that
d6c32258 25 * can be included before we start the session. That makes caching of the tree
4669e892 26 * possible. On a refresh mailboxes from left_main.php the only function that
27 * should be called is the sqimap_get_status_mbx_tree. In case of subscribe
28 * / rename / delete / new we have to create methods for adding/changing the
d6c32258 29 * mailbox in the mbx_tree without the need for a refresh.
30 * @package squirrelmail
1eb028a9 31*/
32
60b5724d 33class mailboxes {
86c2763d 34 var $mailboxname_full = '', $mailboxname_sub= '', $is_noselect = false, $is_noinferiors = false,
ff245fbd 35 $is_special = false, $is_root = false, $is_inbox = false, $is_sent = false,
4669e892 36 $is_trash = false, $is_draft = false, $mbxs = array(),
ff245fbd 37 $unseen = false, $total = false;
38
39 function addMbx($mbx, $delimiter, $start, $specialfirst) {
40 $ary = explode($delimiter, $mbx->mailboxname_full);
ae7df16e 41 $mbx_parent =& $this;
ff245fbd 42 for ($i = $start, $c = count($ary)-1; $i < $c; $i++) {
ae7df16e 43 $mbx_childs =& $mbx_parent->mbxs;
ff245fbd 44 $found = false;
45 if ($mbx_childs) {
46 foreach ($mbx_childs as $key => $parent) {
47 if ($parent->mailboxname_sub == $ary[$i]) {
ae7df16e 48 $mbx_parent =& $mbx_parent->mbxs[$key];
ff245fbd 49 $found = true;
ae7df16e 50 break;
ff245fbd 51 }
52 }
53 }
54 if (!$found) {
55 $no_select_mbx = new mailboxes();
56 if (isset($mbx_parent->mailboxname_full) && $mbx_parent->mailboxname_full != '') {
57 $no_select_mbx->mailboxname_full = $mbx_parent->mailboxname_full.$delimiter.$ary[$i];
58 } else {
59 $no_select_mbx->mailboxname_full = $ary[$i];
60 }
587ec647 61 $no_select_mbx->mailboxname_sub = $ary[$i];
ff245fbd 62 $no_select_mbx->is_noselect = true;
63 $mbx_parent->mbxs[] = $no_select_mbx;
64 $i--;
65 }
66 }
67 $mbx_parent->mbxs[] = $mbx;
68 if ($mbx->is_special && $specialfirst) {
69 usort($mbx_parent->mbxs, 'sortSpecialMbx');
70 }
71 }
60b5724d 72}
73
74function sortSpecialMbx($a, $b) {
75 if ($a->is_inbox) {
ff245fbd 76 $acmp = '0'. $a->mailboxname_full;
60b5724d 77 } else if ($a->is_special) {
ff245fbd 78 $acmp = '1'. $a->mailboxname_full;
60b5724d 79 } else {
ff245fbd 80 $acmp = '2' . $a->mailboxname_full;
81 }
60b5724d 82 if ($b->is_inbox) {
ff245fbd 83 $bcmp = '0'. $b->mailboxname_full;
60b5724d 84 }else if ($b->is_special) {
ff245fbd 85 $bcmp = '1' . $b->mailboxname_full;
60b5724d 86 } else {
ff245fbd 87 $bcmp = '2' . $b->mailboxname_full;
60b5724d 88 }
4669e892 89 return strnatcasecmp($acmp, $bcmp);
ff245fbd 90}
60b5724d 91
86c2763d 92function compact_mailboxes_response($ary)
93{
94 /*
95 * Workaround for mailboxes returned as literal
4669e892 96 * FIXME : Doesn't work if the mailbox name is multiple lines
86c2763d 97 * (larger then fgets buffer)
98 */
99 for ($i = 0, $iCnt=count($ary); $i < $iCnt; $i++) {
100 if (isset($ary[$i + 1]) && substr($ary[$i], -3) == "}\r\n") {
101 if (ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
102 $ary[$i], $regs)) {
103 $ary[$i] = $regs[1] . '"' . addslashes(trim($ary[$i+1])) . '"' . $regs[2];
104 array_splice($ary, $i+1, 2);
105 }
106 }
107 }
108 /* remove duplicates and ensure array is contiguous */
109 return array_values(array_unique($ary));
110}
111
48af4b64 112/**
113 * Extract the mailbox name from an untagged LIST (7.2.2) or LSUB (7.2.3) answer
114 * (LIST|LSUB) (<Flags list>) (NIL|"<separator atom>") <mailbox name string>\r\n
115 * mailbox name in quoted string MUST be unquoted and stripslashed (sm API)
116 */
bac13dd7 117function find_mailbox_name($line)
118{
119 if (preg_match('/^\* (?:LIST|LSUB) \([^\)]*\) (?:NIL|\"[^\"]*\") ([^\r\n]*)[\r\n]*$/i', $line, $regs)) {
120 if (substr($regs[1], 0, 1) == '"')
121 return stripslashes(substr($regs[1], 1, -1));
122 return $regs[1];
123 }
124 return '';
125}
126
48af4b64 127/**
128 * @return bool whether this is a Noselect mailbox.
129 */
f73348a3 130function check_is_noselect ($lsub_line) {
3698bd49 131 return preg_match("/^\* (LSUB|LIST) \([^\)]*\\\\Noselect[^\)]*\)/i", $lsub_line);
79e07c7e 132}
133
48af4b64 134/**
135 * @return bool whether this is a Noinferiors mailbox.
136 */
86c2763d 137function check_is_noinferiors ($lsub_line) {
138 return preg_match("/^\* (LSUB|LIST) \([^\)]*\\\\Noinferiors[^\)]*\)/i", $lsub_line);
139}
140
97b1248c 141/**
142 * If $haystack is a full mailbox name, and $needle is the mailbox
143 * separator character, returns the second last part of the full
144 * mailbox name (i.e. the mailbox's parent mailbox)
145 */
146function readMailboxParent($haystack, $needle) {
97b1248c 147 if ($needle == '') {
148 $ret = '';
149 } else {
150 $parts = explode($needle, $haystack);
151 $elem = array_pop($parts);
152 while ($elem == '' && count($parts)) {
153 $elem = array_pop($parts);
154 }
155 $ret = join($needle, $parts);
156 }
157 return( $ret );
158}
159
4669e892 160/**
6a8e7cae 161 * Check if $subbox is below the specified $parentbox
162 */
163function isBoxBelow( $subbox, $parentbox ) {
cef054e4 164 global $delimiter;
4669e892 165 /*
166 * Eliminate the obvious mismatch, where the
6a8e7cae 167 * subfolder path is shorter than that of the potential parent
168 */
169 if ( strlen($subbox) < strlen($parentbox) ) {
170 return false;
171 }
cef054e4 172 /* check for delimiter */
173 if (!substr($parentbox,-1) == $delimiter) {
174 $parentbox.=$delimiter;
175 }
176 if (substr($subbox,0,strlen($parentbox)) == $parentbox) {
177 return true;
178 } else {
179 return false;
180 }
1e18bf95 181}
182
48af4b64 183/**
184 * Defines special mailboxes: given a mailbox name, it checks if this is a
185 * "special" one: INBOX, Trash, Sent or Draft.
186 */
1e18bf95 187function isSpecialMailbox( $box ) {
90de1755 188 $ret = ( (strtolower($box) == 'inbox') ||
6a8e7cae 189 isTrashMailbox($box) || isSentMailbox($box) || isDraftMailbox($box) );
90de1755 190
2586d588 191 if ( !$ret ) {
5576644b 192 $ret = boolean_hook_function('special_mailbox',$box,1);
2586d588 193 }
3411d4ec 194 return $ret;
90de1755 195}
196
48af4b64 197/**
198 * @return bool whether this is a Trash folder
199 */
6a8e7cae 200function isTrashMailbox ($box) {
201 global $trash_folder, $move_to_trash;
202 return $move_to_trash && $trash_folder &&
203 ( $box == $trash_folder || isBoxBelow($box, $trash_folder) );
204}
205
48af4b64 206/**
207 * @return bool whether this is a Sent folder
208 */
6a8e7cae 209function isSentMailbox($box) {
210 global $sent_folder, $move_to_sent;
211 return $move_to_sent && $sent_folder &&
212 ( $box == $sent_folder || isBoxBelow($box, $sent_folder) );
213}
214
48af4b64 215/**
216 * @return bool whether this is a Draft folder
217 */
6a8e7cae 218function isDraftMailbox($box) {
219 global $draft_folder, $save_as_draft;
220 return $save_as_draft &&
221 ( $box == $draft_folder || isBoxBelow($box, $draft_folder) );
222}
223
48af4b64 224/**
225 * Expunges a mailbox, ie. delete all contents.
226 */
8f6505f6 227function sqimap_mailbox_expunge ($imap_stream, $mailbox, $handle_errors = true, $id='') {
06b5c3ff 228 if ($id) {
ff245fbd 229 if (is_array($id)) {
230 $id = sqimap_message_list_squisher($id);
231 }
232 $id = ' '.$id;
9d8d1ebd 233 $uid = TRUE;
06b5c3ff 234 } else {
ff245fbd 235 $uid = false;
8f6505f6 236 }
06b5c3ff 237 $read = sqimap_run_command($imap_stream, 'EXPUNGE'.$id, $handle_errors,
238 $response, $message, $uid);
63240b90 239 $cnt = 0;
ff245fbd 240
241 if (is_array($read)) {
63240b90 242 foreach ($read as $r) {
ff245fbd 243 if (preg_match('/^\*\s[0-9]+\sEXPUNGE/AUi',$r,$regs)) {
244 $cnt++;
245 }
63240b90 246 }
8f6505f6 247 }
ff245fbd 248 return $cnt;
43b698c7 249}
250
653ff1e6 251/**
48af4b64 252 * Checks whether or not the specified mailbox exists
253 */
1da22cda 254function sqimap_mailbox_exists ($imap_stream, $mailbox) {
247f700e 255 if (!isset($mailbox) || empty($mailbox)) {
43b698c7 256 return false;
257 }
568cb884 258 $mbx = sqimap_run_command($imap_stream, 'LIST "" ' . sqimap_encode_mailbox_name($mailbox),
3411d4ec 259 true, $response, $message);
43b698c7 260 return isset($mbx[0]);
261}
262
48af4b64 263/**
264 * Selects a mailbox
265 */
e4c6fe41 266function sqimap_mailbox_select ($imap_stream, $mailbox) {
ff245fbd 267 if ($mailbox == 'None') {
43b698c7 268 return;
269 }
f69feefe 270
568cb884 271 $read = sqimap_run_command($imap_stream, 'SELECT ' . sqimap_encode_mailbox_name($mailbox),
3411d4ec 272 true, $response, $message);
e4c6fe41 273 $result = array();
ff245fbd 274 for ($i = 0, $cnt = count($read); $i < $cnt; $i++) {
e4c6fe41 275 if (preg_match('/^\*\s+OK\s\[(\w+)\s(\w+)\]/',$read[$i], $regs)) {
ff245fbd 276 $result[strtoupper($regs[1])] = $regs[2];
277 } else if (preg_match('/^\*\s([0-9]+)\s(\w+)/',$read[$i], $regs)) {
278 $result[strtoupper($regs[2])] = $regs[1];
279 } else {
280 if (preg_match("/PERMANENTFLAGS(.*)/i",$read[$i], $regs)) {
281 $regs[1]=trim(preg_replace ( array ("/\(/","/\)/","/\]/") ,'', $regs[1])) ;
4669e892 282 $result['PERMANENTFLAGS'] = explode(' ',strtolower($regs[1]));
ff245fbd 283 } else if (preg_match("/FLAGS(.*)/i",$read[$i], $regs)) {
284 $regs[1]=trim(preg_replace ( array ("/\(/","/\)/") ,'', $regs[1])) ;
4669e892 285 $result['FLAGS'] = explode(' ',strtolower($regs[1]));
ff245fbd 286 }
287 }
e4c6fe41 288 }
4669e892 289 if (!isset($result['PERMANENTFLAGS'])) {
290 $result['PERMANENTFLAGS'] = $result['FLAGS'];
291 }
e4c6fe41 292 if (preg_match('/^\[(.+)\]/',$message, $regs)) {
4669e892 293 $result['RIGHTS']=strtoupper($regs[1]);
e4c6fe41 294 }
f69feefe 295
e4c6fe41 296 return $result;
43b698c7 297}
298
48af4b64 299/**
300 * Creates a folder.
301 */
3411d4ec 302function sqimap_mailbox_create ($imap_stream, $mailbox, $type) {
43b698c7 303 global $delimiter;
304 if (strtolower($type) == 'noselect') {
3411d4ec 305 $mailbox .= $delimiter;
43b698c7 306 }
e429f014 307
48af4b64 308 $read_ary = sqimap_run_command($imap_stream, 'CREATE ' .
309 sqimap_encode_mailbox_name($mailbox),
3411d4ec 310 true, $response, $message);
43b698c7 311 sqimap_subscribe ($imap_stream, $mailbox);
312}
313
48af4b64 314/**
315 * Subscribes to an existing folder.
316 */
852abae7 317function sqimap_subscribe ($imap_stream, $mailbox,$debug=true) {
48af4b64 318 $read_ary = sqimap_run_command($imap_stream, 'SUBSCRIBE ' .
319 sqimap_encode_mailbox_name($mailbox),
852abae7 320 $debug, $response, $message);
43b698c7 321}
322
48af4b64 323/**
324 * Unsubscribes from an existing folder
325 */
3411d4ec 326function sqimap_unsubscribe ($imap_stream, $mailbox) {
48af4b64 327 $read_ary = sqimap_run_command($imap_stream, 'UNSUBSCRIBE ' .
328 sqimap_encode_mailbox_name($mailbox),
e2e8b92b 329 false, $response, $message);
43b698c7 330}
331
48af4b64 332/**
333 * Deletes the given folder
334 */
3411d4ec 335function sqimap_mailbox_delete ($imap_stream, $mailbox) {
78cc4b12 336 global $data_dir, $username;
e2e8b92b 337 sqimap_unsubscribe ($imap_stream, $mailbox);
48af4b64 338 $read_ary = sqimap_run_command($imap_stream, 'DELETE ' .
339 sqimap_encode_mailbox_name($mailbox),
3411d4ec 340 true, $response, $message);
e2e8b92b 341 if ($response !== 'OK') {
342 // subscribe again
343 sqimap_subscribe ($imap_stream, $mailbox);
344 } else {
345 do_hook_function('rename_or_delete_folder', $args = array($mailbox, 'delete', ''));
346 removePref($data_dir, $username, "thread_$mailbox");
347 }
43b698c7 348}
349
48af4b64 350/**
351 * Determines if the user is subscribed to the folder or not
352 */
1da22cda 353function sqimap_mailbox_is_subscribed($imap_stream, $folder) {
1da22cda 354 $boxesall = sqimap_mailbox_list ($imap_stream);
355 foreach ($boxesall as $ref) {
43b698c7 356 if ($ref['unformatted'] == $folder) {
3411d4ec 357 return true;
43b698c7 358 }
359 }
360 return false;
361}
362
48af4b64 363/**
364 * Renames a mailbox.
365 */
1c52ba77 366function sqimap_mailbox_rename( $imap_stream, $old_name, $new_name ) {
3411d4ec 367 if ( $old_name != $new_name ) {
78cc4b12 368 global $delimiter, $imap_server_type, $data_dir, $username;
1c52ba77 369 if ( substr( $old_name, -1 ) == $delimiter ) {
370 $old_name = substr( $old_name, 0, strlen( $old_name ) - 1 );
371 $new_name = substr( $new_name, 0, strlen( $new_name ) - 1 );
372 $postfix = $delimiter;
1c52ba77 373 } else {
374 $postfix = '';
1c52ba77 375 }
68f2ce7a 376
648713af 377 $boxesall = sqimap_mailbox_list($imap_stream);
48af4b64 378 $cmd = 'RENAME ' . sqimap_encode_mailbox_name($old_name) .
91e0dccc 379 ' ' . sqimap_encode_mailbox_name($new_name);
3411d4ec 380 $data = sqimap_run_command($imap_stream, $cmd, true, $response, $message);
1c52ba77 381 sqimap_unsubscribe($imap_stream, $old_name.$postfix);
68f2ce7a 382 $oldpref = getPref($data_dir, $username, 'thread_'.$old_name.$postfix);
383 removePref($data_dir, $username, 'thread_'.$old_name.$postfix);
1c52ba77 384 sqimap_subscribe($imap_stream, $new_name.$postfix);
68f2ce7a 385 setPref($data_dir, $username, 'thread_'.$new_name.$postfix, $oldpref);
e429f014 386 do_hook_function('rename_or_delete_folder',$args = array($old_name, 'rename', $new_name));
648713af 387 $l = strlen( $old_name ) + 1;
388 $p = 'unformatted';
68f2ce7a 389
ff245fbd 390 foreach ($boxesall as $box) {
391 if (substr($box[$p], 0, $l) == $old_name . $delimiter) {
648713af 392 $new_sub = $new_name . $delimiter . substr($box[$p], $l);
393 if ($imap_server_type == 'cyrus') {
68f2ce7a 394 $cmd = 'RENAME "' . $box[$p] . '" "' . $new_sub . '"';
3411d4ec 395 $data = sqimap_run_command($imap_stream, $cmd, true,
648713af 396 $response, $message);
1c52ba77 397 }
648713af 398 sqimap_unsubscribe($imap_stream, $box[$p]);
68f2ce7a 399 $oldpref = getPref($data_dir, $username, 'thread_'.$box[$p]);
400 removePref($data_dir, $username, 'thread_'.$box[$p]);
648713af 401 sqimap_subscribe($imap_stream, $new_sub);
68f2ce7a 402 setPref($data_dir, $username, 'thread_'.$new_sub, $oldpref);
403 do_hook_function('rename_or_delete_folder',
3411d4ec 404 $args = array($box[$p], 'rename', $new_sub));
1c52ba77 405 }
406 }
1c52ba77 407 }
1c52ba77 408}
43b698c7 409
48af4b64 410/**
86c2763d 411 * Formats a mailbox into parts for the $boxesall array
3411d4ec 412 *
86c2763d 413 * The parts are:
3411d4ec 414 *
415 * raw - Raw LIST/LSUB response from the IMAP server
416 * formatted - nicely formatted folder name
417 * unformatted - unformatted, but with delimiter at end removed
418 * unformatted-dm - folder name as it appears in raw response
419 * unformatted-disp - unformatted without $folder_prefix
420 */
421function sqimap_mailbox_parse ($line, $line_lsub) {
43b698c7 422 global $folder_prefix, $delimiter;
3411d4ec 423
43b698c7 424 /* Process each folder line */
cef054e4 425 for ($g = 0, $cnt = count($line); $g < $cnt; ++$g) {
43b698c7 426 /* Store the raw IMAP reply */
427 if (isset($line[$g])) {
e429f014 428 $boxesall[$g]['raw'] = $line[$g];
ff245fbd 429 } else {
e429f014 430 $boxesall[$g]['raw'] = '';
43b698c7 431 }
3411d4ec 432
43b698c7 433 /* Count number of delimiters ($delimiter) in folder name */
86c2763d 434 $mailbox = /*trim(*/$line_lsub[$g]/*)*/;
ff245fbd 435 $dm_count = substr_count($mailbox, $delimiter);
43b698c7 436 if (substr($mailbox, -1) == $delimiter) {
3411d4ec 437 /* If name ends in delimiter, decrement count by one */
438 $dm_count--;
43b698c7 439 }
3411d4ec 440
441 /* Format folder name, but only if it's a INBOX.* or has a parent. */
1da22cda 442 $boxesallbyname[$mailbox] = $g;
43b698c7 443 $parentfolder = readMailboxParent($mailbox, $delimiter);
444 if ( (strtolower(substr($mailbox, 0, 5)) == "inbox") ||
445 (substr($mailbox, 0, strlen($folder_prefix)) == $folder_prefix) ||
ff245fbd 446 (isset($boxesallbyname[$parentfolder]) &&
447 (strlen($parentfolder) > 0) ) ) {
448 $indent = $dm_count - (substr_count($folder_prefix, $delimiter));
43b698c7 449 if ($indent > 0) {
ff245fbd 450 $boxesall[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $indent);
451 } else {
1da22cda 452 $boxesall[$g]['formatted'] = '';
43b698c7 453 }
447b2166 454 $boxesall[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
ff245fbd 455 } else {
447b2166 456 $boxesall[$g]['formatted'] = imap_utf7_decode_local($mailbox);
43b698c7 457 }
90de1755 458
1da22cda 459 $boxesall[$g]['unformatted-dm'] = $mailbox;
43b698c7 460 if (substr($mailbox, -1) == $delimiter) {
8e9e8afa 461 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
43b698c7 462 }
1da22cda 463 $boxesall[$g]['unformatted'] = $mailbox;
43b698c7 464 if (substr($mailbox,0,strlen($folder_prefix))==$folder_prefix) {
631b9da3 465 $mailbox = substr($mailbox, strlen($folder_prefix));
43b698c7 466 }
1da22cda 467 $boxesall[$g]['unformatted-disp'] = $mailbox;
468 $boxesall[$g]['id'] = $g;
90de1755 469
1da22cda 470 $boxesall[$g]['flags'] = array();
43b698c7 471 if (isset($line[$g])) {
36dfb0c9 472 ereg("\(([^)]*)\)",$line[$g],$regs);
4669e892 473 // FIXME Flags do contain the \ character. \NoSelect \NoInferiors
5c300c60 474 // and $MDNSent <= last one doesn't have the \
475 // It's better to follow RFC3501 instead of using our own naming.
1a7e1e97 476 $flags = trim(strtolower(str_replace('\\', '',$regs[1])));
43b698c7 477 if ($flags) {
1da22cda 478 $boxesall[$g]['flags'] = explode(' ', $flags);
43b698c7 479 }
480 }
481 }
1da22cda 482 return $boxesall;
43b698c7 483}
484
48af4b64 485/**
be2d5495 486 * Returns list of options (to be echoed into select statement
487 * based on available mailboxes and separators
6fd95361 488 * Caller should surround options with <select ...> </select> and
be2d5495 489 * any formatting.
490 * $imap_stream - $imapConnection to query for mailboxes
491 * $show_selected - array containing list of mailboxes to pre-select (0 if none)
492 * $folder_skip - array of folders to keep out of option list (compared in lower)
493 * $boxes - list of already fetched boxes (for places like folder panel, where
494 * you know these options will be shown 3 times in a row.. (most often unset).
59a8e3e8 495 * $flag - flag to check for in mailbox flags, used to filter out mailboxes.
496 * 'noselect' by default to remove unselectable mailboxes.
497 * 'noinferiors' used to filter out folders that can not contain subfolders.
498 * NULL to avoid flag check entirely.
d0928dd5 499 * NOTE: noselect and noiferiors are used internally. The IMAP representation is
500 * \NoSelect and \NoInferiors
59a8e3e8 501 * $use_long_format - override folder display preference and always show full folder name.
be2d5495 502 */
4669e892 503function sqimap_mailbox_option_list($imap_stream, $show_selected = 0, $folder_skip = 0, $boxes = 0,
59a8e3e8 504 $flag = 'noselect', $use_long_format = false ) {
be2d5495 505 global $username, $data_dir;
506 $mbox_options = '';
45f836eb 507 if ( $use_long_format ) {
508 $shorten_box_names = 0;
509 } else {
510 $shorten_box_names = getPref($data_dir, $username, 'mailbox_select_style', SMPREF_OFF);
511 }
ff245fbd 512
513 if ($boxes == 0) {
be2d5495 514 $boxes = sqimap_mailbox_list($imap_stream);
ff245fbd 515 }
59a8e3e8 516
be2d5495 517 foreach ($boxes as $boxes_part) {
4df5d823 518 if ($flag == NULL || (is_array($boxes_part['flags'])
519 && !in_array($flag, $boxes_part['flags']))) {
be2d5495 520 $box = $boxes_part['unformatted'];
be2d5495 521
d0928dd5 522 if ($folder_skip != 0 && in_array($box, $folder_skip) ) {
be2d5495 523 continue;
524 }
4669e892 525 $lowerbox = strtolower($box);
5c300c60 526 // mailboxes are casesensitive => inbox.sent != inbox.Sent
527 // nevermind, to many dependencies this should be fixed!
4669e892 528
d0928dd5 529 if (strtolower($box) == 'inbox') { // inbox is special and not casesensitive
be2d5495 530 $box2 = _("INBOX");
4669e892 531 } else {
5c300c60 532 switch ($shorten_box_names)
533 {
534 case 2: /* delimited, style = 2 */
c77a0487 535 $box2 = str_replace('&amp;nbsp;&amp;nbsp;', '.&nbsp;', htmlspecialchars($boxes_part['formatted']));
5c300c60 536 break;
d0928dd5 537 case 1: /* indent, style = 1 */
c77a0487 538 $box2 = str_replace('&amp;nbsp;&amp;nbsp;', '&nbsp;&nbsp;', htmlspecialchars($boxes_part['formatted']));
5c300c60 539 break;
d0928dd5 540 default: /* default, long names, style = 0 */
6c4f0fa1 541 $box2 = str_replace(' ', '&nbsp;', htmlspecialchars(imap_utf7_decode_local($boxes_part['unformatted-disp'])));
5c300c60 542 break;
543 }
be2d5495 544 }
545 if ($show_selected != 0 && in_array($lowerbox, $show_selected) ) {
ff0969a0 546 $mbox_options .= '<option value="' . htmlspecialchars($box) .'" selected="selected">'.$box2.'</option>' . "\n";
be2d5495 547 } else {
ff0969a0 548 $mbox_options .= '<option value="' . htmlspecialchars($box) .'">'.$box2.'</option>' . "\n";
be2d5495 549 }
550 }
551 }
552 return $mbox_options;
553}
43b698c7 554
48af4b64 555/**
4669e892 556 * Returns sorted mailbox lists in several different ways.
3411d4ec 557 * See comment on sqimap_mailbox_parse() for info about the returned array.
558 */
fe6efa94 559
560
561function sqimap_mailbox_list($imap_stream, $force=false) {
fe6efa94 562 if (!sqgetGlobalVar('boxesnew',$boxesnew,SQ_SESSION) || $force) {
3411d4ec 563 global $data_dir, $username, $list_special_folders_first,
7e235a1a 564 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
565 $move_to_trash, $move_to_sent, $save_as_draft,
60a132f8 566 $delimiter, $noselect_fix_enable, $imap_server_type;
3411d4ec 567 $inbox_subscribed = false;
60a132f8 568 $listsubscribed = sqimap_capability($imap_stream,'LIST-SUBSCRIBED');
7e235a1a 569
08185f2a 570 require_once(SM_PATH . 'include/load_prefs.php');
7e235a1a 571
60a132f8 572
573 if ($listsubscribed) {
574 $lsub = 'LIST (SUBSCRIBED)';
575 } else {
576 $lsub = 'LSUB';
4669e892 577 }
578
ff245fbd 579 if ($noselect_fix_enable) {
4669e892 580
60a132f8 581 $lsub_args = "$lsub \"$folder_prefix\" \"*%\"";
ff245fbd 582 } else {
60a132f8 583 $lsub_args = "$lsub \"$folder_prefix\" \"*\"";
ff245fbd 584 }
3411d4ec 585 /* LSUB array */
ca85aabe 586 $lsub_ary = sqimap_run_command ($imap_stream, $lsub_args,
3411d4ec 587 true, $response, $message);
4669e892 588 $lsub_ary = compact_mailboxes_response($lsub_ary);
7e235a1a 589
7e235a1a 590 $sorted_lsub_ary = array();
ff245fbd 591 for ($i = 0, $cnt = count($lsub_ary);$i < $cnt; $i++) {
159d2af7 592
7e235a1a 593 $temp_mailbox_name = find_mailbox_name($lsub_ary[$i]);
594 $sorted_lsub_ary[] = $temp_mailbox_name;
cef054e4 595 if (!$inbox_subscribed && strtoupper($temp_mailbox_name) == 'INBOX') {
3411d4ec 596 $inbox_subscribed = true;
7e235a1a 597 }
598 }
cef054e4 599
5c300c60 600 /* natural sort mailboxes */
7e235a1a 601 if (isset($sorted_lsub_ary)) {
159d2af7 602 usort($sorted_lsub_ary, 'strnatcasecmp');
7e235a1a 603 }
5c300c60 604 /*
605 * The LSUB response doesn't provide us information about \Noselect
606 * mail boxes. The LIST response does, that's why we need to do a LIST
607 * call to retrieve the flags for the mailbox
cef054e4 608 * Note: according RFC2060 an imap server may provide \NoSelect flags in the LSUB response.
609 * in other words, we cannot rely on it.
fe6efa94 610 */
cef054e4 611 $sorted_list_ary = array();
60a132f8 612 // if (!$listsubscribed) {
613 for ($i=0; $i < count($sorted_lsub_ary); $i++) {
7e235a1a 614 if (substr($sorted_lsub_ary[$i], -1) == $delimiter) {
615 $mbx = substr($sorted_lsub_ary[$i], 0, strlen($sorted_lsub_ary[$i])-1);
616 }
617 else {
618 $mbx = $sorted_lsub_ary[$i];
619 }
fe6efa94 620
159d2af7 621 $read = sqimap_run_command ($imap_stream, 'LIST "" ' . sqimap_encode_mailbox_name($mbx),
3411d4ec 622 true, $response, $message);
4669e892 623
159d2af7 624 $read = compact_mailboxes_response($read);
4669e892 625
7e235a1a 626 if (isset($read[0])) {
627 $sorted_list_ary[$i] = $read[0];
cef054e4 628 } else {
7e235a1a 629 $sorted_list_ary[$i] = '';
630 }
60a132f8 631 }
632 // }
3411d4ec 633 /*
7e235a1a 634 * Just in case they're not subscribed to their inbox,
635 * we'll get it for them anyway
636 */
cef054e4 637 if (!$inbox_subscribed) {
159d2af7 638 $inbox_ary = sqimap_run_command ($imap_stream, 'LIST "" "INBOX"',
3411d4ec 639 true, $response, $message);
159d2af7 640 $sorted_list_ary[] = implode('',compact_mailboxes_response($inbox_ary));
7e235a1a 641 $sorted_lsub_ary[] = find_mailbox_name($inbox_ary[0]);
642 }
643
644 $boxesall = sqimap_mailbox_parse ($sorted_list_ary, $sorted_lsub_ary);
645
3411d4ec 646 /* Now, lets sort for special folders */
7e235a1a 647 $boxesnew = $used = array();
648
649 /* Find INBOX */
ff245fbd 650 $cnt = count($boxesall);
5c300c60 651 $used = array_pad($used,$cnt,false);
cef054e4 652 for($k = 0; $k < $cnt; ++$k) {
ff245fbd 653 if (strtolower($boxesall[$k]['unformatted']) == 'inbox') {
654 $boxesnew[] = $boxesall[$k];
3411d4ec 655 $used[$k] = true;
5c300c60 656 break;
7e235a1a 657 }
658 }
7e235a1a 659 /* List special folders and their subfolders, if requested. */
3411d4ec 660 if ($list_special_folders_first) {
cef054e4 661 for($k = 0; $k < $cnt; ++$k) {
ff245fbd 662 if (!$used[$k] && isSpecialMailbox($boxesall[$k]['unformatted'])) {
663 $boxesnew[] = $boxesall[$k];
664 $used[$k] = true;
7e235a1a 665 }
5c300c60 666 }
667 }
fe6efa94 668 /* Rest of the folders */
ff245fbd 669 for($k = 0; $k < $cnt; $k++) {
670 if (!$used[$k]) {
671 $boxesnew[] = $boxesall[$k];
7e235a1a 672 }
673 }
fe6efa94 674 sqsession_register($boxesnew,'boxesnew');
43b698c7 675 }
3411d4ec 676 return $boxesnew;
43b698c7 677}
678
48af4b64 679/**
90de1755 680 * Returns a list of all folders, subscribed or not
681 */
1da22cda 682function sqimap_mailbox_list_all($imap_stream) {
3411d4ec 683 global $list_special_folders_first, $folder_prefix, $delimiter;
bac13dd7 684
685 $read_ary = sqimap_run_command($imap_stream,"LIST \"$folder_prefix\" *",true,$response, $message,false);
686 $read_ary = compact_mailboxes_response($read_ary);
687
43b698c7 688 $g = 0;
7d82bceb 689 $fld_pre_length = strlen($folder_prefix);
ff245fbd 690 for ($i = 0, $cnt = count($read_ary); $i < $cnt; $i++) {
780dd344 691 /* Store the raw IMAP reply */
692 $boxes[$g]['raw'] = $read_ary[$i];
90de1755 693
780dd344 694 /* Count number of delimiters ($delimiter) in folder name */
695 $mailbox = find_mailbox_name($read_ary[$i]);
696 $dm_count = substr_count($mailbox, $delimiter);
697 if (substr($mailbox, -1) == $delimiter) {
698 /* If name ends in delimiter - decrement count by one */
699 $dm_count--;
700 }
90de1755 701
780dd344 702 /* Format folder name, but only if it's a INBOX.* or has a parent. */
703 $boxesallbyname[$mailbox] = $g;
704 $parentfolder = readMailboxParent($mailbox, $delimiter);
705 if((eregi('^inbox'.quotemeta($delimiter), $mailbox)) ||
706 (ereg('^'.$folder_prefix, $mailbox)) ||
707 ( isset($boxesallbyname[$parentfolder]) && (strlen($parentfolder) > 0) ) ) {
708 if ($dm_count) {
709 $boxes[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $dm_count);
90de1755 710 } else {
780dd344 711 $boxes[$g]['formatted'] = '';
12d61439 712 }
780dd344 713 $boxes[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
714 } else {
715 $boxes[$g]['formatted'] = imap_utf7_decode_local($mailbox);
716 }
717
718 $boxes[$g]['unformatted-dm'] = $mailbox;
719 if (substr($mailbox, -1) == $delimiter) {
720 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
721 }
722 $boxes[$g]['unformatted'] = $mailbox;
723 $boxes[$g]['unformatted-disp'] = substr($mailbox,$fld_pre_length);
724
725 $boxes[$g]['id'] = $g;
726
727 /* Now lets get the flags for this mailbox */
728 $read_mlbx = $read_ary[$i];
729 $flags = substr($read_mlbx, strpos($read_mlbx, '(')+1);
730 $flags = substr($flags, 0, strpos($flags, ')'));
731 $flags = str_replace('\\', '', $flags);
732 $flags = trim(strtolower($flags));
733 if ($flags) {
734 $boxes[$g]['flags'] = explode(' ', $flags);
735 } else {
736 $boxes[$g]['flags'] = array();
43b698c7 737 }
738 $g++;
739 }
740 if(is_array($boxes)) {
e429f014 741 sort ($boxes);
43b698c7 742 }
90de1755 743
43b698c7 744 return $boxes;
745}
5bdd7223 746
60b5724d 747function sqimap_mailbox_tree($imap_stream) {
ce68b76b 748 global $default_folder_prefix;
60a132f8 749 if (true) {
60b5724d 750 global $data_dir, $username, $list_special_folders_first,
a2e66c6d 751 $folder_prefix, $delimiter, $trash_folder, $move_to_trash,
752 $imap_server_type;
60b5724d 753
f08ba804 754 $noselect = false;
86c2763d 755 $noinferiors = false;
60b5724d 756
08185f2a 757 require_once(SM_PATH . 'include/load_prefs.php');
60b5724d 758
759 /* LSUB array */
34c7eef3 760 $lsub_ary = sqimap_run_command ($imap_stream, "LSUB \"$folder_prefix\" \"*\"",
60b5724d 761 true, $response, $message);
bac13dd7 762 $lsub_ary = compact_mailboxes_response($lsub_ary);
60b5724d 763
9871bdaa 764 /* Check to see if we have an INBOX */
78bc908d 765 $has_inbox = false;
766
767 for ($i = 0, $cnt = count($lsub_ary); $i < $cnt; $i++) {
6e097fb5 768 if (preg_match("/^\*\s+LSUB.*\s\"?INBOX\"?[^(\/\.)].*$/i",$lsub_ary[$i])) {
9d8d1ebd 769 $lsub_ary[$i] = strtoupper($lsub_ary[$i]);
31a5064d 770 // in case of an unsubscribed inbox an imap server can
4669e892 771 // return the inbox in the lsub results with a \NoSelect
31a5064d 772 // flag.
773 if (!preg_match("/\*\s+LSUB\s+\(.*\\\\NoSelect.*\).*/i",$lsub_ary[$i])) {
774 $has_inbox = true;
775 } else {
776 // remove the result and request it again with a list
777 // response at a later stage.
778 unset($lsub_ary[$i]);
4669e892 779 // re-index the array otherwise the addition of the LIST
35314c5c 780 // response will fail in PHP 4.1.2 and probably other older versions
781 $lsub_ary = array_values($lsub_ary);
31a5064d 782 }
78bc908d 783 break;
784 }
785 }
786
787 if ($has_inbox == false) {
31a5064d 788 // do a list request for inbox because we should always show
789 // inbox even if the user isn't subscribed to it.
3d29eb78 790 $inbox_ary = sqimap_run_command ($imap_stream, 'LIST "" "INBOX"',
31a5064d 791 true, $response, $message);
792 $inbox_ary = compact_mailboxes_response($inbox_ary);
793 if (count($inbox_ary)) {
794 $lsub_ary[] = $inbox_ary[0];
795 }
78bc908d 796 }
797
60b5724d 798 /*
4669e892 799 * Section about removing the last element was removed
60b5724d 800 * We don't return "* OK" anymore from sqimap_read_data
801 */
bac13dd7 802
60b5724d 803 $sorted_lsub_ary = array();
e4c6fe41 804 $cnt = count($lsub_ary);
ff245fbd 805 for ($i = 0; $i < $cnt; $i++) {
ff245fbd 806 $mbx = find_mailbox_name($lsub_ary[$i]);
a2e66c6d 807
483f9ef9 808 // only do the noselect test if !uw, is checked later. FIX ME see conf.pl setting
4669e892 809 if ($imap_server_type != "uw") {
483f9ef9 810 $noselect = check_is_noselect($lsub_ary[$i]);
86c2763d 811 $noinferiors = check_is_noinferiors($lsub_ary[$i]);
a2e66c6d 812 }
ff245fbd 813 if (substr($mbx, -1) == $delimiter) {
814 $mbx = substr($mbx, 0, strlen($mbx) - 1);
815 }
4669e892 816 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'noselect' => $noselect, 'noinferiors' => $noinferiors);
60b5724d 817 }
5c300c60 818 // FIX ME this requires a config setting inside conf.pl instead of checking on server type
483f9ef9 819 if ($imap_server_type == "uw") {
5c300c60 820 $aQuery = array();
821 $aTag = array();
822 // prepare an array with queries
823 foreach ($sorted_lsub_ary as $aMbx) {
bac13dd7 824 $mbx = stripslashes($aMbx['mbx']);
568cb884 825 sqimap_prepare_pipelined_query('LIST "" ' . sqimap_encode_mailbox_name($mbx), $tag, $aQuery, false);
5c300c60 826 $aTag[$tag] = $mbx;
4669e892 827 }
5c300c60 828 $sorted_lsub_ary = array();
829 // execute all the queries at once
830 $aResponse = sqimap_run_pipelined_command ($imap_stream, $aQuery, false, $aServerResponse, $aServerMessage);
831 foreach($aTag as $tag => $mbx) {
832 if ($aServerResponse[$tag] == 'OK') {
833 $sResponse = implode('', $aResponse[$tag]);
834 $noselect = check_is_noselect($sResponse);
86c2763d 835 $noinferiors = check_is_noinferiors($sResponse);
836 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'noselect' => $noselect, 'noinferiors' => $noinferiors);
5c300c60 837 }
838 }
839 $cnt = count($sorted_lsub_ary);
483f9ef9 840 }
bac13dd7 841 $sorted_lsub_ary = array_values($sorted_lsub_ary);
9d8d1ebd 842 usort($sorted_lsub_ary, 'mbxSort');
d1404257 843 $boxestree = sqimap_fill_mailbox_tree($sorted_lsub_ary,false,$imap_stream);
844 return $boxestree;
60b5724d 845 }
846}
847
9d8d1ebd 848function mbxSort($a, $b) {
849 return strnatcasecmp($a['mbx'], $b['mbx']);
850}
851
483f9ef9 852function sqimap_fill_mailbox_tree($mbx_ary, $mbxs=false,$imap_stream) {
60b5724d 853 global $data_dir, $username, $list_special_folders_first,
854 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
855 $move_to_trash, $move_to_sent, $save_as_draft,
43a31298 856 $delimiter, $imap_server_type;
60b5724d 857
8d8da447 858 // $special_folders = array ('INBOX', $sent_folder, $draft_folder, $trash_folder);
ff245fbd 859
60b5724d 860 /* create virtual root node */
861 $mailboxes= new mailboxes();
862 $mailboxes->is_root = true;
ff245fbd 863 $trail_del = false;
78bc908d 864 $start = 0;
865
587ec647 866
43a31298 867 if (isset($folder_prefix) && ($folder_prefix != '')) {
ff245fbd 868 $start = substr_count($folder_prefix,$delimiter);
869 if (strrpos($folder_prefix, $delimiter) == (strlen($folder_prefix)-1)) {
ff245fbd 870 $mailboxes->mailboxname_full = substr($folder_prefix,0, (strlen($folder_prefix)-1));
871 } else {
872 $mailboxes->mailboxname_full = $folder_prefix;
873 $start++;
874 }
875 $mailboxes->mailboxname_sub = $mailboxes->mailboxname_full;
876 } else {
877 $start = 0;
878 }
78bc908d 879
9d8d1ebd 880 $cnt = count($mbx_ary);
e4c6fe41 881 for ($i=0; $i < $cnt; $i++) {
ff245fbd 882 if ($mbx_ary[$i]['mbx'] !='' ) {
883 $mbx = new mailboxes();
884 $mailbox = $mbx_ary[$i]['mbx'];
cc82c2b7 885
4669e892 886 /*
cc82c2b7 887 sent subfolders messes up using existing code as subfolders
888 were marked, but the parents were ordered somewhere else in
889 the list, despite having "special folders at top" option set.
890 Need a better method than this.
97a5e85f 891 */
8edc9f31 892/*
97a5e85f 893 if ($mailbox == 'INBOX') {
894 $mbx->is_special = true;
895 } elseif (stristr($trash_folder , $mailbox)) {
896 $mbx->is_special = true;
897 } elseif (stristr($sent_folder , $mailbox)) {
898 $mbx->is_special = true;
899 } elseif (stristr($draft_folder , $mailbox)) {
900 $mbx->is_special = true;
901 }
cc82c2b7 902
ff245fbd 903 switch ($mailbox) {
904 case 'INBOX':
905 $mbx->is_inbox = true;
906 $mbx->is_special = true;
8edc9f31 907 $mbx_ary[$i]['noselect'] = false;
ff245fbd 908 break;
909 case $trash_folder:
910 $mbx->is_trash = true;
911 $mbx->is_special = true;
912 break;
913 case $sent_folder:
914 $mbx->is_sent = true;
915 $mbx->is_special = true;
916 break;
917 case $draft_folder:
918 $mbx->is_draft = true;
919 $mbx->is_special = true;
920 break;
921 }
8edc9f31 922*/
923 $mbx->is_special |= ($mbx->is_inbox = (strtoupper($mailbox) == 'INBOX'));
924 $mbx->is_special |= ($mbx->is_trash = isTrashMailbox($mailbox));
925 $mbx->is_special |= ($mbx->is_sent = isSentMailbox($mailbox));
926 $mbx->is_special |= ($mbx->is_draft = isDraftMailbox($mailbox));
927 if (!$mbx->is_special)
fda01075 928 $mbx->is_special = boolean_hook_function('special_mailbox', $mailbox, 1);
4669e892 929
ff245fbd 930 if (isset($mbx_ary[$i]['unseen'])) {
931 $mbx->unseen = $mbx_ary[$i]['unseen'];
932 }
933 if (isset($mbx_ary[$i]['nummessages'])) {
934 $mbx->total = $mbx_ary[$i]['nummessages'];
935 }
936
937 $mbx->is_noselect = $mbx_ary[$i]['noselect'];
86c2763d 938 $mbx->is_noinferiors = $mbx_ary[$i]['noinferiors'];
ff245fbd 939
60b5724d 940 $r_del_pos = strrpos($mbx_ary[$i]['mbx'], $delimiter);
ff245fbd 941 if ($r_del_pos) {
587ec647 942 $mbx->mailboxname_sub = substr($mbx_ary[$i]['mbx'],$r_del_pos+1);
ff245fbd 943 } else { /* mailbox is root folder */
587ec647 944 $mbx->mailboxname_sub = $mbx_ary[$i]['mbx'];
ff245fbd 945 }
946 $mbx->mailboxname_full = $mbx_ary[$i]['mbx'];
38068e69 947
9871bdaa 948 $mailboxes->addMbx($mbx, $delimiter, $start, $list_special_folders_first);
ff245fbd 949 }
60b5724d 950 }
587ec647 951 sqimap_utf7_decode_mbx_tree($mailboxes);
483f9ef9 952 sqimap_get_status_mbx_tree($imap_stream,$mailboxes);
60b5724d 953 return $mailboxes;
954}
259faa39 955
587ec647 956function sqimap_utf7_decode_mbx_tree(&$mbx_tree) {
bd27b70b 957 if (strtoupper($mbx_tree->mailboxname_full) == 'INBOX')
d94c8d61 958 $mbx_tree->mailboxname_sub = _("INBOX");
959 else
960 $mbx_tree->mailboxname_sub = imap_utf7_decode_local($mbx_tree->mailboxname_sub);
587ec647 961 if ($mbx_tree->mbxs) {
962 $iCnt = count($mbx_tree->mbxs);
963 for ($i=0;$i<$iCnt;++$i) {
d94c8d61 964 $mbxs_tree->mbxs[$i] = sqimap_utf7_decode_mbx_tree($mbx_tree->mbxs[$i]);
587ec647 965 }
966 }
483f9ef9 967}
968
969
970function sqimap_tree_to_ref_array(&$mbx_tree,&$aMbxs) {
5c300c60 971 if ($mbx_tree)
483f9ef9 972 $aMbxs[] =& $mbx_tree;
973 if ($mbx_tree->mbxs) {
974 $iCnt = count($mbx_tree->mbxs);
975 for ($i=0;$i<$iCnt;++$i) {
5c300c60 976 sqimap_tree_to_ref_array($mbx_tree->mbxs[$i],$aMbxs);
483f9ef9 977 }
978 }
4669e892 979}
483f9ef9 980
483f9ef9 981function sqimap_get_status_mbx_tree($imap_stream,&$mbx_tree) {
982 global $unseen_notify, $unseen_type, $trash_folder,$move_to_trash;
8d8da447 983 $aMbxs = $aQuery = array();
483f9ef9 984 sqimap_tree_to_ref_array($mbx_tree,$aMbxs);
985 // remove the root node
986 array_shift($aMbxs);
987
988 if($unseen_notify == 3) {
989 $cnt = count($aMbxs);
990 for($i=0;$i<$cnt;++$i) {
5c300c60 991 $oMbx =& $aMbxs[$i];
992 if (!$oMbx->is_noselect) {
483f9ef9 993 $mbx = $oMbx->mailboxname_full;
5c300c60 994 if ($unseen_type == 2 ||
995 ($move_to_trash && $oMbx->mailboxname_full == $trash_folder)) {
568cb884 996 $query = 'STATUS ' . sqimap_encode_mailbox_name($mbx) . ' (MESSAGES UNSEEN)';
5c300c60 997 } else {
568cb884 998 $query = 'STATUS ' . sqimap_encode_mailbox_name($mbx) . ' (UNSEEN)';
5c300c60 999 }
483f9ef9 1000 sqimap_prepare_pipelined_query($query,$tag,$aQuery,false);
5c300c60 1001 } else {
1002 $oMbx->unseen = $oMbx->total = false;
1003 $tag = false;
1004 }
1005 $oMbx->tag = $tag;
1006 $aMbxs[$i] =& $oMbx;
483f9ef9 1007 }
1008 // execute all the queries at once
1009 $aResponse = sqimap_run_pipelined_command ($imap_stream, $aQuery, false, $aServerResponse, $aServerMessage);
1010 $cnt = count($aMbxs);
1011 for($i=0;$i<$cnt;++$i) {
5c300c60 1012 $oMbx =& $aMbxs[$i];
1013 $tag = $oMbx->tag;
1014 if ($tag && $aServerResponse[$tag] == 'OK') {
1015 $sResponse = implode('', $aResponse[$tag]);
483f9ef9 1016 if (preg_match('/UNSEEN\s+([0-9]+)/i', $sResponse, $regs)) {
1017 $oMbx->unseen = $regs[1];
1018 }
1019 if (preg_match('/MESSAGES\s+([0-9]+)/i', $sResponse, $regs)) {
1020 $oMbx->total = $regs[1];
5c300c60 1021 }
1022 }
1023 unset($oMbx->tag);
1024 }
483f9ef9 1025 } else if ($unseen_notify == 2) { // INBOX only
1026 $cnt = count($aMbxs);
1027 for($i=0;$i<$cnt;++$i) {
5c300c60 1028 $oMbx =& $aMbxs[$i];
1029 if (strtoupper($oMbx->mailboxname_full) == 'INBOX' ||
1030 ($move_to_trash && $oMbx->mailboxname_full == $trash_folder)) {
4669e892 1031 if ($unseen_type == 2 ||
5c300c60 1032 ($oMbx->mailboxname_full == $trash_folder && $move_to_trash)) {
1033 $aStatus = sqimap_status_messages($imap_stream,$oMbx->mailboxname_full);
1034 $oMbx->unseen = $aStatus['UNSEEN'];
1035 $oMbx->total = $aStatus['MESSAGES'];
1036 } else {
1037 $oMbx->unseen = sqimap_unseen_messages($imap_stream,$oMbx->mailboxname_full);
1038 }
1039 $aMbxs[$i] =& $oMbx;
1040 if (!$move_to_trash && $trash_folder) {
1041 break;
1042 } else {
1043 // trash comes after INBOX
1044 if ($oMbx->mailboxname_full == $trash_folder) {
1045 break;
1046 }
1047 }
1048 }
1049 }
4669e892 1050 }
1051}
587ec647 1052
3d29eb78 1053?>