if (!$mlist) {
    exit('Invalid list identifier');
}
$CREATE_NEW_USERS = $mlist->mlist_opt & 64;
$FUD_OPT_2 |= $FUD_OPT_2 & ~(1024 | 8388608);
$FUD_OPT_2 |= 128;
$frm = db_sab('SELECT id, forum_opt, message_threshold, (max_attach_size * 1024) AS max_attach_size, max_file_attachments FROM ' . sql_p . 'forum WHERE id=' . $mlist->forum_id);
$emsg = new fud_emsg();
$emsg->subject_cleanup_rgx = $mlist->subject_regex_haystack;
$emsg->subject_cleanup_rep = $mlist->subject_regex_needle;
$emsg->body_cleanup_rgx = $mlist->body_regex_haystack;
$emsg->body_cleanup_rep = $mlist->body_regex_needle;
$emsg->parse_input($mlist->mlist_opt & 16);
$emsg->fetch_useful_headers();
$emsg->clean_up_data();
$msg_post = new fud_msg_edit();
// Handler for our own messages, which do not need to be imported.
if (isset($emsg->headers['x-fudforum']) && preg_match('!([A-Za-z0-9]{32}) <([0-9]+)>!', $emsg->headers['x-fudforum'], $m)) {
    if ($m[1] == md5($GLOBALS['WWW_ROOT'])) {
        q("UPDATE " . sql_p . "msg SET mlist_msg_id='" . addslashes($emsg->msg_id) . "' WHERE id=" . intval($m[2]) . " AND mlist_msg_id IS NULL");
        if (db_affected()) {
            exit;
        }
    }
}
$msg_post->body = apply_custom_replace($emsg->body);
if (!($mlist->mlist_opt & 16)) {
    if ($frm->forum_opt & 16) {
        $msg_post->body = tags_to_html($msg_post->body, 0);
    } else {
        $msg_post->body = nl2br($msg_post->body);
    function delete($rebuild_view = true, $mid = 0, $th_rm = 0)
    {
        if (!$mid) {
            $mid = $this->id;
        }
        if (!db_locked()) {
            db_lock('phpgw_fud_thr_exchange WRITE, phpgw_fud_thread_view WRITE, phpgw_fud_level WRITE, phpgw_fud_forum WRITE, phpgw_fud_forum_read WRITE, phpgw_fud_thread WRITE, phpgw_fud_msg WRITE, phpgw_fud_attach WRITE, phpgw_fud_poll WRITE, phpgw_fud_poll_opt WRITE, phpgw_fud_poll_opt_track WRITE, phpgw_fud_users WRITE, phpgw_fud_thread_notify WRITE, phpgw_fud_msg_report WRITE, phpgw_fud_thread_rate_track WRITE');
            $ll = 1;
        }
        if (!($del = db_sab('SELECT
				phpgw_fud_msg.id, phpgw_fud_msg.attach_cnt, phpgw_fud_msg.poll_id, phpgw_fud_msg.thread_id, phpgw_fud_msg.reply_to, phpgw_fud_msg.apr, phpgw_fud_msg.poster_id,
				phpgw_fud_thread.replies, phpgw_fud_thread.root_msg_id AS root_msg_id, phpgw_fud_thread.last_post_id AS thread_lip, phpgw_fud_thread.forum_id,
				phpgw_fud_forum.last_post_id AS forum_lip FROM phpgw_fud_msg LEFT JOIN phpgw_fud_thread ON phpgw_fud_msg.thread_id=phpgw_fud_thread.id LEFT JOIN phpgw_fud_forum ON phpgw_fud_thread.forum_id=phpgw_fud_forum.id WHERE phpgw_fud_msg.id=' . $mid))) {
            if (isset($ll)) {
                db_unlock();
            }
            return;
        }
        /* attachments */
        if ($del->attach_cnt) {
            $res = q('SELECT location FROM phpgw_fud_attach WHERE message_id=' . $mid . " AND attach_opt=0");
            while ($loc = db_rowarr($res)) {
                @unlink($loc[0]);
            }
            unset($res);
            q('DELETE FROM phpgw_fud_attach WHERE message_id=' . $mid . " AND attach_opt=0");
        }
        q('DELETE FROM phpgw_fud_msg_report WHERE msg_id=' . $mid);
        if ($del->poll_id) {
            poll_delete($del->poll_id);
        }
        /* check if thread */
        if ($del->root_msg_id == $del->id) {
            $th_rm = 1;
            /* delete all messages in the thread if there is more then 1 message */
            if ($del->replies) {
                $rmsg = q('SELECT id FROM phpgw_fud_msg WHERE thread_id=' . $del->thread_id . ' AND id != ' . $del->id);
                while ($dim = db_rowarr($rmsg)) {
                    fud_msg_edit::delete(false, $dim[0], 1);
                }
                unset($rmsg);
            }
            q('DELETE FROM phpgw_fud_thread_notify WHERE thread_id=' . $del->thread_id);
            q('DELETE FROM phpgw_fud_thread WHERE id=' . $del->thread_id);
            q('DELETE FROM phpgw_fud_thread_rate_track WHERE thread_id=' . $del->thread_id);
            q('DELETE FROM phpgw_fud_thr_exchange WHERE th=' . $del->thread_id);
            if ($del->apr) {
                /* we need to determine the last post id for the forum, it can be null */
                $lpi = (int) q_singleval('SELECT phpgw_fud_thread.last_post_id FROM phpgw_fud_thread INNER JOIN phpgw_fud_msg ON phpgw_fud_thread.last_post_id=phpgw_fud_msg.id AND phpgw_fud_msg.apr=1 WHERE forum_id=' . $del->forum_id . ' AND moved_to=0 ORDER BY phpgw_fud_msg.post_stamp DESC LIMIT 1');
                q('UPDATE phpgw_fud_forum SET last_post_id=' . $lpi . ', thread_count=thread_count-1, post_count=post_count-' . $del->replies . '-1 WHERE id=' . $del->forum_id);
            }
        } else {
            if (!$th_rm && $del->apr) {
                q('UPDATE phpgw_fud_msg SET reply_to=' . $del->reply_to . ' WHERE thread_id=' . $del->thread_id . ' AND reply_to=' . $mid);
                /* check if the message is the last in thread */
                if ($del->thread_lip == $del->id) {
                    list($lpi, $lpd) = db_saq('SELECT id, post_stamp FROM phpgw_fud_msg WHERE thread_id=' . $del->thread_id . ' AND apr=1 AND id!=' . $del->id . ' ORDER BY post_stamp DESC LIMIT 1');
                    q('UPDATE phpgw_fud_thread SET last_post_id=' . $lpi . ', last_post_date=' . $lpd . ', replies=replies-1 WHERE id=' . $del->thread_id);
                } else {
                    q('UPDATE phpgw_fud_thread SET replies=replies-1 WHERE id=' . $del->thread_id);
                }
                /* check if the message is the last in the forum */
                if ($del->forum_lip == $del->id) {
                    $lp = db_saq('SELECT phpgw_fud_thread.last_post_id, phpgw_fud_thread.last_post_date FROM phpgw_fud_thread_view INNER JOIN phpgw_fud_thread ON phpgw_fud_thread_view.forum_id=phpgw_fud_thread.forum_id AND phpgw_fud_thread_view.thread_id=phpgw_fud_thread.id WHERE phpgw_fud_thread_view.forum_id=' . $del->forum_id . ' AND phpgw_fud_thread_view.page=1 AND phpgw_fud_thread.moved_to=0 ORDER BY phpgw_fud_thread.last_post_date DESC LIMIT 1');
                    if (!isset($lpd) || $lp[1] > $lpd) {
                        $lpi = $lp[0];
                    }
                    q('UPDATE phpgw_fud_forum SET post_count=post_count-1, last_post_id=' . $lpi . ' WHERE id=' . $del->forum_id);
                } else {
                    q('UPDATE phpgw_fud_forum SET post_count=post_count-1 WHERE id=' . $del->forum_id);
                }
            }
        }
        q('DELETE FROM phpgw_fud_msg WHERE id=' . $mid);
        if ($del->apr) {
            if ($del->poster_id) {
                user_set_post_count($del->poster_id);
            }
            if ($rebuild_view) {
                rebuild_forum_view($del->forum_id);
                /* needed for moved thread pointers */
                $r = q('SELECT forum_id, id FROM phpgw_fud_thread WHERE root_msg_id=' . $del->root_msg_id);
                while ($res = db_rowarr($r)) {
                    if ($th_rm) {
                        q('DELETE FROM phpgw_fud_thread WHERE id=' . $res[1]);
                    }
                    rebuild_forum_view($res[0]);
                }
                unset($r);
            }
        }
        if (isset($ll)) {
            db_unlock();
        }
    }
        echo $_POST['forumsel'];
        ?>
">
			<input type="submit" name="btn_conf" value="Yes">
			<input type="submit" name="btn_cancel" value="No">
			</form>
</div>
</body>
</html>
<?php 
        exit;
    } else {
        db_lock($DBHOST_TBL_PREFIX . 'thr_exchange WRITE, ' . $DBHOST_TBL_PREFIX . 'thread_view WRITE, ' . $DBHOST_TBL_PREFIX . 'level WRITE, ' . $DBHOST_TBL_PREFIX . 'forum WRITE, ' . $DBHOST_TBL_PREFIX . 'forum_read WRITE, ' . $DBHOST_TBL_PREFIX . 'thread WRITE, ' . $DBHOST_TBL_PREFIX . 'msg WRITE, ' . $DBHOST_TBL_PREFIX . 'attach WRITE, ' . $DBHOST_TBL_PREFIX . 'poll WRITE, ' . $DBHOST_TBL_PREFIX . 'poll_opt WRITE, ' . $DBHOST_TBL_PREFIX . 'poll_opt_track WRITE, ' . $DBHOST_TBL_PREFIX . 'users WRITE, ' . $DBHOST_TBL_PREFIX . 'thread_notify WRITE, ' . $DBHOST_TBL_PREFIX . 'msg_report WRITE, ' . $DBHOST_TBL_PREFIX . 'thread_rate_track WRITE');
        $c = q('SELECT root_msg_id, forum_id FROM ' . $DBHOST_TBL_PREFIX . 'thread WHERE last_post_date<' . $back . $lmt);
        while ($r = db_rowarr($c)) {
            fud_msg_edit::delete(false, $r[0], 1);
            $frm_list[$r[1]] = $r[1];
        }
        unset($r);
        foreach ($frm_list as $v) {
            rebuild_forum_view($v);
        }
        db_unlock();
        echo '<h2 color="red">It is highly recommended that you run a consitency checker after prunning.</h2>';
    }
}
require $WWW_ROOT_DISK . 'adm/admpanel.php';
?>
<h2>Topic Prunning</h2>
<form method="post" action="admprune.php">
<table class="datatable">