Rewrote imap functions
[squirrelmail.git] / src / folders.php
1 <?
2 include("../config/config.php");
3 include("../functions/strings.php");
4 include("../functions/page_header.php");
5 include("../functions/imap.php");
6 include("../functions/array.php");
7
8 include("../src/load_prefs.php");
9
10 echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
11
12 displayPageHeader($color, "None");
13
14 echo "<TABLE WIDTH=100% COLS=1 ALIGN=CENTER>\n";
15 echo " <TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER>\n";
16 echo " <FONT FACE=\"Arial,Helvetica\">";
17 echo _("Folders");
18 echo "</FONT>\n";
19 echo " </TD></TR>\n";
20 echo "</TABLE>\n";
21
22 $imapConnection = sqimap_login ($username, $key, $imapServerAddress, 0);
23 $boxes = sqimap_mailbox_list($imapConnection);
24
25 /** DELETING FOLDERS **/
26 echo "<TABLE WIDTH=70% COLS=1 ALIGN=CENTER>\n";
27 echo "<TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER><FONT FACE=\"Arial,Helvetica\"><B>";
28 echo _("Delete Folder");
29 echo "</B></FONT></TD></TR>";
30 echo "<TR><TD BGCOLOR=\"$color[4]\" ALIGN=CENTER>";
31 echo "<FORM ACTION=folders_delete.php METHOD=SUBMIT>\n";
32 echo "<TT><SELECT NAME=mailbox>\n";
33 for ($i = 0; $i < count($boxes); $i++) {
34 $use_folder = true;
35 for ($p = 0; $p < count($special_folders); $p++) {
36 if ($boxes[$i]["unformatted"] == $special_folders[$p]) {
37 $use_folder = false;
38 } else if (substr($boxes[$i]["unformatted"], 0, strlen($trash_folder)) == $trash_folder) {
39 $use_folder = false;
40 }
41 }
42 if ($use_folder == true) {
43 $box = $boxes[$i]["unformatted"];
44 $box2 = replace_spaces($boxes[$i]["formatted"]);
45 echo " <OPTION VALUE=\"$box\">$box2\n";
46 }
47 }
48
49 echo "</SELECT></TT>\n";
50 echo "<FONT FACE=\"Arial,Helvetica\"><INPUT TYPE=SUBMIT VALUE=\"";
51 echo _("Delete");
52 echo "\"></FONT>\n";
53 echo "</FORM><BR></TD></TR><BR>\n";
54
55 /** CREATING FOLDERS **/
56 echo "<TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER><FONT FACE=\"Arial,Helvetica\"><B>";
57 echo _("Create Folder");
58 echo "</B></FONT></TD></TR>";
59 echo "<TR><TD BGCOLOR=\"$color[4]\" ALIGN=CENTER>";
60 echo "<FORM ACTION=folders_create.php METHOD=POST>\n";
61 echo "<INPUT TYPE=TEXT SIZE=25 NAME=folder_name><BR>\n";
62 echo "<FONT FACE=\"Arial,Helvetica\">";
63 echo _("as a subfolder of");
64 echo "</FONT><BR>";
65 echo "<TT><SELECT NAME=subfolder><FONT FACE=\"Arial,Helvetica\">\n";
66 if ($default_sub_of_inbox == false)
67 echo "<OPTION SELECTED>[ None ]\n";
68 else
69 echo "<OPTION>[ None ]\n";
70
71 for ($i = 0; $i < count($boxes); $i++) {
72 if (($boxes[$i]["unformatted"] == $special_folders[0]) && ($default_sub_of_inbox == true)) {
73 $box = $boxes[$i]["unformatted"];
74 $box2 = replace_spaces($boxes[$i]["formatted"]);
75 echo "<OPTION SELECTED VALUE=\"$box\">$box2\n";
76 } else {
77 $box = $boxes[$i]["unformatted"];
78 $box2 = replace_spaces($boxes[$i]["formatted"]);
79 echo "<OPTION VALUE=\"$box\">$box2\n";
80 }
81 }
82 echo "</SELECT></TT><BR>\n";
83 echo "<FONT FACE=\"Arial,Helvetica\">";
84 if ($show_contain_subfolders_option) {
85 echo "<INPUT TYPE=CHECKBOX NAME=\"contain_subs\"><FONT FACE=\"Arial,Helvetica\"> &nbsp;";
86 echo _("Let this folder contain subfolders");
87 echo "</FONT><BR>";
88 }
89 echo "<INPUT TYPE=SUBMIT VALUE=Create></FONT>\n";
90 echo "</FORM><BR></TD></TR><BR>\n";
91
92 /** RENAMING FOLDERS **/
93 echo "<TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER><FONT FACE=\"Arial,Helvetica\"><B>";
94 echo _("Rename a Folder");
95 echo "</B></FONT></TD></TR>";
96 echo "<TR><TD BGCOLOR=\"$color[4]\" ALIGN=CENTER>";
97 echo "<FORM ACTION=folders_rename_getname.php METHOD=POST>\n";
98 echo "<TT><SELECT NAME=old><FONT FACE=\"Arial,Helvetica\">\n";
99 for ($i = 0; $i < count($boxes); $i++) {
100 $use_folder = true;
101 for ($p = 0; $p < count($special_folders); $p++) {
102 if ($boxes[$i]["unformatted"] == $special_folders[$p]) {
103 $use_folder = false;
104 } else if (substr($boxes[$i]["unformatted"], 0, strlen($trash_folder)) == $trash_folder) {
105 $use_folder = false;
106 }
107 }
108 if ($use_folder == true) {
109 $box = $boxes[$i]["unformatted"];
110 $box2 = replace_spaces($boxes[$i]["formatted"]);
111 echo " <OPTION VALUE=\"$box\">$box2\n";
112 }
113 }
114 echo "</SELECT></TT>\n";
115 echo "<FONT FACE=\"Arial,Helvetica\"><INPUT TYPE=SUBMIT VALUE=\"";
116 echo _("Rename");
117 echo "\"></FONT>\n";
118 echo "</FORM></TD></TR></TABLE><BR>\n";
119
120 ?>
121 </BODY></HTML>