projects / squirrelmail.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
return the result in case of pipelined responses
[squirrelmail.git] / functions / imap_mailbox.php
CommitLineData
59177427 1<?php
bccadd02 2
35586184 3/**
4 * imap_mailbox.php
5 *
76911253 6 * Copyright (c) 1999-2003 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 */
334a77f8 13require_once(SM_PATH . 'functions/imap_utf7_local.php');
14
3411d4ec 15global $boxesnew;
1da22cda 16
60b5724d 17class mailboxes {
ff245fbd 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);
ae7df16e 25 $mbx_parent =& $this;
ff245fbd 26 for ($i = $start, $c = count($ary)-1; $i < $c; $i++) {
ae7df16e 27 $mbx_childs =& $mbx_parent->mbxs;
ff245fbd 28 $found = false;
29 if ($mbx_childs) {
30 foreach ($mbx_childs as $key => $parent) {
31 if ($parent->mailboxname_sub == $ary[$i]) {
ae7df16e 32 $mbx_parent =& $mbx_parent->mbxs[$key];
ff245fbd 33 $found = true;
ae7df16e 34 break;
ff245fbd 35 }
36 }
37 }
38 if (!$found) {
39 $no_select_mbx = new mailboxes();
40 if (isset($mbx_parent->mailboxname_full) && $mbx_parent->mailboxname_full != '') {
41 $no_select_mbx->mailboxname_full = $mbx_parent->mailboxname_full.$delimiter.$ary[$i];
42 } else {
43 $no_select_mbx->mailboxname_full = $ary[$i];
44 }
587ec647 45 $no_select_mbx->mailboxname_sub = $ary[$i];
ff245fbd 46 $no_select_mbx->is_noselect = true;
47 $mbx_parent->mbxs[] = $no_select_mbx;
48 $i--;
49 }
50 }
51 $mbx_parent->mbxs[] = $mbx;
52 if ($mbx->is_special && $specialfirst) {
53 usort($mbx_parent->mbxs, 'sortSpecialMbx');
54 }
55 }
60b5724d 56}
57
58function sortSpecialMbx($a, $b) {
59 if ($a->is_inbox) {
ff245fbd 60 $acmp = '0'. $a->mailboxname_full;
60b5724d 61 } else if ($a->is_special) {
ff245fbd 62 $acmp = '1'. $a->mailboxname_full;
60b5724d 63 } else {
ff245fbd 64 $acmp = '2' . $a->mailboxname_full;
65 }
60b5724d 66 if ($b->is_inbox) {
ff245fbd 67 $bcmp = '0'. $b->mailboxname_full;
60b5724d 68 }else if ($b->is_special) {
ff245fbd 69 $bcmp = '1' . $b->mailboxname_full;
60b5724d 70 } else {
ff245fbd 71 $bcmp = '2' . $b->mailboxname_full;
60b5724d 72 }
73 if ($acmp == $bcmp) return 0;
ff245fbd 74 return ($acmp > $bcmp) ? 1: -1;
75}
60b5724d 76
79e07c7e 77function find_mailbox_name ($mailbox) {
d42310bd 78 if (preg_match('/\*.+\"([^\r\n\"]*)\"[\s\r\n]*$/', $mailbox, $regs))
79 return $regs[1];
79e07c7e 80 if (ereg(" *\"([^\r\n\"]*)\"[ \r\n]*$", $mailbox, $regs))
81 return $regs[1];
82 ereg(" *([^ \r\n\"]*)[ \r\n]*$",$mailbox,$regs);
83 return $regs[1];
f73348a3 84}
85
86function check_is_noselect ($lsub_line) {
a2e66c6d 87 return preg_match("/^\* (LSUB|LIST) \([^\)]*\\Noselect[^\)]*\)/i", $lsub_line);
79e07c7e 88}
89
97b1248c 90/**
91 * If $haystack is a full mailbox name, and $needle is the mailbox
92 * separator character, returns the second last part of the full
93 * mailbox name (i.e. the mailbox's parent mailbox)
94 */
95function readMailboxParent($haystack, $needle) {
97b1248c 96 if ($needle == '') {
97 $ret = '';
98 } else {
99 $parts = explode($needle, $haystack);
100 $elem = array_pop($parts);
101 while ($elem == '' && count($parts)) {
102 $elem = array_pop($parts);
103 }
104 $ret = join($needle, $parts);
105 }
106 return( $ret );
107}
108
6a8e7cae 109/**
110 * Check if $subbox is below the specified $parentbox
111 */
112function isBoxBelow( $subbox, $parentbox ) {
cef054e4 113 global $delimiter;
6a8e7cae 114 /*
115 * Eliminate the obvious mismatch, where the
116 * subfolder path is shorter than that of the potential parent
117 */
118 if ( strlen($subbox) < strlen($parentbox) ) {
119 return false;
120 }
cef054e4 121 /* check for delimiter */
122 if (!substr($parentbox,-1) == $delimiter) {
123 $parentbox.=$delimiter;
124 }
125 if (substr($subbox,0,strlen($parentbox)) == $parentbox) {
126 return true;
127 } else {
128 return false;
129 }
1e18bf95 130}
131
3411d4ec 132/* Defines special mailboxes */
1e18bf95 133function isSpecialMailbox( $box ) {
1e18bf95 134 global $trash_folder, $sent_folder, $draft_folder,
65c3ec94 135 $move_to_trash, $move_to_sent, $save_as_draft;
1e18bf95 136
90de1755 137 $ret = ( (strtolower($box) == 'inbox') ||
6a8e7cae 138 isTrashMailbox($box) || isSentMailbox($box) || isDraftMailbox($box) );
90de1755 139
2586d588 140 if ( !$ret ) {
31524bcd 141 $ret = do_hook_function( 'special_mailbox', $box );
2586d588 142 }
3411d4ec 143 return $ret;
90de1755 144}
145
6a8e7cae 146function isTrashMailbox ($box) {
147 global $trash_folder, $move_to_trash;
148 return $move_to_trash && $trash_folder &&
149 ( $box == $trash_folder || isBoxBelow($box, $trash_folder) );
150}
151
152function isSentMailbox($box) {
153 global $sent_folder, $move_to_sent;
154 return $move_to_sent && $sent_folder &&
155 ( $box == $sent_folder || isBoxBelow($box, $sent_folder) );
156}
157
158function isDraftMailbox($box) {
159 global $draft_folder, $save_as_draft;
160 return $save_as_draft &&
161 ( $box == $draft_folder || isBoxBelow($box, $draft_folder) );
162}
163
3411d4ec 164/* Expunges a mailbox */
8f6505f6 165function sqimap_mailbox_expunge ($imap_stream, $mailbox, $handle_errors = true, $id='') {
63240b90 166 global $uid_support;
06b5c3ff 167 if ($id) {
ff245fbd 168 if (is_array($id)) {
169 $id = sqimap_message_list_squisher($id);
170 }
171 $id = ' '.$id;
172 $uid = $uid_support;
06b5c3ff 173 } else {
ff245fbd 174 $uid = false;
8f6505f6 175 }
06b5c3ff 176 $read = sqimap_run_command($imap_stream, 'EXPUNGE'.$id, $handle_errors,
177 $response, $message, $uid);
63240b90 178 $cnt = 0;
ff245fbd 179
180 if (is_array($read)) {
63240b90 181 foreach ($read as $r) {
ff245fbd 182 if (preg_match('/^\*\s[0-9]+\sEXPUNGE/AUi',$r,$regs)) {
183 $cnt++;
184 }
63240b90 185 }
8f6505f6 186 }
ff245fbd 187 return $cnt;
43b698c7 188}
189
3411d4ec 190/* Checks whether or not the specified mailbox exists */
1da22cda 191function sqimap_mailbox_exists ($imap_stream, $mailbox) {
247f700e 192 if (!isset($mailbox) || empty($mailbox)) {
43b698c7 193 return false;
194 }
1c72b151 195 $mbx = sqimap_run_command($imap_stream, "LIST \"\" \"$mailbox\"",
3411d4ec 196 true, $response, $message);
43b698c7 197 return isset($mbx[0]);
198}
199
3411d4ec 200/* Selects a mailbox */
e4c6fe41 201function sqimap_mailbox_select ($imap_stream, $mailbox) {
43b698c7 202 global $auto_expunge;
f69feefe 203
ff245fbd 204 if ($mailbox == 'None') {
43b698c7 205 return;
206 }
f69feefe 207
1c72b151 208 $read = sqimap_run_command($imap_stream, "SELECT \"$mailbox\"",
3411d4ec 209 true, $response, $message);
e4c6fe41 210 $result = array();
ff245fbd 211 for ($i = 0, $cnt = count($read); $i < $cnt; $i++) {
e4c6fe41 212 if (preg_match('/^\*\s+OK\s\[(\w+)\s(\w+)\]/',$read[$i], $regs)) {
ff245fbd 213 $result[strtoupper($regs[1])] = $regs[2];
214 } else if (preg_match('/^\*\s([0-9]+)\s(\w+)/',$read[$i], $regs)) {
215 $result[strtoupper($regs[2])] = $regs[1];
216 } else {
217 if (preg_match("/PERMANENTFLAGS(.*)/i",$read[$i], $regs)) {
218 $regs[1]=trim(preg_replace ( array ("/\(/","/\)/","/\]/") ,'', $regs[1])) ;
219 $result['PERMANENTFLAGS'] = $regs[1];
220 } else if (preg_match("/FLAGS(.*)/i",$read[$i], $regs)) {
221 $regs[1]=trim(preg_replace ( array ("/\(/","/\)/") ,'', $regs[1])) ;
222 $result['FLAGS'] = $regs[1];
223 }
224 }
e4c6fe41 225 }
226 if (preg_match('/^\[(.+)\]/',$message, $regs)) {
ff245fbd 227 $result['RIGHTS']=$regs[1];
e4c6fe41 228 }
f69feefe 229
e4c6fe41 230 if ($auto_expunge) {
ff245fbd 231 $tmp = sqimap_run_command($imap_stream, 'EXPUNGE', false, $a, $b);
43b698c7 232 }
e4c6fe41 233 return $result;
43b698c7 234}
235
3411d4ec 236/* Creates a folder */
237function sqimap_mailbox_create ($imap_stream, $mailbox, $type) {
43b698c7 238 global $delimiter;
239 if (strtolower($type) == 'noselect') {
3411d4ec 240 $mailbox .= $delimiter;
43b698c7 241 }
e429f014 242
1c72b151 243 $read_ary = sqimap_run_command($imap_stream, "CREATE \"$mailbox\"",
3411d4ec 244 true, $response, $message);
43b698c7 245 sqimap_subscribe ($imap_stream, $mailbox);
246}
247
3411d4ec 248/* Subscribes to an existing folder */
249function sqimap_subscribe ($imap_stream, $mailbox) {
1a16af11 250 $read_ary = sqimap_run_command($imap_stream, "SUBSCRIBE \"$mailbox\"",
3411d4ec 251 true, $response, $message);
43b698c7 252}
253
3411d4ec 254/* Unsubscribes to an existing folder */
255function sqimap_unsubscribe ($imap_stream, $mailbox) {
1a16af11 256 $read_ary = sqimap_run_command($imap_stream, "UNSUBSCRIBE \"$mailbox\"",
3411d4ec 257 true, $response, $message);
43b698c7 258}
259
3411d4ec 260/* Deletes the given folder */
261function sqimap_mailbox_delete ($imap_stream, $mailbox) {
78cc4b12 262 global $data_dir, $username;
1c72b151 263 $read_ary = sqimap_run_command($imap_stream, "DELETE \"$mailbox\"",
3411d4ec 264 true, $response, $message);
43b698c7 265 sqimap_unsubscribe ($imap_stream, $mailbox);
e429f014 266 do_hook_function('rename_or_delete_folder', $args = array($mailbox, 'delete', ''));
78cc4b12 267 removePref($data_dir, $username, "thread_$mailbox");
43b698c7 268}
269
3411d4ec 270/* Determines if the user is subscribed to the folder or not */
1da22cda 271function sqimap_mailbox_is_subscribed($imap_stream, $folder) {
1da22cda 272 $boxesall = sqimap_mailbox_list ($imap_stream);
273 foreach ($boxesall as $ref) {
43b698c7 274 if ($ref['unformatted'] == $folder) {
3411d4ec 275 return true;
43b698c7 276 }
277 }
278 return false;
279}
280
3411d4ec 281/* Renames a mailbox */
1c52ba77 282function sqimap_mailbox_rename( $imap_stream, $old_name, $new_name ) {
3411d4ec 283 if ( $old_name != $new_name ) {
78cc4b12 284 global $delimiter, $imap_server_type, $data_dir, $username;
1c52ba77 285 if ( substr( $old_name, -1 ) == $delimiter ) {
286 $old_name = substr( $old_name, 0, strlen( $old_name ) - 1 );
287 $new_name = substr( $new_name, 0, strlen( $new_name ) - 1 );
288 $postfix = $delimiter;
1c52ba77 289 } else {
290 $postfix = '';
1c52ba77 291 }
68f2ce7a 292
648713af 293 $boxesall = sqimap_mailbox_list($imap_stream);
68f2ce7a 294 $cmd = 'RENAME "' . $old_name . '" "' . $new_name . '"';
3411d4ec 295 $data = sqimap_run_command($imap_stream, $cmd, true, $response, $message);
1c52ba77 296 sqimap_unsubscribe($imap_stream, $old_name.$postfix);
68f2ce7a 297 $oldpref = getPref($data_dir, $username, 'thread_'.$old_name.$postfix);
298 removePref($data_dir, $username, 'thread_'.$old_name.$postfix);
1c52ba77 299 sqimap_subscribe($imap_stream, $new_name.$postfix);
68f2ce7a 300 setPref($data_dir, $username, 'thread_'.$new_name.$postfix, $oldpref);
e429f014 301 do_hook_function('rename_or_delete_folder',$args = array($old_name, 'rename', $new_name));
648713af 302 $l = strlen( $old_name ) + 1;
303 $p = 'unformatted';
68f2ce7a 304
ff245fbd 305 foreach ($boxesall as $box) {
306 if (substr($box[$p], 0, $l) == $old_name . $delimiter) {
648713af 307 $new_sub = $new_name . $delimiter . substr($box[$p], $l);
308 if ($imap_server_type == 'cyrus') {
68f2ce7a 309 $cmd = 'RENAME "' . $box[$p] . '" "' . $new_sub . '"';
3411d4ec 310 $data = sqimap_run_command($imap_stream, $cmd, true,
648713af 311 $response, $message);
1c52ba77 312 }
648713af 313 sqimap_unsubscribe($imap_stream, $box[$p]);
68f2ce7a 314 $oldpref = getPref($data_dir, $username, 'thread_'.$box[$p]);
315 removePref($data_dir, $username, 'thread_'.$box[$p]);
648713af 316 sqimap_subscribe($imap_stream, $new_sub);
68f2ce7a 317 setPref($data_dir, $username, 'thread_'.$new_sub, $oldpref);
318 do_hook_function('rename_or_delete_folder',
3411d4ec 319 $args = array($box[$p], 'rename', $new_sub));
1c52ba77 320 }
321 }
1c52ba77 322 }
1c52ba77 323}
43b698c7 324
3411d4ec 325/*
326 * Formats a mailbox into 4 parts for the $boxesall array
327 *
328 * The four parts are:
329 *
330 * raw - Raw LIST/LSUB response from the IMAP server
331 * formatted - nicely formatted folder name
332 * unformatted - unformatted, but with delimiter at end removed
333 * unformatted-dm - folder name as it appears in raw response
334 * unformatted-disp - unformatted without $folder_prefix
335 */
336function sqimap_mailbox_parse ($line, $line_lsub) {
43b698c7 337 global $folder_prefix, $delimiter;
3411d4ec 338
43b698c7 339 /* Process each folder line */
cef054e4 340 for ($g = 0, $cnt = count($line); $g < $cnt; ++$g) {
43b698c7 341 /* Store the raw IMAP reply */
342 if (isset($line[$g])) {
e429f014 343 $boxesall[$g]['raw'] = $line[$g];
ff245fbd 344 } else {
e429f014 345 $boxesall[$g]['raw'] = '';
43b698c7 346 }
3411d4ec 347
43b698c7 348 /* Count number of delimiters ($delimiter) in folder name */
ff245fbd 349 $mailbox = trim($line_lsub[$g]);
350 $dm_count = substr_count($mailbox, $delimiter);
43b698c7 351 if (substr($mailbox, -1) == $delimiter) {
3411d4ec 352 /* If name ends in delimiter, decrement count by one */
353 $dm_count--;
43b698c7 354 }
3411d4ec 355
356 /* Format folder name, but only if it's a INBOX.* or has a parent. */
1da22cda 357 $boxesallbyname[$mailbox] = $g;
43b698c7 358 $parentfolder = readMailboxParent($mailbox, $delimiter);
359 if ( (strtolower(substr($mailbox, 0, 5)) == "inbox") ||
360 (substr($mailbox, 0, strlen($folder_prefix)) == $folder_prefix) ||
ff245fbd 361 (isset($boxesallbyname[$parentfolder]) &&
362 (strlen($parentfolder) > 0) ) ) {
363 $indent = $dm_count - (substr_count($folder_prefix, $delimiter));
43b698c7 364 if ($indent > 0) {
ff245fbd 365 $boxesall[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $indent);
366 } else {
1da22cda 367 $boxesall[$g]['formatted'] = '';
43b698c7 368 }
447b2166 369 $boxesall[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
ff245fbd 370 } else {
447b2166 371 $boxesall[$g]['formatted'] = imap_utf7_decode_local($mailbox);
43b698c7 372 }
90de1755 373
1da22cda 374 $boxesall[$g]['unformatted-dm'] = $mailbox;
43b698c7 375 if (substr($mailbox, -1) == $delimiter) {
8e9e8afa 376 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
43b698c7 377 }
1da22cda 378 $boxesall[$g]['unformatted'] = $mailbox;
43b698c7 379 if (substr($mailbox,0,strlen($folder_prefix))==$folder_prefix) {
631b9da3 380 $mailbox = substr($mailbox, strlen($folder_prefix));
43b698c7 381 }
1da22cda 382 $boxesall[$g]['unformatted-disp'] = $mailbox;
383 $boxesall[$g]['id'] = $g;
90de1755 384
1da22cda 385 $boxesall[$g]['flags'] = array();
43b698c7 386 if (isset($line[$g])) {
36dfb0c9 387 ereg("\(([^)]*)\)",$line[$g],$regs);
d0928dd5 388 // FIXME Flags do contain the \ character. \NoSelect \NoInferiors
389 // and $MDNSent <= last one doesn't have the \
390 // It's better to follow RFC3501 instead of using our own naming.
1a7e1e97 391 $flags = trim(strtolower(str_replace('\\', '',$regs[1])));
43b698c7 392 if ($flags) {
1da22cda 393 $boxesall[$g]['flags'] = explode(' ', $flags);
43b698c7 394 }
395 }
396 }
1da22cda 397 return $boxesall;
43b698c7 398}
399
3411d4ec 400/*
a3439b27 401 * Sorting function used to sort mailbox names.
3411d4ec 402 * + Original patch from dave_michmerhuizen@yahoo.com
403 * + Allows case insensitivity when sorting folders
404 * + Takes care of the delimiter being sorted to the end, causing
405 * subfolders to be listed in below folders that are prefixed
406 * with their parent folders name.
407 *
408 * For example: INBOX.foo, INBOX.foobar, and INBOX.foo.bar
409 * Without special sort function: foobar between foo and foo.bar
410 * With special sort function: foobar AFTER foo and foo.bar :)
43b698c7 411 */
a3439b27 412function user_strcasecmp($a, $b) {
d42310bd 413 return strnatcasecmp($a, $b);
43b698c7 414}
415
be2d5495 416/*
417 * Returns list of options (to be echoed into select statement
418 * based on available mailboxes and separators
419 * Caller should surround options with <SELECT..> </SELECT> and
420 * any formatting.
421 * $imap_stream - $imapConnection to query for mailboxes
422 * $show_selected - array containing list of mailboxes to pre-select (0 if none)
423 * $folder_skip - array of folders to keep out of option list (compared in lower)
424 * $boxes - list of already fetched boxes (for places like folder panel, where
425 * you know these options will be shown 3 times in a row.. (most often unset).
59a8e3e8 426 * $flag - flag to check for in mailbox flags, used to filter out mailboxes.
427 * 'noselect' by default to remove unselectable mailboxes.
428 * 'noinferiors' used to filter out folders that can not contain subfolders.
429 * NULL to avoid flag check entirely.
d0928dd5 430 * NOTE: noselect and noiferiors are used internally. The IMAP representation is
431 * \NoSelect and \NoInferiors
59a8e3e8 432 * $use_long_format - override folder display preference and always show full folder name.
be2d5495 433 */
59a8e3e8 434function sqimap_mailbox_option_list($imap_stream, $show_selected = 0, $folder_skip = 0, $boxes = 0,
435 $flag = 'noselect', $use_long_format = false ) {
be2d5495 436 global $username, $data_dir;
437 $mbox_options = '';
45f836eb 438 if ( $use_long_format ) {
439 $shorten_box_names = 0;
440 } else {
441 $shorten_box_names = getPref($data_dir, $username, 'mailbox_select_style', SMPREF_OFF);
442 }
ff245fbd 443
444 if ($boxes == 0) {
be2d5495 445 $boxes = sqimap_mailbox_list($imap_stream);
ff245fbd 446 }
59a8e3e8 447
be2d5495 448 foreach ($boxes as $boxes_part) {
59a8e3e8 449 if ($flag == NULL || !in_array($flag, $boxes_part['flags'])) {
be2d5495 450 $box = $boxes_part['unformatted'];
be2d5495 451
d0928dd5 452 if ($folder_skip != 0 && in_array($box, $folder_skip) ) {
be2d5495 453 continue;
454 }
d0928dd5 455 $lowerbox = strtolower($box);
456 // mailboxes are casesensitive => inbox.sent != inbox.Sent
457 // nevermind, to many dependencies this should be fixed!
458
459 if (strtolower($box) == 'inbox') { // inbox is special and not casesensitive
be2d5495 460 $box2 = _("INBOX");
d0928dd5 461 } else {
462 switch ($shorten_box_names)
463 {
464 case 2: /* delimited, style = 2 */
465 $box2 = str_replace('&nbsp;&nbsp;', '.&nbsp;', $boxes_part['formatted']);
466 break;
467 case 1: /* indent, style = 1 */
468 $box2 = $boxes_part['formatted'];
469 break;
470 default: /* default, long names, style = 0 */
471 $box2 = str_replace(' ', '&nbsp;', imap_utf7_decode_local($boxes_part['unformatted-disp']));
472 break;
473 }
be2d5495 474 }
475 if ($show_selected != 0 && in_array($lowerbox, $show_selected) ) {
476 $mbox_options .= '<OPTION VALUE="'.$box.'" SELECTED>'.$box2.'</OPTION>' . "\n";
477 } else {
478 $mbox_options .= '<OPTION VALUE="'.$box.'">'.$box2.'</OPTION>' . "\n";
479 }
480 }
481 }
482 return $mbox_options;
483}
43b698c7 484
3411d4ec 485/*
486 * Returns sorted mailbox lists in several different ways.
487 * See comment on sqimap_mailbox_parse() for info about the returned array.
488 */
1da22cda 489function sqimap_mailbox_list($imap_stream) {
4b2fe13a 490 global $default_folder_prefix;
7e235a1a 491
ff245fbd 492 if (!isset($boxesnew)) {
3411d4ec 493 global $data_dir, $username, $list_special_folders_first,
7e235a1a 494 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
495 $move_to_trash, $move_to_sent, $save_as_draft,
ca85aabe 496 $delimiter, $noselect_fix_enable;
7e235a1a 497
3411d4ec 498 $inbox_in_list = false;
499 $inbox_subscribed = false;
7e235a1a 500
08185f2a 501 require_once(SM_PATH . 'include/load_prefs.php');
7e235a1a 502
ff245fbd 503 if ($noselect_fix_enable) {
504 $lsub_args = "LSUB \"$folder_prefix\" \"*%\"";
505 } else {
506 $lsub_args = "LSUB \"$folder_prefix\" \"*\"";
507 }
3411d4ec 508 /* LSUB array */
ca85aabe 509 $lsub_ary = sqimap_run_command ($imap_stream, $lsub_args,
3411d4ec 510 true, $response, $message);
7e235a1a 511
7e235a1a 512 $sorted_lsub_ary = array();
ff245fbd 513 for ($i = 0, $cnt = count($lsub_ary);$i < $cnt; $i++) {
3411d4ec 514 /*
cef054e4 515 * Workaround for mailboxes returned as literal
516 * Doesn't work if the mailbox name is multiple lines
517 * (larger then fgets buffer)
3411d4ec 518 */
cef054e4 519 if (isset($lsub_ary[$i + 1]) && substr($lsub_ary[$i],-3) == "}\r\n") {
520 if (ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
7e235a1a 521 $lsub_ary[$i], $regs)) {
cef054e4 522 $i++;
523 $lsub_ary[$i] = $regs[1] . '"' . addslashes(trim($lsub_ary[$i])) . '"' . $regs[2];
524 }
7e235a1a 525 }
526 $temp_mailbox_name = find_mailbox_name($lsub_ary[$i]);
527 $sorted_lsub_ary[] = $temp_mailbox_name;
cef054e4 528 if (!$inbox_subscribed && strtoupper($temp_mailbox_name) == 'INBOX') {
3411d4ec 529 $inbox_subscribed = true;
7e235a1a 530 }
531 }
cef054e4 532 /* remove duplicates */
533 $sorted_lsub_ary = array_unique($sorted_lsub_ary);
534
535 /* natural sort mailboxes */
7e235a1a 536 if (isset($sorted_lsub_ary)) {
537 usort($sorted_lsub_ary, 'user_strcasecmp');
538 }
cef054e4 539 /*
540 * The LSUB response doesn't provide us information about \Noselect
541 * mail boxes. The LIST response does, that's why we need to do a LIST
542 * call to retrieve the flags for the mailbox
543 * Note: according RFC2060 an imap server may provide \NoSelect flags in the LSUB response.
544 * in other words, we cannot rely on it.
545 */
546 $sorted_list_ary = array();
ff245fbd 547 for ($i=0; $i < count($sorted_lsub_ary); $i++) {
7e235a1a 548 if (substr($sorted_lsub_ary[$i], -1) == $delimiter) {
549 $mbx = substr($sorted_lsub_ary[$i], 0, strlen($sorted_lsub_ary[$i])-1);
550 }
551 else {
552 $mbx = $sorted_lsub_ary[$i];
553 }
554
555 $read = sqimap_run_command ($imap_stream, "LIST \"\" \"$mbx\"",
3411d4ec 556 true, $response, $message);
7e235a1a 557
cef054e4 558 /* Another workaround for literals */
559
560 if (isset($read[1]) && substr($read[1],-3) == "}\r\n") {
561 if (ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
562 $read[0], $regs)) {
563 $read[0] = $regs[1] . '"' . addslashes(trim($read[1])) . '"' . $regs[2];
564 }
7e235a1a 565 }
566
567 if (isset($read[0])) {
568 $sorted_list_ary[$i] = $read[0];
cef054e4 569 } else {
7e235a1a 570 $sorted_list_ary[$i] = '';
571 }
7e235a1a 572 }
cef054e4 573
3411d4ec 574 /*
7e235a1a 575 * Just in case they're not subscribed to their inbox,
576 * we'll get it for them anyway
577 */
cef054e4 578 if (!$inbox_subscribed) {
7e235a1a 579 $inbox_ary = sqimap_run_command ($imap_stream, "LIST \"\" \"INBOX\"",
3411d4ec 580 true, $response, $message);
cef054e4 581 /* Another workaround for literals */
322f4e37 582 if (isset($inbox_ary[1]) && substr($inbox_ary[0],-3) == "}\r\n") {
cef054e4 583 if (ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
7e235a1a 584 $inbox_ary[0], $regs)) {
cef054e4 585 $inbox_ary[0] = $regs[1] . '"' . addslashes(trim($inbox_ary[1])) .
ff245fbd 586 '"' . $regs[2];
cef054e4 587 }
7e235a1a 588 }
7e235a1a 589 $sorted_list_ary[] = $inbox_ary[0];
590 $sorted_lsub_ary[] = find_mailbox_name($inbox_ary[0]);
591 }
592
593 $boxesall = sqimap_mailbox_parse ($sorted_list_ary, $sorted_lsub_ary);
594
3411d4ec 595 /* Now, lets sort for special folders */
7e235a1a 596 $boxesnew = $used = array();
597
598 /* Find INBOX */
ff245fbd 599 $cnt = count($boxesall);
cef054e4 600 $used = array_pad($used,$cnt,false);
601 for($k = 0; $k < $cnt; ++$k) {
ff245fbd 602 if (strtolower($boxesall[$k]['unformatted']) == 'inbox') {
603 $boxesnew[] = $boxesall[$k];
3411d4ec 604 $used[$k] = true;
cef054e4 605 break;
7e235a1a 606 }
607 }
7e235a1a 608 /* List special folders and their subfolders, if requested. */
3411d4ec 609 if ($list_special_folders_first) {
cef054e4 610 for($k = 0; $k < $cnt; ++$k) {
ff245fbd 611 if (!$used[$k] && isSpecialMailbox($boxesall[$k]['unformatted'])) {
612 $boxesnew[] = $boxesall[$k];
613 $used[$k] = true;
7e235a1a 614 }
cef054e4 615 }
616 }
7e235a1a 617
7e235a1a 618 /* Rest of the folders */
ff245fbd 619 for($k = 0; $k < $cnt; $k++) {
620 if (!$used[$k]) {
621 $boxesnew[] = $boxesall[$k];
7e235a1a 622 }
623 }
43b698c7 624 }
3411d4ec 625 return $boxesnew;
43b698c7 626}
627
90de1755 628/*
629 * Returns a list of all folders, subscribed or not
630 */
1da22cda 631function sqimap_mailbox_list_all($imap_stream) {
3411d4ec 632 global $list_special_folders_first, $folder_prefix, $delimiter;
780dd344 633 $read_ary = sqimap_run_command($imap_stream,"LIST \"$folder_prefix\" *",true,$response, $message,false);
43b698c7 634 $g = 0;
90de1755 635 $phase = 'inbox';
7d82bceb 636 $fld_pre_length = strlen($folder_prefix);
ff245fbd 637 for ($i = 0, $cnt = count($read_ary); $i < $cnt; $i++) {
43b698c7 638 /* Another workaround for EIMS */
639 if (isset($read_ary[$i + 1]) &&
90de1755 640 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
43b698c7 641 $read_ary[$i], $regs)) {
642 $i ++;
3411d4ec 643 $read_ary[$i] = $regs[1] . '"' . addslashes(trim($read_ary[$i])) . '"' . $regs[2];
43b698c7 644 }
780dd344 645 /* Store the raw IMAP reply */
646 $boxes[$g]['raw'] = $read_ary[$i];
90de1755 647
780dd344 648 /* Count number of delimiters ($delimiter) in folder name */
649 $mailbox = find_mailbox_name($read_ary[$i]);
650 $dm_count = substr_count($mailbox, $delimiter);
651 if (substr($mailbox, -1) == $delimiter) {
652 /* If name ends in delimiter - decrement count by one */
653 $dm_count--;
654 }
90de1755 655
780dd344 656 /* Format folder name, but only if it's a INBOX.* or has a parent. */
657 $boxesallbyname[$mailbox] = $g;
658 $parentfolder = readMailboxParent($mailbox, $delimiter);
659 if((eregi('^inbox'.quotemeta($delimiter), $mailbox)) ||
660 (ereg('^'.$folder_prefix, $mailbox)) ||
661 ( isset($boxesallbyname[$parentfolder]) && (strlen($parentfolder) > 0) ) ) {
662 if ($dm_count) {
663 $boxes[$g]['formatted'] = str_repeat('&nbsp;&nbsp;', $dm_count);
90de1755 664 } else {
780dd344 665 $boxes[$g]['formatted'] = '';
12d61439 666 }
780dd344 667 $boxes[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
668 } else {
669 $boxes[$g]['formatted'] = imap_utf7_decode_local($mailbox);
670 }
671
672 $boxes[$g]['unformatted-dm'] = $mailbox;
673 if (substr($mailbox, -1) == $delimiter) {
674 $mailbox = substr($mailbox, 0, strlen($mailbox) - 1);
675 }
676 $boxes[$g]['unformatted'] = $mailbox;
677 $boxes[$g]['unformatted-disp'] = substr($mailbox,$fld_pre_length);
678
679 $boxes[$g]['id'] = $g;
680
681 /* Now lets get the flags for this mailbox */
682 $read_mlbx = $read_ary[$i];
683 $flags = substr($read_mlbx, strpos($read_mlbx, '(')+1);
684 $flags = substr($flags, 0, strpos($flags, ')'));
685 $flags = str_replace('\\', '', $flags);
686 $flags = trim(strtolower($flags));
687 if ($flags) {
688 $boxes[$g]['flags'] = explode(' ', $flags);
689 } else {
690 $boxes[$g]['flags'] = array();
43b698c7 691 }
692 $g++;
693 }
694 if(is_array($boxes)) {
e429f014 695 sort ($boxes);
43b698c7 696 }
90de1755 697
43b698c7 698 return $boxes;
699}
5bdd7223 700
60b5724d 701function sqimap_mailbox_tree($imap_stream) {
702 global $boxesnew, $default_folder_prefix, $unseen_notify, $unseen_type;
ff245fbd 703 if (!isset($boxesnew)) {
60b5724d 704
705 global $data_dir, $username, $list_special_folders_first,
a2e66c6d 706 $folder_prefix, $delimiter, $trash_folder, $move_to_trash,
707 $imap_server_type;
60b5724d 708
709
710 $inbox_in_list = false;
711 $inbox_subscribed = false;
712
08185f2a 713 require_once(SM_PATH . 'include/load_prefs.php');
60b5724d 714
715 /* LSUB array */
2c617aa5 716 $lsub_ary = sqimap_run_command ($imap_stream, "LSUB \"$folder_prefix\" \"*\"",
60b5724d 717 true, $response, $message);
718
9871bdaa 719 /* Check to see if we have an INBOX */
78bc908d 720 $has_inbox = false;
721
722 for ($i = 0, $cnt = count($lsub_ary); $i < $cnt; $i++) {
43a31298 723 if (preg_match("/^\*\s+LSUB\s+(.*)\"?INBOX\"?[^(\/\.)].*$/",$lsub_ary[$i])) {
78bc908d 724 $has_inbox = true;
725 break;
726 }
727 }
728
729 if ($has_inbox == false) {
730 $lsub_ibx = sqimap_run_command( $imap_stream, "LSUB \"\" \"INBOX\"", true, $response, $message );
8ff83209 731 if (isset($lsub_ibx[0]) && (preg_match("/^\*\s+LSUB\s+(.*)\"?INBOX\"?[^(\/\.)].*$/",$lsub_ibx[0]))) {
732 $lsub_ary[] = $lsub_ibx[0];
733 } else {
734 $lsub_ibx = sqimap_run_command( $imap_stream, "LIST \"\" \"INBOX\"", true, $response, $message );
735 if (preg_match("/^\*\s+LIST\s+(.*)\"?INBOX\"?[^(\/\.)].*$/",$lsub_ibx[0])) {
736 sqimap_run_command( $imap_stream, "SUBSCRIBE \"INBOX\"", true, $response, $message );
737 $lsub_ibx[0] = str_replace("LIST","LSUB",$lsub_ibx[0]);
78bc908d 738 $lsub_ary[] = $lsub_ibx[0];
739 }
740 }
741 }
742
60b5724d 743 /*
744 * Section about removing the last element was removed
745 * We don't return "* OK" anymore from sqimap_read_data
746 */
747 $sorted_lsub_ary = array();
e4c6fe41 748 $cnt = count($lsub_ary);
43a31298 749
ff245fbd 750 for ($i = 0; $i < $cnt; $i++) {
60b5724d 751 /*
752 * Workaround for EIMS
753 * Doesn't work if the mailbox name is multiple lines
754 */
755 if (isset($lsub_ary[$i + 1]) &&
756 ereg("^(\\* [A-Z]+.*)\\{[0-9]+\\}([ \n\r\t]*)$",
757 $lsub_ary[$i], $regs)) {
ff245fbd 758 $i++;
60b5724d 759 $lsub_ary[$i] = $regs[1] . '"' . addslashes(trim($lsub_ary[$i])) . '"' . $regs[2];
760 }
761
ff245fbd 762 $mbx = find_mailbox_name($lsub_ary[$i]);
a2e66c6d 763
764 // Force a list for UW as it returns \NoSelect in LIST and not LSUB //
765 if ($imap_server_type == "uw") {
766 $tmp_str = sqimap_run_command( $imap_stream , "LIST \"\" \"$mbx\"" , true, $response, $message );
767 if (isset($tmp_str[0])) {
768 $lsub_ary[$i] = $tmp_str[0];
769 }
770 }
ff245fbd 771 $noselect = check_is_noselect($lsub_ary[$i]);
772 if (substr($mbx, -1) == $delimiter) {
773 $mbx = substr($mbx, 0, strlen($mbx) - 1);
774 }
775 $sorted_lsub_ary[] = array ('mbx' => $mbx, 'noselect' => $noselect);
60b5724d 776 }
ff245fbd 777 array_multisort($sorted_lsub_ary, SORT_ASC, SORT_REGULAR);
60b5724d 778
ff245fbd 779 for ($i = 0 ; $i < $cnt; $i++) {
780 $mbx = $sorted_lsub_ary[$i]['mbx'];
781 if (($unseen_notify == 2 && $mbx == 'INBOX') ||
782 ($unseen_notify == 3) ||
783 ($move_to_trash && ($mbx == $trash_folder))) {
38068e69 784 if( $sorted_lsub_ary[$i]['noselect'] ) {
ff245fbd 785 $sorted_lsub_ary[$i]['unseen'] = 0;
786 } else {
787 $sorted_lsub_ary[$i]['unseen'] =
788 sqimap_unseen_messages($imap_stream, $mbx);
789 }
790 if (($unseen_type == 2) ||
791 ($move_to_trash && ($mbx == $trash_folder)) ||
792 ($mbx == $trash_folder)) {
793 if($sorted_lsub_ary[$i]['noselect']) {
794 $sorted_lsub_ary[$i]['nummessages'] = 0;
795 } else {
796 $sorted_lsub_ary[$i]['nummessages'] =
797 sqimap_get_num_messages($imap_stream, $mbx);
798 }
799 }
800 }
801 }
802 $boxesnew = sqimap_fill_mailbox_tree($sorted_lsub_ary);
803 return $boxesnew;
60b5724d 804 }
805}
806
807
808function sqimap_fill_mailbox_tree($mbx_ary, $mbxs=false) {
809 global $data_dir, $username, $list_special_folders_first,
810 $folder_prefix, $trash_folder, $sent_folder, $draft_folder,
811 $move_to_trash, $move_to_sent, $save_as_draft,
43a31298 812 $delimiter, $imap_server_type;
60b5724d 813
814 $special_folders = array ('INBOX', $sent_folder, $draft_folder, $trash_folder);
ff245fbd 815
60b5724d 816 /* create virtual root node */
817 $mailboxes= new mailboxes();
818 $mailboxes->is_root = true;
ff245fbd 819 $trail_del = false;
78bc908d 820 $start = 0;
821
587ec647 822
43a31298 823 if (isset($folder_prefix) && ($folder_prefix != '')) {
ff245fbd 824 $start = substr_count($folder_prefix,$delimiter);
825 if (strrpos($folder_prefix, $delimiter) == (strlen($folder_prefix)-1)) {
826 $trail_del = true;
827 $mailboxes->mailboxname_full = substr($folder_prefix,0, (strlen($folder_prefix)-1));
828 } else {
829 $mailboxes->mailboxname_full = $folder_prefix;
830 $start++;
831 }
832 $mailboxes->mailboxname_sub = $mailboxes->mailboxname_full;
833 } else {
834 $start = 0;
835 }
78bc908d 836
e4c6fe41 837 $cnt = count($mbx_ary);
838 for ($i=0; $i < $cnt; $i++) {
ff245fbd 839 if ($mbx_ary[$i]['mbx'] !='' ) {
840 $mbx = new mailboxes();
841 $mailbox = $mbx_ary[$i]['mbx'];
842 switch ($mailbox) {
843 case 'INBOX':
844 $mbx->is_inbox = true;
845 $mbx->is_special = true;
846 break;
847 case $trash_folder:
848 $mbx->is_trash = true;
849 $mbx->is_special = true;
850 break;
851 case $sent_folder:
852 $mbx->is_sent = true;
853 $mbx->is_special = true;
854 break;
855 case $draft_folder:
856 $mbx->is_draft = true;
857 $mbx->is_special = true;
858 break;
859 }
860
861 if (isset($mbx_ary[$i]['unseen'])) {
862 $mbx->unseen = $mbx_ary[$i]['unseen'];
863 }
864 if (isset($mbx_ary[$i]['nummessages'])) {
865 $mbx->total = $mbx_ary[$i]['nummessages'];
866 }
867
868 $mbx->is_noselect = $mbx_ary[$i]['noselect'];
869
60b5724d 870 $r_del_pos = strrpos($mbx_ary[$i]['mbx'], $delimiter);
ff245fbd 871 if ($r_del_pos) {
587ec647 872 $mbx->mailboxname_sub = substr($mbx_ary[$i]['mbx'],$r_del_pos+1);
ff245fbd 873 } else { /* mailbox is root folder */
587ec647 874 $mbx->mailboxname_sub = $mbx_ary[$i]['mbx'];
ff245fbd 875 }
876 $mbx->mailboxname_full = $mbx_ary[$i]['mbx'];
38068e69 877
9871bdaa 878 $mailboxes->addMbx($mbx, $delimiter, $start, $list_special_folders_first);
ff245fbd 879 }
60b5724d 880 }
587ec647 881 sqimap_utf7_decode_mbx_tree($mailboxes);
60b5724d 882 return $mailboxes;
883}
259faa39 884
587ec647 885function sqimap_utf7_decode_mbx_tree(&$mbx_tree) {
886 $mbx_tree->mailboxname_sub=imap_utf7_decode_local($mbx_tree->mailboxname_sub);
887 if ($mbx_tree->mbxs) {
888 $iCnt = count($mbx_tree->mbxs);
889 for ($i=0;$i<$iCnt;++$i) {
890 $mbxs_tree->mbxs[$i] = sqimap_utf7_decode_mbx_tree($mbx_tree->mbxs[$i]);
891 }
892 }
893}
894
648713af 895?>
Unnamed repository; edit this file 'description' to name the repository.