Source for file move_messages.php

Documentation is available at move_messages.php

  1. <?php
  3. /**
  4. * move_messages.php
  5. *
  6. * Enables message moving between folders on the IMAP server.
  7. *
  8. * @copyright 1999-2020 The SquirrelMail Project Team
  9. * @license http://opensource.org/licenses/gpl-license.php GNU Public License
  10. * @version $Id: move_messages.php 14840 2020年01月07日 07:42:38Z pdontthink $
  11. * @package squirrelmail
  12. */
  14. /** This is the move_messages page */
  15. define ('PAGE_NAME', 'move_messages');
  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/global.php');
  23. require_once(SM_PATH . 'functions/display_messages.php');
  24. require_once(SM_PATH . 'functions/imap.php');
  25. require_once(SM_PATH . 'functions/html.php');
  27. global $compose_new_win;
  29. if ( !sqgetGlobalVar ('composesession', $composesession, SQ_SESSION ) ) {
  30. $composesession = 0;
  31. }
  33. function attachSelectedMessages ($msg, $imapConnection) {
  34. global $username, $attachment_dir , $startMessage,
  35. $data_dir , $composesession, $uid_support , $mailbox,
  36. $msgs, $thread_sort_messages, $allow_server_sort , $show_num;
  38. if (!$composesession) {
  39. $composesession = 1;
  40. sqsession_register ($composesession,'composesession');
  41. } else {
  42. $composesession++;
  43. sqsession_register ($composesession,'composesession');
  44. }
  46. $hashed_attachment_dir = getHashedDir ($username, $attachment_dir, $composesession);
  48. if ($thread_sort_messages || $allow_server_sort) {
  49. $start_index=0;
  50. } else {
  51. $start_index = ($startMessage-1) * $show_num;
  52. }
  54. $i = 0;
  55. $j = 0;
  56. $hashed_attachment_dir = getHashedDir ($username, $attachment_dir);
  58. $composeMessage = new Message ();
  59. $rfc822_header = new Rfc822Header ();
  60. $composeMessage->rfc822_header = $rfc822_header;
  61. $composeMessage->reply_rfc822_header = '';
  63. while ($j < count ($msg)) {
  64. if (isset($msg[$i])) {
  65. $id = $msg[$i];
  67. $body_a = sqimap_run_command ($imapConnection, "FETCH $id RFC822",true, $response, $readmessage, $uid_support);
  69. if ($response == 'OK') {
  70. $message = sqimap_get_message ($imapConnection, $id, $mailbox);
  72. // fetch the subject for the message from the object
  73. //
  74. $subject = $message->rfc822_header->subject;
  76. // use subject for file name
  77. //
  78. if ( empty($subject) )
  79. $filename = "untitled-".$message->entity_id;
  80. else
  81. $filename = $subject;
  82. $filename .= '.eml';
  84. // figure out a subject for new message
  85. //
  86. $subject = decodeHeader ($subject, false, false, true);
  87. $subject = trim ($subject);
  88. if (substr (strtolower ($subject), 0, 4) != 'fwd:') {
  89. $subject = 'Fwd: ' . $subject;
  90. }
  92. array_shift ($body_a);
  93. array_pop ($body_a);
  94. $body = implode ('', $body_a);
  95. $body .= "\r\n";
  97. $localfilename = GenerateRandomString (32, 'FILE', 7);
  98. $full_localfilename = "$hashed_attachment_dir/$localfilename";
  99. while (file_exists ($full_localfilename)) {
  100. $localfilename = GenerateRandomString (32, 'FILE', 7);
  101. $full_localfilename = "$hashed_attachment_dir/$localfilename";
  102. }
  104. $fp = fopen ( $full_localfilename, 'wb');
  105. fwrite ($fp, $body);
  106. fclose ($fp);
  107. $composeMessage->initAttachment('message/rfc822',$filename,
  108. $localfilename);
  109. $composeMessage->rfc822_header->subject = $subject;
  110. }
  111. $j++;
  112. }
  113. $i++;
  114. }
  116. sqgetGlobalVar ('compose_messages', $compose_messages, SQ_SESSION );
  117. if (!isset($compose_messages)
  118. || !is_array ($compose_messages)) {
  119. $compose_messages = array();
  120. }
  121. $compose_messages[$composesession] = $composeMessage;
  122. sqsession_register ($compose_messages,'compose_messages');
  124. return $composesession;
  125. }
  129. /* get globals */
  130. sqgetGlobalVar ('key', $key, SQ_COOKIE );
  131. sqgetGlobalVar ('username', $username, SQ_SESSION );
  132. sqgetGlobalVar ('onetimepad',$onetimepad, SQ_SESSION );
  133. sqgetGlobalVar ('delimiter', $delimiter, SQ_SESSION );
  134. sqgetGlobalVar ('base_uri', $base_uri, SQ_SESSION );
  136. sqgetGlobalVar ('mailbox', $mailbox);
  137. sqgetGlobalVar ('startMessage', $startMessage);
  138. sqgetGlobalVar ('msg', $msg);
  140. sqgetGlobalVar ('msgs', $msgs, SQ_SESSION );
  141. sqgetGlobalVar ('composesession', $composesession, SQ_SESSION );
  142. sqgetGlobalVar ('lastTargetMailbox', $lastTargetMailbox, SQ_SESSION );
  144. sqgetGlobalVar ('moveButton', $moveButton, SQ_POST );
  145. sqgetGlobalVar ('expungeButton', $expungeButton, SQ_POST );
  146. sqgetGlobalVar ('targetMailbox', $targetMailbox, SQ_POST );
  147. sqgetGlobalVar ('expungeButton', $expungeButton, SQ_POST );
  148. sqgetGlobalVar ('undeleteButton', $undeleteButton, SQ_POST );
  149. sqgetGlobalVar ('markRead', $markRead, SQ_POST );
  150. sqgetGlobalVar ('markUnread', $markUnread, SQ_POST );
  151. sqgetGlobalVar ('attache', $attache, SQ_POST );
  152. sqgetGlobalVar ('location', $location, SQ_POST );
  154. if (!sqgetGlobalVar ('smtoken',$submitted_token, SQ_FORM )) {
  155. $submitted_token = '';
  156. }
  157. /* end of get globals */
  159. // security check
  160. sm_validate_security_token ($submitted_token, -1, TRUE);
  162. global $imap_stream_options; // in case not defined in config
  163. $imapConnection = sqimap_login ($username, $key, $imapServerAddress, $imapPort, 0, $imap_stream_options);
  164. $mbx_response=sqimap_mailbox_select ($imapConnection, $mailbox);
  166. $location = set_url_var ($location,'composenew',0,false);
  167. $location = set_url_var ($location,'composesession',0,false);
  168. $location = set_url_var ($location,'session',0,false);
  169. $location = set_url_var ($location,'preselected',NULL,false,true);
  171. // make sure that cache is not used
  172. $location = set_url_var ($location,'use_mailbox_cache',0,false);
  174. /* remember changes to mailbox setting */
  175. if (!isset($lastTargetMailbox)) {
  176. $lastTargetMailbox = 'INBOX';
  177. }
  178. if ($targetMailbox != $lastTargetMailbox) {
  179. $lastTargetMailbox = $targetMailbox;
  180. sqsession_register ($lastTargetMailbox, 'lastTargetMailbox');
  181. }
  182. $exception = false;
  184. do_hook ('move_before_move');
  187. /*
  188. Move msg list sorting up here, as it is used several times,
  189. makes it more efficient to do it in one place for the code
  190. */
  191. $id = array();
  192. if (isset($msg) && is_array ($msg)) {
  193. foreach( $msg as $key=>$uid ) {
  194. // using foreach removes the risk of infinite loops that was there //
  195. $id[] = $uid;
  196. }
  197. }
  199. // expunge-on-demand if user isn't using move_to_trash or auto_expunge
  200. if(isset($expungeButton)) {
  201. $cnt = sqimap_mailbox_expunge ($imapConnection, $mailbox, true);
  202. if (($startMessage+$cnt-1) >= $mbx_response['EXISTS']) {
  203. if ($startMessage > $show_num) {
  204. $location = set_url_var ($location,'startMessage',$startMessage-$show_num,false);
  205. } else {
  206. $location = set_url_var ($location,'startMessage',1,false);
  207. }
  208. }
  209. } elseif(isset($undeleteButton)) {
  210. // undelete messages if user isn't using move_to_trash or auto_expunge
  211. // Removes \Deleted flag from selected messages
  212. if (count ($id)) {
  213. sqimap_toggle_flag ($imapConnection, $id, '\\Deleted',false,true);
  214. } else {
  215. $exception = true;
  216. }
  217. } elseif (!isset($moveButton)) {
  218. if (count ($id)) {
  219. $cnt = count ($id);
  220. if (!isset($attache)) {
  221. if (isset($markRead)) {
  222. sqimap_toggle_flag ($imapConnection, $id, '\\Seen',true,true);
  223. } else if (isset($markUnread)) {
  224. sqimap_toggle_flag ($imapConnection, $id, '\\Seen',false,true);
  225. } else {
  226. sqimap_msgs_list_delete ($imapConnection, $mailbox, $id);
  227. if ($auto_expunge) {
  228. $cnt = sqimap_mailbox_expunge ($imapConnection, $mailbox, true);
  229. }
  230. if (($startMessage+$cnt-1) >= $mbx_response['EXISTS']) {
  231. if ($startMessage > $show_num) {
  232. $location = set_url_var ($location,'startMessage',$startMessage-$show_num, false);
  233. } else {
  234. $location = set_url_var ($location,'startMessage',1, false);
  235. }
  236. }
  237. }
  238. } else {
  239. $composesession = attachSelectedMessages ($id, $imapConnection);
  240. $location = set_url_var ($location, 'session', $composesession, false);
  241. $location = set_url_var ($location, 'forward_as_attachment_init', 1, false);
  242. if ($compose_new_win) {
  243. $location = set_url_var ($location, 'composenew', 1, false);
  244. } else {
  245. $location = str_replace ('search.php','compose.php',$location);
  246. $location = str_replace ('right_main.php','compose.php',$location);
  247. }
  248. }
  249. } else {
  250. $exception = true;
  251. }
  252. } else { // Move messages
  253. if (count ($id)) {
  254. // move messages only when target mailbox is not the same as source mailbox
  255. if ($mailbox!=$targetMailbox) {
  256. sqimap_msgs_list_move ($imapConnection,$id,$targetMailbox);
  257. if ($auto_expunge) {
  258. $cnt = sqimap_mailbox_expunge ($imapConnection, $mailbox, true);
  259. } else {
  260. $cnt = 0;
  261. }
  263. if (($startMessage+$cnt-1) >= $mbx_response['EXISTS']) {
  264. if ($startMessage > $show_num) {
  265. $location = set_url_var ($location,'startMessage',$startMessage-$show_num, false);
  266. } else {
  267. $location = set_url_var ($location,'startMessage',1, false);
  268. }
  269. }
  270. }
  271. } else {
  272. $exception = true;
  273. }
  274. }
  275. // Log out this session
  276. sqimap_logout ($imapConnection);
  277. if ($exception) {
  278. displayPageHeader ($color, $mailbox);
  279. error_message (_ ("No messages were selected."), $mailbox, $sort, $startMessage, $color);
  280. } else {
  281. header ("Location: $location");
  282. exit;
  283. }
  284. ?>
  285. </body></html>

Documentation generated on 2020年1月13日 04:25:01 +0100 by phpDocumentor 1.4.3

AltStyle によって変換されたページ (->オリジナル) /