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    include('../src/validate.php');
  15    include("../functions/page_header.php");
  16    include("../functions/imap.php");
  17    include("../src/load_prefs.php");
  18
  19    $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
  20
  21    $dm = sqimap_get_delimiter($imapConnection);
  22    if (substr($old, strlen($old) - strlen($dm)) == $dm) {
  23       $isfolder = true;
  24       $old = substr($old, 0, strlen($old) - 1);
  25    }
  26
  27    if (strpos($old, $dm)) {
  28       $old_name = substr($old, strrpos($old, $dm)+1, strlen($old));
  29       $old_parent = substr($old, 0, strrpos($old, $dm));
  30    } else {
  31       $old_name = $old;
  32       $old_parent = "";
  33    }
  34
  35    displayPageHeader($color, "None");
  36    echo "<br><TABLE align=center border=0 WIDTH=95% COLS=1>";
  37    echo "<TR><TD BGCOLOR=\"$color[0]\" ALIGN=CENTER><B>";
  38    echo _("Rename a folder");
  39    echo "</B></TD></TR>";
  40    echo "<TR><TD BGCOLOR=\"$color[4]\" ALIGN=CENTER>";
  41    echo "<FORM ACTION=\"folders_rename_do.php\" METHOD=\"POST\">\n";
  42    echo _("New name:");
  43    echo "<br><B>$old_parent . </B><INPUT TYPE=TEXT SIZE=25 NAME=new_name VALUE=\"$old_name\"><BR>\n";
  44    if (isset($isfolder))
  45       echo "<INPUT TYPE=HIDDEN NAME=isfolder VALUE=\"true\">";
  46    printf("<INPUT TYPE=HIDDEN NAME=orig VALUE=\"%s\">\n", $old);
  47    printf("<INPUT TYPE=HIDDEN NAME=old_name VALUE=\"%s\">\n", $old_name);
  48    echo "<INPUT TYPE=SUBMIT VALUE=\""._("Submit")."\">\n";
  49    echo "</FORM><BR></TD></TR>";
  50    echo "</TABLE>";
  51
  52    /** Log out this session **/
  53    sqimap_logout($imapConnection);
  54 ?>
  55
  56