4 * folders_rename_getname.php
6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
7 * Licensed under the GNU GPL. For full terms see the file COPYING.
9 * Gets folder names and enables renaming
10 * Called from folders.php
17 /* Path for SquirrelMail required files. */
18 define('SM_PATH','../');
20 /* SquirrelMail required files. */
21 require_once(SM_PATH
. 'include/validate.php');
22 require_once(SM_PATH
. 'functions/imap.php');
23 require_once(SM_PATH
. 'functions/html.php');
26 displayPageHeader($color, 'None');
27 echo "<html><body bgcolor=$color[4]>";
28 plain_error_message(_("You have not selected a folder to rename. Please do so.")."<BR><A HREF=\"../src/folders.php\">"._("Click here to go back")."</A>.", $color);
33 $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
35 if (substr($old, strlen($old) - strlen($delimiter)) == $delimiter) {
37 $old = substr($old, 0, strlen($old) - 1);
42 if (strpos($old, $delimiter)) {
43 $old_name = substr($old, strrpos($old, $delimiter)+
1, strlen($old));
44 $old_parent = substr($old, 0, strrpos($old, $delimiter));
50 displayPageHeader($color, 'None');
52 html_tag( 'table', '', 'center', '', 'width="95%" cols="1" border="0"' ) .
54 html_tag( 'td', '<b>' . _("Rename a folder") . '</b>', 'center', $color[0] )
57 html_tag( 'td', '', 'center', $color[4] ) .
58 "<FORM ACTION=\"folders_rename_do.php\" METHOD=\"POST\">\n".
60 "<br><B>$old_parent $delimiter </B><INPUT TYPE=TEXT SIZE=25 NAME=new_name VALUE=\"$old_name\"><BR>\n";
62 echo "<INPUT TYPE=HIDDEN NAME=isfolder VALUE=\"true\">";
64 printf("<INPUT TYPE=HIDDEN NAME=orig VALUE=\"%s\">\n", $old);
65 printf("<INPUT TYPE=HIDDEN NAME=old_name VALUE=\"%s\">\n", $old_name);
66 echo "<INPUT TYPE=SUBMIT VALUE=\""._("Submit")."\">\n".
67 "</FORM><BR></td></tr>".
70 /** Log out this session **/
71 sqimap_logout($imapConnection);