Added a constat to all files in functions/ to be able to chech whether the
[squirrelmail.git] / src / folders_create.php
index 57be1754a9b2db1163366b12d82015ee39bc659e..4e42dd14a39e7a764864ca4d2883ceae96aa2daf 100644 (file)
@@ -1,29 +1,53 @@
 <?
-   include("../config/config.php");
-   include("../functions/strings.php");
-   include("../functions/page_header.php");
-   include("../functions/imap.php");
+   if (!isset($config_php))
+      include("../config/config.php");
+   if (!isset($strings_php))
+      include("../functions/strings.php");
+   if (!isset($page_header_php))
+      include("../functions/page_header.php");
+   if (!isset($imap_php))
+      include("../functions/imap.php");
+   if (!isset($display_messages_php))
+      include("../functions/display_messages.php");
 
-   $imapConnection = fsockopen($imapServerAddress, 143, &$errorNumber, &$errorString);
-   if (!$imapConnection) {
-      echo "Error connecting to IMAP Server.<br>";
-      echo "$errorNumber : $errorString<br>";
+   include("../src/load_prefs.php");
+
+   $imapConnection = sqimap_login($username, $key, $imapServerAddress, 0);
+   $dm = sqimap_get_delimiter($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;
    }
-   $serverInfo = fgets($imapConnection, 256);
-
-   fputs($imapConnection, "1 login $username $key\n");
-   $read = fgets($imapConnection, 1024);
-   echo $read;
 
-   if ($subfolder == "INBOX")
-      fputs($imapConnection, "1 create \"user.$username.$folder_name\"\n");
-   else
-      fputs($imapConnection, "1 create \"user.$username.$subfolder.$folder_name\"\n");
+   if ($contain_subs == true)
+      $folder_name = "$folder_name$dm";
 
+   if (trim($subfolder) == "[ None ]") {
+      sqimap_mailbox_create ($imapConnection, $folder_name, "");
+   } else {
+      sqimap_mailbox_create ($imapConnection, $subfolder.$dm.$folder_name, "");
+   }
    fputs($imapConnection, "1 logout\n");
 
-   echo "<BR><BR><A HREF=\"folders.php\">Return</A>";
+//   if ($auto_forward == true) {
+//      header ("Location: webmail.php?right_frame=folders.php");
+//   } else {
+      echo "<html><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
+      displayPageHeader($color, "None");
+      echo "<FONT FACE=\"Arial,Helvetica\">";
+      echo "<BR><BR><BR><CENTER><B>";
+      echo _("Folder Created!");
+      echo "</B><BR><BR>";
+      echo _("The folder has been successfully created.");
+      echo "<BR><A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>";
+      echo _("Click here");
+      echo "</A> ";
+      echo _("to continue.");
+      echo "</CENTER></FONT>";
+      echo "</BODY></HTML>";
+//   }
 ?>
 
-