59177427 |
1 | <?php |
895905c0 |
2 | |
35586184 |
3 | /** |
4 | * empty_trash.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 | * Handles deleting messages from the trash folder without |
10 | * deleting subfolders. |
11 | * |
12 | * $Id$ |
13 | */ |
ef870322 |
14 | |
86725763 |
15 | /* Path for SquirrelMail required files. */ |
16 | define('SM_PATH','../'); |
17 | |
18 | /* SquirrelMail required files. */ |
08185f2a |
19 | require_once(SM_PATH . 'include/validate.php'); |
86725763 |
20 | require_once(SM_PATH . 'functions/display_messages.php'); |
21 | require_once(SM_PATH . 'functions/imap.php'); |
22 | require_once(SM_PATH . 'functions/array.php'); |
23 | require_once(SM_PATH . 'functions/tree.php'); |
d3cdb279 |
24 | |
65c3ec94 |
25 | $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); |
26 | |
27 | sqimap_mailbox_list($imap_stream); |
7a783442 |
28 | |
65c3ec94 |
29 | $mailbox = $trash_folder; |
30 | $boxes = sqimap_mailbox_list($imap_stream); |
31 | global $delimiter; |
d92b6f31 |
32 | |
65c3ec94 |
33 | /* |
34 | * According to RFC2060, a DELETE command should NOT remove inferiors (sub folders) |
35 | * so lets go through the list of subfolders and remove them before removing the |
36 | * parent. |
37 | */ |
38 | |
39 | /** First create the top node in the tree **/ |
40 | for ($i = 0;$i < count($boxes);$i++) { |
41 | if (($boxes[$i]["unformatted"] == $mailbox) && (strlen($boxes[$i]["unformatted"]) == strlen($mailbox))) { |
42 | $foldersTree[0]["value"] = $mailbox; |
43 | $foldersTree[0]["doIHaveChildren"] = false; |
44 | continue; |
45 | } |
46 | } |
47 | /* |
48 | * Now create the nodes for subfolders of the parent folder |
49 | * You can tell that it is a subfolder by tacking the mailbox delimiter |
50 | * on the end of the $mailbox string, and compare to that. |
51 | */ |
52 | $j = 0; |
53 | for ($i = 0;$i < count($boxes);$i++) { |
54 | if (substr($boxes[$i]["unformatted"], 0, strlen($mailbox . $delimiter)) == ($mailbox . $delimiter)) { |
55 | addChildNodeToTree($boxes[$i]["unformatted"], $boxes[$i]["unformatted-dm"], $foldersTree); |
56 | } |
57 | } |
0a1d5f3a |
58 | |
65c3ec94 |
59 | // now lets go through the tree and delete the folders |
60 | walkTreeInPreOrderEmptyTrash(0, $imap_stream, $foldersTree); |
a11899fd |
61 | |
65c3ec94 |
62 | $location = get_location(); |
63 | header ("Location: $location/left_main.php"); |
e9f8ea4e |
64 | |
65c3ec94 |
65 | sqimap_logout($imap_stream); |
525b7ae6 |
66 | ?> |