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