6 * Copyright (c) 1999-2005 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 * Handles all interaction between the user and the other folder
10 * scripts which do most of the work. Also handles the Special
14 * @package squirrelmail
18 * Path for SquirrelMail required files.
21 define('SM_PATH','../');
23 /* SquirrelMail required files. */
24 require_once(SM_PATH
. 'include/validate.php');
25 require_once(SM_PATH
. 'functions/imap.php');
26 require_once(SM_PATH
. 'functions/plugin.php');
27 require_once(SM_PATH
. 'functions/html.php');
28 require_once(SM_PATH
. 'functions/forms.php');
30 displayPageHeader($color, 'None');
32 /* get globals we may need */
34 sqgetGlobalVar('username', $username, SQ_SESSION
);
35 sqgetGlobalVar('key', $key, SQ_COOKIE
);
36 sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION
);
37 sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION
);
39 sqgetGlobalVar('success', $success, SQ_GET
);
41 /* end of get globals */
44 html_tag( 'table', '', 'center', $color[0], 'width="95%" cellpadding="1" cellspacing="0" border="0"' ) .
46 html_tag( 'td', '', 'center' ) . '<b>' . _("Folders") . '</b>' .
47 html_tag( 'table', '', 'center', '', 'width="100%" cellpadding="5" cellspacing="0" border="0"' ) .
49 html_tag( 'td', '', 'center', $color[4] );
51 if ( isset($success) && $success ) {
58 $td_str .= _("Subscribed successfully!");
61 $td_str .= _("Unsubscribed successfully!");
64 $td_str .= _("Deleted folder successfully!");
67 $td_str .= _("Created folder successfully!");
70 $td_str .= _("Renamed successfully!");
72 case 'subscribe-doesnotexist':
73 $td_str .= _("Subscription Unsuccessful - Folder does not exist.");
77 $td_str .= '</b><br />';
80 echo html_tag( 'table',
82 html_tag( 'td', $td_str .
83 '<a href="../src/left_main.php" target="left">' .
84 _("refresh folder list") . '</a>' ,
87 'center', '', 'width="100%" cellpadding="4" cellspacing="0" border="0"' );
92 $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
93 $boxes = sqimap_mailbox_list($imapConnection,true);
95 /** CREATING FOLDERS **/
96 echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="4" cellspacing="0" border="0"' ) .
98 html_tag( 'td', '<b>' . _("Create Folder") . '</b>', 'center', $color[9] )
101 html_tag( 'td', '', 'center', $color[0] ) .
102 addForm('folders_create.php', 'post', 'cf').
103 addInput('folder_name', '', 25).
104 "<br />\n". _("as a subfolder of"). '<br />'.
105 "<tt><select name=\"subfolder\">\n";
107 $show_selected = array();
108 $skip_folders = array();
109 $server_type = strtolower($imap_server_type);
110 if ( $server_type == 'courier' ) {
111 array_push($skip_folders, 'inbox.trash');
112 if ( $default_folder_prefix == 'INBOX.' ) {
113 array_push($skip_folders, 'INBOX');
117 if ( $default_sub_of_inbox == false ) {
118 echo '<option selected="selected" value="">[ '._("None")." ]</option>\n";
120 echo '<option value="">[ '._("None")." ]</option>\n";
121 $show_selected = array('inbox');
124 // Call sqimap_mailbox_option_list, using existing connection to IMAP server,
125 // the arrays of folders to include or skip (assembled above),
126 // use 'noinferiors' as a mailbox filter to leave out folders that can not contain other folders.
127 // use the long format to show subfolders in an intelligible way if parent is missing (special folder)
128 echo sqimap_mailbox_option_list($imapConnection, $show_selected, $skip_folders, $boxes, 'noinferiors', true);
130 echo "</select></tt>\n";
131 if ($show_contain_subfolders_option) {
133 addCheckBox('contain_subs', FALSE, '1') .' '
134 . _("Let this folder contain subfolders")
137 echo "<input type=\"submit\" value=\""._("Create")."\" />\n";
138 echo "</form></td></tr>\n";
141 html_tag( 'td', ' ', 'left', $color[4] )
144 /** count special folders **/
146 // FIX ME, why not check if the folders are defined IMHO move_to_sent, move_to_trash has nothing todo with it
147 $count_special_folders = 0;
149 if (strtolower($imap_server_type) == "courier" ||
$move_to_trash) {
155 if ($save_as_draft) {
159 // What if move_to_sent = false and $sent_folder is set? Should it still be skipped?
161 for ($p = 0, $cnt = count($boxes); $p < $cnt && $count_special_folders < $num_max; $p++
) {
162 switch ($boxes[$p]['unformatted']) {
163 case (strtoupper($boxes[$p]['unformatted']) == 'INBOX'):
164 ++
$count_special_folders;
165 $skip_folders[] = $boxes[$p]['unformatted'];
167 // FIX ME inbox.trash should be set in conf.pl
169 if (strtolower($imap_server_type) == 'courier') {
170 ++
$count_special_folders;
174 ++
$count_special_folders;
175 $skip_folders[] = $trash_folder;
178 ++
$count_special_folders;
179 $skip_folders[] = $sent_folder;
182 ++
$count_special_folders;
183 $skip_folders[] = $draft_folder;
190 /** RENAMING FOLDERS **/
192 html_tag( 'td', '<b>' . _("Rename a Folder") . '</b>', 'center', $color[9] )
195 html_tag( 'td', '', 'center', $color[0] );
197 if ($count_special_folders < count($boxes)) {
198 echo addForm('folders_rename_getname.php')
199 . "<tt><select name=\"old\">\n"
200 . ' <option value="">[ ' . _("Select a folder") . " ]</option>\n";
202 // use existing IMAP connection, we have no special values to show,
203 // but we do include values to skip. Use the pre-created $boxes to save an IMAP query.
204 // send NULL for the flag - ALL folders are eligible for rename!
205 // use long format to make sure folder names make sense when parents may be missing.
206 echo sqimap_mailbox_option_list($imapConnection, 0, $skip_folders, $boxes, NULL, true);
208 echo "</select></tt>\n".
209 '<input type="submit" value="'.
212 "</form></td></tr>\n";
214 echo _("No folders found") . '<br /><br /></td></tr>';
219 html_tag( 'td', ' ', 'left', $color[4] )
222 /** DELETING FOLDERS **/
224 html_tag( 'td', '<b>' . _("Delete Folder") . '</b>', 'center', $color[9] )
227 html_tag( 'td', '', 'center', $color[0] );
229 if ($count_special_folders < count($boxes)) {
230 echo addForm('folders_delete.php')
231 . "<tt><select name=\"mailbox\">\n"
232 . ' <option value="">[ ' . _("Select a folder") . " ]</option>\n";
234 // send NULL for the flag - ALL folders are eligible for delete (except what we've got in skiplist)
235 // use long format to make sure folder names make sense when parents may be missing.
236 echo sqimap_mailbox_option_list($imapConnection, 0, $skip_folders, $boxes, NULL, true);
238 echo "</select></tt>\n"
239 . '<input type="submit" value="'
242 . "</form></td></tr>\n";
244 echo _("No folders found") . "<br /><br /></td></tr>";
248 html_tag( 'td', ' ', 'left', $color[4] )
252 if ($show_only_subscribed_folders) {
254 /** UNSUBSCRIBE FOLDERS **/
255 echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="4" cellspacing="0" border="0"' ) .
257 html_tag( 'td', '<b>' . _("Unsubscribe") . '/' . _("Subscribe") . '</b>', 'center', $color[9], 'colspan="2"' )
260 html_tag( 'td', '', 'center', $color[0], 'width="50%"' );
262 if ($count_special_folders < count($boxes)) {
263 echo addForm('folders_subscribe.php?method=unsub')
264 . "<tt><select name=\"mailbox[]\" multiple=\"multiple\" size=\"8\">\n";
265 for ($i = 0; $i < count($boxes); $i++
) {
267 if ((strtolower($boxes[$i]["unformatted"]) != "inbox") &&
268 ($boxes[$i]["unformatted"] != $trash_folder) &&
269 ($boxes[$i]["unformatted"] != $sent_folder) &&
270 ($boxes[$i]["unformatted"] != $draft_folder)) {
271 $box = htmlspecialchars($boxes[$i]["unformatted-dm"]);
272 $box2 = str_replace(' ', ' ',
273 htmlspecialchars(imap_utf7_decode_local($boxes[$i]["unformatted-disp"])));
274 echo " <option value=\"$box\">$box2</option>\n";
277 echo "</select></tt><br /><br />\n"
278 . '<input type="submit" value="'
283 echo _("No folders were found to unsubscribe from!") . '</td>';
287 /** SUBSCRIBE TO FOLDERS **/
288 echo html_tag( 'td', '', 'center', $color[0], 'width="50%"' );
289 if(!$no_list_for_subscribe) {
290 $boxes_all = sqimap_mailbox_list_all ($imapConnection);
294 for ($i = 0, $q = 0; $i < count($boxes_all); $i++
) {
296 for ($p = 0; $p < count ($boxes); $p++
) {
297 if ($boxes_all[$i]['unformatted'] == $boxes[$p]['unformatted']) {
300 } else if ($boxes_all[$i]['unformatted-dm'] == $folder_prefix) {
304 if ($use_folder == true) {
305 $box[$q] = htmlspecialchars($boxes_all[$i]['unformatted-dm']);
306 $box2[$q] = htmlspecialchars(imap_utf7_decode_local($boxes_all[$i]['unformatted-disp']));
311 echo addForm('folders_subscribe.php?method=sub')
312 . '<tt><select name="mailbox[]" multiple="multiple" size="8">';
314 for ($q = 0; $q < count($box); $q++
) {
315 echo ' <option value="' . $box[$q] . '">'.$box2[$q]."</option>\n";
317 echo '</select></tt><br /><br />'
318 . '<input type="submit" value="'. _("Subscribe") . "\" />\n"
319 . "</form></td></tr></table><br />\n";
321 echo _("No folders were found to subscribe to!") . '</td></tr></table>';
324 /* don't perform the list action -- this is much faster */
325 echo addForm('folders_subscribe.php?method=sub')
326 . _("Subscribe to:") . '<br />'
327 . '<tt><input type="text" name="mailbox[]" size="35" />'
328 . '<input type="submit" value="'. _("Subscribe") . "\" />\n"
329 . "</form></td></tr></table><br />\n";
333 do_hook('folders_bottom');
340 sqimap_logout($imapConnection);