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"); |
12 | |
813eba2f |
13 | $imapConnection = sqimap_login($username, $key, $imapServerAddress, 0); |
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 |
30 | // at least on Cyrus IMAP servers. |
693ccbc9 |
31 | if ($isfolder) { |
32 | $newone = $newone.$dm; |
33 | $orig = $orig.$dm; |
34 | } |
35 | |
36 | sqimap_unsubscribe($imapConnection, $orig); |
37 | sqimap_subscribe($imapConnection, $newone); |
d92b6f31 |
38 | |
be69e508 |
39 | /** Log out this session **/ |
693ccbc9 |
40 | sqimap_logout($imapConnection); |
be69e508 |
41 | |
f8f9bed9 |
42 | echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n"; |
036a8a9d |
43 | echo "<BR><BR><A HREF=\"webmail.php?right_frame=folders.php\" TARGET=_top>"; |
44 | echo _("Return"); |
45 | echo "</A>"; |
f8f9bed9 |
46 | echo "</BODY></HTML>"; |
be69e508 |
47 | ?> |