X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Ffolders_delete.php;h=d24eb9a8f39017c24eef697495c6eeb527fbe89e;hb=de19cd7342abc1fb96dce8403128152b7708ec58;hp=caebfcb2c115787c847db545b8e5bcaa1ab97e1d;hpb=b235d62915dba943446744b725971bd2c47bc347;p=squirrelmail.git diff --git a/src/folders_delete.php b/src/folders_delete.php index caebfcb2..d24eb9a8 100644 --- a/src/folders_delete.php +++ b/src/folders_delete.php @@ -1,82 +1,117 @@ -\n"; - $imapConnection = loginToImapServer($username, $key, $imapServerAddress, 0); - getFolderList($imapConnection, $boxes); - - $dm = findMailboxDelimeter($imapConnection); - /** lets see if we CAN move folders to the trash.. otherwise, just delete them **/ - for ($i = 0; $i < count($boxes[$i]["UNFORMATTED"]); $i++) { - if ($boxes[$i]["UNFORMATTED"] == $trash_folder) - $tmp_trash_folder = $boxes[$i]["RAW"]; - } - - $tmpflags = getMailboxFlags($tmp_trash_folder); - $can_move_to_trash = true; - for ($i = 0; $i < count($tmpflags); $i++) { - if (strtolower($tmpflags[$i]) == "noinferiors") - $can_move_to_trash = false; - } - - /** Lets start removing the folders and messages **/ - if (($move_to_trash == true) && ($can_move_to_trash == true)) { /** if they wish to move messages to the trash **/ - /** Creates the subfolders under $trash_folder **/ - for ($i = 0; $i < count($boxes); $i++) { - if (($boxes[$i]["UNFORMATTED"] == $mailbox) || - (substr($boxes[$i]["UNFORMATTED"], 0, strlen($mailbox . $dm)) == $mailbox . $dm)) { - $folderWithoutINBOX = getFolderNameMinusINBOX($boxes[$i]["UNFORMATTED"], $dm); - $flags = getMailboxFlags($boxes[$i]["RAW"]); - for ($b = 0; $b < count($flags); $b++) { - $type = $flags[$b]; - } - createFolder($imapConnection, "$trash_folder" . $dm . "$folderWithoutINBOX", $type); - } - } - for ($i = 0; $i < count($boxes); $i++) { - if (($boxes[$i]["UNFORMATTED"] == $mailbox) || - (substr($boxes[$i]["UNFORMATTED"], 0, strlen($mailbox . $dm)) == $mailbox . $dm)) { - selectMailbox($imapConnection, $boxes[$i]["UNFORMATTED"], $numMessages); - $folder = getFolderNameMinusINBOX($boxes[$i]["UNFORMATTED"]); - - if ($numMessages > 0) - $success = copyMessages($imapConnection, 1, $numMessages, "$trash_folder" . $dm . "$folder"); - else - $success = true; - - if ($success == true) - removeFolder($imapConnection, $boxes[$i]["UNFORMATTED"]); - } - } - } else { /** if they do NOT wish to move messages to the trash (or cannot)**/ - fputs($imapConnection, "1 LIST \"$mailbox\" *\n"); - $data = imapReadData($imapConnection , "1", false, $response, $message); - while (substr($data[0], strpos($data[0], " ")+1, 4) == "LIST") { - for ($i = 0; $i < count($boxes); $i++) { - if (($boxes[$i]["UNFORMATTED"] == $mailbox) || - (substr($boxes[$i]["UNFORMATTED"], 0, strlen($mailbox . $dm)) == $mailbox . $dm)) { - removeFolder($imapConnection, $boxes[$i]["UNFORMATTED"]); - } - } - fputs($imapConnection, "1 LIST \"$mailbox\" *\n"); - $data = imapReadData($imapConnection , "1", false, $response, $message); - } - } - - /** Log out this session **/ - fputs($imapConnection, "1 logout"); - - echo "

"; - echo _("Return"); - echo ""; - echo ""; -?> +"; + plain_error_message(_("You have not selected a folder to delete. Please do so.")."
"._("Click here to go back").".", $color); + exit; +} + + +$imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); +$boxes = sqimap_mailbox_list ($imap_stream); +global $delimiter, $delete_folder; + +if (substr($mailbox, -1) == $delimiter) + $mailbox_no_dm = substr($mailbox, 0, strlen($mailbox) - 1); +else + $mailbox_no_dm = $mailbox; + +/** lets see if we CAN move folders to the trash.. otherwise, + ** just delete them **/ +/* Courier IMAP doesn't like subfolders of Trash */ +if (strtolower($imap_server_type) == "courier") { + $can_move_to_trash = false; +} +/* If global options say we can't move it into Trash */ +else if(isset($delete_folder) && $delete_folder == true) { + $can_move_to_trash = false; +} + +/* If it's already a subfolder of trash, we'll have to delete it */ +else if(eregi("^".$trash_folder.".+", $mailbox)) { + + $can_move_to_trash = false; + +} + +/* Otherwise, check if trash folder exits and support sub-folders */ +else { + for ($i = 0; $i < count($boxes); $i++) { + if ($boxes[$i]["unformatted"] == $trash_folder) { + $can_move_to_trash = !in_array('noinferiors', $boxes[$i]['flags']); + } + } +} + +/** First create the top node in the tree **/ +for ($i = 0;$i < count($boxes);$i++) { + if (($boxes[$i]["unformatted-dm"] == $mailbox) && (strlen($boxes[$i]["unformatted-dm"]) == strlen($mailbox))) { + $foldersTree[0]["value"] = $mailbox; + $foldersTree[0]["doIHaveChildren"] = false; + continue; + } +} +/* Now create the nodes for subfolders of the parent folder + You can tell that it is a subfolder by tacking the mailbox delimiter + on the end of the $mailbox string, and compare to that. */ +$j = 0; +for ($i = 0;$i < count($boxes);$i++) { + if (substr($boxes[$i]["unformatted"], 0, strlen($mailbox_no_dm . $delimiter)) == ($mailbox_no_dm . $delimiter)) { + addChildNodeToTree($boxes[$i]["unformatted"], $boxes[$i]["unformatted-dm"], $foldersTree); + } +} +/* simpleWalkTreePre(0, $foldersTree); */ + +/** Lets start removing the folders and messages **/ +if (($move_to_trash == true) && ($can_move_to_trash == true)) { /** if they wish to move messages to the trash **/ + walkTreeInPostOrderCreatingFoldersUnderTrash(0, $imap_stream, $foldersTree, $mailbox); + walkTreeInPreOrderDeleteFolders(0, $imap_stream, $foldersTree); +} else { /** if they do NOT wish to move messages to the trash (or cannot)**/ + walkTreeInPreOrderDeleteFolders(0, $imap_stream, $foldersTree); +} + +/** Log out this session **/ +sqimap_logout($imap_stream); + +$location = get_location(); +header ("Location: $location/folders.php?success=delete"); +/* +echo "

"; +echo _("Folder Deleted!"); +echo "

"; +echo _("The folder has been successfully deleted."); +echo "
"; +echo _("Click here"); +echo " "; +echo _("to continue."); +echo ""; + +echo ""; +*/ +?>