dovecot/original-hg/dovecot-1.2: src/pop3/commands.c annotate

annotate src/pop3/commands.c @ 2996:9219e788d774 HEAD

Added %f pop3_uidl_format for maildir. Patch by Andrey Panin.

author	Timo Sirainen <tss@iki.fi>
date	Sun, 19 Dec 2004 08:36:12 +0200
parents	96a4ab34c8f1
children	61c8d205d887

rev	line source
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	1 /* Copyright (C) 2002 Timo Sirainen */
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	2
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	3 #include "common.h"
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	4 #include "istream.h"
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	5 #include "ostream.h"
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	6 #include "str.h"
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	7 #include "var-expand.h"
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	8 #include "message-size.h"
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	9 #include "mail-storage.h"
1845 bd8b6ed35327 Removed fetch_init/fetch_next from mail-storage. search_* makes it Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	10 #include "mail-search.h"
1059 d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	11 #include "capability.h"
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	12 #include "commands.h"
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	13
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	14 #define MSGS_BITMASK_SIZE(client) \
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	15 ((client->messages_count + (CHAR_BIT-1)) / CHAR_BIT)
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	16
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	17 static const char get_msgnum(struct client client, const char *args,
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	18 unsigned int *msgnum)
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	19 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	20 unsigned int num, last_num;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	21
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	22 num = 0;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	23 while (args != '\0' && args != ' ') {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	24 if (args < '0' \|\| args > '9') {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	25 client_send_line(client,
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	26 "-ERR Invalid message number: %s", args);
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	27 return NULL;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	28 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	29
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	30 last_num = num;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	31 num = num10 + (args - '0');
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	32 if (num < last_num) {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	33 client_send_line(client,
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	34 "-ERR Message number too large: %s", args);
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	35 return NULL;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	36 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	37 args++;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	38 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	39
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	40 if (num == 0 \|\| num > client->messages_count) {
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	41 client_send_line(client,
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	42 "-ERR There's no message %u.", num);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	43 return NULL;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	44 }
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	45 num--;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	46
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	47 if (client->deleted) {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	48 if (client->deleted_bitmask[num / CHAR_BIT] &
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	49 (1 << (num % CHAR_BIT))) {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	50 client_send_line(client, "-ERR Message is deleted.");
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	51 return NULL;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	52 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	53 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	54
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	55 while (*args == ' ') args++;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	56
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	57 *msgnum = num;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	58 return args;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	59 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	60
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	61 static const char get_size(struct client client, const char *args,
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	62 uoff_t *size)
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	63 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	64 uoff_t num, last_num;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	65
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	66 num = 0;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	67 while (args != '\0' && args != ' ') {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	68 if (args < '0' \|\| args > '9') {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	69 client_send_line(client, "-ERR Invalid size: %s",
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	70 args);
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	71 return NULL;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	72 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	73
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	74 last_num = num;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	75 num = num10 + (args - '0');
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	76 if (num < last_num) {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	77 client_send_line(client, "-ERR Size too large: %s",
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	78 args);
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	79 return NULL;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	80 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	81 args++;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	82 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	83
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	84 while (*args == ' ') args++;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	85
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	86 *size = num;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	87 return args;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	88 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	89
1059 d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	90 static int cmd_capa(struct client client, const char args __attr_unused__)
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	91 {
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	92 client_send_line(client, "+OK\r\n"POP3_CAPABILITY_REPLY".");
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	93 return TRUE;
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	94 }
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	95
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	96 static int cmd_dele(struct client client, const char args)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	97 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	98 unsigned int msgnum;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	99
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	100 if (get_msgnum(client, args, &msgnum) == NULL)
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	101 return FALSE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	102
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	103 if (!client->deleted) {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	104 client->deleted_bitmask = i_malloc(MSGS_BITMASK_SIZE(client));
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	105 client->deleted = TRUE;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	106 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	107
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	108 client->deleted_bitmask[msgnum / CHAR_BIT] \|= 1 << (msgnum % CHAR_BIT);
1994 77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	109 client->deleted_count++;
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	110 client->deleted_size += client->message_sizes[msgnum];
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	111 client_send_line(client, "+OK Marked to be deleted.");
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	112 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	113 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	114
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	115 struct cmd_list_context {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	116 unsigned int msgnum;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	117 };
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	118
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	119 static void cmd_list_callback(struct client *client)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	120 {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	121 struct cmd_list_context *ctx = client->cmd_context;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	122 int ret;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	123
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	124 for (; ctx->msgnum != client->messages_count; ctx->msgnum++) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	125 if (client->deleted) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	126 if (client->deleted_bitmask[ctx->msgnum / CHAR_BIT] &
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	127 (1 << (ctx->msgnum % CHAR_BIT)))
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	128 continue;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	129 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	130 ret = client_send_line(client, "%u %"PRIuUOFF_T,
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	131 ctx->msgnum+1,
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	132 client->message_sizes[ctx->msgnum]);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	133 if (ret < 0)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	134 break;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	135 if (ret == 0)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	136 return;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	137 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	138
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	139 client_send_line(client, ".");
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	140
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	141 i_free(ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	142 client->cmd = NULL;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	143 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	144
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	145 static int cmd_list(struct client client, const char args)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	146 {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	147 struct cmd_list_context *ctx;
1044 50d258907c99 Read the sizes of all messages to memory at startup. More failsafe and Timo Sirainen <tss@iki.fi> parents: 1043 diff changeset	148
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	149 if (*args == '\0') {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	150 ctx = i_new(struct cmd_list_context, 1);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	151 client_send_line(client, "+OK %u messages:",
1994 77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	152 client->messages_count - client->deleted_count);
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	153
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	154 client->cmd = cmd_list_callback;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	155 client->cmd_context = ctx;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	156 cmd_list_callback(client);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	157 } else {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	158 unsigned int msgnum;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	159
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	160 if (get_msgnum(client, args, &msgnum) == NULL)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	161 return FALSE;
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	162
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	163 client_send_line(client, "+OK %u %"PRIuUOFF_T, msgnum+1,
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	164 client->message_sizes[msgnum]);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	165 }
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	166
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	167 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	168 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	169
2621 c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	170 static int cmd_last(struct client client, const char args __attr_unused__)
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	171 {
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	172 client_send_line(client, "+OK %u", client->last_seen);
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	173 return TRUE;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	174 }
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	175
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	176 static int cmd_noop(struct client client, const char args __attr_unused__)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	177 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	178 client_send_line(client, "+OK");
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	179 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	180 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	181
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	182 static int expunge_mails(struct client *client)
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	183 {
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	184 struct mail_search_arg search_arg;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	185 struct mail_search_context *ctx;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	186 struct mail *mail;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	187 uint32_t idx;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	188
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	189 if (client->deleted_bitmask == NULL)
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	190 return TRUE;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	191
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	192 memset(&search_arg, 0, sizeof(search_arg));
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	193 search_arg.type = SEARCH_ALL;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	194
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	195 ctx = mailbox_search_init(client->trans, NULL, &search_arg,
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	196 NULL, 0, NULL);
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	197 while ((mail = mailbox_search_next(ctx)) != NULL) {
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	198 idx = mail->seq - 1;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	199 if ((client->deleted_bitmask[idx / CHAR_BIT] &
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	200 1 << (idx % CHAR_BIT)) != 0) {
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	201 if (mail->expunge(mail) < 0)
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	202 return FALSE;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	203 }
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	204 }
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	205
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	206 return mailbox_search_deinit(ctx) == 0;
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	207 }
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	208
2711 d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	209 static int cmd_quit(struct client client, const char args __attr_unused__)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	210 {
2711 d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	211 if (client->deleted) {
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	212 if (!expunge_mails(client)) {
2711 d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	213 client_send_storage_error(client);
d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	214 client_disconnect(client);
d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	215 return TRUE;
d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	216 }
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	217 }
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	218
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	219 mailbox_transaction_commit(client->trans, MAILBOX_SYNC_FLAG_FULL_WRITE);
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	220 client->trans = NULL;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	221
1640 db14aa8e2b5c API change for expunging messages. Not exactly what I wanted, but good Timo Sirainen <tss@iki.fi> parents: 1507 diff changeset	222 if (!client->deleted)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	223 client_send_line(client, "+OK Logging out.");
2711 d2e899bb6f5b Delay writing seen flags to mailbox. Timo Sirainen <tss@iki.fi> parents: 2694 diff changeset	224 else
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	225 client_send_line(client, "+OK Logging out, messages deleted.");
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	226
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	227 client_disconnect(client);
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	228 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	229 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	230
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	231 struct fetch_context {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	232 struct mail_search_context *search_ctx;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	233 struct istream *stream;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	234 uoff_t body_lines;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	235
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	236 struct mail_search_arg search_arg;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	237 struct mail_search_seqset seqset;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	238
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	239 unsigned char last;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	240 int cr_skipped, in_body;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	241 };
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	242
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	243 static void fetch_deinit(struct fetch_context *ctx)
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	244 {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	245 (void)mailbox_search_deinit(ctx->search_ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	246 i_free(ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	247 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	248
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	249 static void fetch_callback(struct client *client)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	250 {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	251 struct fetch_context *ctx = client->cmd_context;
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	252 const unsigned char *data;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	253 unsigned char add;
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	254 size_t i, size;
2712 c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	255 int ret;
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	256
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	257 while ((ctx->body_lines > 0 \|\| !ctx->in_body) &&
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	258 i_stream_read_data(ctx->stream, &data, &size, 0) > 0) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	259 if (size > 4096)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	260 size = 4096;
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	261
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	262 add = '\0';
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	263 for (i = 0; i < size; i++) {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	264 if ((data[i] == '\r' \|\| data[i] == '\n') &&
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	265 !ctx->in_body) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	266 if (i == 0 && (ctx->last == '\0' \|\|
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	267 ctx->last == '\n'))
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	268 ctx->in_body = TRUE;
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	269 else if (i > 0 && data[i-1] == '\n')
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	270 ctx->in_body = TRUE;
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	271 }
5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	272
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	273 if (data[i] == '\n') {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	274 if ((i == 0 && ctx->last != '\r') \|\|
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	275 (i > 0 && data[i-1] != '\r')) {
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	276 /* missing CR */
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	277 add = '\r';
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	278 break;
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	279 }
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	280
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	281 if (ctx->in_body) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	282 if (--ctx->body_lines == 0) {
1051 5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	283 i++;
5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	284 break;
5c76c96f745f bugfixes Timo Sirainen <tss@iki.fi> parents: 1045 diff changeset	285 }
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	286 }
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	287 } else if (data[i] == '.' &&
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	288 ((i == 0 && ctx->last == '\n') \|\|
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	289 (i > 0 && data[i-1] == '\n'))) {
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	290 /* escape the dot */
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	291 add = '.';
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	292 break;
2316 1c1ed4494aa4 Split client_workarounds to imap_ and pop3_ ones. Added outlook-no-nuls POP3 Timo Sirainen <tss@iki.fi> parents: 2238 diff changeset	293 } else if (data[i] == '\0' &&
1c1ed4494aa4 Split client_workarounds to imap_ and pop3_ ones. Added outlook-no-nuls POP3 Timo Sirainen <tss@iki.fi> parents: 2238 diff changeset	294 (client_workarounds &
1c1ed4494aa4 Split client_workarounds to imap_ and pop3_ ones. Added outlook-no-nuls POP3 Timo Sirainen <tss@iki.fi> parents: 2238 diff changeset	295 WORKAROUND_OUTLOOK_NO_NULS) != 0) {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	296 add = 0x80;
2323 ec1dac19cb06 outlook-no-nuls workaround fix Timo Sirainen <tss@iki.fi> parents: 2316 diff changeset	297 break;
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	298 }
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	299 }
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	300
2520 255cea3e2331 fixed potential crash Timo Sirainen <tss@iki.fi> parents: 2518 diff changeset	301 if (i > 0) {
255cea3e2331 fixed potential crash Timo Sirainen <tss@iki.fi> parents: 2518 diff changeset	302 if (o_stream_send(client->output, data, i) < 0)
255cea3e2331 fixed potential crash Timo Sirainen <tss@iki.fi> parents: 2518 diff changeset	303 break;
255cea3e2331 fixed potential crash Timo Sirainen <tss@iki.fi> parents: 2518 diff changeset	304 ctx->last = data[i-1];
255cea3e2331 fixed potential crash Timo Sirainen <tss@iki.fi> parents: 2518 diff changeset	305 i_stream_skip(ctx->stream, i);
255cea3e2331 fixed potential crash Timo Sirainen <tss@iki.fi> parents: 2518 diff changeset	306 }
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	307
2712 c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	308 if (o_stream_get_buffer_used_size(client->output) >= 4096) {
c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	309 if ((ret = o_stream_flush(client->output)) < 0)
2694 7b24c608f225 Make sure fetching is uninitialized always. Do full read/write syncing when Timo Sirainen <tss@iki.fi> parents: 2684 diff changeset	310 break;
2712 c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	311 if (ret == 0) {
c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	312 /* continue later */
c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	313 return;
c710572d7075 Buffer more in memory before sending RETR replies. Timo Sirainen <tss@iki.fi> parents: 2711 diff changeset	314 }
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	315 }
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	316
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	317 if (add != '\0') {
2494 a2e2c76021b9 Fixes for nonblocking changes. Timo Sirainen <tss@iki.fi> parents: 2421 diff changeset	318 if (o_stream_send(client->output, &add, 1) < 0)
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	319 break;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	320
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	321 ctx->last = add;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	322 if (add == 0x80)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	323 i_stream_skip(ctx->stream, 1);
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	324 }
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	325 }
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	326
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	327 if (ctx->last != '\n') {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	328 /* didn't end with CRLF */
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	329 (void)o_stream_send(client->output, "\r\n", 2);
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	330 }
1507 1fad8b3d7ef1 If mail didn't end with linefeed, we sent it wrong. Timo Sirainen <tss@iki.fi> parents: 1071 diff changeset	331
2952 546214c0e6e9 Added oe-ns-eoh workaround. Timo Sirainen <tss@iki.fi> parents: 2928 diff changeset	332 if (!ctx->in_body && (client_workarounds & WORKAROUND_OE_NS_EOH) != 0) {
546214c0e6e9 Added oe-ns-eoh workaround. Timo Sirainen <tss@iki.fi> parents: 2928 diff changeset	333 /* Add the missing end of headers line. */
546214c0e6e9 Added oe-ns-eoh workaround. Timo Sirainen <tss@iki.fi> parents: 2928 diff changeset	334 (void)o_stream_send(client->output, "\r\n", 2);
546214c0e6e9 Added oe-ns-eoh workaround. Timo Sirainen <tss@iki.fi> parents: 2928 diff changeset	335 }
546214c0e6e9 Added oe-ns-eoh workaround. Timo Sirainen <tss@iki.fi> parents: 2928 diff changeset	336
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	337 client_send_line(client, ".");
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	338 fetch_deinit(ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	339 client->cmd = NULL;
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	340 }
be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	341
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	342 static void fetch(struct client *client, unsigned int msgnum, uoff_t body_lines)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	343 {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	344 struct fetch_context *ctx;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	345 struct mail *mail;
2928 3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	346 const struct mail_full_flags *flags;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	347
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	348 ctx = i_new(struct fetch_context, 1);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	349
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	350 ctx->seqset.seq1 = ctx->seqset.seq2 = msgnum+1;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	351 ctx->search_arg.type = SEARCH_SEQSET;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	352 ctx->search_arg.value.seqset = &ctx->seqset;
1845 bd8b6ed35327 Removed fetch_init/fetch_next from mail-storage. search_* makes it Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	353
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	354 ctx->search_ctx = mailbox_search_init(client->trans, NULL,
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	355 &ctx->search_arg,
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	356 NULL, MAIL_FETCH_STREAM_HEADER \|
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	357 MAIL_FETCH_STREAM_BODY, NULL);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	358 mail = mailbox_search_next(ctx->search_ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	359 ctx->stream = mail == NULL ? NULL : mail->get_stream(mail, NULL, NULL);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	360 if (ctx->stream == NULL) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	361 client_send_line(client, "-ERR Message not found.");
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	362 fetch_deinit(ctx);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	363 return;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	364 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	365
2719 f8adc5cb2508 Renamed pop3_mails_keep_recent to pop3_no_flag_updates which includes Timo Sirainen <tss@iki.fi> parents: 2712 diff changeset	366 if (body_lines == (uoff_t)-1 && !no_flag_updates) {
2928 3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	367 flags = mail->get_flags(mail);
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	368
2928 3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	369 if (flags != NULL && (flags->flags & MAIL_SEEN) == 0) {
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	370 /* mark the message seen with RETR command */
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	371 struct mail_full_flags seen_flag;
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	372 memset(&seen_flag, 0, sizeof(seen_flag));
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	373 seen_flag.flags = MAIL_SEEN;
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	374
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	375 (void)mail->update_flags(mail, &seen_flag, MODIFY_ADD);
3470bb04fb57 RETR: Don't bother adding \Seen flag to message if it's already there. Timo Sirainen <tss@iki.fi> parents: 2722 diff changeset	376 }
2527 792b3209f705 Make RETR mark the message seen. Timo Sirainen <tss@iki.fi> parents: 2520 diff changeset	377 }
792b3209f705 Make RETR mark the message seen. Timo Sirainen <tss@iki.fi> parents: 2520 diff changeset	378
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	379 ctx->body_lines = body_lines;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	380 if (body_lines == (uoff_t)-1) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	381 client_send_line(client, "+OK %"PRIuUOFF_T" octets",
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	382 client->message_sizes[msgnum]);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	383 } else {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	384 client_send_line(client, "+OK");
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	385 ctx->body_lines++; /* internally we count the empty line too */
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	386 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	387
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	388 client->cmd = fetch_callback;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	389 client->cmd_context = ctx;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	390 fetch_callback(client);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	391 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	392
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	393 static int cmd_retr(struct client client, const char args)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	394 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	395 unsigned int msgnum;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	396
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	397 if (get_msgnum(client, args, &msgnum) == NULL)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	398 return FALSE;
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	399
2621 c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	400 if (client->last_seen <= msgnum)
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	401 client->last_seen = msgnum+1;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	402
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	403 fetch(client, msgnum, (uoff_t)-1);
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	404 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	405 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	406
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	407 static int cmd_rset(struct client client, const char args __attr_unused__)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	408 {
2621 c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	409 struct mail_search_context *search_ctx;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	410 struct mail *mail;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	411 struct mail_search_arg search_arg;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	412 struct mail_full_flags seen_flag;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	413
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	414 client->last_seen = 0;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	415
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	416 if (client->deleted) {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	417 client->deleted = FALSE;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	418 memset(client->deleted_bitmask, 0, MSGS_BITMASK_SIZE(client));
1994 77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	419 client->deleted_count = 0;
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	420 client->deleted_size = 0;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	421 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	422
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	423 /* forget all our seen flag updates as well.. */
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	424 mailbox_transaction_rollback(client->trans);
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	425 client->trans = mailbox_transaction_begin(client->mailbox, FALSE);
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	426
2621 c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	427 if (enable_last_command) {
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	428 /* remove all \Seen flags */
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	429 memset(&search_arg, 0, sizeof(search_arg));
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	430 search_arg.type = SEARCH_ALL;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	431
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	432 memset(&seen_flag, 0, sizeof(seen_flag));
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	433 seen_flag.flags = MAIL_SEEN;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	434
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	435 search_ctx = mailbox_search_init(client->trans, NULL,
8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	436 &search_arg, NULL, 0, NULL);
2621 c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	437 while ((mail = mailbox_search_next(search_ctx)) != NULL) {
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	438 if (mail->update_flags(mail, &seen_flag,
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	439 MODIFY_REMOVE) < 0)
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	440 break;
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	441 }
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	442 (void)mailbox_search_deinit(search_ctx);
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	443 }
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	444
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	445 client_send_line(client, "+OK");
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	446 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	447 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	448
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	449 static int cmd_stat(struct client client, const char args __attr_unused__)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	450 {
1044 50d258907c99 Read the sizes of all messages to memory at startup. More failsafe and Timo Sirainen <tss@iki.fi> parents: 1043 diff changeset	451 client_send_line(client, "+OK %u %"PRIuUOFF_T, client->
1994 77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	452 messages_count - client->deleted_count,
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	453 client->total_size - client->deleted_size);
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	454 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	455 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	456
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	457 static int cmd_top(struct client client, const char args)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	458 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	459 unsigned int msgnum;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	460 uoff_t max_lines;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	461
1045 be7710b9a819 Fixes, seems to be working now. Only thing left is the pop3-login.. Timo Sirainen <tss@iki.fi> parents: 1044 diff changeset	462 args = get_msgnum(client, args, &msgnum);
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	463 if (args == NULL)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	464 return FALSE;
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	465 if (get_size(client, args, &max_lines) == NULL)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	466 return FALSE;
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	467
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	468 fetch(client, msgnum, max_lines);
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	469 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	470 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	471
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	472 struct cmd_uidl_context {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	473 struct mail_search_context *search_ctx;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	474 unsigned int message;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	475
1845 bd8b6ed35327 Removed fetch_init/fetch_next from mail-storage. search_* makes it Timo Sirainen <tss@iki.fi> parents: 1672 diff changeset	476 struct mail_search_arg search_arg;
1915 79790750c349 importing new index code. mbox still broken. Timo Sirainen <tss@iki.fi> parents: 1845 diff changeset	477 struct mail_search_seqset seqset;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	478 };
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	479
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	480 static int list_uids_iter(struct client client, struct cmd_uidl_context ctx)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	481 {
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	482 static struct var_expand_table static_tab[] = {
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	483 { 'v', NULL },
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	484 { 'u', NULL },
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	485 { 'm', NULL },
2996 9219e788d774 Added %f pop3_uidl_format for maildir. Patch by Andrey Panin. Timo Sirainen <tss@iki.fi> parents: 2976 diff changeset	486 { 'f', NULL },
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	487 { '\0', NULL }
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	488 };
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	489 struct var_expand_table *tab;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	490 struct mail *mail;
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	491 string_t *str;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	492 int ret, found = FALSE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	493
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	494 tab = t_malloc(sizeof(static_tab));
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	495 memcpy(tab, static_tab, sizeof(static_tab));
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	496 tab[0].value = t_strdup_printf("%u", client->uid_validity);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	497
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	498 str = str_new(default_pool, 128);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	499
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	500 while ((mail = mailbox_search_next(ctx->search_ctx)) != NULL) {
1994 77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	501 if (client->deleted) {
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	502 uint32_t idx = mail->seq - 1;
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	503 if (client->deleted_bitmask[idx / CHAR_BIT] &
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	504 (1 << (idx % CHAR_BIT)))
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	505 continue;
77f3111f7976 Fixes to commands after mails have been deleted. Patch by Nic Bellamy. Timo Sirainen <tss@iki.fi> parents: 1950 diff changeset	506 }
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	507 found = TRUE;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	508
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	509 t_push();
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	510 if ((uidl_keymask & UIDL_UID) != 0)
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	511 tab[1].value = dec2str(mail->uid);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	512 if ((uidl_keymask & UIDL_MD5) != 0) {
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	513 tab[2].value =
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	514 mail->get_special(mail, MAIL_FETCH_HEADER_MD5);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	515 }
2996 9219e788d774 Added %f pop3_uidl_format for maildir. Patch by Andrey Panin. Timo Sirainen <tss@iki.fi> parents: 2976 diff changeset	516 if ((uidl_keymask & UIDL_FILE_NAME) != 0) {
9219e788d774 Added %f pop3_uidl_format for maildir. Patch by Andrey Panin. Timo Sirainen <tss@iki.fi> parents: 2976 diff changeset	517 tab[3].value =
9219e788d774 Added %f pop3_uidl_format for maildir. Patch by Andrey Panin. Timo Sirainen <tss@iki.fi> parents: 2976 diff changeset	518 mail->get_special(mail,
9219e788d774 Added %f pop3_uidl_format for maildir. Patch by Andrey Panin. Timo Sirainen <tss@iki.fi> parents: 2976 diff changeset	519 MAIL_FETCH_UIDL_FILE_NAME);
9219e788d774 Added %f pop3_uidl_format for maildir. Patch by Andrey Panin. Timo Sirainen <tss@iki.fi> parents: 2976 diff changeset	520 }
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	521
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	522 str_truncate(str, 0);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	523 str_printfa(str, ctx->message == 0 ? "%u " : "+OK %u ",
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	524 mail->seq);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	525 var_expand(str, uidl_format, tab);
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	526
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	527 ret = client_send_line(client, "%s", str_c(str));
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	528 t_pop();
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	529
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	530 if (ret < 0)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	531 break;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	532 if (ret == 0 && ctx->message == 0) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	533 /* output is being buffered, continue when there's
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	534 more space */
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	535 str_free(str);
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	536 return 0;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	537 }
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	538 }
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	539 str_free(str);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	540
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	541 /* finished */
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	542 (void)mailbox_search_deinit(ctx->search_ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	543
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	544 client->cmd = NULL;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	545
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	546 if (ctx->message == 0)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	547 client_send_line(client, ".");
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	548 i_free(ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	549 return found;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	550 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	551
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	552 static void cmd_uidl_callback(struct client *client)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	553 {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	554 struct cmd_uidl_context *ctx = client->cmd_context;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	555
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	556 (void)list_uids_iter(client, ctx);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	557 }
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	558
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	559 static struct cmd_uidl_context *
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	560 cmd_uidl_init(struct client *client, unsigned int message)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	561 {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	562 struct cmd_uidl_context *ctx;
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	563 enum mail_fetch_field wanted_fields;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	564
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	565 ctx = i_new(struct cmd_uidl_context, 1);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	566
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	567 if (message == 0)
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	568 ctx->search_arg.type = SEARCH_ALL;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	569 else {
2684 7979984b6276 "UIDL <message>" was broken. Timo Sirainen <tss@iki.fi> parents: 2621 diff changeset	570 ctx->message = message;
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	571 ctx->seqset.seq1 = ctx->seqset.seq2 = message;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	572 ctx->search_arg.type = SEARCH_SEQSET;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	573 ctx->search_arg.value.seqset = &ctx->seqset;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	574 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	575
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	576 wanted_fields = 0;
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	577 if ((uidl_keymask & UIDL_MD5) != 0)
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	578 wanted_fields \|= MAIL_FETCH_HEADER_MD5;
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	579
2722 8c5bcd6585a4 Use only a single transaction for the whole duration of pop3 session. Avoids Timo Sirainen <tss@iki.fi> parents: 2719 diff changeset	580 ctx->search_ctx = mailbox_search_init(client->trans, NULL,
2976 96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	581 &ctx->search_arg, NULL,
96a4ab34c8f1 Added pop3_uidl_format setting. Timo Sirainen <tss@iki.fi> parents: 2952 diff changeset	582 wanted_fields, NULL);
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	583 if (message == 0) {
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	584 client->cmd = cmd_uidl_callback;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	585 client->cmd_context = ctx;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	586 }
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	587 return ctx;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	588 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	589
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	590 static int cmd_uidl(struct client client, const char args)
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	591 {
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	592 struct cmd_uidl_context *ctx;
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	593
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	594 if (*args == '\0') {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	595 client_send_line(client, "+OK");
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	596 ctx = cmd_uidl_init(client, 0);
d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	597 list_uids_iter(client, ctx);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	598 } else {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	599 unsigned int msgnum;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	600
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	601 if (get_msgnum(client, args, &msgnum) == NULL)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	602 return FALSE;
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	603
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	604 ctx = cmd_uidl_init(client, msgnum+1);
2684 7979984b6276 "UIDL <message>" was broken. Timo Sirainen <tss@iki.fi> parents: 2621 diff changeset	605 if (!list_uids_iter(client, ctx))
2421 d141e1bfdd63 We never do blocking reads/writes to network anymore. Changed imap and pop3 Timo Sirainen <tss@iki.fi> parents: 2323 diff changeset	606 client_send_line(client, "-ERR Message not found.");
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	607 }
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	608
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	609 return TRUE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	610 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	611
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	612 int client_command_execute(struct client *client,
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	613 const char name, const char args)
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	614 {
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	615 /* keep the command uppercased */
2058 0a1755f79392 cleanup: str_case(t_strdup_noconst(str)) -> t_str_case(str) Timo Sirainen <tss@iki.fi> parents: 2006 diff changeset	616 name = t_str_ucase(name);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	617
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	618 while (*args == ' ') args++;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	619
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	620 switch (*name) {
1059 d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	621 case 'C':
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	622 if (strcmp(name, "CAPA") == 0)
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	623 return cmd_capa(client, args);
d805c2f1d6a9 Support for CAPA command (rfc2449). Timo Sirainen <tss@iki.fi> parents: 1056 diff changeset	624 break;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	625 case 'D':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	626 if (strcmp(name, "DELE") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	627 return cmd_dele(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	628 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	629 case 'L':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	630 if (strcmp(name, "LIST") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	631 return cmd_list(client, args);
2621 c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	632 if (strcmp(name, "LAST") == 0 && enable_last_command)
c6cc163344c3 Added pop3_enable_last setting to enable deprecated LAST command. Timo Sirainen <tss@iki.fi> parents: 2527 diff changeset	633 return cmd_last(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	634 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	635 case 'N':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	636 if (strcmp(name, "NOOP") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	637 return cmd_noop(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	638 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	639 case 'Q':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	640 if (strcmp(name, "QUIT") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	641 return cmd_quit(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	642 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	643 case 'R':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	644 if (strcmp(name, "RETR") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	645 return cmd_retr(client, args);
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	646 if (strcmp(name, "RSET") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	647 return cmd_rset(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	648 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	649 case 'S':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	650 if (strcmp(name, "STAT") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	651 return cmd_stat(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	652 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	653 case 'T':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	654 if (strcmp(name, "TOP") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	655 return cmd_top(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	656 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	657 case 'U':
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	658 if (strcmp(name, "UIDL") == 0)
a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	659 return cmd_uidl(client, args);
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	660 break;
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	661 }
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	662
cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	663 client_send_line(client, "-ERR Unknown command: %s", name);
1056 a9b499b2611e Disconnect after too many bad commands. We also crashed if there were no Timo Sirainen <tss@iki.fi> parents: 1051 diff changeset	664 return FALSE;
1043 cacabd33c68a Initial code for POP3 server. RETR isn't working right yet, there's some Timo Sirainen <tss@iki.fi> parents: diff changeset	665 }

Mercurial > dovecot > original-hg > dovecot-1.2

annotate src/pop3/commands.c @ 2996:9219e788d774 HEAD