8d1baf52b819afdb2a48757e44a99d2fde322228
7 * deletes or moves currently displayed message and displays
8 * next or previous message.
10 * Copyright (c) 1999-2003 The SquirrelMail Project Team
11 * Licensed under the GNU GPL. For full terms see the file COPYING.
15 * @subpackage delete_move_next
19 * Initialize the plugin
22 function squirrelmail_plugin_init_delete_move_next() {
23 global $squirrelmail_plugin_hooks;
25 $squirrelmail_plugin_hooks['html_top']['delete_move_next'] = 'delete_move_next_action';
26 $squirrelmail_plugin_hooks['right_main_after_header']['delete_move_next'] = 'delete_move_next_action';
27 $squirrelmail_plugin_hooks['read_body_bottom']['delete_move_next'] = 'delete_move_next_read_b';
28 $squirrelmail_plugin_hooks['read_body_menu_bottom']['delete_move_next'] = 'delete_move_next_read_t';
29 $squirrelmail_plugin_hooks['options_display_inside']['delete_move_next'] = 'delete_move_next_display_inside';
30 $squirrelmail_plugin_hooks['options_display_save']['delete_move_next'] = 'delete_move_next_display_save';
31 $squirrelmail_plugin_hooks['loading_prefs']['delete_move_next'] = 'delete_move_next_loading_prefs';
35 /* fixes the sort_array for the prev_del/next_del links when
36 * using server side sorting or thread sorting
39 function fix_sort_array () {
40 global $username, $data_dir, $allow_server_sort, $allow_thread_sort,
41 $thread_sort_messages,
42 $mailbox, $imapConnection, $sort, $uid_support, $mbx_response;
44 // Got to grab this out of prefs, since it isn't saved from mailbox_view.php
45 if ($allow_thread_sort) {
46 $thread_sort_messages = getPref($data_dir, $username, "thread_$mailbox",0);
50 case ($allow_thread_sort && $thread_sort_messages):
51 $server_sort_array = get_thread_sort($imapConnection);
53 case ($allow_server_sort):
54 $server_sort_array = sqimap_get_sort_order($imapConnection, $sort, $mbx_response);
57 $server_sort_array = sqimap_get_php_sort_order($imapConnection, $mbx_response);
65 * Warning: this function relies on the internal representation of
66 * of the message cache for the current mailbox. As such, it is fragile
67 * because the underlying implementation can change. I will present it
68 * to the squirrelmail maintainers as a proposed addition to the API,
69 * perhaps even as inline code to sqimap_mailbox_expunge(). In the
70 * meantime, you have been warned. [alane@geeksrus.net 2001/05/06]
73 function delete_move_del_arr_elem($arr, $index) {
76 foreach ($arr as $v) {
85 function delete_move_show_msg_array() {
87 $keys = array_keys($msort);
88 for ($i = 0; $i < count($keys); $i++
) {
89 echo '<p>key ' . $keys[$i] . ' msgid ' . $msgs[$keys[$i]]['ID'] . '</p>';
94 function delete_move_expunge_from_all($id) {
95 global $msgs, $msort, $sort, $imapConnection, $mailbox, $uid_support;
97 for ($i = 0; $i < count($msort); $i++
) {
98 if ($msgs[$i]['ID'] == $id) {
100 } elseif ($msgs[$i]['ID'] > $id) {
107 $msgs = delete_move_del_arr_elem($msgs, $delAt);
108 $msort = delete_move_del_arr_elem($msort, $delAt);
116 sqsession_register($msgs, 'msgs');
117 sqsession_register($msort, 'msort');
119 sqimap_mailbox_expunge($imapConnection, $mailbox, true);
122 function delete_move_next_action() {
126 if ( sqgetGlobalVar('delete_id', $delete_id, SQ_GET
) ) {
127 delete_move_next_delete();
129 } elseif ( sqgetGlobalVar('move_id', $move_id, SQ_POST
) ) {
130 delete_move_next_move();
135 function delete_move_next_read_t() {
137 global $delete_move_next_t;
139 if($delete_move_next_t == 'on') {
140 delete_move_next_read('top');
144 function delete_move_next_read_b() {
146 global $delete_move_next_b;
148 if ($delete_move_next_b != 'off') {
149 delete_move_next_read('bottom');
154 function delete_move_next_read($currloc) {
155 global $delete_move_next_formATtop, $delete_move_next_formATbottom,
156 $color, $where, $what, $currentArrayIndex, $passed_id,
157 $mailbox, $sort, $startMessage, $delete_id, $move_id,
158 $imapConnection, $auto_expunge, $move_to_trash, $mbx_response,
159 $uid_support, $passed_ent_id;
161 $urlMailbox = urlencode($mailbox);
163 if (!isset($passed_ent_id)) $passed_ent_id = 0;
165 if (!(($where && $what) ||
($currentArrayIndex == -1)) && !$passed_ent_id) {
166 $next = findNextMessage($passed_id);
167 $prev = findPreviousMessage($mbx_response['EXISTS'], $passed_id);
168 $prev_if_del = $prev;
169 $next_if_del = $next;
170 if (!$uid_support && ($auto_expunge ||
$move_to_trash)) {
171 if ($prev_if_del > $passed_id) {
174 if ($next_if_del > $passed_id) {
179 /* Base is illegal within documents
180 * $location = get_location();
181 * echo "<base href=\"$location/\">" . */
182 echo '<table cellspacing=0 width="100%" border=0 cellpadding=2>'.
184 "<td bgcolor=\"$color[9]\" width=\"100%\" align=center><small>";
187 echo "<a href=\"read_body.php?passed_id=$prev_if_del&mailbox=$urlMailbox&sort=$sort&startMessage=$startMessage&show_more=0&delete_id=$passed_id\">" . _("Delete & Prev") . "</a>" . " | \n";
190 echo _("Delete & Prev") . " | ";
193 echo "<a href=\"read_body.php?passed_id=$next_if_del&mailbox=$urlMailbox&sort=$sort&startMessage=$startMessage&show_more=0&delete_id=$passed_id\">" . _("Delete & Next") . "</a>\n";
195 echo _("Delete & Next");
197 echo '</small></td></tr>';
199 if ($next_if_del < 0) {
200 $next_if_del = $prev_if_del;
202 if (($delete_move_next_formATtop == 'on') && ($currloc == 'top')) {
203 if ($next_if_del > 0) {
204 delete_move_next_moveNextForm($next_if_del);
206 delete_move_next_moveRightMainForm();
209 if (($delete_move_next_formATbottom != 'off') && ($currloc == 'bottom')) {
210 if ($next_if_del > 0) {
211 delete_move_next_moveNextForm($next_if_del);
213 delete_move_next_moveRightMainForm();
220 function get_move_target_list() {
221 global $imapConnection, $lastTargetMailbox;
222 if (isset($lastTargetMailbox) && !empty($lastTargetMailbox)) {
223 echo sqimap_mailbox_option_list($imapConnection, array(strtolower($lastTargetMailbox)));
226 echo sqimap_mailbox_option_list($imapConnection);
230 function delete_move_next_moveNextForm($next) {
232 global $color, $where, $what, $currentArrayIndex, $passed_id,
233 $mailbox, $sort, $startMessage, $delete_id, $move_id,
237 "<td bgcolor=\"$color[9]\" width=\"100%\" align=\"center\">".
238 "<form action=\"read_body.php?mailbox=$mailbox&sort=$sort&startMessage=$startMessage&passed_id=$next\" method=\"post\"><small>".
239 "<input type=\"hidden\" name=\"show_more\" value=\"0\">".
240 "<input type=\"hidden\" name=\"move_id\" value=\"$passed_id\">".
242 ' <select name="targetMailbox">';
243 get_move_target_list();
245 '<input type="submit" value="' . _("Move") . '">'.
252 function delete_move_next_moveRightMainForm() {
254 global $color, $where, $what, $currentArrayIndex, $passed_id,
255 $mailbox, $sort, $startMessage, $delete_id, $move_id,
259 "<td bgcolor=\"$color[9]\" width=\"100%\" align=\"center\">".
260 "<form action=\"right_main.php?mailbox=$mailbox&sort=$sort&startMessage=$startMessage\" method=\"post\"><small>" .
261 "<input type=\"hidden\" name=\"move_id\" value=\"$passed_id\">".
263 ' <select name="targetMailbox">';
264 get_move_target_list();
266 '<input type=submit value="' . _("Move") . '">'.
275 function delete_move_next_delete() {
276 global $imapConnection, $auto_expunge;
278 sqgetGlobalVar('delete_id', $delete_id, SQ_GET
);
279 sqgetGlobalVar('mailbox', $mailbox, SQ_GET
);
281 sqimap_messages_delete($imapConnection, $delete_id, $delete_id, $mailbox);
283 delete_move_expunge_from_all($delete_id);
284 // sqimap_mailbox_expunge($imapConnection, $mailbox, true);
288 function delete_move_next_move() {
289 global $imapConnection, $mailbox, $auto_expunge, $lastTargetMailbox;
291 sqgetGlobalVar('move_id', $move_id, SQ_POST
);
292 sqgetGlobalVar('mailbox', $mailbox, SQ_FORM
);
293 sqgetGlobalVar('targetMailbox', $targetMailbox, SQ_POST
);
296 sqimap_messages_copy($imapConnection, $move_id, $move_id, $targetMailbox);
297 sqimap_messages_flag($imapConnection, $move_id, $move_id, 'Deleted', true);
299 delete_move_expunge_from_all($move_id);
300 // sqimap_mailbox_expunge($imapConnection, $mailbox, true);
303 if ($targetMailbox != $lastTargetMailbox) {
304 $lastTargetMailbox = $targetMailbox;
305 sqsession_register('lastTargetMailbox' , $lastTargetMailbox);
309 function delete_move_next_display_inside() {
310 global $username,$data_dir,
311 $delete_move_next_t, $delete_move_next_formATtop,
312 $delete_move_next_b, $delete_move_next_formATbottom;
314 echo "<tr>" . html_tag('td',_("Delete/Move/Next Buttons:"),'right','','valign=top') . "\n".
315 "<td><input type=checkbox name=delete_move_next_ti";
317 if ($delete_move_next_t == 'on') {
320 echo '> ' . _("Display at top").
321 " <input type=checkbox name=delete_move_next_formATtopi";
323 if ($delete_move_next_formATtop == 'on') {
326 echo '> ' . _("with move option") . '<br>';
328 echo '<input type=checkbox name=delete_move_next_bi';
329 if($delete_move_next_b != 'off') {
332 echo '> ' . _("Display at bottom") .
333 '<input type=checkbox name=delete_move_next_formATbottomi';
335 if ($delete_move_next_formATbottom != 'off') {
338 echo '> ' . _("with move option") . '<br>'.
342 function delete_move_next_display_save() {
344 global $username,$data_dir;
346 if ( sqgetGlobalVar('delete_move_next_ti', $delete_move_next_ti, SQ_POST
) ) {
347 setPref($data_dir, $username, 'delete_move_next_t', 'on');
349 setPref($data_dir, $username, 'delete_move_next_t', "off");
352 if ( sqgetGlobalVar('delete_move_next_formATtopi', $delete_move_next_formATtopi, SQ_POST
) ) {
353 setPref($data_dir, $username, 'delete_move_next_formATtop', 'on');
355 setPref($data_dir, $username, 'delete_move_next_formATtop', "off");
359 if ( sqgetGlobalVar('delete_move_next_bi', $delete_move_next_bi, SQ_POST
) ) {
360 setPref($data_dir, $username, 'delete_move_next_b', 'on');
362 setPref($data_dir, $username, 'delete_move_next_b', "off");
365 if ( sqgetGlobalVar('delete_move_next_formATbottomi', $delete_move_next_formATbottomi, SQ_POST
) ) {
366 setPref($data_dir, $username, 'delete_move_next_formATbottom', 'on');
368 setPref($data_dir, $username, 'delete_move_next_formATbottom', "off");
373 function delete_move_next_loading_prefs() {
374 global $username,$data_dir,
375 $delete_move_next_t, $delete_move_next_formATtop,
376 $delete_move_next_b, $delete_move_next_formATbottom;
378 $delete_move_next_t = getPref($data_dir, $username, 'delete_move_next_t');
379 $delete_move_next_b = getPref($data_dir, $username, 'delete_move_next_b');
380 $delete_move_next_formATtop = getPref($data_dir, $username, 'delete_move_next_formATtop');
381 $delete_move_next_formATbottom = getPref($data_dir, $username, 'delete_move_next_formATbottom');