[squirrelmail.git] / src / folders_rename_do.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");

   include("../src/load_prefs.php");

   $imapConnection = sqimap_login($username, $key, $imapServerAddress, 0);
   $dm = sqimap_get_delimiter($imapConnection);

   if (strpos($orig, $dm))
      $old_dir = substr($orig, 0, strrpos($orig, $dm));
   else
      $old_dir = "";

   if ($old_dir != "")
      $newone = "$old_dir$dm$new_name";
   else
      $newone = "$new_name";

   fputs ($imapConnection, ". RENAME \"$orig\" \"$newone\"\n");
   $data = sqimap_read_data($imapConnection, ".", true, $a, $b);

   // Renaming a folder doesn't renames the folder but leaves you unsubscribed
   //    at least on Cyrus IMAP servers.
   fputs ($imapConnection, "sub UNSUBSCRIBE \"$orig\"\n");
   fputs ($imapConnection, "sub SUBSCRIBE \"$newone\"\n");
   $data = sqimap_read_data($imapConnection, "sub", true, $a, $b);

   /** Log out this session **/
   fputs($imapConnection, "1 logout");

   echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
   echo "<BR><BR><A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>";
   echo _("Return");
   echo "</A>";
   echo "</BODY></HTML>";
?>
Commit	Line	Data
be69e508	1	<?
d068c0ec	2	if (!isset($config_php))
	3	include("../config/config.php");
	4	if (!isset($strings_php))
	5	include("../functions/strings.php");
	6	if (!isset($page_header_php))
	7	include("../functions/page_header.php");
	8	if (!isset($imap_php))
	9	include("../functions/imap.php");
be69e508	10
d3cdb279	11	include("../src/load_prefs.php");
d3cdb279	12
813eba2f	13	$imapConnection = sqimap_login($username, $key, $imapServerAddress, 0);
813eba2f	14	$dm = sqimap_get_delimiter($imapConnection);
d92b6f31	15
	16	if (strpos($orig, $dm))
	17	$old_dir = substr($orig, 0, strrpos($orig, $dm));
	18	else
	19	$old_dir = "";
	20
	21	if ($old_dir != "")
	22	$newone = "$old_dir$dm$new_name";
	23	else
	24	$newone = "$new_name";
	25
	26	fputs ($imapConnection, ". RENAME \"$orig\" \"$newone\"\n");
813eba2f	27	$data = sqimap_read_data($imapConnection, ".", true, $a, $b);
d92b6f31	28
f16d469a	29	// Renaming a folder doesn't renames the folder but leaves you unsubscribed
f16d469a	30	// at least on Cyrus IMAP servers.
813eba2f	31	fputs ($imapConnection, "sub UNSUBSCRIBE \"$orig\"\n");
23fc64b3	32	fputs ($imapConnection, "sub SUBSCRIBE \"$newone\"\n");
813eba2f	33	$data = sqimap_read_data($imapConnection, "sub", true, $a, $b);
d92b6f31	34
be69e508	35	/ Log out this session /
	36	fputs($imapConnection, "1 logout");
	37
f8f9bed9	38	echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
036a8a9d	39	echo "<BR><BR><A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>";
	40	echo _("Return");
	41	echo "</A>";
f8f9bed9	42	echo "</BODY></HTML>";
be69e508	43	?>