aboutsummaryrefslogtreecommitdiffstats
path: root/camel/providers
diff options
context:
space:
mode:
authorDan Winship <danw@src.gnome.org>2001-01-05 02:53:41 +0800
committerDan Winship <danw@src.gnome.org>2001-01-05 02:53:41 +0800
commit5be1cc987ad889fc96fced3f939b1eebd0ca223d (patch)
treefdd50f2d7ceb294f4206df08011e6af8f098d6d7 /camel/providers
parent85661c534bf054ccb2b114dcf3cf2fcfb83f80ca (diff)
downloadgsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.tar
gsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.tar.gz
gsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.tar.bz2
gsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.tar.lz
gsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.tar.xz
gsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.tar.zst
gsoc2013-evolution-5be1cc987ad889fc96fced3f939b1eebd0ca223d.zip
oops. commit-o
svn path=/trunk/; revision=7252
Diffstat (limited to 'camel/providers')
-rw-r--r--camel/providers/imap/camel-imap-fetch.c509
1 files changed, 0 insertions, 509 deletions
diff --git a/camel/providers/imap/camel-imap-fetch.c b/camel/providers/imap/camel-imap-fetch.c
deleted file mode 100644
index 5d703e61dc..0000000000
--- a/camel/providers/imap/camel-imap-fetch.c
+++ /dev/null
@@ -1,509 +0,0 @@
-/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
-/*
- * Authors: Dan Winship <danw@helixcode.com>
- *
- * Copyright 2000 Helix Code, Inc. (www.helixcode.com)
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Street #330, Boston, MA 02111-1307, USA.
- *
- */
-
-#include "config.h"
-
-#include <ctype.h>
-#include <string.h>
-#include "camel-imap-command.h"
-#include "camel-imap-folder.h"
-#include "camel-imap-summary.h"
-#include "camel-imap-utils.h"
-#include "camel-imap-private.h"
-
-#include "camel-internet-address.h"
-#include "camel-mime-message.h"
-#include "camel-mime-utils.h"
-#include "camel-stream-mem.h"
-
-static const char *imap_protocol_get_summary_specifier (CamelImapStore *store);
-
-static CamelMessageInfo *parse_headers (char **headers_p);
-static CamelMessageContentInfo *parse_body (CamelFolderSummary *summary,
- char **body_p,
- const char *part_specifier);
-
-static void skip_astring (char **str_p);
-
-/**
- * imap_add_to_summary:
- * @folder: the (IMAP) folder
- * @first: the sequence number of the first message to add
- * @last: the sequence number of the last message to add
- * @changes: a CamelFolderChangeInfo structure to update
- * @ex: a CamelException
- *
- * This fetches information about the messages in the indicated range
- * and updates the folder's summary information. As a side effect, it may
- * also cache partial messages in the folder message cache.
- **/
-void
-imap_add_to_summary (CamelFolder *folder, int first, int last,
- CamelFolderChangeInfo *changes, CamelException *ex)
-{
- CamelImapStore *store = CAMEL_IMAP_STORE (folder->parent_store);
- CamelImapResponse *response;
- GPtrArray *headers, *messages;
- const char *summary_specifier;
- char *p, *uid;
- int i, seq;
- CamelMessageInfo *mi;
- CamelMessageContentInfo *content;
- guint32 flags, size;
-
- summary_specifier = imap_protocol_get_summary_specifier (store);
- CAMEL_IMAP_STORE_LOCK(store, command_lock);
- if (first == last) {
- response = camel_imap_command (store, folder, ex,
- "FETCH %d (%s)", first,
- summary_specifier);
- } else {
- response = camel_imap_command (store, folder, ex,
- "FETCH %d:%d (%s)", first,
- last, summary_specifier);
- }
- CAMEL_IMAP_STORE_UNLOCK(store, command_lock);
- if (!response)
- return;
-
- messages = g_ptr_array_new ();
- g_ptr_array_set_size (messages, last - first + 1);
- headers = response->untagged;
- for (i = 0; i < headers->len; i++) {
- p = headers->pdata[i];
- if (!g_strncasecmp (p, "* fetch ", 8))
- continue;
- seq = strtoul (p + 8, &p, 10);
- if (!seq || seq < camel_folder_summary_count (folder->summary))
- continue;
-
- mi = messages->pdata[seq - first];
- flags = size = 0;
- content = NULL;
- uid = NULL;
- while (p && *p != ')') {
- if (*p == ' ')
- p++;
- if (!g_strncasecmp (p, "flags ", 6)) {
- p += 6;
- /* FIXME user flags */
- flags = imap_parse_flag_list (&p);
- } else if (!g_strncasecmp (p, "size ", 5)) {
- size = strtoul (p + 5, &p, 10);
- } else if (!g_strncasecmp (p, "uid ", 4)) {
- uid = p + 4;
- strtoul (uid, &p, 10);
- uid = g_strndup (uid, p - uid);
- } else if (!g_strncasecmp (p, "body ", 5)) {
- p += 5;
- content = parse_body (folder->summary, &p, "");
- } else if (!g_strncasecmp (p, "body[header] ", 13) ||
- !g_strncasecmp (p, "rfc822.header ", 14)) {
- p = strchr (p + 13, ' ');
- mi = parse_headers (&p);
- } else {
- g_warning ("Waiter, I did not order this %.*s",
- (int)strcspn (p, " \n"), p);
- p = NULL;
- }
- }
-
- /* Ideally we got everything on one line, but if we
- * we didn't, and we didn't get the body yet, then we
- * have to postpone this line for later.
- */
- if (mi == NULL) {
- p = headers->pdata[i];
- g_ptr_array_remove_index (headers, i);
- g_ptr_array_add (headers, p);
- continue;
- }
-
- messages->pdata[seq - first] = mi;
- if (uid)
- camel_message_info_set_uid (mi, uid);
- if (flags)
- mi->flags = flags;
- if (content)
- mi->content = content;
- if (size)
- mi->size = size;
- }
- camel_imap_response_free (response);
-
- for (i = 0; i < messages->len; i++) {
- mi = messages->pdata[i];
- camel_folder_summary_add (folder->summary, mi);
- }
- g_ptr_array_free (messages, TRUE);
-}
-
-static const char *
-imap_protocol_get_summary_specifier (CamelImapStore *store)
-{
- if (store->server_level >= IMAP_LEVEL_IMAP4REV1)
- return "UID FLAGS RFC822.SIZE BODY BODY.PEEK[HEADER]";
- else
- return "UID FLAGS RFC822.SIZE BODY RFC822.HEADER";
-}
-
-/**
- * skip_char:
- * @str_p: a pointer to a string
- * @ch: the character to skip
- *
- * Skip the specified character, or fail. Updates the position of
- * *@str_p on success, sets it to %NULL on failure.
- **/
-static inline void
-skip_char (char **str_p, char ch)
-{
- if (*str_p && **str_p == ch)
- *str_p = *str_p + 1;
- else
- *str_p = NULL;
-}
-
-/**
- * skip_astring:
- * @str_p: a pointer to a string
- *
- * Skip an astring, or fail. Updates the position of *@str_p on
- * success, sets it to %NULL on failure.
- **/
-static void
-skip_astring (char **str_p)
-{
- char *str = *str_p;
-
- if (!str)
- return;
- else if (*str == '"') {
- while (*++str && *str != '"') {
- if (*str == '\\') {
- str++;
- if (!*str)
- break;
- }
- }
- if (*str == '"')
- *str_p = str + 1;
- else
- *str_p = NULL;
- } else if (*str == '{') {
- unsigned long len;
-
- len = strtoul (str + 1, &str, 10);
- if (*str != '}' || *(str + 1) != '\n' ||
- strlen (str + 2) < len) {
- *str_p = NULL;
- return;
- }
- *str_p = str + 2 + len;
- } else {
- /* We assume the string is well-formed and don't
- * bother making sure it's a valid atom.
- */
- while (*str && *str != ')' && *str != ' ')
- str++;
- *str_p = str;
- }
-}
-
-/**
- * skip_list:
- * @str_p: a pointer to the open parenthesis of a list
- *
- * Skips over a list of astrings and lists. Updates the position of
- * *@str_p on success, sets it to %NULL on failure.
- **/
-void
-skip_list (char **str_p)
-{
- skip_char (str_p, '(');
- while (*str_p && **str_p != ')') {
- if (**str_p == '(')
- skip_list (str_p);
- else
- skip_astring (str_p);
- if (*str_p && **str_p == ' ')
- skip_char (str_p, ' ');
- }
- skip_char (str_p, ')');
-}
-
-/**
- * parse_params:
- * @parms_p: a pointer to the start of an IMAP "body_fld_param".
- * @ct: a content-type structure
- *
- * This parses the body_fld_param and sets parameters on @ct
- * appropriately.
- *
- * On a successful return, *@params_p will be set to point to the
- * character after the last character of the body_fld_param. On
- * failure, it will be set to %NULL.
- **/
-static void
-parse_params (char **parms_p, struct _header_content_type *ct)
-{
- char *parms = *parms_p, *name, *value;
- int len;
-
- if (!g_strncasecmp (parms, "nil", 3)) {
- *parms_p += 3;
- return;
- }
-
- if (*parms++ != '(') {
- *parms_p = NULL;
- return;
- }
-
- while (*parms == '(') {
- parms++;
-
- name = imap_parse_nstring (&parms, &len);
- value = imap_parse_nstring (&parms, &len);
-
- if (name && value)
- header_content_type_set_param (ct, name, value);
- g_free (name);
- g_free (value);
-
- if (!parms)
- break;
- if (*parms++ != ')') {
- parms = NULL;
- break;
- }
- }
-
- if (!parms || *parms++ != ')') {
- *parms_p = NULL;
- return;
- }
- *parms_p = parms;
-}
-
-static CamelMessageContentInfo *
-parse_body (CamelFolderSummary *summary, char **body_p,
- const char *part_specifier)
-{
- char *body = *body_p;
- CamelMessageContentInfo *ci;
- CamelImapMessageContentInfo *ici;
- char *child_specifier;
- int speclen, len;
-
- if (*body++ != '(') {
- *body_p = NULL;
- return NULL;
- }
-
- ci = camel_folder_summary_content_info_new (summary);
- ici = (CamelImapMessageContentInfo *)ci;
- ici->part_specifier = g_strdup (part_specifier);
-
- if (*body == '(') {
- /* multipart */
- GPtrArray *children;
- CamelMessageContentInfo *child;
- char *subtype;
- int i;
-
- speclen = strlen (part_specifier);
- child_specifier = g_malloc (speclen + 10);
- memcpy (child_specifier, part_specifier, speclen);
- child_specifier[speclen] = '.';
-
- /* Parse the child body parts */
- children = g_ptr_array_new ();
- i = 0;
- while (body && *body == '(') {
- sprintf (child_specifier + speclen + 1, "%d", i++);
- child = parse_body (summary, &body, child_specifier);
- if (!child)
- break;
- child->parent = ci;
- g_ptr_array_add (children, child);
- }
- g_free (child_specifier);
- skip_char (&body, ' ');
-
- /* If there is a parse error, or there are no children,
- * abort.
- */
- if (!body || !children->len) {
- for (i = 0; i < children->len; i++) {
- child = children->pdata[i];
- camel_folder_summary_content_info_free (summary, child);
- }
- g_ptr_array_free (children, TRUE);
- camel_folder_summary_content_info_free (summary, ci);
- *body_p = NULL;
- return NULL;
- }
-
- /* Chain the children. */
- ci->childs = children->pdata[0];
- for (i = 0; i < children->len - 1; i++) {
- child = children->pdata[i];
- child->next = children->pdata[i + 1];
- }
- g_ptr_array_free (children, TRUE);
-
- /* Parse the multipart subtype */
- subtype = imap_parse_string (&body, &len);
- ci->type = header_content_type_new ("multipart", subtype);
- g_free (subtype);
- } else {
- /* single part */
- char *type, *subtype;
-
- type = imap_parse_string (&body, &len);
- skip_char (&body, ' ');
- subtype = imap_parse_string (&body, &len);
- skip_char (&body, ' ');
- if (!body) {
- camel_folder_summary_content_info_free (summary, ci);
- *body_p = NULL;
- return NULL;
- }
- ci->type = header_content_type_new (type, subtype);
- parse_params (&body, ci->type);
- skip_char (&body, ' ');
-
- ci->id = imap_parse_string (&body, &len);
- skip_char (&body, ' ');
- ci->description = imap_parse_string (&body, &len);
- skip_char (&body, ' ');
- ci->encoding = imap_parse_string (&body, &len);
- skip_char (&body, ' ');
- ci->size = strtoul (body, &body, 10);
-
- if (header_content_type_is (ci->type, "message", "rfc822")) {
- skip_char (&body, ' ');
- ici->message_info = camel_folder_summary_info_new (summary);
- skip_list (&body); /* envelope */
- skip_char (&body, ' ');
- ci->childs = parse_body (summary, &body,
- part_specifier);
- skip_char (&body, ' ');
- strtoul (body, &body, 10);
- } else if (header_content_type_is (ci->type, "text", "*"))
- strtoul (body, &body, 10);
-
- g_free (type);
- g_free (subtype);
- }
-
- if (!body || *body++ != ')') {
- *body_p = NULL;
- camel_folder_summary_content_info_free (summary, ci);
- return NULL;
- }
-
- *body_p = body;
- return ci;
-}
-
-void
-parse_bodypart (char **body_p, CamelFolder *folder, CamelMessageInfo *mi)
-{
- CamelMessageContentInfo *ci;
- char *body = *body_p;
- int num;
-
- /* Skip "body[" */
- body += 5;
- ci = mi->content;
-
- /* Parse the 'nz_number *["." nz_number]' prefix. This is fun,
- * because the numbers mean different things depending on where
- * you are. See RFC 2060 for details.
- */
- while (isdigit((unsigned char)*body)) {
- num = strtoul (body, &body, 10);
- if (num == 0 || (*body != '.' && *body != ']')) {
- *body = NULL;
- return;
- }
-
- if (header_content_type_is (ci->type, "multipart", "*")) {
- ci = ci->childs;
- while (ci && --num)
- ci = ci->next;
- if (!ci) {
- *body = NULL;
- return;
- }
- } else if (num != 1) {
- *body = NULL;
- return;
- }
-
- if (*body == ']')
- break;
-
- if (isdigit ((unsigned char)*++body) &&
- header_content_type_is (ci->type, "message", "rfc822")) {
- mi = ((CamelImapMessageContentInfo *)ci)->message_info;
- ci = mi->content;
- }
- }
-
- if (!g_strncasecmp (body, "header] ", 8)) {
- char *headers;
- int len;
- CamelMimeMessage *msg;
- CamelStream *stream;
-
- body += 9;
- mi = parse_headers (&body, folder);
- /* XXX */
- } else if (!g_strncasecmp (body, "] ", 2)) {
- CamelImapMessageContentInfo *ici = (CamelImapMessageContentInfo *)ci;
- body += 2;
- /* XXX */
- } else
- *body = NULL;
-}
-
-CamelMessageInfo *
-imap_parse_headers (char **headers_p, CamelFolder *folder)
-{
- CamelMimeMessage *msg;
- CamelStream *stream;
- char *headers;
- int len;
-
- headers = imap_parse_nstring (headers_p, &len);
- msg = camel_mime_message_new ();
- stream = camel_stream_mem_new_with_buffer (headers, len);
- g_free (headers);
- camel_data_wrapper_construct_from_stream (CAMEL_DATA_WRAPPER (msg), stream);
- camel_object_unref (CAMEL_OBJECT (stream));
-
- mi = camel_folder_summary_info_new_from_message (folder->summary, msg);
- camel_imap_folder_cache_message (folder, mi, msg);
-}