Wrong include path
[squirrelmail.git] / src / delete_message.php
CommitLineData
59177427 1<?php
895905c0 2
35586184 3/**
4 * delete_message.php
5 *
15e6162e 6 * Copyright (c) 1999-2002 The SquirrelMail Project Team
35586184 7 * Licensed under the GNU GPL. For full terms see the file COPYING.
8 *
65c3ec94 9 * Deletes a meesage from the IMAP server
35586184 10 *
11 * $Id$
12 */
ef870322 13
86725763 14/* Path for SquirrelMail required files. */
15define('SM_PATH','../');
16
17/* SquirrelMail required files. */
08185f2a 18require_once(SM_PATH . 'include/validate.php');
86725763 19require_once(SM_PATH . 'functions/display_messages.php');
20require_once(SM_PATH . 'functions/imap.php');
d3cdb279 21
65c3ec94 22$imapConnection = sqimap_login($username, $key, $imapServerAddress, $imapPort, 0);
23
24sqimap_mailbox_select($imapConnection, $mailbox);
d4467150 25
65c3ec94 26sqimap_messages_delete($imapConnection, $message, $message, $mailbox);
27if ($auto_expunge) {
28 sqimap_mailbox_expunge($imapConnection, $mailbox, true);
29}
9c3e6cd4 30if (!isset($saved_draft)) {
31 $saved_draft = '';
32}
acaa9842 33
439166c1 34if (!isset($mail_sent)) {
35 $mail_sent = '';
36}
37
65c3ec94 38$location = get_location();
7058a2a9 39
65c3ec94 40if (isset($where) && isset($what)) {
41 header("Location: $location/search.php?where=" . urlencode($where) .
732fd5a4 42 '&what=' . urlencode($what) . '&mailbox=' . urlencode($mailbox));
65c3ec94 43} else {
854000c0 44 if (!empty($saved_draft) || !empty($mail_sent)) {
732fd5a4 45 header("Location: $location/compose.php?mail_sent=$mail_sent&saved_draft=$saved_draft");
9c3e6cd4 46 }
47 else {
732fd5a4 48 header("Location: $location/right_main.php?sort=$sort&startMessage=$startMessage&mailbox=" .
e02775fe 49 urlencode($mailbox));
9c3e6cd4 50 }
65c3ec94 51}
a48fbf9b 52
65c3ec94 53sqimap_logout($imapConnection);
e02775fe 54
5e9e90fd 55?>