added debug info to track emptying of trash bug on Shane's
[squirrelmail.git] / src / empty_trash.php
CommitLineData
7a783442 1<?
2 include("../config/config.php");
3 include("../functions/mailbox.php");
4 include("../functions/strings.php");
5 include("../functions/page_header.php");
6 include("../functions/display_messages.php");
2aa12d5e 7 include("../functions/imap.php");
7ce342dc 8 include("../functions/array.php");
7a783442 9
d3cdb279 10 include("../src/load_prefs.php");
11
b235d629 12 $imapConnection = loginToImapServer($username, $key, $imapServerAddress, 0);
7a783442 13
7ce342dc 14 getFolderList($imapConnection, $boxes);
d92b6f31 15
16 $mailbox = $trash_folder;
17 fputs($imapConnection, "1 LIST \"$mailbox\" *\n");
18 $data = imapReadData($imapConnection , "1", false, $response, $message);
19 while (substr($data[0], strpos($data[0], " ")+1, 4) == "LIST") {
7ce342dc 20 for ($i = 0; $i < count($boxes); $i++) {
21 if (($boxes[$i]["UNFORMATTED"] == $mailbox) ||
22 (substr($boxes[$i]["UNFORMATTED"], 0, strlen($mailbox . $dm)) == $mailbox . $dm)) {
6520d9e6 23 echo "\nDEBUG - Removing folder " . $boxes[$i]["UNFORMATTED"] . "<BR>\n";
24 echo "DEBUG - mailbox is : $mailbox<br>\n";
7ce342dc 25 removeFolder($imapConnection, $boxes[$i]["UNFORMATTED"]);
d92b6f31 26 }
a11899fd 27 }
d92b6f31 28 fputs($imapConnection, "1 LIST \"$mailbox\" *\n");
29 $data = imapReadData($imapConnection , "1", false, $response, $message);
a11899fd 30 }
31
d92b6f31 32 createFolder($imapConnection, "$trash_folder", "");
7a783442 33
ad6787f0 34 selectMailbox($imapConnection, $trash_folder, $numMessages);
f8f9bed9 35 echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
36 displayPageHeader($color, $mailbox);
d92b6f31 37 messages_deleted_message($trash_folder, $sort, $startMessage, $color);
ad6787f0 38 fputs($imapConnection, "1 logout");
2aa12d5e 39?>