Source for file folders_rename_do.php

Documentation is available at folders_rename_do.php

  1. <?php
  2.  
  3. /**
  4.  * folders_rename_do.php
  5.  *
  6.  * Does the actual renaming of files on the IMAP server.
  7.  * Called from the folders.php
  8.  *
  9.  * @copyright 1999-2012 The SquirrelMail Project Team
  10.  * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  11.  * @version $Id: folders_rename_do.php 14248 2012-01-02 00:18:17Z pdontthink $
  12.  * @package squirrelmail
  13.  */
  14.  
  15. /** This is the folders_rename_do page */
  16. define('PAGE_NAME', 'folders_rename_do');
  17.  
  18. /**
  19.  * Path for SquirrelMail required files.
  20.  * @ignore
  21.  */
  22. define('SM_PATH','../');
  23.  
  24. /* SquirrelMail required files. */
  25. require_once(SM_PATH . 'include/validate.php');
  26. require_once(SM_PATH . 'functions/global.php');
  27. require_once(SM_PATH . 'functions/imap.php');
  28. require_once(SM_PATH . 'functions/display_messages.php');
  29.  
  30. /* globals */
  31. sqgetGlobalVar('key',       $key,           SQ_COOKIE);
  32. sqgetGlobalVar('username',  $username,      SQ_SESSION);
  33. sqgetGlobalVar('delimiter', $delimiter,     SQ_SESSION);
  34. sqgetGlobalVar('onetimepad',$onetimepad,    SQ_SESSION);
  35. sqgetGlobalVar('orig',      $orig,          SQ_POST);
  36. sqgetGlobalVar('old_name',  $old_name,      SQ_POST);
  37. sqgetGlobalVar('new_name',  $new_name,      SQ_POST);
  38. if (!sqgetGlobalVar('smtoken',$submitted_token, SQ_POST)) {
  39.     $submitted_token = '';
  40. }
  41. /* end globals */
  42.  
  43. // first, validate security token
  44. sm_validate_security_token($submitted_token, 3600, TRUE);
  45.  
  46. $new_name = trim($new_name);
  47.  
  48. if (substr_count($new_name, '"') || substr_count($new_name, "\\") ||
  49.     substr_count($new_name, $delimiter) || ($new_name == '')) {
  50.     displayPageHeader($color, 'None');
  51.  
  52.     plain_error_message(_("Illegal folder name. Please select a different name.").
  53.         '<br /><a href="../src/folders.php">'._("Click here to go back").'</a>.', $color);
  54.  
  55.     exit;
  56. }
  57.  
  58. $orig = imap_utf7_encode_local($orig);
  59. $old_name = imap_utf7_encode_local($old_name);
  60. $new_name = imap_utf7_encode_local($new_name);
  61.  
  62. if ($old_name <> $new_name) {
  63.  
  64.     $imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
  65.  
  66.     if (strpos($orig, $delimiter)) {
  67.         $old_dir = substr($orig, 0, strrpos($orig, $delimiter));
  68.     } else {
  69.         $old_dir = '';
  70.     }
  71.  
  72.     if ($old_dir != '') {
  73.         $newone = $old_dir . $delimiter . $new_name;
  74.     } else {
  75.         $newone = $new_name;
  76.     }
  77.  
  78.     // Renaming a folder doesn't rename the folder but leaves you unsubscribed
  79.     //    at least on Cyrus IMAP servers.
  80.     if (isset($isfolder)) {
  81.         $newone = $newone.$delimiter;
  82.         $orig = $orig.$delimiter;
  83.     }
  84.     sqimap_mailbox_rename( $imapConnection, $orig, $newone );
  85.  
  86.     // Log out this session 
  87.     sqimap_logout($imapConnection);
  88.  
  89. }
  90.  
  91. header ('Location: ' . get_location() . '/folders.php?success=rename');

Documentation generated on Fri, 24 May 2013 04:22:11 +0200 by phpDocumentor 1.4.3