- fixed and improved wordWrap
[squirrelmail.git] / src / folders_delete.php
index c79b24d61682e4f70e5064aa990723250fe8edff..e6d945effd541aecad07ee57060a692412a445ad 100644 (file)
@@ -1,4 +1,16 @@
-<?
+<?php
+   /**
+    **  folders_delete.php
+    **
+    **  Copyright (c) 1999-2000 The SquirrelMail development team
+    **  Licensed under the GNU GPL. For full terms see the file COPYING.
+    **
+    **  Deltes folders from the IMAP server. 
+    **  Called from the folders.php
+    **/
+
+   session_start();
+
    /*
    *  Incoming values:
    *     $mailbox - selected mailbox from the form
 
    include("../src/load_prefs.php");
 
-   echo "<HTML>";
-   echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
-   displayPageHeader($color, "None");  
-
    
-   $imap_stream = sqimap_login($username, $key, $imapServerAddress, 0);
+   $imap_stream = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
    $boxes = sqimap_mailbox_list ($imap_stream);
    $dm = sqimap_get_delimiter($imap_stream);
+   $mailbox = sqStripSlashes($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++) {
@@ -42,7 +56,7 @@
 
    /** First create the top node in the tree **/
    for ($i = 0;$i < count($boxes);$i++) {
-      if (($boxes[$i]["unformatted"] == $mailbox) && (strlen($boxes[$i]["unformatted"]) == strlen($mailbox))) {
+      if (($boxes[$i]["unformatted-dm"] == $mailbox) && (strlen($boxes[$i]["unformatted-dm"]) == strlen($mailbox))) {
          $foldersTree[0]["value"] = $mailbox;
          $foldersTree[0]["doIHaveChildren"] = false;
          continue;
    //    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 . $dm)) == ($mailbox . $dm)) {
-         addChildNodeToTree($boxes[$i]["unformatted"], $foldersTree);
+      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 **/
@@ -69,7 +84,9 @@
    /** Log out this session **/
    sqimap_logout($imap_stream);
 
-   echo "<FONT FACE=\"Arial,Helvetica\">";
+   $location = get_location();
+   header ("Location: $location/folders.php?success=delete");
+   /*
    echo "<BR><BR><BR><CENTER><B>";
    echo _("Folder Deleted!");
    echo "</B><BR><BR>";
@@ -78,7 +95,8 @@
    echo _("Click here");
    echo "</A> ";
    echo _("to continue.");
-   echo "</CENTER></FONT>"; 
+   echo "</CENTER>"; 
    
    echo "</BODY></HTML>";
+   */
 ?>