Additional tweaks for folder create/rename/delete display and behavior.
[squirrelmail.git] / src / folders.php
CommitLineData
59177427 1<?php
895905c0 2
35586184 3/**
4 * folders.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 * Handles all interaction between the user and the other folder
10 * scripts which do most of the work. Also handles the Special
11 * Folders.
12 *
13 * $Id$
14 */
15
86725763 16/* Path for SquirrelMail required files. */
17define('SM_PATH','../');
18
19/* SquirrelMail required files. */
08185f2a 20require_once(SM_PATH . 'include/validate.php');
86725763 21require_once(SM_PATH . 'functions/imap.php');
86725763 22require_once(SM_PATH . 'functions/plugin.php');
23require_once(SM_PATH . 'functions/html.php');
d3cdb279 24
e634431a 25displayPageHeader($color, 'None');
aa42fbfb 26
a32985a5 27/* get globals we may need */
28
f38b7cf0 29sqgetGlobalVar('username', $username, SQ_SESSION);
30sqgetGlobalVar('key', $key, SQ_COOKIE);
31sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION);
32sqgetGlobalVar('onetimepad', $onetimepad, SQ_SESSION);
33
34sqgetGlobalVar('success', $success, SQ_GET);
a32985a5 35
36/* end of get globals */
37
2441907d 38echo '<br>' .
6206f6c4 39 html_tag( 'table', '', 'center', $color[0], 'width="95%" cellpadding="1" cellspacing="0" border="0"' ) .
2441907d 40 html_tag( 'tr' ) .
41 html_tag( 'td', '', 'center' ) . '<b>' . _("Folders") . '</b>' .
42 html_tag( 'table', '', 'center', '', 'width="100%" cellpadding="5" cellspacing="0" border="0"' ) .
43 html_tag( 'tr' ) .
44 html_tag( 'td', '', 'center', $color[4] );
aa42fbfb 45
b7f83b61 46if ( isset($success) && $success ) {
47
48 $td_str = '<b>';
49
50 switch ($success)
51 {
52 case 'subscribe':
53 $td_str .= _("Subscribed successfully!");
54 break;
55 case 'unsubscribe':
56 $td_str .= _("Unsubscribed successfully!");
57 break;
58 case 'delete':
59 $td_str .= _("Deleted folder successfully!");
60 break;
61 case 'create':
62 $td_str .= _("Created folder successfully!");
63 break;
64 case 'rename':
65 $td_str .= _("Renamed successfully!");
66 break;
67 case 'subscribe-doesnotexist':
68 $td_str .= _("Subscription Unsuccessful - Folder does not exist.");
69 break;
e634431a 70 }
71
b7f83b61 72 $td_str .= '</b><br>';
73
74
50ed645b 75 echo html_tag( 'table',
76 html_tag( 'tr',
77 html_tag( 'td', $td_str .
b7f83b61 78 '<a href="../src/left_main.php" target=left>' .
79 _("refresh folder list") . '</a>' ,
50ed645b 80 'center' )
81 ) ,
b7f83b61 82 'center', '', 'width="100%" cellpadding="4" cellspacing="0" border="0"' );
e634431a 83}
b7f83b61 84
85echo "\n<br>";
86
e634431a 87$imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0);
88$boxes = sqimap_mailbox_list($imapConnection);
89
90/** CREATING FOLDERS **/
ac50138c 91echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="4" cellspacing="0" border="0"' ) .
50ed645b 92 html_tag( 'tr',
93 html_tag( 'td', '<b>' . _("Create Folder") . '</b>', 'center', $color[9] )
94 ) .
95 html_tag( 'tr' ) .
96 html_tag( 'td', '', 'center', $color[0] ) .
97
1c52ba77 98 "<FORM NAME=cf ACTION=\"folders_create.php\" METHOD=\"POST\">\n".
6b4bd11f 99 "<input type=TEXT SIZE=25 NAME=folder_name><BR>\n".
1c52ba77 100 _("as a subfolder of").
b7f83b61 101 '<BR>'.
1c52ba77 102 "<TT><SELECT NAME=subfolder>\n";
7f0a2c23 103
45f836eb 104$show_selected = array();
105$skip_folders = array();
7f0a2c23 106$server_type = strtolower($imap_server_type);
107if ( $server_type == 'courier' ) {
45f836eb 108 array_push($skip_folders, 'inbox.trash');
7c8b7b4f 109 if ( $default_folder_prefix == 'INBOX.' ) {
110 array_push($skip_folders, 'inbox');
111 }
7f0a2c23 112}
113
114if ( $default_sub_of_inbox == false ) {
e634431a 115 echo '<OPTION SELECTED VALUE="">[ '._("None")." ]\n";
116} else {
117 echo '<OPTION VALUE="">[ '._("None")." ]\n";
be2d5495 118 $show_selected = array('inbox');
119}
be2d5495 120
6e2ae264 121// Call sqimap_mailbox_option_list, using existing connection to IMAP server,
122// the arrays of folders to include or skip (assembled above),
123// and indicate that folders listed should be parents (we're creating folders,
45f836eb 124// so we want to list the folders that can contain other folders), also force long form
125echo sqimap_mailbox_option_list($imapConnection, $show_selected, $skip_folders, $boxes, true, true);
be2d5495 126
e634431a 127echo "</SELECT></TT>\n";
128if ($show_contain_subfolders_option) {
b7f83b61 129 echo '<br><input type=CHECKBOX NAME="contain_subs"> &nbsp;'
130 . _("Let this folder contain subfolders")
131 . '<BR>';
1c52ba77 132}
6b4bd11f 133echo "<input type=SUBMIT VALUE=\""._("Create")."\">\n";
134echo "</FORM></td></tr>\n";
e634431a 135
50ed645b 136echo html_tag( 'tr',
137 html_tag( 'td', '&nbsp;', 'left', $color[4] )
138 ) ."\n";
0037f048 139
140/** count special folders **/
141$count_special_folders = 0;
142$num_max = 1;
143if (strtolower($imap_server_type) == "courier" || $move_to_trash) {
45f836eb 144 $num_max++;
0037f048 145}
146if ($move_to_sent) {
45f836eb 147 $num_max++;
0037f048 148}
149if ($save_as_draft) {
45f836eb 150 $num_max++;
0037f048 151}
336155db 152for ($p = 0, $cnt = count($boxes); $p < $cnt && $count_special_folders < $num_max; $p++) {
0037f048 153 if (strtolower($boxes[$p]['unformatted']) == 'inbox')
154 $count_special_folders++;
155 else if (strtolower($imap_server_type) == 'courier' &&
45f836eb 156 strtolower($boxes[$p]['unformatted']) == 'inbox.trash') {
0037f048 157 $count_special_folders++;
45f836eb 158 }
159 else if ($boxes[$p]['unformatted'] == $trash_folder && $trash_folder) {
0037f048 160 $count_special_folders++;
45f836eb 161 array_push($skip_folders, strtolower($trash_folder));
162 }
163 else if ($boxes[$p]['unformatted'] == $sent_folder && $sent_folder) {
0037f048 164 $count_special_folders++;
45f836eb 165 array_push($skip_folders, strtolower($sent_folder));
166 }
167 else if ($boxes[$p]['unformatted'] == $draft_folder && $draft_folder) {
0037f048 168 $count_special_folders++;
45f836eb 169 array_push($skip_folders, strtolower($draft_folder));
170 }
0037f048 171}
172
173
e634431a 174/** RENAMING FOLDERS **/
50ed645b 175echo html_tag( 'tr',
176 html_tag( 'td', '<b>' . _("Rename a Folder") . '</b>', 'center', $color[9] )
177 ) .
178 html_tag( 'tr' ) .
179 html_tag( 'td', '', 'center', $color[0] );
180
0037f048 181if ($count_special_folders < count($boxes)) {
182 echo "<FORM ACTION=\"folders_rename_getname.php\" METHOD=\"POST\">\n"
183 . "<TT><SELECT NAME=old>\n"
184 . ' <OPTION VALUE="">[ ' . _("Select a folder") . " ]</OPTION>\n";
be2d5495 185
45f836eb 186 echo sqimap_mailbox_option_list($imapConnection, 0, $skip_folders, $boxes, false, true);
be2d5495 187
1c52ba77 188 echo "</SELECT></TT>\n".
6b4bd11f 189 "<input type=SUBMIT VALUE=\"".
1c52ba77 190 _("Rename").
191 "\">\n".
50ed645b 192 "</FORM></td></tr>\n";
e634431a 193} else {
b7f83b61 194 echo _("No folders found") . '<br><br></td></tr>';
e634431a 195}
196$boxes_sub = $boxes;
197
50ed645b 198echo html_tag( 'tr',
199 html_tag( 'td', '&nbsp;', 'left', $color[4] )
200 ) ."\n";
e634431a 201
202/** DELETING FOLDERS **/
50ed645b 203echo html_tag( 'tr',
204 html_tag( 'td', '<b>' . _("Delete Folder") . '</b>', 'center', $color[9] )
205 ) .
206 html_tag( 'tr' ) .
207 html_tag( 'td', '', 'center', $color[0] );
e634431a 208
e634431a 209if ($count_special_folders < count($boxes)) {
0037f048 210 echo "<FORM ACTION=\"folders_delete.php\" METHOD=\"POST\">\n"
211 . "<TT><SELECT NAME=mailbox>\n"
212 . ' <OPTION VALUE="">[ ' . _("Select a folder") . " ]</OPTION>\n";
be2d5495 213
45f836eb 214 echo sqimap_mailbox_option_list($imapConnection, 0, $skip_folders, $boxes, false, true);
be2d5495 215
b7f83b61 216 echo "</SELECT></TT>\n"
217 . '<input type=SUBMIT VALUE="'
218 . _("Delete")
219 . "\">\n"
220 . "</form></td></tr>\n";
e634431a 221} else {
6b4bd11f 222 echo _("No folders found") . "<br><br></td></tr>";
e634431a 223}
50ed645b 224
225echo html_tag( 'tr',
226 html_tag( 'td', '&nbsp;', 'left', $color[4] )
227 ) ."</table>\n";
228
e634431a 229
230/** UNSUBSCRIBE FOLDERS **/
12ff1cab 231echo html_tag( 'table', '', 'center', '', 'width="70%" cellpadding="4" cellspacing="0" border="0"' ) .
50ed645b 232 html_tag( 'tr',
233 html_tag( 'td', '<b>' . _("Unsubscribe") . '/' . _("Subscribe") . '</b>', 'center', $color[9], 'colspan="2"' )
234 ) .
235 html_tag( 'tr' ) .
236 html_tag( 'td', '', 'center', $color[0], 'width="50%"' );
237
e634431a 238if ($count_special_folders < count($boxes)) {
b7f83b61 239 echo "<FORM ACTION=\"folders_subscribe.php?method=unsub\" METHOD=\"POST\">\n"
240 . "<TT><SELECT NAME=\"mailbox[]\" multiple size=8>\n";
e634431a 241 for ($i = 0; $i < count($boxes); $i++) {
242 $use_folder = true;
243 if ((strtolower($boxes[$i]["unformatted"]) != "inbox") &&
244 ($boxes[$i]["unformatted"] != $trash_folder) &&
245 ($boxes[$i]["unformatted"] != $sent_folder) &&
246 ($boxes[$i]["unformatted"] != $draft_folder)) {
247 $box = $boxes[$i]["unformatted-dm"];
46bc57c1 248 $box2 = str_replace(' ', '&nbsp;',
249 imap_utf7_decode_local($boxes[$i]["unformatted-disp"]));
e634431a 250 echo " <OPTION VALUE=\"$box\">$box2\n";
251 }
252 }
b7f83b61 253 echo "</SELECT></TT><br><br>\n"
254 . '<input type=SUBMIT VALUE="'
255 . _("Unsubscribe")
256 . "\">\n"
257 . "</FORM></td>\n";
e634431a 258} else {
b7f83b61 259 echo _("No folders were found to unsubscribe from!") . '</td>';
e634431a 260}
261$boxes_sub = $boxes;
262
263/** SUBSCRIBE TO FOLDERS **/
50ed645b 264echo html_tag( 'td', '', 'center', $color[0], 'width="50%"' );
52ed2f88 265if(!$no_list_for_subscribe) {
336155db 266 $boxes_all = sqimap_mailbox_list_all ($imapConnection);
52ed2f88 267
b7f83b61 268 $box = '';
269 $box2 = '';
52ed2f88 270 for ($i = 0, $q = 0; $i < count($boxes_all); $i++) {
e634431a 271 $use_folder = true;
272 for ($p = 0; $p < count ($boxes); $p++) {
b7f83b61 273 if ($boxes_all[$i]['unformatted'] == $boxes[$p]['unformatted']) {
e634431a 274 $use_folder = false;
275 continue;
b7f83b61 276 } else if ($boxes_all[$i]['unformatted-dm'] == $folder_prefix) {
e634431a 277 $use_folder = false;
278 }
279 }
7e235a1a 280 if ($use_folder == true) {
b7f83b61 281 $box[$q] = $boxes_all[$i]['unformatted-dm'];
282 $box2[$q] = imap_utf7_decode_local($boxes_all[$i]['unformatted-disp']);
e634431a 283 $q++;
284 }
52ed2f88 285 }
52ed2f88 286 if ($box && $box2) {
b7f83b61 287 echo "<FORM ACTION=\"folders_subscribe.php?method=sub\" METHOD=\"POST\">\n"
288 . '<tt><select name="mailbox[]" multiple size=8>';
e634431a 289
290 for ($q = 0; $q < count($box); $q++) {
291 echo " <OPTION VALUE=\"$box[$q]\">".$box2[$q]."\n";
292 }
b7f83b61 293 echo '</select></tt><br><br>'
294 . '<input type=SUBMIT VALUE="'. _("Subscribe") . "\">\n"
295 . "</FORM></td></tr></table><BR>\n";
52ed2f88 296 } else {
b7f83b61 297 echo _("No folders were found to subscribe to!") . '</td></tr></table>';
52ed2f88 298 }
299} else {
300 /* don't perform the list action -- this is much faster */
b7f83b61 301 echo "<FORM ACTION=\"folders_subscribe.php?method=sub\" METHOD=\"POST\">\n"
302 . _("Subscribe to:") . '<br>'
303 . '<tt><input type="text" name="mailbox[]" size=35>'
304 . '<INPUT TYPE=SUBMIT VALUE="'. _("Subscribe") . "\">\n"
305 . "</FORM></TD></TR></TABLE><BR>\n";
e634431a 306}
e7db48af 307
b7f83b61 308do_hook('folders_bottom');
bd9bbfef 309?>
e7db48af 310
e7db48af 311 </td></tr>
312 </table>
313
314</td></tr>
315</table>
316
317<?php
1195c340 318 sqimap_logout($imapConnection);
aa42fbfb 319?>
e7db48af 320
0037f048 321</body></html>