Rewrote imap functions
[squirrelmail.git] / src / folders_rename_getname.php
1 <?
2 include("../config/config.php");
3 include("../functions/strings.php");
4 include("../functions/page_header.php");
5 include("../functions/imap.php");
6
7 include("../src/load_prefs.php");
8
9 $imapConnection = sqimap_login($username, $key, $imapServerAddress, 0);
10 sqimap_mailbox_select($imapConnection, $old);
11
12 $dm = sqimap_get_delimiter($imapConnection);
13 if (strpos($old, $dm)) {
14 $old_name = substr($old, strrpos($old, $dm)+1, strlen($old));
15 $old_parent = substr($old, 0, strrpos($old, $dm));
16 } else {
17 $old_name = $old;
18 $old_parent = "";
19 }
20
21 echo "<HTML><BODY TEXT=\"$color[8]\" BGCOLOR=\"$color[4]\" LINK=\"$color[7]\" VLINK=\"$color[7]\" ALINK=\"$color[7]\">\n";
22 displayPageHeader($color, "None");
23 echo "<TABLE WIDTH=100% COLS=1>";
24 echo "<TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER><FONT FACE=\"Arial,Helvetica\"><B>";
25 echo _("Rename a folder");
26 echo "</B></FONT></TD></TR>";
27 echo "<TR><TD BGCOLOR=\"$color[4]\" ALIGN=CENTER>";
28 echo "<FORM ACTION=folders_rename_do.php METHOD=POST>\n";
29 echo _("New name:");
30 echo " &nbsp;&nbsp;<INPUT TYPE=TEXT SIZE=25 NAME=new_name VALUE=\"$old_name\"><BR>\n";
31 echo "<INPUT TYPE=HIDDEN NAME=orig VALUE=\"$old\">";
32 echo "<INPUT TYPE=SUBMIT VALUE=\"";
33 echo _("Submit");
34 echo "\">\n";
35 echo "</FORM><BR></TD></TR>";
36 echo "</TABLE>";
37
38 /** Log out this session **/
39 sqimap_logout($imapConnection);
40 ?>
41
42