source: subversion/trunk/roundcubemail/program/steps/settings/folders.inc @ 4924

Last change on this file since 4924 was 4924, checked in by alec, 23 months ago
  • Plugin API: added folder_delete and folder_rename hooks
  • Property svn:keywords set to Id Date Revision Author
File size: 13.4 KB
Line 
1<?php
2
3/*
4 +-----------------------------------------------------------------------+
5 | program/steps/settings/folders.inc                                    |
6 |                                                                       |
7 | This file is part of the Roundcube Webmail client                     |
8 | Copyright (C) 2005-2009, The Roundcube Dev Team                       |
9 | Licensed under the GNU GPL                                            |
10 |                                                                       |
11 | PURPOSE:                                                              |
12 |   Provide functionality of folders management                         |
13 |                                                                       |
14 +-----------------------------------------------------------------------+
15 | Author: Thomas Bruederli <roundcube@gmail.com>                        |
16 | Author: Aleksander Machniak <alec@alec.pl>                            |
17 +-----------------------------------------------------------------------+
18
19 $Id$
20
21*/
22
23// WARNING: folder names in UI are encoded with RCMAIL_CHARSET
24
25// init IMAP connection
26$RCMAIL->imap_connect();
27
28// subscribe mailbox
29if ($RCMAIL->action == 'subscribe')
30{
31    $mbox = get_input_value('_mbox', RCUBE_INPUT_POST, true, 'UTF7-IMAP');
32    if (strlen($mbox)) {
33        $result = $IMAP->subscribe(array($mbox));
34
35        // Handle virtual (non-existing) folders
36        if (!$result && $IMAP->get_error_code() == -1 &&
37            $IMAP->get_response_code() == rcube_imap::TRYCREATE
38        ) {
39            $result = $IMAP->create_mailbox($mbox, true);
40            if ($result) {
41                // @TODO: remove 'virtual' class of folder's row
42            }
43        }
44
45        if ($result) {
46            // Handle subscription of protected folder (#1487656)
47            if ($CONFIG['protect_default_folders'] == true
48                && in_array($mbox, $CONFIG['default_imap_folders'])
49            ) {
50                $OUTPUT->command('disable_subscription', $mbox);
51            }
52
53            $OUTPUT->show_message('foldersubscribed', 'confirmation');
54        }
55        else
56            rcmail_display_server_error('errorsaving');
57    }
58}
59
60// unsubscribe mailbox
61else if ($RCMAIL->action == 'unsubscribe')
62{
63    $mbox = get_input_value('_mbox', RCUBE_INPUT_POST, true, 'UTF7-IMAP');
64    if (strlen($mbox)) {
65        $result = $IMAP->unsubscribe(array($mbox));
66        if ($result)
67            $OUTPUT->show_message('folderunsubscribed', 'confirmation');
68        else
69            rcmail_display_server_error('errorsaving');
70    }
71}
72
73// delete an existing mailbox
74else if ($RCMAIL->action == 'delete-folder')
75{
76    $mbox_utf8 = get_input_value('_mbox', RCUBE_INPUT_POST, true);
77    $mbox      = rcube_charset_convert($mbox_utf8, RCMAIL_CHARSET, 'UTF7-IMAP');
78
79    if (strlen($mbox)) {
80        $plugin = $RCMAIL->plugins->exec_hook('folder_delete', array('name' => $mbox));
81
82        if (!$plugin['abort']) {
83            $deleted = $IMAP->delete_mailbox($plugin['name']);
84        }
85        else {
86            $deleted = $plugin['result'];
87        }
88    }
89
90    if ($OUTPUT->ajax_call && $deleted) {
91        // Remove folder and subfolders rows
92        $OUTPUT->command('remove_folder_row', $mbox_utf8, true);
93        $OUTPUT->show_message('folderdeleted', 'confirmation');
94        // Clear content frame
95        $OUTPUT->command('subscription_select');
96        $OUTPUT->command('set_quota', rcmail_quota_content());
97    }
98    else if (!$deleted) {
99        rcmail_display_server_error('errorsaving');
100    }
101}
102
103// rename an existing mailbox
104else if ($RCMAIL->action == 'rename-folder')
105{
106    $name_utf8    = trim(get_input_value('_folder_newname', RCUBE_INPUT_POST, true));
107    $oldname_utf8 = trim(get_input_value('_folder_oldname', RCUBE_INPUT_POST, true));
108
109    if (strlen($name_utf8) && strlen($oldname_utf8)) {
110        $name    = rcube_charset_convert($name_utf8, RCMAIL_CHARSET, 'UTF7-IMAP');
111        $oldname = rcube_charset_convert($oldname_utf8, RCMAIL_CHARSET, 'UTF7-IMAP');
112
113        $rename = rcmail_rename_folder($oldname, $name);
114    }
115
116    if ($rename && $OUTPUT->ajax_call) {
117        rcmail_update_folder_row($name, $oldname);
118    }
119    else if (!$rename) {
120        rcmail_display_server_error('errorsaving');
121    }
122}
123
124// clear mailbox
125else if ($RCMAIL->action == 'purge')
126{
127    $mbox_utf8 = get_input_value('_mbox', RCUBE_INPUT_POST, true);
128    $mbox      = rcube_charset_convert($mbox_utf8, RCMAIL_CHARSET, 'UTF7-IMAP');
129    $delimiter = $IMAP->get_hierarchy_delimiter();
130    $trash_regexp = '/^' . preg_quote($CONFIG['trash_mbox'] . $delimiter, '/') . '/';
131
132    // we should only be purging trash (or their subfolders)
133    if (!strlen($CONFIG['trash_mbox']) || $mbox == $CONFIG['trash_mbox']
134        || preg_match($trash_regexp, $mbox)
135    ) {
136        $success = $IMAP->clear_mailbox($mbox);
137        $delete = true;
138    }
139    // copy to Trash
140    else {
141        $success = $IMAP->move_message('1:*', $CONFIG['trash_mbox'], $mbox);
142        $delete = false;
143    }
144
145    if ($success) {
146        $OUTPUT->set_env('messagecount', 0);
147        if ($delete) {
148            $OUTPUT->show_message('folderpurged', 'confirmation');
149            $OUTPUT->command('set_quota', rcmail_quota_content());
150        }
151        else {
152            $OUTPUT->show_message('messagemoved', 'confirmation');
153        }
154        $_SESSION['unseen_count'][$mbox] = 0;
155        $OUTPUT->command('show_folder', $mbox_utf8, null, true);
156    }
157    else {
158        rcmail_display_server_error('errorsaving');
159    }
160}
161
162// get mailbox size
163else if ($RCMAIL->action == 'folder-size')
164{
165    $name = trim(get_input_value('_mbox', RCUBE_INPUT_POST, true));
166
167    $size = $IMAP->get_mailbox_size($name);
168
169    // @TODO: check quota and show percentage usage of specified mailbox?
170
171    if ($size !== false) {
172        $OUTPUT->command('folder_size_update', show_bytes($size));
173    }
174    else {
175        rcmail_display_server_error();
176    }
177}
178
179if ($OUTPUT->ajax_call)
180    $OUTPUT->send();
181
182
183// build table with all folders listed by server
184function rcube_subscription_form($attrib)
185{
186    global $RCMAIL, $IMAP, $CONFIG, $OUTPUT;
187
188    list($form_start, $form_end) = get_form_tags($attrib, 'folders');
189    unset($attrib['form']);
190
191    if (!$attrib['id'])
192        $attrib['id'] = 'rcmSubscriptionlist';
193
194    $table = new html_table();
195
196    if ($attrib['noheader'] !== true && $attrib['noheader'] != "true") {
197        // add table header
198        $table->add_header('name', rcube_label('foldername'));
199        $table->add_header('subscribed', '');
200    }
201
202    // get folders from server
203    $IMAP->clear_cache('mailboxes', true);
204
205    $a_unsubscribed = $IMAP->list_unsubscribed();
206    $a_subscribed   = $IMAP->list_mailboxes();
207    $delimiter      = $IMAP->get_hierarchy_delimiter();
208    $namespace      = $IMAP->get_namespace();
209    $a_js_folders   = array();
210    $seen           = array();
211    $list_folders   = array();
212
213    // pre-process folders list
214    foreach ($a_unsubscribed as $i => $folder) {
215        $folder_id     = $folder;
216        $folder        = $IMAP->mod_mailbox($folder);
217        $foldersplit   = explode($delimiter, $folder);
218        $name          = rcube_charset_convert(array_pop($foldersplit), 'UTF7-IMAP');
219        $parent_folder = join($delimiter, $foldersplit);
220        $level         = count($foldersplit);
221
222        // add any necessary "virtual" parent folders
223        if ($parent_folder && !isset($seen[$parent_folder])) {
224            for ($i=1; $i<=$level; $i++) {
225                    $ancestor_folder = join($delimiter, array_slice($foldersplit, 0, $i));
226                    if ($ancestor_folder && !$seen[$ancestor_folder]++) {
227                        $ancestor_name = rcube_charset_convert($foldersplit[$i-1], 'UTF7-IMAP');
228                        $list_folders[] = array(
229                        'id'      => $ancestor_folder,
230                        'name'    => $ancestor_name,
231                        'level'   => $i-1,
232                        'virtual' => true,
233                    );
234                    }
235            }
236        }
237
238        // Handle properly INBOX.INBOX situation
239        if (isset($seen[$folder])) {
240            continue;
241        }
242
243        $seen[$folder]++;
244
245        $list_folders[] = array(
246            'id'    => $folder_id,
247            'name'  => $name,
248            'level' => $level,
249        );
250    }
251
252    unset($seen);
253
254    $checkbox_subscribe = new html_checkbox(array(
255        'name'    => '_subscribed[]',
256        'title'   => rcube_label('changesubscription'),
257        'onclick' => JS_OBJECT_NAME.".command(this.checked?'subscribe':'unsubscribe',this.value)",
258    ));
259
260    // create list of available folders
261    foreach ($list_folders as $i => $folder) {
262        $idx        = $i + 1;
263        $subscribed = in_array($folder['id'], $a_subscribed);
264        $protected  = ($CONFIG['protect_default_folders'] == true && in_array($folder['id'], $CONFIG['default_imap_folders']));
265        $noselect   = false;
266        $classes    = array($i%2 ? 'even' : 'odd');
267
268        $folder_js      = Q($folder['id']);
269        $folder_utf8    = rcube_charset_convert($folder['id'], 'UTF7-IMAP');
270        $display_folder = str_repeat('&nbsp;&nbsp;&nbsp;&nbsp;', $folder['level'])
271            . Q($protected ? rcmail_localize_foldername($folder['id']) : $folder['name']);
272
273        if ($folder['virtual']) {
274            $classes[] = 'virtual';
275        }
276
277        if (!$protected) {
278            $opts = $IMAP->mailbox_options($folder['id']);
279            $noselect = in_array('\\Noselect', $opts);
280        }
281
282        $disabled = (($protected && $subscribed) || $noselect);
283
284        // check if the folder is a namespace prefix, then disable subscription option on it
285        if (!$disabled && $folder['virtual'] && $folder['level'] == 0 && !empty($namespace)) {
286            $fname = $folder['id'] . $delimiter;
287            foreach ($namespace as $ns) {
288                foreach ($ns as $item) {
289                    if ($item[0] === $fname) {
290                        $disabled = true;
291                        break 2;
292                    }
293                }
294            }
295        }
296        // check if the folder is an other users virtual-root folder, then disable subscription option on it
297        if (!$disabled && $folder['virtual'] && $folder['level'] == 1
298            && !empty($namespace) && !empty($namespace['other'])
299        ) {
300            $parts = explode($delimiter, $folder['id']);
301            $fname = $parts[0] . $delimiter;
302            foreach ($namespace['other'] as $item) {
303                if ($item[0] === $fname) {
304                    $disabled = true;
305                    break;
306                }
307            }
308        }
309
310        $table->add_row(array('id' => 'rcmrow'.$idx, 'class' => join(' ', $classes),
311            'foldername' => $folder['id']));
312
313        $table->add('name', $display_folder);
314        $table->add('subscribed', $checkbox_subscribe->show(($subscribed ? $folder_utf8 : ''),
315            array('value' => $folder_utf8, 'disabled' => $disabled ? 'disabled' : '')));
316
317        $a_js_folders['rcmrow'.$idx] = array($folder_utf8,
318            Q($display_folder), $protected || $folder['virtual']);
319    }
320
321    $RCMAIL->plugins->exec_hook('folders_list', array('table' => $table));
322
323    $OUTPUT->add_gui_object('subscriptionlist', $attrib['id']);
324    $OUTPUT->set_env('subscriptionrows', $a_js_folders);
325    $OUTPUT->set_env('defaultfolders', $CONFIG['default_imap_folders']);
326    $OUTPUT->set_env('delimiter', $delimiter);
327
328    return $form_start . $table->show($attrib) . $form_end;
329}
330
331function rcmail_folder_frame($attrib)
332{
333    global $OUTPUT;
334
335    if (!$attrib['id'])
336        $attrib['id'] = 'rcmfolderframe';
337
338    $attrib['name'] = $attrib['id'];
339
340    $OUTPUT->set_env('contentframe', $attrib['name']);
341    $OUTPUT->set_env('blankpage', $attrib['src'] ? $OUTPUT->abs_url($attrib['src']) : 'program/blank.gif');
342
343    return html::iframe($attrib);
344}
345
346function rcmail_rename_folder($oldname, $newname)
347{
348    global $RCMAIL;
349
350    $delimiter = $RCMAIL->imap->get_hierarchy_delimiter();
351
352    $plugin = $RCMAIL->plugins->exec_hook('folder_rename', array(
353        'oldname' => $oldname, 'newname' => $newname));
354
355    if (!$plugin['abort']) {
356        $renamed =  $RCMAIL->imap->rename_mailbox($oldname, $newname);
357    }
358    else {
359        $renamed = $plugin['result'];
360    }
361
362    // update per-folder options for modified folder and its subfolders
363    if ($renamed) {
364        $a_threaded = (array) $RCMAIL->config->get('message_threading', array());
365        $oldprefix  = '/^' . preg_quote($oldname . $delimiter, '/') . '/';
366
367        foreach ($a_threaded as $key => $val) {
368            if ($key == $oldname) {
369                unset($a_threaded[$key]);
370                $a_threaded[$newname] = true;
371            }
372            else if (preg_match($oldprefix, $key)) {
373                unset($a_threaded[$key]);
374                    $a_threaded[preg_replace($oldprefix, $newname.$delimiter, $key)] = true;
375            }
376        }
377        $RCMAIL->user->save_prefs(array('message_threading' => $a_threaded));
378
379        return true;
380    }
381
382    return false;
383}
384
385
386$OUTPUT->set_pagetitle(rcube_label('folders'));
387$OUTPUT->include_script('list.js');
388$OUTPUT->set_env('quota', $IMAP->get_capability('QUOTA'));
389
390// add some labels to client
391$OUTPUT->add_label('deletefolderconfirm', 'purgefolderconfirm', 'folderdeleting',
392    'foldermoving', 'foldersubscribing', 'folderunsubscribing', 'quota');
393
394// register UI objects
395$OUTPUT->add_handlers(array(
396    'foldersubscription' => 'rcube_subscription_form',
397    'folderframe' => 'rcmail_folder_frame',
398    'quotadisplay' => 'rcmail_quota_display',
399));
400
401$OUTPUT->send('folders');
402
Note: See TracBrowser for help on using the repository browser.