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"
43 static gint pop3_greeting_recv (Pop3Session *session,
45 static gint pop3_getauth_user_send (Pop3Session *session);
46 static gint pop3_getauth_pass_send (Pop3Session *session);
47 static gint pop3_getauth_apop_send (Pop3Session *session);
49 static gint pop3_stls_send (Pop3Session *session);
50 static gint pop3_stls_recv (Pop3Session *session);
52 static gint pop3_getrange_stat_send (Pop3Session *session);
53 static gint pop3_getrange_stat_recv (Pop3Session *session,
55 static gint pop3_getrange_last_send (Pop3Session *session);
56 static gint pop3_getrange_last_recv (Pop3Session *session,
58 static gint pop3_getrange_uidl_send (Pop3Session *session);
59 static gint pop3_getrange_uidl_recv (Pop3Session *session,
61 static gint pop3_getsize_list_send (Pop3Session *session);
62 static gint pop3_getsize_list_recv (Pop3Session *session,
64 static gint pop3_retr_send (Pop3Session *session);
65 static gint pop3_retr_recv (Pop3Session *session,
68 static gint pop3_delete_send (Pop3Session *session);
69 static gint pop3_delete_recv (Pop3Session *session);
70 static gint pop3_logout_send (Pop3Session *session);
72 static void pop3_gen_send (Pop3Session *session,
73 const gchar *format, ...);
75 static void pop3_session_destroy (Session *session);
77 static gint pop3_write_msg_to_file (const gchar *file,
81 static Pop3State pop3_lookup_next (Pop3Session *session);
82 static Pop3ErrorValue pop3_ok (Pop3Session *session,
85 static gint pop3_session_recv_msg (Session *session,
87 static gint pop3_session_recv_data_finished (Session *session,
91 static gint pop3_greeting_recv(Pop3Session *session, const gchar *msg)
93 session->state = POP3_GREETING;
95 session->greeting = g_strdup(msg);
100 static gint pop3_stls_send(Pop3Session *session)
102 session->state = POP3_STLS;
103 pop3_gen_send(session, "STLS");
107 static gint pop3_stls_recv(Pop3Session *session)
109 if (session_start_tls(SESSION(session)) < 0) {
110 session->error_val = PS_SOCKET;
115 #endif /* USE_OPENSSL */
117 static gint pop3_getauth_user_send(Pop3Session *session)
119 g_return_val_if_fail(session->user != NULL, -1);
121 session->state = POP3_GETAUTH_USER;
122 pop3_gen_send(session, "USER %s", session->user);
126 static gint pop3_getauth_pass_send(Pop3Session *session)
128 g_return_val_if_fail(session->pass != NULL, -1);
130 session->state = POP3_GETAUTH_PASS;
131 pop3_gen_send(session, "PASS %s", session->pass);
135 static gint pop3_getauth_apop_send(Pop3Session *session)
141 g_return_val_if_fail(session->user != NULL, -1);
142 g_return_val_if_fail(session->pass != NULL, -1);
144 session->state = POP3_GETAUTH_APOP;
146 if ((start = strchr(session->greeting, '<')) == NULL) {
147 log_warning(_("Required APOP timestamp not found "
149 session->error_val = PS_PROTOCOL;
153 if ((end = strchr(start, '>')) == NULL || end == start + 1) {
154 log_warning(_("Timestamp syntax error in greeting\n"));
155 session->error_val = PS_PROTOCOL;
161 apop_str = g_strconcat(start, session->pass, NULL);
162 md5_hex_digest(md5sum, apop_str);
165 pop3_gen_send(session, "APOP %s %s", session->user, md5sum);
170 static gint pop3_getrange_stat_send(Pop3Session *session)
172 session->state = POP3_GETRANGE_STAT;
173 pop3_gen_send(session, "STAT");
177 static gint pop3_getrange_stat_recv(Pop3Session *session, const gchar *msg)
179 if (sscanf(msg, "%d %d", &session->count, &session->total_bytes) != 2) {
180 log_warning(_("POP3 protocol error\n"));
181 session->error_val = PS_PROTOCOL;
184 if (session->count == 0) {
185 session->uidl_is_valid = TRUE;
187 session->msg = g_new0(Pop3MsgInfo, session->count + 1);
188 session->cur_msg = 1;
195 static gint pop3_getrange_last_send(Pop3Session *session)
197 session->state = POP3_GETRANGE_LAST;
198 pop3_gen_send(session, "LAST");
202 static gint pop3_getrange_last_recv(Pop3Session *session, const gchar *msg)
206 if (sscanf(msg, "%d", &last) == 0) {
207 log_warning(_("POP3 protocol error\n"));
208 session->error_val = PS_PROTOCOL;
211 if (session->count > last)
212 session->cur_msg = last + 1;
214 session->cur_msg = 0;
220 static gint pop3_getrange_uidl_send(Pop3Session *session)
222 session->state = POP3_GETRANGE_UIDL;
223 pop3_gen_send(session, "UIDL");
227 static gint pop3_getrange_uidl_recv(Pop3Session *session, const gchar *msg)
234 session->uidl_is_valid = TRUE;
238 if (sscanf(msg, "%d %" Xstr(IDLEN) "s", &num, id) != 2)
240 if (num <= 0 || num > session->count)
243 session->msg[num].uidl = g_strdup(id);
245 if (!session->uidl_table)
248 recv_time = (time_t)g_hash_table_lookup(session->uidl_table, id);
249 session->msg[num].recv_time = recv_time;
251 if (!session->ac_prefs->getall && recv_time != RECV_TIME_NONE)
252 session->msg[num].received = TRUE;
254 if (!session->new_msg_exist &&
255 (session->ac_prefs->getall || recv_time == RECV_TIME_NONE ||
256 session->ac_prefs->rmmail)) {
257 session->cur_msg = num;
258 session->new_msg_exist = TRUE;
264 static gint pop3_getsize_list_send(Pop3Session *session)
266 session->state = POP3_GETSIZE_LIST;
267 pop3_gen_send(session, "LIST");
271 static gint pop3_getsize_list_recv(Pop3Session *session, const gchar *msg)
278 if (sscanf(msg, "%u %u", &num, &size) != 2) {
279 session->error_val = PS_PROTOCOL;
283 if (num > 0 && num <= session->count)
284 session->msg[num].size = size;
285 if (num > 0 && num < session->cur_msg)
286 session->cur_total_bytes += size;
291 static gint pop3_retr_send(Pop3Session *session)
293 session->state = POP3_RETR;
294 pop3_gen_send(session, "RETR %d", session->cur_msg);
298 static gint pop3_retr_recv(Pop3Session *session, const gchar *data, guint len)
303 file = get_tmp_file();
304 if (pop3_write_msg_to_file(file, data, len) < 0) {
306 session->error_val = PS_IOERR;
310 /* drop_ok: 0: success 1: don't receive -1: error */
311 drop_ok = inc_drop_message(file, session);
314 session->error_val = PS_IOERR;
318 session->cur_total_bytes += session->msg[session->cur_msg].size;
319 session->cur_total_recv_bytes += session->msg[session->cur_msg].size;
320 session->cur_total_num++;
322 session->msg[session->cur_msg].received = TRUE;
323 session->msg[session->cur_msg].recv_time =
324 drop_ok == 1 ? RECV_TIME_KEEP : session->current_time;
329 static gint pop3_delete_send(Pop3Session *session)
331 session->state = POP3_DELETE;
332 pop3_gen_send(session, "DELE %d", session->cur_msg);
336 static gint pop3_delete_recv(Pop3Session *session)
338 session->msg[session->cur_msg].deleted = TRUE;
342 static gint pop3_logout_send(Pop3Session *session)
344 session->state = POP3_LOGOUT;
345 pop3_gen_send(session, "QUIT");
349 static void pop3_gen_send(Pop3Session *session, const gchar *format, ...)
351 gchar buf[POPBUFSIZE + 1];
354 va_start(args, format);
355 g_vsnprintf(buf, sizeof(buf) - 2, format, args);
358 if (!strncasecmp(buf, "PASS ", 5))
359 log_print("POP3> PASS ********\n");
361 log_print("POP3> %s\n", buf);
363 session_send_msg(SESSION(session), SESSION_MSG_NORMAL, buf);
366 Session *pop3_session_new(PrefsAccount *account)
368 Pop3Session *session;
370 g_return_val_if_fail(account != NULL, NULL);
372 session = g_new0(Pop3Session, 1);
374 SESSION(session)->type = SESSION_POP3;
375 SESSION(session)->server = NULL;
376 SESSION(session)->port = 0;
377 SESSION(session)->sock = NULL;
378 SESSION(session)->state = SESSION_READY;
379 SESSION(session)->data = NULL;
381 SESSION(session)->recv_msg = pop3_session_recv_msg;
382 SESSION(session)->recv_data_finished = pop3_session_recv_data_finished;
383 SESSION(session)->send_data_finished = NULL;
385 SESSION(session)->destroy = pop3_session_destroy;
387 session->state = POP3_READY;
388 session->ac_prefs = account;
389 session->uidl_table = pop3_get_uidl_table(account);
390 session->current_time = time(NULL);
391 session->error_val = PS_SUCCESS;
392 session->error_msg = NULL;
394 return SESSION(session);
397 static void pop3_session_destroy(Session *session)
399 Pop3Session *pop3_session = POP3_SESSION(session);
402 g_return_if_fail(session != NULL);
404 for (n = 1; n <= pop3_session->count; n++)
405 g_free(pop3_session->msg[n].uidl);
406 g_free(pop3_session->msg);
408 if (pop3_session->uidl_table) {
409 hash_free_strings(pop3_session->uidl_table);
410 g_hash_table_destroy(pop3_session->uidl_table);
413 g_free(pop3_session->greeting);
414 g_free(pop3_session->user);
415 g_free(pop3_session->pass);
416 g_free(pop3_session->error_msg);
419 GHashTable *pop3_get_uidl_table(PrefsAccount *ac_prefs)
424 gchar buf[POPBUFSIZE];
425 gchar uidl[POPBUFSIZE];
429 path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
430 "uidl", G_DIR_SEPARATOR_S, ac_prefs->recv_server,
431 "-", ac_prefs->userid, NULL);
432 if ((fp = fopen(path, "rb")) == NULL) {
433 if (ENOENT != errno) FILE_OP_ERROR(path, "fopen");
435 path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
436 "uidl-", ac_prefs->recv_server,
437 "-", ac_prefs->userid, NULL);
438 if ((fp = fopen(path, "rb")) == NULL) {
439 if (ENOENT != errno) FILE_OP_ERROR(path, "fopen");
446 table = g_hash_table_new(g_str_hash, g_str_equal);
450 while (fgets(buf, sizeof(buf), fp) != NULL) {
452 recv_time = RECV_TIME_NONE;
453 if (sscanf(buf, "%s\t%ld", uidl, &recv_time) != 2) {
454 if (sscanf(buf, "%s", uidl) != 1)
459 if (recv_time == RECV_TIME_NONE)
460 recv_time = RECV_TIME_RECEIVED;
461 g_hash_table_insert(table, g_strdup(uidl),
462 GINT_TO_POINTER(recv_time));
469 gint pop3_write_uidl_list(Pop3Session *session)
476 if (!session->uidl_is_valid) return 0;
478 path = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S,
479 "uidl", G_DIR_SEPARATOR_S,
480 session->ac_prefs->recv_server,
481 "-", session->ac_prefs->userid, NULL);
482 if ((fp = fopen(path, "wb")) == NULL) {
483 FILE_OP_ERROR(path, "fopen");
488 for (n = 1; n <= session->count; n++) {
489 msg = &session->msg[n];
490 if (msg->uidl && msg->received && !msg->deleted)
491 fprintf(fp, "%s\t%ld\n", msg->uidl, msg->recv_time);
494 if (fclose(fp) == EOF) FILE_OP_ERROR(path, "fclose");
500 static gint pop3_write_msg_to_file(const gchar *file, const gchar *data,
504 const gchar *prev, *cur;
506 g_return_val_if_fail(file != NULL, -1);
508 if ((fp = fopen(file, "wb")) == NULL) {
509 FILE_OP_ERROR(file, "fopen");
513 if (change_file_mode_rw(fp, file) < 0)
514 FILE_OP_ERROR(file, "chmod");
516 /* +------------------+----------------+--------------------------+ *
517 * ^data ^prev ^cur data+len-1^ */
520 while ((cur = memchr(prev, '\r', len - (prev - data))) != NULL) {
521 if ((cur > prev && fwrite(prev, cur - prev, 1, fp) < 1) ||
522 fputc('\n', fp) == EOF) {
523 FILE_OP_ERROR(file, "fwrite");
524 g_warning("can't write to file: %s\n", file);
530 if (cur == data + len - 1) {
535 if (*(cur + 1) == '\n')
540 if (prev - data >= len)
544 if (prev - data < len &&
545 fwrite(prev, len - (prev - data), 1, fp) < 1) {
546 FILE_OP_ERROR(file, "fwrite");
547 g_warning("can't write to file: %s\n", file);
552 if (data[len - 1] != '\r' && data[len - 1] != '\n') {
553 if (fputc('\n', fp) == EOF) {
554 FILE_OP_ERROR(file, "fputc");
555 g_warning("can't write to file: %s\n", file);
562 if (fclose(fp) == EOF) {
563 FILE_OP_ERROR(file, "fclose");
571 static Pop3State pop3_lookup_next(Pop3Session *session)
574 PrefsAccount *ac = session->ac_prefs;
576 gboolean size_limit_over;
579 msg = &session->msg[session->cur_msg];
582 (ac->enable_size_limit &&
583 ac->size_limit > 0 &&
584 size > ac->size_limit * 1024);
587 msg->recv_time != RECV_TIME_NONE &&
588 msg->recv_time != RECV_TIME_KEEP &&
589 session->current_time - msg->recv_time >=
590 ac->msg_leave_time * 24 * 60 * 60) {
591 log_print(_("POP3: Deleting expired message %d\n"),
593 pop3_delete_send(session);
599 (_("POP3: Skipping message %d (%d bytes)\n"),
600 session->cur_msg, size);
602 if (size == 0 || msg->received || size_limit_over) {
603 session->cur_total_bytes += size;
604 if (session->cur_msg == session->count) {
605 pop3_logout_send(session);
613 pop3_retr_send(session);
617 static Pop3ErrorValue pop3_ok(Pop3Session *session, const gchar *msg)
621 log_print("POP3< %s\n", msg);
623 if (!strncmp(msg, "+OK", 3))
625 else if (!strncmp(msg, "-ERR", 4)) {
626 if (strstr(msg + 4, "lock") ||
627 strstr(msg + 4, "Lock") ||
628 strstr(msg + 4, "LOCK") ||
629 strstr(msg + 4, "wait")) {
630 log_warning(_("mailbox is locked\n"));
633 switch (session->state) {
636 log_warning(_("can't start TLS session\n"));
640 case POP3_GETAUTH_USER:
641 case POP3_GETAUTH_PASS:
642 case POP3_GETAUTH_APOP:
643 log_warning(_("error occurred on authentication\n"));
646 case POP3_GETRANGE_LAST:
647 case POP3_GETRANGE_UIDL:
648 log_warning(_("command not supported\n"));
649 ok = PS_NOTSUPPORTED;
652 log_warning(_("error occurred on POP3 session\n"));
657 g_free(session->error_msg);
658 session->error_msg = g_strdup(msg);
659 fprintf(stderr, "POP3: %s\n", msg);
663 session->error_val = ok;
667 static gint pop3_session_recv_msg(Session *session, const gchar *msg)
669 Pop3Session *pop3_session = POP3_SESSION(session);
670 Pop3ErrorValue val = PS_SUCCESS;
674 if (pop3_session->state != POP3_GETRANGE_UIDL_RECV &&
675 pop3_session->state != POP3_GETSIZE_LIST_RECV) {
676 val = pop3_ok(pop3_session, msg);
677 if (val != PS_SUCCESS) {
678 if (val != PS_NOTSUPPORTED) {
679 pop3_session->state = POP3_ERROR;
684 if (*body == '+' || *body == '-')
686 while (isalpha(*body))
688 while (isspace(*body))
692 switch (pop3_session->state) {
695 pop3_greeting_recv(pop3_session, body);
697 if (pop3_session->ac_prefs->ssl_pop == SSL_STARTTLS)
698 pop3_stls_send(pop3_session);
701 if (pop3_session->ac_prefs->protocol == A_APOP)
702 pop3_getauth_apop_send(pop3_session);
704 pop3_getauth_user_send(pop3_session);
708 if (pop3_stls_recv(pop3_session) != PS_SUCCESS)
710 if (pop3_session->ac_prefs->protocol == A_APOP)
711 pop3_getauth_apop_send(pop3_session);
713 pop3_getauth_user_send(pop3_session);
716 case POP3_GETAUTH_USER:
717 pop3_getauth_pass_send(pop3_session);
719 case POP3_GETAUTH_PASS:
720 case POP3_GETAUTH_APOP:
721 pop3_getrange_stat_send(pop3_session);
723 case POP3_GETRANGE_STAT:
724 if (pop3_getrange_stat_recv(pop3_session, body) < 0)
726 if (pop3_session->count > 0)
727 pop3_getrange_uidl_send(pop3_session);
729 pop3_logout_send(pop3_session);
731 case POP3_GETRANGE_LAST:
732 if (val == PS_NOTSUPPORTED)
733 pop3_session->error_val = PS_SUCCESS;
734 else if (pop3_getrange_last_recv(pop3_session, body) < 0)
736 if (pop3_session->cur_msg > 0)
737 pop3_getsize_list_send(pop3_session);
739 pop3_logout_send(pop3_session);
741 case POP3_GETRANGE_UIDL:
742 if (val == PS_NOTSUPPORTED) {
743 pop3_session->error_val = PS_SUCCESS;
744 pop3_getrange_last_send(pop3_session);
746 pop3_session->state = POP3_GETRANGE_UIDL_RECV;
750 case POP3_GETRANGE_UIDL_RECV:
751 val = pop3_getrange_uidl_recv(pop3_session, body);
752 if (val == PS_CONTINUE)
754 else if (val == PS_SUCCESS) {
755 if (pop3_session->new_msg_exist)
756 pop3_getsize_list_send(pop3_session);
758 pop3_logout_send(pop3_session);
762 case POP3_GETSIZE_LIST:
763 pop3_session->state = POP3_GETSIZE_LIST_RECV;
765 case POP3_GETSIZE_LIST_RECV:
766 val = pop3_getsize_list_recv(pop3_session, body);
767 if (val == PS_CONTINUE)
769 else if (val == PS_SUCCESS) {
770 if (pop3_lookup_next(pop3_session) == POP3_ERROR)
776 pop3_session->state = POP3_RETR_RECV;
779 pop3_session->msg[pop3_session->cur_msg].size, TRUE);
782 pop3_delete_recv(pop3_session);
783 if (pop3_session->cur_msg == pop3_session->count)
784 pop3_logout_send(pop3_session);
786 pop3_session->cur_msg++;
787 if (pop3_lookup_next(pop3_session) == POP3_ERROR)
792 session_disconnect(session);
802 static gint pop3_session_recv_data_finished(Session *session, guchar *data,
805 Pop3Session *pop3_session = POP3_SESSION(session);
810 if (pop3_retr_recv(pop3_session, data, len) < 0)
813 if (pop3_session->ac_prefs->rmmail &&
814 pop3_session->ac_prefs->msg_leave_time == 0)
815 pop3_delete_send(pop3_session);
816 else if (pop3_session->cur_msg == pop3_session->count)
817 pop3_logout_send(pop3_session);
819 pop3_session->cur_msg++;
820 if (pop3_lookup_next(pop3_session) == POP3_ERROR)