fixed several parse errors with gettext stuff

[squirrelmail.git] / src / folders_create.php
diff --git a/src/folders_create.php b/src/folders_create.php

index 79b0224cbdaf13a0278265601101be0d90d5da24..4a11e45b47ccff70b370d64dfd00badda76ed3f5 100644 (file)
--- a/src/folders_create.php
+++ b/src/folders_create.php
@@ -1,19 +1,39 @@
+<HTML>
  <?
     include("../config/config.php");
     include("../functions/strings.php");
     include("../functions/page_header.php");
     include("../functions/imap.php");
+   include("../functions/display_messages.php");
+
+   include("../src/load_prefs.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);
+   $dm = findMailboxDelimeter($imapConnection);
  
-   if ($subfolder == "INBOX")
-      fputs($imapConnection, "1 create \"user.$username.$folder_name\"\n");
-   else
-      fputs($imapConnection, "1 create \"user.$username.$subfolder.$folder_name\"\n");
+   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 "<BR><BR><A HREF=\"folders.php\">Return</A>";
+   echo "<BR><BR><A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>";
+   echo _("Return");
+   echo "</A>";
  ?>
-
+</BODY></HTML>