2 * Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
3 * Copyright (C) 1999-2003 Hiroyuki Yamamoto
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
36 #include "prefs_account.h"
44 static gint pop3_greeting_recv (Pop3Session *session,
46 static gint pop3_getauth_user_send (Pop3Session *session);
47 static gint pop3_getauth_pass_send (Pop3Session *session);
48 static gint pop3_getauth_apop_send (Pop3Session *session);
50 static gint pop3_stls_send (Pop3Session *session);
51 static gint pop3_stls_recv (Pop3Session *session);
53 static gint pop3_getrange_stat_send (Pop3Session *session);
54 static gint pop3_getrange_stat_recv (Pop3Session *session,
56 static gint pop3_getrange_last_send (Pop3Session *session);
57 static gint pop3_getrange_last_recv (Pop3Session *session,
59 static gint pop3_getrange_uidl_send (Pop3Session *session);
60 static gint pop3_getrange_uidl_recv (Pop3Session *session,
62 static gint pop3_getsize_list_send (Pop3Session *session);
63 static gint pop3_getsize_list_recv (Pop3Session *session,
65 static gint pop3_retr_send (Pop3Session *session);
66 static gint pop3_retr_recv (Pop3Session *session,
69 static gint pop3_delete_send (Pop3Session *session);
70 static gint pop3_delete_recv (Pop3Session *session);
71 static gint pop3_logout_send (Pop3Session *session);
73 static void pop3_gen_send (Pop3Session *session,
74 const gchar *format, ...);
76 static void pop3_session_destroy (Session *session);
78 static gint pop3_write_msg_to_file (const gchar *file,
82 static Pop3State pop3_lookup_next (Pop3Session *session);
83 static Pop3ErrorValue pop3_ok (Pop3Session *session,
86 static gint pop3_session_recv_msg (Session *session,
88 static gint pop3_session_recv_data_finished (Session *session,
93 static gint pop3_greeting_recv(Pop3Session *session, const gchar *msg)
95 session->state = POP3_GREETING;
97 session->greeting = g_strdup(msg);
102 static gint pop3_stls_send(Pop3Session *session)
104 session->state = POP3_STLS;
105 pop3_gen_send(session, "STLS");
109 static gint pop3_stls_recv(Pop3Session *session)
111 if (session_start_tls(SESSION(session)) < 0) {
112 session->error_val = PS_SOCKET;
117 #endif /* USE_OPENSSL */
119 static gint pop3_getauth_user_send(Pop3Session *session)
121 g_return_val_if_fail(session->user != NULL, -1);
123 session->state = POP3_GETAUTH_USER;
124 pop3_gen_send(session, "USER %s", session->user);
128 static gint pop3_getauth_pass_send(Pop3Session *session)
130 g_return_val_if_fail(session->pass != NULL, -1);
132 session->state = POP3_GETAUTH_PASS;
133 pop3_gen_send(session, "PASS %s", session->pass);
137 static gint pop3_getauth_apop_send(Pop3Session *session)
143 g_return_val_if_fail(session->user != NULL, -1);
144 g_return_val_if_fail(session->pass != NULL, -1);
146 session->state = POP3_GETAUTH_APOP;
148 if ((start = strchr(session->greeting, '<')) == NULL) {
149 log_warning(_("Required APOP timestamp not found "
151 session->error_val = PS_PROTOCOL;
155 if ((end = strchr(start, '>')) == NULL || end == start + 1) {
156 log_warning(_("Timestamp syntax error in greeting\n"));
157 session->error_val = PS_PROTOCOL;
163 apop_str = g_strconcat(start, session->pass, NULL);
164 md5_hex_digest(md5sum, apop_str);
167 pop3_gen_send(session, "APOP %s %s", session->user, md5sum);
172 static gint pop3_getrange_stat_send(Pop3Session *session)
174 session->state = POP3_GETRANGE_STAT;
175 pop3_gen_send(session, "STAT");
179 static gint pop3_getrange_stat_recv(Pop3Session *session, const gchar *msg)
181 if (sscanf(msg, "%d %d", &session->count, &session->total_bytes) != 2) {
182 log_warning(_("POP3 protocol error\n"));
183 session->error_val = PS_PROTOCOL;
186 if (session->count == 0) {
187 session->uidl_is_valid = TRUE;
189 session->msg = g_new0(Pop3MsgInfo, session->count + 1);
190 session->cur_msg = 1;
197 static gint pop3_getrange_last_send(Pop3Session *session)
199 session->state = POP3_GETRANGE_LAST;
200 pop3_gen_send(session, "LAST");
204 static gint pop3_getrange_last_recv(Pop3Session *session, const gchar *msg)
208 if (sscanf(msg, "%d", &last) == 0) {
209 log_warning(_("POP3 protocol error\n"));
210 session->error_val = PS_PROTOCOL;
213 if (session->count > last)
214 session->cur_msg = last + 1;
216 session->cur_msg = 0;
222 static gint pop3_getrange_uidl_send(Pop3Session *session)
224 session->state = POP3_GETRANGE_UIDL;
225 pop3_gen_send(session, "UIDL");
229 static gint pop3_getrange_uidl_recv(Pop3Session *session, const gchar *msg)
236 session->uidl_is_valid = TRUE;
240 if (sscanf(msg, "%d %" Xstr(IDLEN) "s", &num, id) != 2)
242 if (num <= 0 || num > session->count)
245 session->msg[num].uidl = g_strdup(id);
247 if (!session->uidl_table)
250 recv_time = (time_t)g_hash_table_lookup(session->uidl_table, id);
251 session->msg[num].recv_time = recv_time;
253 if (!session->ac_prefs->getall && recv_time != RECV_TIME_NONE)
254 session->msg[num].received = TRUE;
256 if (!session->new_msg_exist &&
257 (session->ac_prefs->getall || recv_time == RECV_TIME_NONE ||
258 session->ac_prefs->rmmail)) {
259 session->cur_msg = num;
260 session->new_msg_exist = TRUE;
266 static gint pop3_getsize_list_send(Pop3Session *session)
268 session->state = POP3_GETSIZE_LIST;
269 pop3_gen_send(session, "LIST");
273 static gint pop3_getsize_list_recv(Pop3Session *session, const gchar *msg)
280 if (sscanf(msg, "%u %u", &num, &size) != 2) {
281 session->error_val = PS_PROTOCOL;
285 if (num > 0 && num <= session->count)
286 session->msg[num].size = size;
287 if (num > 0 && num < session->cur_msg)
288 session->cur_total_bytes += size;
293 static gint pop3_retr_send(Pop3Session *session)
295 session->state = POP3_RETR;
296 pop3_gen_send(session, "RETR %d", session->cur_msg);
300 static gint pop3_retr_recv(Pop3Session *session, const gchar *data, guint len)
304 MailReceiveData mail_receive_data;
306 mail_receive_data.session = session;
307 mail_receive_data.data = g_strndup(data, len);
308 hooks_invoke(MAIL_RECEIVE_HOOKLIST, &mail_receive_data);
310 file = get_tmp_file();
311 if (pop3_write_msg_to_file(file, mail_receive_data.data,
312 strlen(mail_receive_data.data)) < 0) {
314 g_free(mail_receive_data.data);
315 session->error_val = PS_IOERR;
318 g_free(mail_receive_data.data);
320 /* drop_ok: 0: success 1: don't receive -1: error */
321 drop_ok = inc_drop_message(file, session);
324 session->error_val = PS_IOERR;
328 session->cur_total_bytes += session->msg[session->cur_msg].size;
329 session->cur_total_recv_bytes += session->msg[session->cur_msg].size;
330 session->cur_total_num++;
332 session->msg[session->cur_msg].received = TRUE;
333 session->msg[session->cur_msg].recv_time =
334 drop_ok == 1 ? RECV_TIME_KEEP : session->current_time;
339 static gint pop3_delete_send(Pop3Session *session)
341 session->state = POP3_DELETE;
342 pop3_gen_send(session, "DELE %d", session->cur_msg);
346 static gint pop3_delete_recv(Pop3Session *session)
348 session->msg[session->cur_msg].deleted = TRUE;
352 static gint pop3_logout_send(Pop3Session *session)
354 session->state = POP3_LOGOUT;
355 pop3_gen_send(session, "QUIT");
359 static void pop3_gen_send(Pop3Session *session, const gchar *format, ...)
361 gchar buf[POPBUFSIZE + 1];
364 va_start(args, format);
365 g_vsnprintf(buf, sizeof(buf) - 2, format, args);
368 if (!strncasecmp(buf, "PASS ", 5))
369 log_print("POP3> PASS ********\n");
371 log_print("POP3> %s\n", buf);
373 session_send_msg(SESSION(session), SESSION_MSG_NORMAL, buf);
376 Session *pop3_session_new(PrefsAccount *account)
378 Pop3Session *session;
380 g_return_val_if_fail(account != NULL, NULL);
382 session = g_new0(Pop3Session, 1);
384 SESSION(session)->type = SESSION_POP3;
385 SESSION(session)->server = NULL;
386 SESSION(session)->port = 0;
387 SESSION(session)->sock = NULL;
388 SESSION(session)->state = SESSION_READY;
389 SESSION(session)->data = NULL;
391 SESSION(session)->recv_msg = pop3_session_recv_msg;
392 SESSION(session)->recv_data_finished = pop3_session_recv_data_finished;
393 SESSION(session)->send_data_finished = NULL;
395 SESSION(session)->destroy = pop3_session_destroy;
397 session->state = POP3_READY;
398 session->ac_prefs = account;
399 session->uidl_table = pop3_get_uidl_table(account);
400 session->current_time = time(NULL);
401 session->error_val = PS_SUCCESS;
402 session->error_msg = NULL;
404 return SESSION(session);
407 static void pop3_session_destroy(Session *session)
409 Pop3Session *pop3_session = POP3_SESSION(session);
412 g_return_if_fail(session != NULL);
414 for (n = 1; n <= pop3_session->count; n++)
415 g_free(pop3_session->msg[n].uidl);
416 g_free(pop3_session->msg);
418 if (pop3_session->uidl_table) {
419 hash_free_strings(pop3_session->uidl_table);
420 g_hash_table_destroy(pop3_session->uidl_table);
423 g_free(pop3_session->greeting);
424 g_free(pop3_session->user);
425 g_free(pop3_session->pass);
426 g_free(pop3_session->error_msg);
429 GHashTable *pop3_get_uidl_table(PrefsAccount *ac_prefs)
434 gchar buf[POPBUFSIZE];
435 gchar uidl[POPBUFSIZE];
439 table = g_hash_table_new(g_str_hash, g_str_equal);
441 path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
442 "uidl", G_DIR_SEPARATOR_S, ac_prefs->recv_server,
443 "-", ac_prefs->userid, NULL);
444 if ((fp = fopen(path, "rb")) == NULL) {
445 if (ENOENT != errno) FILE_OP_ERROR(path, "fopen");
447 path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
448 "uidl-", ac_prefs->recv_server,
449 "-", ac_prefs->userid, NULL);
450 if ((fp = fopen(path, "rb")) == NULL) {
451 if (ENOENT != errno) FILE_OP_ERROR(path, "fopen");
460 while (fgets(buf, sizeof(buf), fp) != NULL) {
462 recv_time = RECV_TIME_NONE;
463 if (sscanf(buf, "%s\t%ld", uidl, &recv_time) != 2) {
464 if (sscanf(buf, "%s", uidl) != 1)
469 if (recv_time == RECV_TIME_NONE)
470 recv_time = RECV_TIME_RECEIVED;
471 g_hash_table_insert(table, g_strdup(uidl),
472 GINT_TO_POINTER(recv_time));
479 gint pop3_write_uidl_list(Pop3Session *session)
486 if (!session->uidl_is_valid) return 0;
488 path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
489 "uidl", G_DIR_SEPARATOR_S,
490 session->ac_prefs->recv_server,
491 "-", session->ac_prefs->userid, NULL);
492 if ((fp = fopen(path, "wb")) == NULL) {
493 FILE_OP_ERROR(path, "fopen");
498 for (n = 1; n <= session->count; n++) {
499 msg = &session->msg[n];
500 if (msg->uidl && msg->received && !msg->deleted)
501 fprintf(fp, "%s\t%ld\n", msg->uidl, msg->recv_time);
504 if (fclose(fp) == EOF) FILE_OP_ERROR(path, "fclose");
510 static gint pop3_write_msg_to_file(const gchar *file, const gchar *data,
514 const gchar *prev, *cur;
516 g_return_val_if_fail(file != NULL, -1);
518 if ((fp = fopen(file, "wb")) == NULL) {
519 FILE_OP_ERROR(file, "fopen");
523 if (change_file_mode_rw(fp, file) < 0)
524 FILE_OP_ERROR(file, "chmod");
526 /* +------------------+----------------+--------------------------+ *
527 * ^data ^prev ^cur data+len-1^ */
530 while ((cur = memchr(prev, '\r', len - (prev - data))) != NULL) {
531 if ((cur > prev && fwrite(prev, cur - prev, 1, fp) < 1) ||
532 fputc('\n', fp) == EOF) {
533 FILE_OP_ERROR(file, "fwrite");
534 g_warning("can't write to file: %s\n", file);
540 if (cur == data + len - 1) {
545 if (*(cur + 1) == '\n')
550 if (prev - data >= len)
554 if (prev - data < len &&
555 fwrite(prev, len - (prev - data), 1, fp) < 1) {
556 FILE_OP_ERROR(file, "fwrite");
557 g_warning("can't write to file: %s\n", file);
562 if (data[len - 1] != '\r' && data[len - 1] != '\n') {
563 if (fputc('\n', fp) == EOF) {
564 FILE_OP_ERROR(file, "fputc");
565 g_warning("can't write to file: %s\n", file);
572 if (fclose(fp) == EOF) {
573 FILE_OP_ERROR(file, "fclose");
581 static Pop3State pop3_lookup_next(Pop3Session *session)
584 PrefsAccount *ac = session->ac_prefs;
586 gboolean size_limit_over;
589 msg = &session->msg[session->cur_msg];
592 (ac->enable_size_limit &&
593 ac->size_limit > 0 &&
594 size > ac->size_limit * 1024);
597 msg->recv_time != RECV_TIME_NONE &&
598 msg->recv_time != RECV_TIME_KEEP &&
599 session->current_time - msg->recv_time >=
600 ac->msg_leave_time * 24 * 60 * 60) {
601 log_print(_("POP3: Deleting expired message %d\n"),
603 pop3_delete_send(session);
609 (_("POP3: Skipping message %d (%d bytes)\n"),
610 session->cur_msg, size);
612 if (size == 0 || msg->received || size_limit_over) {
613 session->cur_total_bytes += size;
614 if (session->cur_msg == session->count) {
615 pop3_logout_send(session);
623 pop3_retr_send(session);
627 static Pop3ErrorValue pop3_ok(Pop3Session *session, const gchar *msg)
631 log_print("POP3< %s\n", msg);
633 if (!strncmp(msg, "+OK", 3))
635 else if (!strncmp(msg, "-ERR", 4)) {
636 if (strstr(msg + 4, "lock") ||
637 strstr(msg + 4, "Lock") ||
638 strstr(msg + 4, "LOCK") ||
639 strstr(msg + 4, "wait")) {
640 log_warning(_("mailbox is locked\n"));
642 } else if (strcasestr(msg + 4, "timeout")) {
643 log_warning(_("session timeout\n"));
646 switch (session->state) {
649 log_warning(_("can't start TLS session\n"));
653 case POP3_GETAUTH_USER:
654 case POP3_GETAUTH_PASS:
655 case POP3_GETAUTH_APOP:
656 log_warning(_("error occurred on authentication\n"));
659 case POP3_GETRANGE_LAST:
660 case POP3_GETRANGE_UIDL:
661 log_warning(_("command not supported\n"));
662 ok = PS_NOTSUPPORTED;
665 log_warning(_("error occurred on POP3 session\n"));
670 g_free(session->error_msg);
671 session->error_msg = g_strdup(msg);
672 fprintf(stderr, "POP3: %s\n", msg);
676 session->error_val = ok;
680 static gint pop3_session_recv_msg(Session *session, const gchar *msg)
682 Pop3Session *pop3_session = POP3_SESSION(session);
683 Pop3ErrorValue val = PS_SUCCESS;
687 if (pop3_session->state != POP3_GETRANGE_UIDL_RECV &&
688 pop3_session->state != POP3_GETSIZE_LIST_RECV) {
689 val = pop3_ok(pop3_session, msg);
690 if (val != PS_SUCCESS) {
691 if (val != PS_NOTSUPPORTED) {
692 pop3_session->state = POP3_ERROR;
697 if (*body == '+' || *body == '-')
699 while (isalpha(*body))
701 while (isspace(*body))
705 switch (pop3_session->state) {
708 pop3_greeting_recv(pop3_session, body);
710 if (pop3_session->ac_prefs->ssl_pop == SSL_STARTTLS)
711 pop3_stls_send(pop3_session);
714 if (pop3_session->ac_prefs->protocol == A_APOP)
715 pop3_getauth_apop_send(pop3_session);
717 pop3_getauth_user_send(pop3_session);
721 if (pop3_stls_recv(pop3_session) != PS_SUCCESS)
723 if (pop3_session->ac_prefs->protocol == A_APOP)
724 pop3_getauth_apop_send(pop3_session);
726 pop3_getauth_user_send(pop3_session);
729 case POP3_GETAUTH_USER:
730 pop3_getauth_pass_send(pop3_session);
732 case POP3_GETAUTH_PASS:
733 case POP3_GETAUTH_APOP:
734 pop3_getrange_stat_send(pop3_session);
736 case POP3_GETRANGE_STAT:
737 if (pop3_getrange_stat_recv(pop3_session, body) < 0)
739 if (pop3_session->count > 0)
740 pop3_getrange_uidl_send(pop3_session);
742 pop3_logout_send(pop3_session);
744 case POP3_GETRANGE_LAST:
745 if (val == PS_NOTSUPPORTED)
746 pop3_session->error_val = PS_SUCCESS;
747 else if (pop3_getrange_last_recv(pop3_session, body) < 0)
749 if (pop3_session->cur_msg > 0)
750 pop3_getsize_list_send(pop3_session);
752 pop3_logout_send(pop3_session);
754 case POP3_GETRANGE_UIDL:
755 if (val == PS_NOTSUPPORTED) {
756 pop3_session->error_val = PS_SUCCESS;
757 pop3_getrange_last_send(pop3_session);
759 pop3_session->state = POP3_GETRANGE_UIDL_RECV;
763 case POP3_GETRANGE_UIDL_RECV:
764 val = pop3_getrange_uidl_recv(pop3_session, body);
765 if (val == PS_CONTINUE)
767 else if (val == PS_SUCCESS) {
768 if (pop3_session->new_msg_exist)
769 pop3_getsize_list_send(pop3_session);
771 pop3_logout_send(pop3_session);
775 case POP3_GETSIZE_LIST:
776 pop3_session->state = POP3_GETSIZE_LIST_RECV;
778 case POP3_GETSIZE_LIST_RECV:
779 val = pop3_getsize_list_recv(pop3_session, body);
780 if (val == PS_CONTINUE)
782 else if (val == PS_SUCCESS) {
783 if (pop3_lookup_next(pop3_session) == POP3_ERROR)
789 pop3_session->state = POP3_RETR_RECV;
792 pop3_session->msg[pop3_session->cur_msg].size, TRUE);
795 pop3_delete_recv(pop3_session);
796 if (pop3_session->cur_msg == pop3_session->count)
797 pop3_logout_send(pop3_session);
799 pop3_session->cur_msg++;
800 if (pop3_lookup_next(pop3_session) == POP3_ERROR)
805 session_disconnect(session);
815 static gint pop3_session_recv_data_finished(Session *session, guchar *data,
818 Pop3Session *pop3_session = POP3_SESSION(session);
823 if (pop3_retr_recv(pop3_session, data, len) < 0)
826 if (pop3_session->ac_prefs->rmmail &&
827 pop3_session->ac_prefs->msg_leave_time == 0 &&
828 pop3_session->msg[pop3_session->cur_msg].recv_time
830 pop3_delete_send(pop3_session);
831 else if (pop3_session->cur_msg == pop3_session->count)
832 pop3_logout_send(pop3_session);
834 pop3_session->cur_msg++;
835 if (pop3_lookup_next(pop3_session) == POP3_ERROR)