e92f653eb381cd0027fff66abe25661aad27a868
[squirrelmail.git] / src / folders_rename_getname.php
1 <?php
2 /**
3 ** folders_rename_getname.php
4 **
5 ** Copyright (c) 1999-2000 The SquirrelMail development team
6 ** Licensed under the GNU GPL. For full terms see the file COPYING.
7 **
8 ** Gets folder names and enables renaming
9 ** Called from folders.php
10 **
11 ** $Id$
12 **/
13
14 session_start();
15
16 if (!isset($config_php))
17 include("../config/config.php");
18 if (!isset($strings_php))
19 include("../functions/strings.php");
20 if (!isset($page_header_php))
21 include("../functions/page_header.php");
22 if (!isset($imap_php))
23 include("../functions/imap.php");
24
25 include("../src/load_prefs.php");
26
27 $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
28
29 $dm = sqimap_get_delimiter($imapConnection);
30 if (substr($old, strlen($old) - strlen($dm)) == $dm) {
31 $isfolder = true;
32 $old = substr($old, 0, strlen($old) - 1);
33 }
34
35 if (strpos($old, $dm)) {
36 $old_name = substr($old, strrpos($old, $dm)+1, strlen($old));
37 $old_parent = substr($old, 0, strrpos($old, $dm));
38 } else {
39 $old_name = $old;
40 $old_parent = "";
41 }
42
43 $old_name = sqStripSlashes($old_name);
44
45 displayPageHeader($color, "None");
46 echo "<br><TABLE align=center border=0 WIDTH=95% COLS=1>";
47 echo "<TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER><B>";
48 echo _("Rename a folder");
49 echo "</B></TD></TR>";
50 echo "<TR><TD BGCOLOR=\"$color[4]\" ALIGN=CENTER>";
51 echo "<FORM ACTION=\"folders_rename_do.php\" METHOD=\"POST\">\n";
52 echo _("New name:");
53 echo "<br><B>$old_parent . </B><INPUT TYPE=TEXT SIZE=25 NAME=new_name VALUE=\"$old_name\"><BR>\n";
54 if ($isfolder)
55 echo "<INPUT TYPE=HIDDEN NAME=isfolder VALUE=\"true\">";
56 printf("<INPUT TYPE=HIDDEN NAME=orig VALUE=\"%s\">\n", $old);
57 printf("<INPUT TYPE=HIDDEN NAME=old_name VALUE=\"%s\">\n", $old_name);
58 echo "<INPUT TYPE=SUBMIT VALUE=\""._("Submit")."\">\n";
59 echo "</FORM><BR></TD></TR>";
60 echo "</TABLE>";
61
62 /** Log out this session **/
63 sqimap_logout($imapConnection);
64 ?>
65
66