restore imap_utf7 encoding
[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) {
6f369100 440 global $boxesnew, $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']);
3d1560e7 570
571 /* In case of problems with preg
572 here is a ereg version
573 if (!$used[$k] && ereg("^$default_folder_prefix(Sent|Drafts|Trash).{1}$spec_sub$", $box['unformatted']) ) { */
574
575 if (!$used[$k] && preg_match("?^$default_folder_prefix(Sent|Drafts|Trash).{1}$spec_sub$?", $box['unformatted']) ) {
7ce96393 576 $boxesnew[] = $box;
577 $used[$k] = true;
578 }
7e235a1a 579 }
580
581 }
7e235a1a 582 /* Rest of the folders */
583 foreach ( $boxesall as $k => $box ) {
584 if ( !$used[$k] ) {
585 $boxesnew[] = $box;
586 }
587 }
43b698c7 588 }
3411d4ec 589 return $boxesnew;
43b698c7 590}
591
90de1755 592/*
593 * Returns a list of all folders, subscribed or not
594 */
1da22cda 595function sqimap_mailbox_list_all($imap_stream) {
3411d4ec 596 global $list_special_folders_first, $folder_prefix, $delimiter;
90de1755 597
65c3ec94 598 require_once('../functions/array.php');
90de1755 599
43b698c7 600 $ssid = sqimap_session_id();
90de1755 601 $lsid = strlen( $ssid );
43b698c7 602 fputs ($imap_stream, $ssid . " LIST \"$folder_prefix\" *\r\n");
3411d4ec 603 $read_ary = sqimap_read_data ($imap_stream, $ssid, true, $response, $message);
43b698c7 604 $g = 0;
90de1755 605 $phase = 'inbox';
606
43b698c7 607 for ($i = 0; $i < count($read_ary); $i++) {
608 /* Another workaround for EIMS */
609 if (isset($read_ary[$i + 1]) &&
90de1755 610 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
43b698c7 611 $read_ary[$i], $regs)) {
612 $i ++;
3411d4ec 613 $read_ary[$i] = $regs[1] . '"' . addslashes(trim($read_ary[$i])) . '"' . $regs[2];
43b698c7 614 }
90de1755 615 if (substr($read_ary[$i], 0, $lsid) != $ssid ) {
616
43b698c7 617 /* Store the raw IMAP reply */
65c3ec94 618 $boxes[$g]['raw'] = $read_ary[$i];
1c52ba77 619
43b698c7 620 /* Count number of delimiters ($delimiter) in folder name */
8e9e8afa 621 $mailbox = find_mailbox_name($read_ary[$i]);
602e1431 622 $dm_count = substr_count($mailbox, $delimiter);
43b698c7 623 if (substr($mailbox, -1) == $delimiter) {
0cfd745a 624 /* If name ends in delimiter - decrement count by one */
90de1755 625 $dm_count--;
43b698c7 626 }
90de1755 627
3411d4ec 628 /* Format folder name, but only if it's a INBOX.* or has a parent. */
1da22cda 629 $boxesallbyname[$mailbox] = $g;
525b7ae6 630 $parentfolder = readMailboxParent($mailbox, $delimiter);
90de1755 631 if((eregi('^inbox'.quotemeta($delimiter), $mailbox)) ||
146e0c45 632 (ereg('^'.$folder_prefix, $mailbox)) ||
1da22cda 633 ( isset($boxesallbyname[$parentfolder]) && (strlen($parentfolder) > 0) ) ) {
43b698c7 634 if ($dm_count) {
90de1755 635 $boxes[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $dm_count);
43b698c7 636 }
637 else {
90de1755 638 $boxes[$g]['formatted'] = '';
43b698c7 639 }
447b2166 640 $boxes[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
2752bb16 641 }
43b698c7 642 else {
447b2166 643 $boxes[$g]['formatted'] = imap_utf7_decode_local($mailbox);
43b698c7 644 }
90de1755 645
1da22cda 646 $boxes[$g]['unformatted-dm'] = $mailbox;
43b698c7 647 if (substr($mailbox, -1) == $delimiter) {
648 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
649 }
90de1755 650 $boxes[$g]['unformatted'] = $mailbox;
3411d4ec 651 $boxes[$g]['unformatted-disp'] = ereg_replace('^' . $folder_prefix, '', $mailbox);
90de1755 652 $boxes[$g]['id'] = $g;
653
3411d4ec 654 /* Now lets get the flags for this mailbox */
1c72b151 655 $read_mlbx = sqimap_run_command ($imap_stream, "LIST \"\" \"$mailbox\"",
3411d4ec 656 true, $response, $message);
90de1755 657
43b698c7 658 /* Another workaround for EIMS */
659 if (isset($read_mlbx[1]) &&
3411d4ec 660 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$", $read_mlbx[0], $regs)) {
661 $read_mlbx[0] = $regs[1] . '"' . addslashes(trim($read_mlbx[1])) . '"' . $regs[2];
43b698c7 662 }
90de1755 663
664 $flags = substr($read_mlbx[0], strpos($read_mlbx[0], '(')+1);
665 $flags = substr($flags, 0, strpos($flags, ')'));
146e0c45 666 $flags = str_replace('\\', '', $flags);
8e9e8afa 667 $flags = trim(strtolower($flags));
668 if ($flags) {
1c52ba77 669 $boxes[$g]['flags'] = explode(' ', $flags);
90de1755 670 } else {
43b698c7 671 $boxes[$g]['flags'] = array();
12d61439 672 }
43b698c7 673 }
674 $g++;
675 }
676 if(is_array($boxes)) {
1c52ba77 677 $boxes = ary_sort ($boxes, 'unformatted', 1);
43b698c7 678 }
90de1755 679
43b698c7 680 return $boxes;
681}
5bdd7223 682
60b5724d 683function sqimap_mailbox_tree($imap_stream) {
684 global $boxesnew, $default_folder_prefix, $unseen_notify, $unseen_type;
685 if ( !isset( $boxesnew ) ) {
686
687 global $data_dir, $username, $list_special_folders_first,
c388554f 688 $folder_prefix, $delimiter;
60b5724d 689
690
691 $inbox_in_list = false;
692 $inbox_subscribed = false;
693
694 require_once('../src/load_prefs.php');
695 require_once('../functions/array.php');
696
697 /* LSUB array */
2c617aa5 698 $lsub_ary = sqimap_run_command ($imap_stream, "LSUB \"$folder_prefix\" \"*\"",
60b5724d 699 true, $response, $message);
700
701 /*
702 * Section about removing the last element was removed
703 * We don't return "* OK" anymore from sqimap_read_data
704 */
705 $sorted_lsub_ary = array();
706
707 for ($i=0;$i < count($lsub_ary); $i++) {
708 /*
709 * Workaround for EIMS
710 * Doesn't work if the mailbox name is multiple lines
711 */
712 if (isset($lsub_ary[$i + 1]) &&
713 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
714 $lsub_ary[$i], $regs)) {
715 $i ++;
716 $lsub_ary[$i] = $regs[1] . '"' . addslashes(trim($lsub_ary[$i])) . '"' . $regs[2];
717 }
718
c388554f 719// if (preg_match("/^\*\s+LSUB\s+\((.*)\)\s+\"(.*)\"\s+\"?(.+(?=\")|.+).*$/",$lsub_ary[$i],$regs)) {
720// $flag = $regs[1];
721// $mbx = trim($regs[3]);
722// $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => $flag);
723// }
724 $mbx = find_mailbox_name($lsub_ary[$i]);
725 if (substr($mbx, -1) == $delimiter) {
726 $mbx = substr($mbx, 0, strlen($mbx) - 1);
727 }
728 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => '');
60b5724d 729 }
730 array_multisort($sorted_lsub_ary, SORT_ASC, SORT_STRING);
731
732 foreach ($sorted_lsub_ary as $mbx) {
733 if ($mbx['mbx'] == 'INBOX') {
734 $inbox_in_list = true;
735 break;
736 }
737 }
738
739 /*
740 * Just in case they're not subscribed to their inbox,
741 * we'll get it for them anyway
742 */
743 if (!$inbox_in_list) {
744 $inbox_ary = sqimap_run_command ($imap_stream, "LIST \"\" \"INBOX\"",
745 true, $response, $message);
746 /* Another workaround for EIMS */
747 if (isset($inbox_ary[1]) &&
748 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
749 $inbox_ary[0], $regs)) {
750 $inbox_ary[0] = $regs[1] . '"' . addslashes(trim($inbox_ary[1])) .
751 '"' . $regs[2];
752 }
c388554f 753 $mbx = find_mailbox_name($inbox_ary[0]);
754 if (substr($mbx, -1) == $delimiter) {
755 $mbx = substr($mbx, 0, strlen($mbx) - 1);
756 }
757 if ( $mbx == 'INBOX') {
758 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => '');
759 sqimap_subscribe($imap_stream, 'INBOX');
760 }
761
762// if (preg_match("/^\*\s+LIST\s+\((.*)\)\s+\"(.*)\"\s+\"?(.+(?=\")|.+).*$/",$inbox_ary[0],$regs)) {
763// $flag = $regs[1];
764// $mbx = trim($regs[3]);
765// if (substr($mbx, -1) == $delimiter) {
766// $mbx = substr($mbx, 0, strlen($mbx) - 1);
767// }
768// $sorted_lsub_ary[] = array ('mbx' => $mbx, 'flag' => $flag);
769// }
60b5724d 770 }
771
772 for ($i=0 ; $i < count($sorted_lsub_ary); $i++) {
773 if (($unseen_notify == 2 && $sorted_lsub_ary[$i]['mbx'] == 'INBOX')
774 || $unseen_notify == 3
775 || ($move_to_trash && ($sorted_lsub_ary[$i]['mbx'] == $trash_folder))) {
776 $sorted_lsub_ary[$i]['unseen'] = sqimap_unseen_messages($imap_stream, $mbx['mbx']);
777 if ($unseen_type == 2 || ($move_to_trash
778 && ($sorted_lsub_ary[$i]['mbx'] == $trash_folder) )) {
779 $sorted_lsub_ary[$i]['nummessages'] = sqimap_get_num_messages($imap_stream, $mbx['mbx']);
780 }
781 if ($unseen_notify != 3 && !($move_to_trash
782 && ($sorted_lsub_ary[$i]['mbx'] == $trash_folder) )) break;
783 }
784 }
785
786 $boxesnew = sqimap_fill_mailbox_tree($sorted_lsub_ary);
787 return $boxesnew;
788 }
789}
790
791
792function sqimap_fill_mailbox_tree($mbx_ary, $mbxs=false) {
793 global $data_dir, $username, $list_special_folders_first,
794 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
795 $move_to_trash, $move_to_sent, $save_as_draft,
796 $delimiter;
797
798 $special_folders = array ('INBOX', $sent_folder, $draft_folder, $trash_folder);
799
800 /* create virtual root node */
801 $mailboxes= new mailboxes();
802 $mailboxes->is_root = true;
803 $trail_del = false;
804 if (isset($folder_prefix) && $folder_prefix != '') {
805 $start = substr_count($folder_prefix,$delimiter);
806 if (strrpos($folder_prefix, $delimiter) == (strlen($folder_prefix)-1)) {
807 $trail_del = true;
808 $mailboxes->mailboxname_full = substr($folder_prefix,0, (strlen($folder_prefix)-1));
809 } else {
810 $mailboxes->mailboxname_full = $folder_prefix;
811 $start++;
812 }
813 $mailboxes->mailboxname_sub = $mailboxes->mailboxname_full;
814 } else $start = 0;
815
816 for ($i=0; $i < count($mbx_ary); $i++) {
817 if ($mbx_ary[$i]['mbx'] !='' ) {
818 $mbx = new mailboxes();
819 $mailbox = $mbx_ary[$i]['mbx'];
820 switch ($mailbox) {
821 case 'INBOX':
822 $mbx->is_inbox = true;
823 $mbx->is_special = true;
824 break;
825 case $trash_folder:
826 $mbx->is_trash = true;
827 $mbx->is_special = true;
828 break;
829 case $sent_folder:
830 $mbx->is_sent = true;
831 $mbx->is_special = true;
832 break;
833 case $draft_folder:
834 $mbx->is_draft = true;
835 $mbx->is_special = true;
836 break;
837 }
838
839 if (isset($mbx_ary[$i]['unseen'])) {
840 $mbx->unseen = $mbx_ary[$i]['unseen'];
841 }
842 if (isset($mbx_ary[$i]['nummessages'])) {
843 $mbx->total = $mbx_ary[$i]['nummessages'];
844 }
845
846 $r_del_pos = strrpos($mbx_ary[$i]['mbx'], $delimiter);
847 if ($r_del_pos) {
848 $mbx->mailboxname_sub = substr($mbx_ary[$i]['mbx'],$r_del_pos+1);
849 } else { /* mailbox is root folder */
850 $mbx->mailboxname_sub = $mbx_ary[$i]['mbx'];
851 }
852 $mbx->mailboxname_full = $mbx_ary[$i]['mbx'];
853 $mailboxes->addMbx($mbx, $delimiter, $start, $list_special_folders_first);
854 }
855 }
856
857 return $mailboxes;
858}
859
860
648713af 861?>