[squirrelmail.git] / plugins / delete_move_next / setup.php

<?php

/**
 * setup.php
 *
 * delete_move_next
 *   deletes or moves currently displayed message and displays
 *   next or previous message.
 *
 * Copyright (c) 1999-2002 The SquirrelMail Project Team
 * Licensed under the GNU GPL. For full terms see the file COPYING.
 *
 * $Id$
 */

function squirrelmail_plugin_init_delete_move_next() {
    global $squirrelmail_plugin_hooks;

    $squirrelmail_plugin_hooks['html_top']['delete_move_next'] = 'delete_move_next_action';
    $squirrelmail_plugin_hooks['right_main_after_header']['delete_move_next'] = 'delete_move_next_action';
    $squirrelmail_plugin_hooks['read_body_bottom']['delete_move_next'] = 'delete_move_next_read_b';
    $squirrelmail_plugin_hooks['read_body_menu_bottom']['delete_move_next'] = 'delete_move_next_read_t';
    $squirrelmail_plugin_hooks['options_display_inside']['delete_move_next'] = 'delete_move_next_display_inside';
    $squirrelmail_plugin_hooks['options_display_save']['delete_move_next'] = 'delete_move_next_display_save';
    $squirrelmail_plugin_hooks['loading_prefs']['delete_move_next'] = 'delete_move_next_loading_prefs';
}


/* fixes the sort_array for the prev_del/next_del links when 
 * using server side sorting or thread sorting 
 */

function fix_sort_array () {
    global $username, $data_dir, $allow_server_sort, $allow_thread_sort,
    $thread_sort_messages, 
    $mailbox, $imapConnection, $sort, $uid_support, $mbx_response;
    switch (true) {
      case ($allow_thread_sort && $thread_sort_messages):
          $server_sort_array = get_thread_sort($imapConnection);
          break;
      case ($allow_server_sort):
          $server_sort_array = sqimap_get_sort_order($imapConnection, $sort, $mbx_response);
          break;
      case ($uid_support):
          $server_sort_array = sqimap_get_php_sort_order($imapConnecion, $mbx_response);
          break;
      default:
          break;
    }
}

/*
 * Warning: this function relies on the internal representation of
 * of the message cache for the current mailbox. As such, it is fragile
 * because the underlying implementation can change. I will present it
 * to the squirrelmail maintainers as a proposed addition to the API,
 * perhaps even as inline code to sqimap_mailbox_expunge(). In the 
 * meantime, you have been warned. [alane@geeksrus.net 2001/05/06]
 */

function delete_move_del_arr_elem($arr, $index) {
    $tmp = array();
    $j = 0;
    foreach ($arr as $v) {
        if ($j != $index) {
           $tmp[] = $v;
         }
         $j++;
    }
    return $tmp;
}

function delete_move_show_msg_array() {
    global $msort, $msgs;
    $keys = array_keys($msort);
    for ($i = 0; $i < count($keys); $i++) {
        echo '<p>key ' . $keys[$i] . ' msgid ' . $msgs[$keys[$i]]['ID'] . '</p>';
    }
}


function delete_move_expunge_from_all($id) {
    global $msgs, $msort, $sort, $imapConnection, $mailbox, $uid_support;
    $delAt = -1;
    for ($i = 0; $i < count($msort); $i++) {
        if ($msgs[$i]['ID'] == $id) {
            $delAt = $i;
        } elseif ($msgs[$i]['ID'] > $id) {
            if (!$uid_support) {
               $msgs[$i]['ID']--;
            }
        }
    }

    $msgs = delete_move_del_arr_elem($msgs, $delAt);
    $msort = delete_move_del_arr_elem($msort, $delAt);
    if ($sort < 6) {
        if ($sort % 2) {
            asort($msort);
        } else {
            arsort($msort);
        }
    }
    sqsession_register($msgs, 'msgs');
    sqsession_register($msort, 'msort');

    sqimap_mailbox_expunge($imapConnection, $mailbox, true);
}

function delete_move_next_action() {

    global $PHP_SELF;

    if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
        global $_GET, $_POST;
    }

    if (isset($_GET['delete_id'])) {
        $delete_id = $_GET['delete_id'];
    }
    if (isset($_POST['move_id'])) {
        $move_id = $_POST['move_id'];
    }       

    if (isset($delete_id)) {
        delete_move_next_delete();
        fix_sort_array();
    } elseif (isset($move_id)) {
        delete_move_next_move();
        fix_sort_array();
    }

}

function delete_move_next_read_t() {

    global $delete_move_next_t;

    if($delete_move_next_t == 'on') {
        delete_move_next_read('top');
    }
}

function delete_move_next_read_b() {

    global $delete_move_next_b;

    if ($delete_move_next_b != 'off') {
        delete_move_next_read('bottom');
    }
}


function delete_move_next_read($currloc) {
    global $delete_move_next_formATtop, $delete_move_next_formATbottom,
           $color, $where, $what, $currentArrayIndex, $passed_id,
           $mailbox, $sort, $startMessage, $delete_id, $move_id,
           $imapConnection, $auto_expunge, $move_to_trash, $mbx_response,
           $uid_support;

    $urlMailbox = urlencode($mailbox);

    if (!(($where && $what) || ($currentArrayIndex == -1))) {
        $next = findNextMessage($passed_id);
        $prev = findPreviousMessage($mbx_response['EXISTS'], $passed_id);
        $prev_if_del = $prev;
        $next_if_del = $next;
        if (!$uid_support && ($auto_expunge || $move_to_trash)) {
            if ($prev_if_del > $passed_id) {
                $prev_if_del--;
            }
            if ($next_if_del > $passed_id) {
                $next_if_del--;
            }
        }

        /* Base is illegal within documents 
        * $location = get_location();
        * echo "<base href=\"$location/\">" . */
        echo '<table cellspacing=0 width="100%" border=0 cellpadding=2>'.
             '<tr>'.
                 "<td bgcolor=\"$color[9]\" width=\"100%\" align=center><small>";

//        if ($prev > 0) {
//            echo "<a href=\"read_body.php?passed_id=$prev&amp;mailbox=$urlMailbox&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more=0\">" . _("Previous") . "</A>&nbsp;|&nbsp;\n";
//        } else {
//            echo _("Previous") . "&nbsp;|&nbsp;";
//        }
//        if ($next > 0) {
//            echo "<a href=\"read_body.php?passed_id=$next&amp;mailbox=$urlMailbox&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more=0\">" . _("Next") . "</A>&nbsp;|&nbsp;\n";
//        } else {
//            echo _("Next") . "&nbsp;|&nbsp;";
//        }
        if ($prev > 0){
            echo "<a href=\"read_body.php?passed_id=$prev_if_del&amp;mailbox=$urlMailbox&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more=0&amp;delete_id=$passed_id\">" . _("Delete & Prev") . "</a>" . "&nbsp;|&nbsp;\n";
        }
        else {
            echo _("Delete & Prev") . "&nbsp;|&nbsp;";
        }
        if ($next > 0){
            echo "<a href=\"read_body.php?passed_id=$next_if_del&amp;mailbox=$urlMailbox&amp;sort=$sort&amp;startMessage=$startMessage&amp;show_more=0&amp;delete_id=$passed_id\">" . _("Delete & Next") . "</a>\n";
        } else {
            echo _("Delete & Next");
        }
        echo '</small></td></tr>';

        if ($next_if_del < 0) {
            $next_if_del = $prev_if_del;
        }
        if (($delete_move_next_formATtop == 'on') && ($currloc == 'top')){
            if ($next_if_del > 0) {
                delete_move_next_moveNextForm($next_if_del);
            } else {
                delete_move_next_moveRightMainForm();
            }
        }
        if (($delete_move_next_formATbottom != 'off') && ($currloc == 'bottom')){
            if ($next_if_del > 0) {
                delete_move_next_moveNextForm($next_if_del);
            } else {
                delete_move_next_moveRightMainForm();
            }
        }
        echo '</table>';
    }
}

function get_move_target_list() {
    global $imapConnection;

    $boxes = sqimap_mailbox_list($imapConnection);
    for ($i = 0; $i < count($boxes); $i++) {
        if (!in_array('noselect', $boxes[$i]['flags'])) {
            $box = $boxes[$i]['unformatted'];
            $box2 = str_replace(' ', '&nbsp;', $boxes[$i]['unformatted-disp']);
            if ( $box2 == 'INBOX' ) {
                $box2 = _("INBOX");
            }
            echo "<option value=\"$box\">$box2</option>\n";
        }
    }
}

function delete_move_next_moveNextForm($next) {

    global $color, $where, $what, $currentArrayIndex, $passed_id,
           $mailbox, $sort, $startMessage, $delete_id, $move_id,
           $imapConnection;

    echo '<tr>'.
         "<td bgcolor=\"$color[9]\" width=\"100%\" align=\"center\">".
           '<form action="read_body.php" method="post"><small>'.
            "<input type=\"hidden\" name=\"passed_id\" value=\"$next\">".
            "<input type=\"hidden\" name=\"mailbox\" value=\"".$mailbox."\">".
            "<input type=\"hidden\" name=\"sort\" value=\"$sort\">".
            "<input type=\"hidden\" name=\"startMessage\" value=\"$startMessage\">".
            "<input type=\"hidden\" name=\"show_more\" value=\"0\">".
            "<input type=\"hidden\" name=\"move_id\" value=\"$passed_id\">".
            _("Move to:") .
            ' <select name="targetMailbox">';
    get_move_target_list(); 
    echo    '</select> '.
            '<input type="submit" value="' . _("Move") . '">'.
            '</small>'.
           '</form>'.
         '</td>'.
         '</tr>';

}
function delete_move_next_moveRightMainForm() {

    global $color, $where, $what, $currentArrayIndex, $passed_id,
           $mailbox, $sort, $startMessage, $delete_id, $move_id,
           $imapConnection;

    echo '<tr>' .
            "<td bgcolor=\"$color[9]\" width=\"100%\" align=\"center\">".
            '<form action="right_main.php" method="post"><small>' .
            "<input type=\"hidden\" name=\"mailbox\" value=\"".$mailbox."\">".
            "<input type=\"hidden\" name=\"sort\" value=\"$sort\">".
            "<input type=\"hidden\" name=\"startMessage\" value=\"$startMessage\">".
            "<input type=\"hidden\" name=\"move_id\" value=\"$passed_id\">".
            _("Move to:") .
            ' <select name="targetMailbox">';
    get_move_target_list(); 
    echo    ' </select>' .
            '<input type=submit value="' . _("Move") . '">'.
            '</small>'.
         '</form>' .
         '</td>'.
         '</tr>';

}


function delete_move_next_delete() {
    global $imapConnection, $auto_expunge;

    if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
        global $_GET;
    }

    $delete_id = $_GET['delete_id'];
    $mailbox = $_GET['mailbox'];

    sqimap_messages_delete($imapConnection, $delete_id, $delete_id, $mailbox);
    if ($auto_expunge) {
        delete_move_expunge_from_all($delete_id);
        // sqimap_mailbox_expunge($imapConnection, $mailbox, true);
    }
}

function delete_move_next_move() {
    global $imapConnection, $mailbox;

    if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
        global $_POST;
    }

    $move_id = $_POST['move_id'];
    $mailbox = $_POST['mailbox'];
    $targetMailbox = $_POST['targetMailbox'];

    // Move message
    sqimap_messages_copy($imapConnection, $move_id, $move_id, $targetMailbox);
    sqimap_messages_flag($imapConnection, $move_id, $move_id, 'Deleted', true);
    if ($auto_expunge) {
        delete_move_expunge_from_all($move_id);
        // sqimap_mailbox_expunge($imapConnection, $mailbox, true);
    }
}

function delete_move_next_display_inside() {
    global $username,$data_dir,
        $delete_move_next_t, $delete_move_next_formATtop,
        $delete_move_next_b, $delete_move_next_formATbottom;

    echo "<tr><td align=right valign=top>\n".
         _("Delete/Move/Next Buttons:") . "</td>\n".
         "<td><input type=checkbox name=delete_move_next_ti";

    if ($delete_move_next_t == 'on') {
        echo " checked";
    }
    echo '> ' . _("Display at top").
         " <input type=checkbox name=delete_move_next_formATtopi";

    if ($delete_move_next_formATtop == 'on') {
        echo ' checked';
    }
    echo '> ' . _("with move option") . '<br>';

    echo '<input type=checkbox name=delete_move_next_bi';
    if($delete_move_next_b != 'off') {
        echo ' checked';
    }
    echo '> ' . _("Display at bottom") .
         '<input type=checkbox name=delete_move_next_formATbottomi';

    if ($delete_move_next_formATbottom != 'off') {
        echo ' checked';
    }
    echo '> ' . _("with move option") . '<br>'.
         "</td></tr>\n";
}

function delete_move_next_display_save() {

    global $username,$data_dir;

    if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
        global $_POST;
    }

    if (isset($_POST['delete_move_next_ti'])) {
        $delete_move_next_ti = $_POST['delete_move_next_ti'];
    }
    if (isset($_POST['delete_move_next_bi'])) {
        $delete_move_next_bi = $_POST['delete_move_next_bi'];
    }
    if (isset($_POST['delete_move_next_formATtopi'])) {
        $delete_move_next_formATtopi = $_POST['delete_move_next_formATtopi'];
    }
    if (isset($_POST['delete_move_next_formATbottomi'])) {
        $delete_move_next_formATbottomi = $_POST['delete_move_next_formATbottomi'];
    }

    if (isset($delete_move_next_ti)) {
        setPref($data_dir, $username, 'delete_move_next_t', 'on');
    } else {
        setPref($data_dir, $username, 'delete_move_next_t', "off");
    }

    if (isset($delete_move_next_formATtopi)) {
        setPref($data_dir, $username, 'delete_move_next_formATtop', 'on');
    } else {
        setPref($data_dir, $username, 'delete_move_next_formATtop', "off");
    }


    if (isset($delete_move_next_bi)) {
        setPref($data_dir, $username, 'delete_move_next_b', 'on');
    } else {
        setPref($data_dir, $username, 'delete_move_next_b', "off");
    }

    if (isset($delete_move_next_formATbottomi)) {
        setPref($data_dir, $username, 'delete_move_next_formATbottom', 'on');
    } else {
        setPref($data_dir, $username, 'delete_move_next_formATbottom', "off");
    }

}


function delete_move_next_loading_prefs() {
    global $username,$data_dir,
           $delete_move_next_t, $delete_move_next_formATtop,
           $delete_move_next_b, $delete_move_next_formATbottom;

    $delete_move_next_t = getPref($data_dir, $username, 'delete_move_next_t');
    $delete_move_next_b = getPref($data_dir, $username, 'delete_move_next_b');
    $delete_move_next_formATtop = getPref($data_dir, $username, 'delete_move_next_formATtop');
    $delete_move_next_formATbottom = getPref($data_dir, $username, 'delete_move_next_formATbottom');

}

?>
Commit	Line	Data
7a46945e	1	<?php
	2
	3	/**
	4	* setup.php
	5	*
	6	* delete_move_next
	7	* deletes or moves currently displayed message and displays
	8	* next or previous message.
	9	*
	10	* Copyright (c) 1999-2002 The SquirrelMail Project Team
	11	* Licensed under the GNU GPL. For full terms see the file COPYING.
	12	*
	13	* $Id$
	14	*/
	15
	16	function squirrelmail_plugin_init_delete_move_next() {
	17	global $squirrelmail_plugin_hooks;
15902790	18
7a46945e	19	$squirrelmail_plugin_hooks['html_top']['delete_move_next'] = 'delete_move_next_action';
	20	$squirrelmail_plugin_hooks['right_main_after_header']['delete_move_next'] = 'delete_move_next_action';
	21	$squirrelmail_plugin_hooks['read_body_bottom']['delete_move_next'] = 'delete_move_next_read_b';
15902790	22	$squirrelmail_plugin_hooks['read_body_menu_bottom']['delete_move_next'] = 'delete_move_next_read_t';
7a46945e	23	$squirrelmail_plugin_hooks['options_display_inside']['delete_move_next'] = 'delete_move_next_display_inside';
	24	$squirrelmail_plugin_hooks['options_display_save']['delete_move_next'] = 'delete_move_next_display_save';
	25	$squirrelmail_plugin_hooks['loading_prefs']['delete_move_next'] = 'delete_move_next_loading_prefs';
	26	}
	27
	28
91e5e252	29	/* fixes the sort_array for the prev_del/next_del links when
	30	* using server side sorting or thread sorting
	31	*/
	32
	33	function fix_sort_array () {
	34	global $username, $data_dir, $allow_server_sort, $allow_thread_sort,
33573968	35	$thread_sort_messages,
432158be	36	$mailbox, $imapConnection, $sort, $uid_support, $mbx_response;
	37	switch (true) {
	38	case ($allow_thread_sort && $thread_sort_messages):
	39	$server_sort_array = get_thread_sort($imapConnection);
15902790	40	break;
432158be	41	case ($allow_server_sort):
432158be	42	$server_sort_array = sqimap_get_sort_order($imapConnection, $sort, $mbx_response);
15902790	43	break;
432158be	44	case ($uid_support):
432158be	45	$server_sort_array = sqimap_get_php_sort_order($imapConnecion, $mbx_response);
15902790	46	break;
432158be	47	default:
432158be	48	break;
15902790	49	}
91e5e252	50	}
91e5e252	51
7a46945e	52	/*
	53	* Warning: this function relies on the internal representation of
	54	* of the message cache for the current mailbox. As such, it is fragile
	55	* because the underlying implementation can change. I will present it
	56	* to the squirrelmail maintainers as a proposed addition to the API,
	57	* perhaps even as inline code to sqimap_mailbox_expunge(). In the
	58	* meantime, you have been warned. [alane@geeksrus.net 2001/05/06]
	59	*/
91e5e252	60
7a46945e	61	function delete_move_del_arr_elem($arr, $index) {
7a46945e	62	$tmp = array();
7a46945e	63	$j = 0;
33573968	64	foreach ($arr as $v) {
33573968	65	if ($j != $index) {
15902790	66	$tmp[] = $v;
	67	}
	68	$j++;
7a46945e	69	}
	70	return $tmp;
	71	}
	72
	73	function delete_move_show_msg_array() {
	74	global $msort, $msgs;
7a46945e	75	$keys = array_keys($msort);
	76	for ($i = 0; $i < count($keys); $i++) {
	77	echo '<p>key ' . $keys[$i] . ' msgid ' . $msgs[$keys[$i]]['ID'] . '</p>';
	78	}
	79	}
	80
	81
	82	function delete_move_expunge_from_all($id) {
33573968	83	global $msgs, $msort, $sort, $imapConnection, $mailbox, $uid_support;
7a46945e	84	$delAt = -1;
	85	for ($i = 0; $i < count($msort); $i++) {
	86	if ($msgs[$i]['ID'] == $id) {
	87	$delAt = $i;
	88	} elseif ($msgs[$i]['ID'] > $id) {
15902790	89	if (!$uid_support) {
432158be	90	$msgs[$i]['ID']--;
15902790	91	}
7a46945e	92	}
7a46945e	93	}
15902790	94
7a46945e	95	$msgs = delete_move_del_arr_elem($msgs, $delAt);
7a46945e	96	$msort = delete_move_del_arr_elem($msort, $delAt);
7a46945e	97	if ($sort < 6) {
	98	if ($sort % 2) {
	99	asort($msort);
	100	} else {
	101	arsort($msort);
	102	}
	103	}
3a6da7fd	104	sqsession_register($msgs, 'msgs');
3a6da7fd	105	sqsession_register($msort, 'msort');
15902790	106
7a46945e	107	sqimap_mailbox_expunge($imapConnection, $mailbox, true);
	108	}
	109
	110	function delete_move_next_action() {
	111
3a6da7fd	112	global $PHP_SELF;
7a46945e	113
3a6da7fd	114	if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
	115	global $_GET, $_POST;
	116	}
	117
	118	if (isset($_GET['delete_id'])) {
	119	$delete_id = $_GET['delete_id'];
	120	}
	121	if (isset($_POST['move_id'])) {
	122	$move_id = $_POST['move_id'];
	123	}
	124
	125	if (isset($delete_id)) {
7a46945e	126	delete_move_next_delete();
471805cd	127	fix_sort_array();
3a6da7fd	128	} elseif (isset($move_id)) {
7a46945e	129	delete_move_next_move();
471805cd	130	fix_sort_array();
7a46945e	131	}
	132
	133	}
	134
	135	function delete_move_next_read_t() {
	136
	137	global $delete_move_next_t;
	138
	139	if($delete_move_next_t == 'on') {
	140	delete_move_next_read('top');
	141	}
	142	}
	143
	144	function delete_move_next_read_b() {
	145
	146	global $delete_move_next_b;
	147
	148	if ($delete_move_next_b != 'off') {
	149	delete_move_next_read('bottom');
	150	}
	151	}
	152
	153
	154	function delete_move_next_read($currloc) {
	155	global $delete_move_next_formATtop, $delete_move_next_formATbottom,
	156	$color, $where, $what, $currentArrayIndex, $passed_id,
33573968	157	$mailbox, $sort, $startMessage, $delete_id, $move_id,
432158be	158	$imapConnection, $auto_expunge, $move_to_trash, $mbx_response,
15902790	159	$uid_support;
7a46945e	160
33573968	161	$urlMailbox = urlencode($mailbox);
33573968	162
7a46945e	163	if (!(($where && $what) \|\| ($currentArrayIndex == -1))) {
7ae753d7	164	$next = findNextMessage($passed_id);
7ae753d7	165	$prev = findPreviousMessage($mbx_response['EXISTS'], $passed_id);
7a46945e	166	$prev_if_del = $prev;
7a46945e	167	$next_if_del = $next;
432158be	168	if (!$uid_support && ($auto_expunge \|\| $move_to_trash)) {
7a46945e	169	if ($prev_if_del > $passed_id) {
	170	$prev_if_del--;
	171	}
	172	if ($next_if_del > $passed_id) {
	173	$next_if_del--;
	174	}
15902790	175	}
	176
	177	/* Base is illegal within documents
b9fb0634	178	* $location = get_location();
b9fb0634	179	* echo "<base href=\"$location/\">" . */
432158be	180	echo '<table cellspacing=0 width="100%" border=0 cellpadding=2>'.
	181	'<tr>'.
	182	"<td bgcolor=\"$color[9]\" width=\"100%\" align=center><small>";
15902790	183
7ae753d7	184	// if ($prev > 0) {
	185	// echo "<a href=\"read_body.php?passed_id=$prev&mailbox=$urlMailbox&sort=$sort&startMessage=$startMessage&show_more=0\">" . _("Previous") . "</A> \| \n";
	186	// } else {
	187	// echo _("Previous") . " \| ";
	188	// }
	189	// if ($next > 0) {
	190	// echo "<a href=\"read_body.php?passed_id=$next&mailbox=$urlMailbox&sort=$sort&startMessage=$startMessage&show_more=0\">" . _("Next") . "</A> \| \n";
	191	// } else {
	192	// echo _("Next") . " \| ";
	193	// }
7a46945e	194	if ($prev > 0){
b9fb0634	195	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";
7a46945e	196	}
	197	else {
	198	echo _("Delete & Prev") . " \| ";
	199	}
	200	if ($next > 0){
b9fb0634	201	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";
7a46945e	202	} else {
	203	echo _("Delete & Next");
	204	}
	205	echo '</small></td></tr>';
15902790	206
7a46945e	207	if ($next_if_del < 0) {
	208	$next_if_del = $prev_if_del;
	209	}
	210	if (($delete_move_next_formATtop == 'on') && ($currloc == 'top')){
	211	if ($next_if_del > 0) {
	212	delete_move_next_moveNextForm($next_if_del);
	213	} else {
	214	delete_move_next_moveRightMainForm();
	215	}
	216	}
	217	if (($delete_move_next_formATbottom != 'off') && ($currloc == 'bottom')){
	218	if ($next_if_del > 0) {
	219	delete_move_next_moveNextForm($next_if_del);
	220	} else {
	221	delete_move_next_moveRightMainForm();
	222	}
	223	}
	224	echo '</table>';
	225	}
	226	}
	227
	228	function get_move_target_list() {
	229	global $imapConnection;
15902790	230
7a46945e	231	$boxes = sqimap_mailbox_list($imapConnection);
15902790	232	for ($i = 0; $i < count($boxes); $i++) {
7a46945e	233	if (!in_array('noselect', $boxes[$i]['flags'])) {
	234	$box = $boxes[$i]['unformatted'];
	235	$box2 = str_replace(' ', ' ', $boxes[$i]['unformatted-disp']);
4366bea4	236	if ( $box2 == 'INBOX' ) {
	237	$box2 = _("INBOX");
	238	}
	239	echo "<option value=\"$box\">$box2</option>\n";
7a46945e	240	}
	241	}
	242	}
	243
	244	function delete_move_next_moveNextForm($next) {
	245
	246	global $color, $where, $what, $currentArrayIndex, $passed_id,
33573968	247	$mailbox, $sort, $startMessage, $delete_id, $move_id,
7a46945e	248	$imapConnection;
7a46945e	249
432158be	250	echo '<tr>'.
432158be	251	"<td bgcolor=\"$color[9]\" width=\"100%\" align=\"center\">".
b9fb0634	252	'<form action="read_body.php" method="post"><small>'.
4366bea4	253	"<input type=\"hidden\" name=\"passed_id\" value=\"$next\">".
33573968	254	"<input type=\"hidden\" name=\"mailbox\" value=\"".$mailbox."\">".
4366bea4	255	"<input type=\"hidden\" name=\"sort\" value=\"$sort\">".
	256	"<input type=\"hidden\" name=\"startMessage\" value=\"$startMessage\">".
	257	"<input type=\"hidden\" name=\"show_more\" value=\"0\">".
	258	"<input type=\"hidden\" name=\"move_id\" value=\"$passed_id\">".
	259	_("Move to:") .
	260	' <select name="targetMailbox">';
	261	get_move_target_list();
	262	echo '</select> '.
	263	'<input type="submit" value="' . _("Move") . '">'.
	264	'</small>'.
b9fb0634	265	'</form>'.
4366bea4	266	'</td>'.
b9fb0634	267	'</tr>';
7a46945e	268
7a46945e	269	}
7a46945e	270	function delete_move_next_moveRightMainForm() {
	271
	272	global $color, $where, $what, $currentArrayIndex, $passed_id,
33573968	273	$mailbox, $sort, $startMessage, $delete_id, $move_id,
7a46945e	274	$imapConnection;
7a46945e	275
15902790	276	echo '<tr>' .
432158be	277	"<td bgcolor=\"$color[9]\" width=\"100%\" align=\"center\">".
b9fb0634	278	'<form action="right_main.php" method="post"><small>' .
33573968	279	"<input type=\"hidden\" name=\"mailbox\" value=\"".$mailbox."\">".
4366bea4	280	"<input type=\"hidden\" name=\"sort\" value=\"$sort\">".
	281	"<input type=\"hidden\" name=\"startMessage\" value=\"$startMessage\">".
	282	"<input type=\"hidden\" name=\"move_id\" value=\"$passed_id\">".
	283	_("Move to:") .
	284	' <select name="targetMailbox">';
	285	get_move_target_list();
	286	echo ' </select>' .
	287	'<input type=submit value="' . _("Move") . '">'.
	288	'</small>'.
b9fb0634	289	'</form>' .
4366bea4	290	'</td>'.
b9fb0634	291	'</tr>';
7a46945e	292
	293	}
	294
	295
	296	function delete_move_next_delete() {
3a6da7fd	297	global $imapConnection, $auto_expunge;
	298
	299	if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
	300	global $_GET;
	301	}
	302
	303	$delete_id = $_GET['delete_id'];
	304	$mailbox = $_GET['mailbox'];
15902790	305
7a46945e	306	sqimap_messages_delete($imapConnection, $delete_id, $delete_id, $mailbox);
33573968	307	if ($auto_expunge) {
7a46945e	308	delete_move_expunge_from_all($delete_id);
15902790	309	// sqimap_mailbox_expunge($imapConnection, $mailbox, true);
7a46945e	310	}
	311	}
	312
	313	function delete_move_next_move() {
3a6da7fd	314	global $imapConnection, $mailbox;
	315
	316	if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
	317	global $_POST;
	318	}
	319
	320	$move_id = $_POST['move_id'];
	321	$mailbox = $_POST['mailbox'];
	322	$targetMailbox = $_POST['targetMailbox'];
15902790	323
7a46945e	324	// Move message
7a46945e	325	sqimap_messages_copy($imapConnection, $move_id, $move_id, $targetMailbox);
33573968	326	sqimap_messages_flag($imapConnection, $move_id, $move_id, 'Deleted', true);
7a46945e	327	if ($auto_expunge) {
	328	delete_move_expunge_from_all($move_id);
	329	// sqimap_mailbox_expunge($imapConnection, $mailbox, true);
	330	}
	331	}
	332
	333	function delete_move_next_display_inside() {
	334	global $username,$data_dir,
	335	$delete_move_next_t, $delete_move_next_formATtop,
	336	$delete_move_next_b, $delete_move_next_formATbottom;
15902790	337
432158be	338	echo "<tr><td align=right valign=top>\n".
	339	_("Delete/Move/Next Buttons:") . "</td>\n".
	340	"<td><input type=checkbox name=delete_move_next_ti";
15902790	341
7a46945e	342	if ($delete_move_next_t == 'on') {
	343	echo " checked";
	344	}
59b578d1	345	echo '> ' . _("Display at top").
7a46945e	346	" <input type=checkbox name=delete_move_next_formATtopi";
15902790	347
7a46945e	348	if ($delete_move_next_formATtop == 'on') {
	349	echo ' checked';
	350	}
15902790	351	echo '> ' . _("with move option") . '<br>';
15902790	352
7a46945e	353	echo '<input type=checkbox name=delete_move_next_bi';
	354	if($delete_move_next_b != 'off') {
	355	echo ' checked';
	356	}
59b578d1	357	echo '> ' . _("Display at bottom") .
7a46945e	358	'<input type=checkbox name=delete_move_next_formATbottomi';
15902790	359
7a46945e	360	if ($delete_move_next_formATbottom != 'off') {
	361	echo ' checked';
	362	}
59b578d1	363	echo '> ' . _("with move option") . '<br>'.
7a46945e	364	"</td></tr>\n";
	365	}
	366
	367	function delete_move_next_display_save() {
	368
3a6da7fd	369	global $username,$data_dir;
	370
	371	if ( (float)substr(PHP_VERSION,0,3) < 4.1 ) {
	372	global $_POST;
	373	}
	374
	375	if (isset($_POST['delete_move_next_ti'])) {
	376	$delete_move_next_ti = $_POST['delete_move_next_ti'];
	377	}
	378	if (isset($_POST['delete_move_next_bi'])) {
	379	$delete_move_next_bi = $_POST['delete_move_next_bi'];
	380	}
	381	if (isset($_POST['delete_move_next_formATtopi'])) {
	382	$delete_move_next_formATtopi = $_POST['delete_move_next_formATtopi'];
	383	}
	384	if (isset($_POST['delete_move_next_formATbottomi'])) {
	385	$delete_move_next_formATbottomi = $_POST['delete_move_next_formATbottomi'];
	386	}
15902790	387
7a46945e	388	if (isset($delete_move_next_ti)) {
	389	setPref($data_dir, $username, 'delete_move_next_t', 'on');
	390	} else {
	391	setPref($data_dir, $username, 'delete_move_next_t', "off");
	392	}
15902790	393
7a46945e	394	if (isset($delete_move_next_formATtopi)) {
	395	setPref($data_dir, $username, 'delete_move_next_formATtop', 'on');
	396	} else {
	397	setPref($data_dir, $username, 'delete_move_next_formATtop', "off");
	398	}
15902790	399
15902790	400
7a46945e	401	if (isset($delete_move_next_bi)) {
	402	setPref($data_dir, $username, 'delete_move_next_b', 'on');
	403	} else {
	404	setPref($data_dir, $username, 'delete_move_next_b', "off");
	405	}
15902790	406
7a46945e	407	if (isset($delete_move_next_formATbottomi)) {
	408	setPref($data_dir, $username, 'delete_move_next_formATbottom', 'on');
	409	} else {
	410	setPref($data_dir, $username, 'delete_move_next_formATbottom', "off");
	411	}
	412
	413	}
	414
	415
	416	function delete_move_next_loading_prefs() {
	417	global $username,$data_dir,
	418	$delete_move_next_t, $delete_move_next_formATtop,
	419	$delete_move_next_b, $delete_move_next_formATbottom;
15902790	420
7a46945e	421	$delete_move_next_t = getPref($data_dir, $username, 'delete_move_next_t');
	422	$delete_move_next_b = getPref($data_dir, $username, 'delete_move_next_b');
	423	$delete_move_next_formATtop = getPref($data_dir, $username, 'delete_move_next_formATtop');
	424	$delete_move_next_formATbottom = getPref($data_dir, $username, 'delete_move_next_formATbottom');
	425
	426	}
	427
b9fb0634	428	?>