X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=src%2Ffolders_delete.php;h=c6d914d7d4b2f7b76c583140327c21801c87ff3c;hb=12719a100c59d2f34af1cb539eee1df0f2fd046c;hp=c6d06a6dd26e77c03692ec16092405803daae4e8;hpb=5917742752bea11a547aeba6e4102dd3655b4800;p=squirrelmail.git diff --git a/src/folders_delete.php b/src/folders_delete.php index c6d06a6d..c6d914d7 100644 --- a/src/folders_delete.php +++ b/src/folders_delete.php @@ -1,92 +1,140 @@ "; - echo "\n"; - displayPageHeader($color, "None"); - - - $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); - $boxes = sqimap_mailbox_list ($imap_stream); - $dm = sqimap_get_delimiter($imap_stream); - $mailbox = stripslashes($mailbox); - - if (substr($mailbox, -1) == $dm) - $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 **/ - for ($i = 0; $i < count($boxes); $i++) { - if ($boxes[$i]["unformatted"] == $trash_folder) { - $can_move_to_trash = true; - for ($j = 0; $j < count($boxes[$i]["flags"]); $j++) { - if (strtolower($boxes[$i]["flags"][$j]) == "noinferiors") - $can_move_to_trash = false; - } - } - } - - - /** 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 . $dm)) == ($mailbox_no_dm . $dm)) { - 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, $dm, $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); - - echo "


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

"; - echo _("The folder has been successfully deleted."); - echo "
"; - echo _("Click here"); - echo " "; - echo _("to continue."); - echo "
"; - - echo ""; + +/** + * folders_delete.php + * + * Copyright (c) 1999-2003 The SquirrelMail Project Team + * Licensed under the GNU GPL. For full terms see the file COPYING. + * + * Deletes folders from the IMAP server. + * Called from the folders.php + * + * $Id$ + */ + +/* Path for SquirrelMail required files. */ +define('SM_PATH','../'); + +/* SquirrelMail required files. */ +require_once(SM_PATH . 'include/validate.php'); +require_once(SM_PATH . 'functions/global.php'); +require_once(SM_PATH . 'functions/imap.php'); +require_once(SM_PATH . 'functions/tree.php'); +require_once(SM_PATH . 'functions/display_messages.php'); +require_once(SM_PATH . 'functions/html.php'); + +/* + * Incoming values: + * $mailbox - selected mailbox from the form + */ + +/* globals */ +sqgetGlobalVar('key', $key, SQ_COOKIE); +sqgetGlobalVar('username', $username, SQ_SESSION); +sqgetGlobalVar('onetimepad',$onetimepad, SQ_SESSION); +sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION); +sqgetGlobalVar('mailbox', $mailbox, SQ_POST); +/* end globals */ + +if ($mailbox == '') { + displayPageHeader($color, 'None'); + + plain_error_message(_("You have not selected a folder to delete. Please do so."). + '
'._("Click here to go back").'.', $color); + exit; +} + +if ( sqgetGlobalVar('backingout', $tmp, SQ_POST) ) { + $location = get_location(); + header ("Location: $location/folders.php"); + exit; +} + +if( !sqgetGlobalVar('confirmed', $tmp, SQ_POST) ) { + displayPageHeader($color, 'None'); + + echo '
' . + html_tag( 'table', '', 'center', '', 'width="95%" border="0"' ) . + html_tag( 'tr', + html_tag( 'td', '' . _("Delete Folder") . '', 'center', $color[0] ) + ) . + html_tag( 'tr' ) . + html_tag( 'td', '', 'center', $color[4] ) . + sprintf(_("Are you sure you want to delete %s?"), imap_utf7_decode_local($mailbox)). + '

'. + + '\n" . + '\n". + '\n". + '


'; + + exit; +} + +$imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0); + +$boxes = sqimap_mailbox_list ($imap_stream); +$numboxes = count($boxes); + +global $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 global options say we can't move it into Trash + * If it's already a subfolder of trash, we'll have to delete it */ +if (strtolower($imap_server_type) == 'courier' || + (isset($delete_folder) && $delete_folder) || + eregi('^'.$trash_folder.'.+', $mailbox) ) +{ + $can_move_to_trash = FALSE; +} + +/* Otherwise, check if trash folder exits and support sub-folders */ +else { + for ($i = 0; $i < $numboxes; $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 < $numboxes; $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. */ +for ($i = 0; $i < $numboxes; $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); + } +} + +/** 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"); + ?>