Fix for 566887 (Dispalying of folders names with blanks)
[squirrelmail.git] / functions / imap_mailbox.php
CommitLineData
59177427 1<?php
bccadd02 2
35586184 3/**
4 * imap_mailbox.php
5 *
15e6162e 6 * Copyright (c) 1999-2002 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 *
11 * $Id$
12 */
447b2166 13require_once('../functions/imap_utf7_encode_local.php');
14require_once('../functions/imap_utf7_decode_local.php');
3411d4ec 15global $boxesnew;
1da22cda 16
60b5724d 17class mailboxes {
18 var $mailboxname_full = '', $mailboxname_sub= '', $is_noselect = false,
19 $is_special = false, $is_root = false, $is_inbox = false, $is_sent = false,
20 $is_trash = false, $is_draft = false, $mbxs = array(),
21 $unseen = false, $total = false;
22
23 function addMbx($mbx, $delimiter, $start, $specialfirst) {
24 $ary = explode($delimiter, $mbx->mailboxname_full);
25 $mbx_parent = &$this;
26 for ($i=$start; $i < (count($ary) -1); $i++) {
27 $mbx_childs = &$mbx_parent->mbxs;
28 $found = false;
29 foreach ($mbx_childs as $key => $parent) {
30 if ($parent->mailboxname_sub == $ary[$i]) {
31 $mbx_parent = &$mbx_parent->mbxs[$key];
32 $found = true;
33 }
34 }
35 if (!$found) {
36 $no_select_mbx = new mailboxes();
37 if (isset($mbx_parent->mailboxname_full) && $mbx_parent->mailboxname_full != '') {
38 $no_select_mbx->mailboxname_full = $mbx_parent->mailboxname_full.$delimiter.$ary[$i];
39 } else {
40 $no_select_mbx->mailboxname_full = $ary[$i];
41 }
42 $no_select_mbx->mailboxname_sub = $ary[$i];
43 $no_select_mbx->is_noselect = true;
44 $mbx_parent->mbxs[] = $no_select_mbx;
45 $i--;
46 }
47
48 }
49 $mbx_parent->mbxs[] = $mbx;
50 if ($mbx->is_special && $specialfirst) {
51 usort($mbx_parent->mbxs, 'sortSpecialMbx');
52 }
53
54 }
55}
56
57function sortSpecialMbx($a, $b) {
58 if ($a->is_inbox) {
59 $acmp = '0'. $a->mailboxname_full;
60 } else if ($a->is_special) {
61 $acmp = '1'. $a->mailboxname_full;
62 } else {
63 $acmp = '2' . $a->mailboxname_full;
64 }
65 if ($b->is_inbox) {
66 $bcmp = '0'. $b->mailboxname_full;
67 }else if ($b->is_special) {
68 $bcmp = '1' . $b->mailboxname_full;
69 } else {
70 $bcmp = '2' . $b->mailboxname_full;
71 }
72 if ($acmp == $bcmp) return 0;
73 return ($acmp>$bcmp) ? 1: -1;
74}
75
76
79e07c7e 77function find_mailbox_name ($mailbox) {
78 if (ereg(" *\"([^\r\n\"]*)\"[ \r\n]*$", $mailbox, $regs))
79 return $regs[1];
80 ereg(" *([^ \r\n\"]*)[ \r\n]*$",$mailbox,$regs);
81 return $regs[1];
82
83}
84
97b1248c 85/**
86 * If $haystack is a full mailbox name, and $needle is the mailbox
87 * separator character, returns the second last part of the full
88 * mailbox name (i.e. the mailbox's parent mailbox)
89 */
90function readMailboxParent($haystack, $needle) {
91
92 if ($needle == '') {
93 $ret = '';
94 } else {
95 $parts = explode($needle, $haystack);
96 $elem = array_pop($parts);
97 while ($elem == '' && count($parts)) {
98 $elem = array_pop($parts);
99 }
100 $ret = join($needle, $parts);
101 }
102 return( $ret );
103}
104
105
1e18bf95 106function isBoxBelow( $box2, $box1 ) {
1e18bf95 107 global $delimiter, $folder_prefix, $imap_server_type;
90de1755 108
fdc05b69 109 if ( $imap_server_type == 'uw' ) {
1e18bf95 110 $boxs = $box2;
111 $i = strpos( $box1, $delimiter, strlen( $folder_prefix ) );
3411d4ec 112 if ( $i === false ) {
1e18bf95 113 $i = strlen( $box2 );
fdc05b69 114 }
115 } else {
1e18bf95 116 $boxs = $box2 . $delimiter;
3411d4ec 117 /* Skip next second delimiter */
1e18bf95 118 $i = strpos( $box1, $delimiter );
119 $i = strpos( $box1, $delimiter, $i + 1 );
3411d4ec 120 if ( $i === false ) {
1e18bf95 121 $i = strlen( $box2 );
72b9aff9 122 } else {
fdc05b69 123 $i++;
4d6bd355 124 }
7980d569 125 }
72b9aff9 126
3411d4ec 127 return ( substr( $box1, 0, $i ) == substr( $boxs, 0, $i ) );
1e18bf95 128}
129
3411d4ec 130/* Defines special mailboxes */
1e18bf95 131function isSpecialMailbox( $box ) {
1e18bf95 132 global $trash_folder, $sent_folder, $draft_folder,
65c3ec94 133 $move_to_trash, $move_to_sent, $save_as_draft;
1e18bf95 134
90de1755 135 $ret = ( (strtolower($box) == 'inbox') ||
1e18bf95 136 ( $move_to_trash && isBoxBelow( $box, $trash_folder ) ) ||
137 ( $move_to_sent && isBoxBelow( $box, $sent_folder )) ||
ce628f00 138 ($save_as_draft && $box == $draft_folder ) );
90de1755 139
2586d588 140 if ( !$ret ) {
31524bcd 141 $ret = do_hook_function( 'special_mailbox', $box );
2586d588 142 }
143
3411d4ec 144 return $ret;
90de1755 145}
146
3411d4ec 147/* Expunges a mailbox */
148function sqimap_mailbox_expunge ($imap_stream, $mailbox, $handle_errors = true) {
149 $read = sqimap_run_command($imap_stream, 'EXPUNGE', $handle_errors,
150 $response, $message);
43b698c7 151}
152
3411d4ec 153/* Checks whether or not the specified mailbox exists */
1da22cda 154function sqimap_mailbox_exists ($imap_stream, $mailbox) {
43b698c7 155 if (! isset($mailbox)) {
156 return false;
157 }
1c72b151 158 $mbx = sqimap_run_command($imap_stream, "LIST \"\" \"$mailbox\"",
3411d4ec 159 true, $response, $message);
43b698c7 160 return isset($mbx[0]);
161}
162
3411d4ec 163/* Selects a mailbox */
43b698c7 164function sqimap_mailbox_select ($imap_stream, $mailbox,
3411d4ec 165 $hide = true, $recent = false, $extrainfo = false) {
43b698c7 166 global $auto_expunge;
f69feefe 167
43b698c7 168 if ( $mailbox == 'None' ) {
169 return;
170 }
f69feefe 171
1c72b151 172 $read = sqimap_run_command($imap_stream, "SELECT \"$mailbox\"",
3411d4ec 173 true, $response, $message);
43b698c7 174 if ($recent) {
175 for ($i=0; $i<count($read); $i++) {
bccadd02 176 if (strpos(strtolower($read[$i]), 'recent')) {
43b698c7 177 $r = explode(' ', $read[$i]);
04632dbc 178 }
43b698c7 179 }
180 return $r[1];
77b88425 181 } else {
182 if ($auto_expunge) {
3411d4ec 183 $tmp = sqimap_run_command($imap_stream, 'EXPUNGE', false, $a, $b);
77b88425 184 }
732ec15d 185 if (isset( $extrainfo ) && $extrainfo) {
f69feefe 186 $result = array();
187 for ($i=0; $i<count($read); $i++) {
188 if (preg_match("/PERMANENTFLAGS(.*)/i",$read[$i], $regs)) {
189 $regs[1]=trim(preg_replace ( array ("/\(/","/\)/","/\]/") ,'', $regs[1])) ;
190 $result['PERMANENTFLAGS'] = $regs[1];
191 }
192 else if (preg_match("/FLAGS(.*)/i",$read[$i], $regs)) {
193 $regs[1]=trim(preg_replace ( array ("/\(/","/\)/") ,'', $regs[1])) ;
1da22cda 194 $result['FLAGS'] = $regs[1];
f69feefe 195 }
196 else if (preg_match("/(.*)EXISTS/i",$read[$i], $regs)) {
197 $result['EXISTS']=trim($regs[1]);
198 }
199 else if (preg_match("/(.*)RECENT/i",$read[$i], $regs)) {
200 $result['RECENT']=trim($regs[1]);
201 }
202 else if (preg_match("/\[UNSEEN(.*)\]/i",$read[$i], $regs)) {
203 $result['UNSEEN']=trim($regs[1]);
204 }
205
206 }
207 return( $result );
208 }
43b698c7 209 }
210}
211
3411d4ec 212/* Creates a folder */
213function sqimap_mailbox_create ($imap_stream, $mailbox, $type) {
43b698c7 214 global $delimiter;
215 if (strtolower($type) == 'noselect') {
3411d4ec 216 $mailbox .= $delimiter;
43b698c7 217 }
447b2166 218 $mailbox = imap_utf7_encode_local($mailbox);
1c72b151 219 $read_ary = sqimap_run_command($imap_stream, "CREATE \"$mailbox\"",
3411d4ec 220 true, $response, $message);
43b698c7 221 sqimap_subscribe ($imap_stream, $mailbox);
222}
223
3411d4ec 224/* Subscribes to an existing folder */
225function sqimap_subscribe ($imap_stream, $mailbox) {
1a16af11 226 $read_ary = sqimap_run_command($imap_stream, "SUBSCRIBE \"$mailbox\"",
3411d4ec 227 true, $response, $message);
43b698c7 228}
229
3411d4ec 230/* Unsubscribes to an existing folder */
231function sqimap_unsubscribe ($imap_stream, $mailbox) {
43b698c7 232 global $imap_server_type;
1a16af11 233 $read_ary = sqimap_run_command($imap_stream, "UNSUBSCRIBE \"$mailbox\"",
3411d4ec 234 true, $response, $message);
43b698c7 235}
236
3411d4ec 237/* Deletes the given folder */
238function sqimap_mailbox_delete ($imap_stream, $mailbox) {
78cc4b12 239 global $data_dir, $username;
1c72b151 240 $read_ary = sqimap_run_command($imap_stream, "DELETE \"$mailbox\"",
3411d4ec 241 true, $response, $message);
43b698c7 242 sqimap_unsubscribe ($imap_stream, $mailbox);
3411d4ec 243 do_hook_function("rename_or_delete_folder", $args = array($mailbox, 'delete', ''));
78cc4b12 244 removePref($data_dir, $username, "thread_$mailbox");
43b698c7 245}
246
3411d4ec 247/* Determines if the user is subscribed to the folder or not */
1da22cda 248function sqimap_mailbox_is_subscribed($imap_stream, $folder) {
1da22cda 249 $boxesall = sqimap_mailbox_list ($imap_stream);
250 foreach ($boxesall as $ref) {
43b698c7 251 if ($ref['unformatted'] == $folder) {
3411d4ec 252 return true;
43b698c7 253 }
254 }
255 return false;
256}
257
3411d4ec 258/* Renames a mailbox */
1c52ba77 259function sqimap_mailbox_rename( $imap_stream, $old_name, $new_name ) {
3411d4ec 260 if ( $old_name != $new_name ) {
78cc4b12 261 global $delimiter, $imap_server_type, $data_dir, $username;
1c52ba77 262 if ( substr( $old_name, -1 ) == $delimiter ) {
263 $old_name = substr( $old_name, 0, strlen( $old_name ) - 1 );
264 $new_name = substr( $new_name, 0, strlen( $new_name ) - 1 );
265 $postfix = $delimiter;
1c52ba77 266 } else {
267 $postfix = '';
1c52ba77 268 }
648713af 269 $boxesall = sqimap_mailbox_list($imap_stream);
1c72b151 270 $cmd = 'RENAME "' . quoteIMAP($old_name) . '" "' . quoteIMAP($new_name) . '"';
3411d4ec 271 $data = sqimap_run_command($imap_stream, $cmd, true, $response, $message);
1c52ba77 272 sqimap_unsubscribe($imap_stream, $old_name.$postfix);
78cc4b12 273 $oldpref = getPref($data_dir, $username, "thread_".$old_name.$postfix);
274 removePref($data_dir, $username, "thread_".$old_name.$postfix);
1c52ba77 275 sqimap_subscribe($imap_stream, $new_name.$postfix);
78cc4b12 276 setPref($data_dir, $username, "thread_".$new_name.$postfix, $oldpref);
f5ab1fb9 277 do_hook_function("rename_or_delete_folder",$args = array($old_name, 'rename', $new_name));
648713af 278 $l = strlen( $old_name ) + 1;
279 $p = 'unformatted';
280 foreach ( $boxesall as $box ) {
281 if ( substr( $box[$p], 0, $l ) == $old_name . $delimiter ) {
282 $new_sub = $new_name . $delimiter . substr($box[$p], $l);
283 if ($imap_server_type == 'cyrus') {
284 $cmd = 'RENAME "' . quoteIMAP($box[$p]) . '" "' . quoteIMAP($new_sub) . '"';
3411d4ec 285 $data = sqimap_run_command($imap_stream, $cmd, true,
648713af 286 $response, $message);
1c52ba77 287 }
648713af 288 sqimap_unsubscribe($imap_stream, $box[$p]);
78cc4b12 289 $oldpref = getPref($data_dir, $username, "thread_".$box[$p]);
290 removePref($data_dir, $username, "thread_".$box[$p]);
648713af 291 sqimap_subscribe($imap_stream, $new_sub);
78cc4b12 292 setPref($data_dir, $username, "thread_".$new_sub, $oldpref);
3411d4ec 293 do_hook_function("rename_or_delete_folder",
294 $args = array($box[$p], 'rename', $new_sub));
1c52ba77 295 }
296 }
1c52ba77 297 }
1c52ba77 298}
43b698c7 299
3411d4ec 300/*
301 * Formats a mailbox into 4 parts for the $boxesall array
302 *
303 * The four parts are:
304 *
305 * raw - Raw LIST/LSUB response from the IMAP server
306 * formatted - nicely formatted folder name
307 * unformatted - unformatted, but with delimiter at end removed
308 * unformatted-dm - folder name as it appears in raw response
309 * unformatted-disp - unformatted without $folder_prefix
310 */
311function sqimap_mailbox_parse ($line, $line_lsub) {
43b698c7 312 global $folder_prefix, $delimiter;
3411d4ec 313
43b698c7 314 /* Process each folder line */
315 for ($g=0; $g < count($line); $g++) {
3411d4ec 316
43b698c7 317 /* Store the raw IMAP reply */
318 if (isset($line[$g])) {
1da22cda 319 $boxesall[$g]["raw"] = $line[$g];
43b698c7 320 }
321 else {
3411d4ec 322 $boxesall[$g]["raw"] = '';
43b698c7 323 }
3411d4ec 324
325
43b698c7 326 /* Count number of delimiters ($delimiter) in folder name */
327 $mailbox = trim($line_lsub[$g]);
602e1431 328 $dm_count = substr_count($mailbox, $delimiter);
43b698c7 329 if (substr($mailbox, -1) == $delimiter) {
3411d4ec 330 /* If name ends in delimiter, decrement count by one */
331 $dm_count--;
43b698c7 332 }
3411d4ec 333
334 /* Format folder name, but only if it's a INBOX.* or has a parent. */
1da22cda 335 $boxesallbyname[$mailbox] = $g;
43b698c7 336 $parentfolder = readMailboxParent($mailbox, $delimiter);
337 if ( (strtolower(substr($mailbox, 0, 5)) == "inbox") ||
338 (substr($mailbox, 0, strlen($folder_prefix)) == $folder_prefix) ||
1da22cda 339 ( isset($boxesallbyname[$parentfolder]) &&
43b698c7 340 (strlen($parentfolder) > 0) ) ) {
602e1431 341 $indent = $dm_count - ( substr_count($folder_prefix, $delimiter));
43b698c7 342 if ($indent > 0) {
3411d4ec 343 $boxesall[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $indent);
43b698c7 344 }
345 else {
1da22cda 346 $boxesall[$g]['formatted'] = '';
43b698c7 347 }
447b2166 348 $boxesall[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
43b698c7 349 }
350 else {
447b2166 351 $boxesall[$g]['formatted'] = imap_utf7_decode_local($mailbox);
43b698c7 352 }
90de1755 353
1da22cda 354 $boxesall[$g]['unformatted-dm'] = $mailbox;
43b698c7 355 if (substr($mailbox, -1) == $delimiter) {
8e9e8afa 356 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
43b698c7 357 }
1da22cda 358 $boxesall[$g]['unformatted'] = $mailbox;
43b698c7 359 if (substr($mailbox,0,strlen($folder_prefix))==$folder_prefix) {
631b9da3 360 $mailbox = substr($mailbox, strlen($folder_prefix));
43b698c7 361 }
1da22cda 362 $boxesall[$g]['unformatted-disp'] = $mailbox;
363 $boxesall[$g]['id'] = $g;
90de1755 364
1da22cda 365 $boxesall[$g]['flags'] = array();
43b698c7 366 if (isset($line[$g])) {
36dfb0c9 367 ereg("\(([^)]*)\)",$line[$g],$regs);
1a7e1e97 368 $flags = trim(strtolower(str_replace('\\', '',$regs[1])));
43b698c7 369 if ($flags) {
1da22cda 370 $boxesall[$g]['flags'] = explode(' ', $flags);
43b698c7 371 }
372 }
373 }
90de1755 374
1da22cda 375 return $boxesall;
43b698c7 376}
377
3411d4ec 378/*
a3439b27 379 * Sorting function used to sort mailbox names.
3411d4ec 380 * + Original patch from dave_michmerhuizen@yahoo.com
381 * + Allows case insensitivity when sorting folders
382 * + Takes care of the delimiter being sorted to the end, causing
383 * subfolders to be listed in below folders that are prefixed
384 * with their parent folders name.
385 *
386 * For example: INBOX.foo, INBOX.foobar, and INBOX.foo.bar
387 * Without special sort function: foobar between foo and foo.bar
388 * With special sort function: foobar AFTER foo and foo.bar :)
43b698c7 389 */
a3439b27 390function user_strcasecmp($a, $b) {
391 global $delimiter;
392
393 /* Calculate the length of some strings. */
394 $a_length = strlen($a);
395 $b_length = strlen($b);
396 $min_length = min($a_length, $b_length);
397 $delimiter_length = strlen($delimiter);
398
399 /* Set the initial result value. */
400 $result = 0;
401
402 /* Check the strings... */
403 for ($c = 0; $c < $min_length; ++$c) {
404 $a_del = substr($a, $c, $delimiter_length);
405 $b_del = substr($b, $c, $delimiter_length);
406
407 if (($a_del == $delimiter) && ($b_del == $delimiter)) {
408 $result = 0;
409 } else if (($a_del == $delimiter) && ($b_del != $delimiter)) {
a3439b27 410 $result = -1;
c64c33f4 411 } else if (($a_del != $delimiter) && ($b_del == $delimiter)) {
412 $result = 1;
a3439b27 413 } else {
414 $result = strcasecmp($a{$c}, $b{$c});
415 }
416
417 if ($result != 0) {
418 break;
419 }
420 }
90de1755 421
a3439b27 422 /* If one string is a prefix of the other... */
423 if ($result == 0) {
424 if ($a_length < $b_length) {
425 $result = -1;
426 } else if ($a_length > $b_length) {
427 $result = 1;
428 }
429 }
430
3411d4ec 431 return $result;
43b698c7 432}
433
434
3411d4ec 435/*
436 * Returns sorted mailbox lists in several different ways.
437 * See comment on sqimap_mailbox_parse() for info about the returned array.
438 */
1da22cda 439function sqimap_mailbox_list($imap_stream) {
4b2fe13a 440 global $default_folder_prefix;
7e235a1a 441
442 if ( !isset( $boxesnew ) ) {
443
3411d4ec 444 global $data_dir, $username, $list_special_folders_first,
7e235a1a 445 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
446 $move_to_trash, $move_to_sent, $save_as_draft,
447 $delimiter;
448
3411d4ec 449 $inbox_in_list = false;
450 $inbox_subscribed = false;
7e235a1a 451
452 require_once('../src/load_prefs.php');
453 require_once('../functions/array.php');
454
3411d4ec 455 /* LSUB array */
11f6f685 456 $lsub_ary = sqimap_run_command ($imap_stream, "LSUB \"$folder_prefix\" \"*%\"",
3411d4ec 457 true, $response, $message);
7e235a1a 458
3411d4ec 459 /*
460 * Section about removing the last element was removed
461 * We don't return "* OK" anymore from sqimap_read_data
462 */
7e235a1a 463
464 $sorted_lsub_ary = array();
465 for ($i=0;$i < count($lsub_ary); $i++) {
3411d4ec 466 /*
467 * Workaround for EIMS
468 * Doesn't work if the mailbox name is multiple lines
469 */
7e235a1a 470 if (isset($lsub_ary[$i + 1]) &&
471 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
472 $lsub_ary[$i], $regs)) {
473 $i ++;
3411d4ec 474 $lsub_ary[$i] = $regs[1] . '"' . addslashes(trim($lsub_ary[$i])) . '"' . $regs[2];
7e235a1a 475 }
476 $temp_mailbox_name = find_mailbox_name($lsub_ary[$i]);
477 $sorted_lsub_ary[] = $temp_mailbox_name;
478 if (strtoupper($temp_mailbox_name) == 'INBOX') {
3411d4ec 479 $inbox_subscribed = true;
7e235a1a 480 }
481 }
482 $new_ary = array();
483 for ($i=0; $i < count($sorted_lsub_ary); $i++) {
484 if (!in_array($sorted_lsub_ary[$i], $new_ary)) {
485 $new_ary[] = $sorted_lsub_ary[$i];
486 }
487 }
488 $sorted_lsub_ary = $new_ary;
489 if (isset($sorted_lsub_ary)) {
490 usort($sorted_lsub_ary, 'user_strcasecmp');
491 }
492
3411d4ec 493 /* LIST array */
7e235a1a 494 $sorted_list_ary = array();
495 for ($i=0; $i < count($sorted_lsub_ary); $i++) {
496 if (substr($sorted_lsub_ary[$i], -1) == $delimiter) {
497 $mbx = substr($sorted_lsub_ary[$i], 0, strlen($sorted_lsub_ary[$i])-1);
498 }
499 else {
500 $mbx = $sorted_lsub_ary[$i];
501 }
502
503 $read = sqimap_run_command ($imap_stream, "LIST \"\" \"$mbx\"",
3411d4ec 504 true, $response, $message);
7e235a1a 505 /* Another workaround for EIMS */
506 if (isset($read[1]) &&
507 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
508 $read[0], $regs)) {
3411d4ec 509 $read[0] = $regs[1] . '"' . addslashes(trim($read[1])) . '"' . $regs[2];
7e235a1a 510 }
511
512 if (isset($sorted_list_ary[$i])) {
513 $sorted_list_ary[$i] = '';
514 }
515
516 if (isset($read[0])) {
517 $sorted_list_ary[$i] = $read[0];
518 }
519 else {
520 $sorted_list_ary[$i] = '';
521 }
522
523 if (isset($sorted_list_ary[$i]) &&
524 strtoupper(find_mailbox_name($sorted_list_ary[$i])) == 'INBOX') {
3411d4ec 525 $inbox_in_list = true;
7e235a1a 526 }
527 }
528
3411d4ec 529 /*
7e235a1a 530 * Just in case they're not subscribed to their inbox,
531 * we'll get it for them anyway
532 */
3411d4ec 533 if (!$inbox_subscribed || !$inbox_in_list) {
7e235a1a 534 $inbox_ary = sqimap_run_command ($imap_stream, "LIST \"\" \"INBOX\"",
3411d4ec 535 true, $response, $message);
7e235a1a 536 /* Another workaround for EIMS */
537 if (isset($inbox_ary[1]) &&
538 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
539 $inbox_ary[0], $regs)) {
540 $inbox_ary[0] = $regs[1] . '"' . addslashes(trim($inbox_ary[1])) .
541 '"' . $regs[2];
542 }
543
544 $sorted_list_ary[] = $inbox_ary[0];
545 $sorted_lsub_ary[] = find_mailbox_name($inbox_ary[0]);
546 }
547
548 $boxesall = sqimap_mailbox_parse ($sorted_list_ary, $sorted_lsub_ary);
549
3411d4ec 550 /* Now, lets sort for special folders */
7e235a1a 551 $boxesnew = $used = array();
552
553 /* Find INBOX */
554 foreach ( $boxesall as $k => $box ) {
555 if ( strtolower($box['unformatted']) == 'inbox') {
556 $boxesnew[] = $box;
3411d4ec 557 $used[$k] = true;
7e235a1a 558 } else {
3411d4ec 559 $used[$k] = false;
7e235a1a 560 }
561 }
7e235a1a 562 /* List special folders and their subfolders, if requested. */
3411d4ec 563 if ($list_special_folders_first) {
7e235a1a 564 foreach ( $boxesall as $k => $box ) {
3411d4ec 565 if ( !$used[$k] && isSpecialMailbox( $box['unformatted'] ) ) {
7e235a1a 566 $boxesnew[] = $box;
3411d4ec 567 $used[$k] = true;
7e235a1a 568 }
6f369100 569 $spec_sub = str_replace('&nbsp;', '', $box['formatted']);
289832a2 570 $spec_sub = str_replace('*', '', $box['formatted']);
3d1560e7 571
572 /* In case of problems with preg
573 here is a ereg version
574 if (!$used[$k] && ereg("^$default_folder_prefix(Sent|Drafts|Trash).{1}$spec_sub$", $box['unformatted']) ) { */
575
576 if (!$used[$k] && preg_match("?^$default_folder_prefix(Sent|Drafts|Trash).{1}$spec_sub$?", $box['unformatted']) ) {
7ce96393 577 $boxesnew[] = $box;
578 $used[$k] = true;
579 }
7e235a1a 580 }
581
582 }
7e235a1a 583 /* Rest of the folders */
584 foreach ( $boxesall as $k => $box ) {
585 if ( !$used[$k] ) {
586 $boxesnew[] = $box;
587 }
588 }
43b698c7 589 }
3411d4ec 590 return $boxesnew;
43b698c7 591}
592
90de1755 593/*
594 * Returns a list of all folders, subscribed or not
595 */
1da22cda 596function sqimap_mailbox_list_all($imap_stream) {
3411d4ec 597 global $list_special_folders_first, $folder_prefix, $delimiter;
90de1755 598
65c3ec94 599 require_once('../functions/array.php');
90de1755 600
43b698c7 601 $ssid = sqimap_session_id();
90de1755 602 $lsid = strlen( $ssid );
43b698c7 603 fputs ($imap_stream, $ssid . " LIST \"$folder_prefix\" *\r\n");
3411d4ec 604 $read_ary = sqimap_read_data ($imap_stream, $ssid, true, $response, $message);
43b698c7 605 $g = 0;
90de1755 606 $phase = 'inbox';
607
43b698c7 608 for ($i = 0; $i < count($read_ary); $i++) {
609 /* Another workaround for EIMS */
610 if (isset($read_ary[$i + 1]) &&
90de1755 611 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
43b698c7 612 $read_ary[$i], $regs)) {
613 $i ++;
3411d4ec 614 $read_ary[$i] = $regs[1] . '"' . addslashes(trim($read_ary[$i])) . '"' . $regs[2];
43b698c7 615 }
90de1755 616 if (substr($read_ary[$i], 0, $lsid) != $ssid ) {
617
43b698c7 618 /* Store the raw IMAP reply */
65c3ec94 619 $boxes[$g]['raw'] = $read_ary[$i];
1c52ba77 620
43b698c7 621 /* Count number of delimiters ($delimiter) in folder name */
8e9e8afa 622 $mailbox = find_mailbox_name($read_ary[$i]);
602e1431 623 $dm_count = substr_count($mailbox, $delimiter);
43b698c7 624 if (substr($mailbox, -1) == $delimiter) {
0cfd745a 625 /* If name ends in delimiter - decrement count by one */
90de1755 626 $dm_count--;
43b698c7 627 }
90de1755 628
3411d4ec 629 /* Format folder name, but only if it's a INBOX.* or has a parent. */
1da22cda 630 $boxesallbyname[$mailbox] = $g;
525b7ae6 631 $parentfolder = readMailboxParent($mailbox, $delimiter);
90de1755 632 if((eregi('^inbox'.quotemeta($delimiter), $mailbox)) ||
146e0c45 633 (ereg('^'.$folder_prefix, $mailbox)) ||
1da22cda 634 ( isset($boxesallbyname[$parentfolder]) && (strlen($parentfolder) > 0) ) ) {
43b698c7 635 if ($dm_count) {
90de1755 636 $boxes[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $dm_count);
43b698c7 637 }
638 else {
90de1755 639 $boxes[$g]['formatted'] = '';
43b698c7 640 }
447b2166 641 $boxes[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
2752bb16 642 }
43b698c7 643 else {
447b2166 644 $boxes[$g]['formatted'] = imap_utf7_decode_local($mailbox);
43b698c7 645 }
90de1755 646
1da22cda 647 $boxes[$g]['unformatted-dm'] = $mailbox;
43b698c7 648 if (substr($mailbox, -1) == $delimiter) {
649 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
650 }
90de1755 651 $boxes[$g]['unformatted'] = $mailbox;
3411d4ec 652 $boxes[$g]['unformatted-disp'] = ereg_replace('^' . $folder_prefix, '', $mailbox);
90de1755 653 $boxes[$g]['id'] = $g;
654
3411d4ec 655 /* Now lets get the flags for this mailbox */
1c72b151 656 $read_mlbx = sqimap_run_command ($imap_stream, "LIST \"\" \"$mailbox\"",
3411d4ec 657 true, $response, $message);
90de1755 658
43b698c7 659 /* Another workaround for EIMS */
660 if (isset($read_mlbx[1]) &&
3411d4ec 661 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$", $read_mlbx[0], $regs)) {
662 $read_mlbx[0] = $regs[1] . '"' . addslashes(trim($read_mlbx[1])) . '"' . $regs[2];
43b698c7 663 }
90de1755 664
665 $flags = substr($read_mlbx[0], strpos($read_mlbx[0], '(')+1);
666 $flags = substr($flags, 0, strpos($flags, ')'));
146e0c45 667 $flags = str_replace('\\', '', $flags);
8e9e8afa 668 $flags = trim(strtolower($flags));
669 if ($flags) {
1c52ba77 670 $boxes[$g]['flags'] = explode(' ', $flags);
90de1755 671 } else {
43b698c7 672 $boxes[$g]['flags'] = array();
12d61439 673 }
43b698c7 674 }
675 $g++;
676 }
677 if(is_array($boxes)) {
1c52ba77 678 $boxes = ary_sort ($boxes, 'unformatted', 1);
43b698c7 679 }
90de1755 680
43b698c7 681 return $boxes;
682}
5bdd7223 683
60b5724d 684function sqimap_mailbox_tree($imap_stream) {
685 global $boxesnew, $default_folder_prefix, $unseen_notify, $unseen_type;
686 if ( !isset( $boxesnew ) ) {
687
688 global $data_dir, $username, $list_special_folders_first,
c388554f 689 $folder_prefix, $delimiter;
60b5724d 690
691
692 $inbox_in_list = false;
693 $inbox_subscribed = false;
694
695 require_once('../src/load_prefs.php');
696 require_once('../functions/array.php');
697
698 /* LSUB array */
2c617aa5 699 $lsub_ary = sqimap_run_command ($imap_stream, "LSUB \"$folder_prefix\" \"*\"",
60b5724d 700 true, $response, $message);
701
702 /*
703 * Section about removing the last element was removed
704 * We don't return "* OK" anymore from sqimap_read_data
705 */
706 $sorted_lsub_ary = array();
707
708 for ($i=0;$i < count($lsub_ary); $i++) {
709 /*
710 * Workaround for EIMS
711 * Doesn't work if the mailbox name is multiple lines
712 */
713 if (isset($lsub_ary[$i + 1]) &&
714 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
715 $lsub_ary[$i], $regs)) {
716 $i ++;
717 $lsub_ary[$i] = $regs[1] . '"' . addslashes(trim($lsub_ary[$i])) . '"' . $regs[2];
718 }
719
c388554f 720// if (preg_match("/^\*\s+LSUB\s+\((.*)\)\s+\"(.*)\"\s+\"?(.+(?=\")|.+).*$/",$lsub_ary[$i],$regs)) {
721// $flag = $regs[1];
722// $mbx = trim($regs[3]);
723// $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => $flag);
724// }
725 $mbx = find_mailbox_name($lsub_ary[$i]);
726 if (substr($mbx, -1) == $delimiter) {
727 $mbx = substr($mbx, 0, strlen($mbx) - 1);
728 }
729 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => '');
60b5724d 730 }
731 array_multisort($sorted_lsub_ary, SORT_ASC, SORT_STRING);
732
733 foreach ($sorted_lsub_ary as $mbx) {
734 if ($mbx['mbx'] == 'INBOX') {
735 $inbox_in_list = true;
736 break;
737 }
738 }
739
740 /*
741 * Just in case they're not subscribed to their inbox,
742 * we'll get it for them anyway
743 */
744 if (!$inbox_in_list) {
745 $inbox_ary = sqimap_run_command ($imap_stream, "LIST \"\" \"INBOX\"",
746 true, $response, $message);
747 /* Another workaround for EIMS */
748 if (isset($inbox_ary[1]) &&
749 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
750 $inbox_ary[0], $regs)) {
751 $inbox_ary[0] = $regs[1] . '"' . addslashes(trim($inbox_ary[1])) .
752 '"' . $regs[2];
753 }
c388554f 754 $mbx = find_mailbox_name($inbox_ary[0]);
755 if (substr($mbx, -1) == $delimiter) {
756 $mbx = substr($mbx, 0, strlen($mbx) - 1);
757 }
758 if ( $mbx == 'INBOX') {
759 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => '');
760 sqimap_subscribe($imap_stream, 'INBOX');
761 }
762
763// if (preg_match("/^\*\s+LIST\s+\((.*)\)\s+\"(.*)\"\s+\"?(.+(?=\")|.+).*$/",$inbox_ary[0],$regs)) {
764// $flag = $regs[1];
765// $mbx = trim($regs[3]);
766// if (substr($mbx, -1) == $delimiter) {
767// $mbx = substr($mbx, 0, strlen($mbx) - 1);
768// }
769// $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => $flag);
770// }
60b5724d 771 }
772
773 for ($i=0 ; $i < count($sorted_lsub_ary); $i++) {
774 if (($unseen_notify == 2 && $sorted_lsub_ary[$i]['mbx'] == 'INBOX')
775 || $unseen_notify == 3
776 || ($move_to_trash && ($sorted_lsub_ary[$i]['mbx'] == $trash_folder))) {
777 $sorted_lsub_ary[$i]['unseen'] = sqimap_unseen_messages($imap_stream, $mbx['mbx']);
778 if ($unseen_type == 2 || ($move_to_trash
779 && ($sorted_lsub_ary[$i]['mbx'] == $trash_folder) )) {
780 $sorted_lsub_ary[$i]['nummessages'] = sqimap_get_num_messages($imap_stream, $mbx['mbx']);
781 }
782 if ($unseen_notify != 3 && !($move_to_trash
783 && ($sorted_lsub_ary[$i]['mbx'] == $trash_folder) )) break;
784 }
785 }
786
787 $boxesnew = sqimap_fill_mailbox_tree($sorted_lsub_ary);
788 return $boxesnew;
789 }
790}
791
792
793function sqimap_fill_mailbox_tree($mbx_ary, $mbxs=false) {
794 global $data_dir, $username, $list_special_folders_first,
795 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
796 $move_to_trash, $move_to_sent, $save_as_draft,
797 $delimiter;
798
799 $special_folders = array ('INBOX', $sent_folder, $draft_folder, $trash_folder);
800
801 /* create virtual root node */
802 $mailboxes= new mailboxes();
803 $mailboxes->is_root = true;
804 $trail_del = false;
805 if (isset($folder_prefix) && $folder_prefix != '') {
806 $start = substr_count($folder_prefix,$delimiter);
807 if (strrpos($folder_prefix, $delimiter) == (strlen($folder_prefix)-1)) {
808 $trail_del = true;
809 $mailboxes->mailboxname_full = substr($folder_prefix,0, (strlen($folder_prefix)-1));
810 } else {
811 $mailboxes->mailboxname_full = $folder_prefix;
812 $start++;
813 }
814 $mailboxes->mailboxname_sub = $mailboxes->mailboxname_full;
815 } else $start = 0;
816
817 for ($i=0; $i < count($mbx_ary); $i++) {
818 if ($mbx_ary[$i]['mbx'] !='' ) {
819 $mbx = new mailboxes();
820 $mailbox = $mbx_ary[$i]['mbx'];
821 switch ($mailbox) {
822 case 'INBOX':
823 $mbx->is_inbox = true;
824 $mbx->is_special = true;
825 break;
826 case $trash_folder:
827 $mbx->is_trash = true;
828 $mbx->is_special = true;
829 break;
830 case $sent_folder:
831 $mbx->is_sent = true;
832 $mbx->is_special = true;
833 break;
834 case $draft_folder:
835 $mbx->is_draft = true;
836 $mbx->is_special = true;
837 break;
838 }
839
840 if (isset($mbx_ary[$i]['unseen'])) {
841 $mbx->unseen = $mbx_ary[$i]['unseen'];
842 }
843 if (isset($mbx_ary[$i]['nummessages'])) {
844 $mbx->total = $mbx_ary[$i]['nummessages'];
845 }
846
847 $r_del_pos = strrpos($mbx_ary[$i]['mbx'], $delimiter);
848 if ($r_del_pos) {
849 $mbx->mailboxname_sub = substr($mbx_ary[$i]['mbx'],$r_del_pos+1);
850 } else { /* mailbox is root folder */
851 $mbx->mailboxname_sub = $mbx_ary[$i]['mbx'];
852 }
853 $mbx->mailboxname_full = $mbx_ary[$i]['mbx'];
854 $mailboxes->addMbx($mbx, $delimiter, $start, $list_special_folders_first);
855 }
856 }
857
858 return $mailboxes;
859}
860
861
648713af 862?>