updated the MIME support. It's much better
[squirrelmail.git] / src / folders_create.php
index 6ce2afe5e9435c8195e153d5bfd63825657357b7..b34a53328d37e8b8d972185267d9575c6984c477 100644 (file)
@@ -1,17 +1,35 @@
 <HTML>
-<META HTTP-EQUIV="REFRESH" CONTENT="0;URL=webmail.php?right_frame=folders.php" TARGET=_top>
-<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000EE" VLINK="#0000EE" ALINK="#0000EE">
 <?
    include("../config/config.php");
    include("../functions/strings.php");
    include("../functions/page_header.php");
    include("../functions/imap.php");
+   include("../functions/display_messages.php");
+
+   echo "<BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
+   displayPageHeader($color, "None");
 
    $imapConnection = loginToImapServer($username, $key, $imapServerAddress);
-   fputs($imapConnection, "1 create \"$subfolder.$folder_name\"\n");
+   $dm = findMailboxDelimeter($imapConnection);
+
+   if (strpos($folder_name, "\"") || strpos($folder_name, ".") ||
+       strpos($folder_name, "/") || strpos($folder_name, "\\") ||
+       strpos($folder_name, "'") || strpos($folder_name, "$dm")) {
+      plain_error_message("Illegal folder name.  Please select a different name.<BR><A HREF=\"../src/folders.php\">Click here to go back</A>.", $color);
+      exit;
+   }
+
+   if ($contain_subs == true)
+      $folder_name = "$folder_name$dm";
+
+   if (trim($subfolder) == "[ None ]") {
+      createFolder($imapConnection, "$folder_name");
+   } else {
+      createFolder($imapConnection, "$subfolder$dm$folder_name");
+   }
    fputs($imapConnection, "1 logout\n");
 
-   echo "<CENTER><BR><BR>You will be automatically forwarded.<BR>If not, <A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>click here</A></CENTER>";
+   echo "<BR><BR><A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>Return</A>";
 ?>
 </BODY></HTML>