File: cmd_rm1.c

package info (click to toggle)
prayer 1.3.5-dfsg1-8
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 6,596 kB
  • sloc: ansic: 43,163; makefile: 817; sh: 445; perl: 166
file content (79 lines) | stat: -rw-r--r-- 2,754 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
/* $Cambridge: hermes/src/prayer/cmd/cmd_rm1.c,v 1.4 2008/09/17 17:20:25 dpc22 Exp $ */
/************************************************
 *    Prayer - a Webmail Interface              *
 ************************************************/

/* Copyright (c) University of Cambridge 2000 - 2008 */
/* See the file NOTICE for conditions of use and distribution. */

#include "prayer_session.h"

void cmd_rm1(struct session *session)
{
    struct request *request = session->request;
    struct options *options = session->options;
    struct favourite_list *fl = options->favourite_list;
    MAILSTREAM *stream;
    char *mailbox;

    if (request->argc < 3) {
        session_redirect(session, request, "error");
        return;
    }

    mailbox = string_canon_decode(request->argv[2]);

    if (!strcasecmp(mailbox, "INBOX")) {
        session_alert(session, "Unable to delete inbox folder");
        session_redirect(session, request, "folders");
        return;
    }

    if (session->foldername && session->other_foldername &&
        !strcmp(session->foldername, session->other_foldername) &&
        !strcmp(session->foldername, mailbox)) {

        /* Attempt to delete current mailbox other than INBOX */
        /* Switch to inbox, shut down other stream */
        session_streams_change(session, "INBOX");

        ml_close(session, session->other_stream);
        session->other_stream = NIL;
    }
    stream = session->stream;

    ml_clear_error();
    ml_clear_have_close();

    if (!strcmp(request->argv[1], "directory")) {
        ml_delete(session, stream,
                  session_dir(session, request->pool, mailbox));
        if (ml_have_close()) {
            session_redirect(session, request, "restart");
            return;
        } else if (ml_have_error()) {
            session_alert(session, "%s", ml_errmsg());        /* Includes name */
        } else {
            session_message(session, "Deleted directory: \"%s\"", mailbox);
            folderlist_delete(session->folderlist, mailbox);
        }
    } else {
        ml_delete(session, stream,
                  session_mailbox(session, request->pool, mailbox));

        if (ml_have_close()) {
            session_redirect(session, request, "restart");
            return;
        } else if (ml_have_error()) {
            session_message(session, "%s", ml_errmsg());        /* Includes name */
        } else {
            session_message(session, "Deleted mailbox: \"%s\"",
                            utf8_from_imaputf7(request->pool, mailbox));
            folderlist_delete(session->folderlist, mailbox);
            if (favourite_delete(fl, mailbox))
                options->save = T;
        }
    }

    session_redirect(session, request, "folders");
}