* Purple is the legal property of its developers, whose names are too * numerous to list here. Please refer to the COPYRIGHT file distributed * with this source distribution * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301, /* this should become "util.h" if we ever get this into purple proper */ * Utility structure used in both MIME document and parts, which maps * field names to their values, and keeps an easily accessible list of struct _PurpleMimeDocument { struct mime_fields fields; struct mime_fields fields; struct _PurpleMimeDocument *doc; fields_set(struct mime_fields *mf, const char *key, const char *val) g_return_if_fail(mf != NULL); g_return_if_fail(mf->map != NULL); k = g_ascii_strdown(key, -1); /* append to the keys list only if it's not already there */ if(! g_hash_table_lookup(mf->map, k)) { mf->keys = g_list_append(mf->keys, k); /* important to use insert. If the key is already in the table, then it's already in the keys list. Insert will free the new instance of the key rather than the old instance. */ g_hash_table_insert(mf->map, k, v); fields_get(struct mime_fields *mf, const char *key) g_return_val_if_fail(mf != NULL, NULL); g_return_val_if_fail(mf->map != NULL, NULL); kdown = g_ascii_strdown(key, -1); ret = g_hash_table_lookup(mf->map, kdown); fields_init(struct mime_fields *mf) g_return_if_fail(mf != NULL); mf->map = g_hash_table_new_full(g_str_hash, g_str_equal, fields_loadline(struct mime_fields *mf, const char *line, gsize len) /* split the line into key: value */ char *key, *newkey, *val; /* feh, need it to be NUL terminated */ key = g_strndup(line, len); /* normalize whitespace (sorta) and trim on key and value */ tokens = g_strsplit(key, "\t\r\n", 0); newkey = g_strjoinv("", tokens); tokens = g_strsplit(val, "\t\r\n", 0); val = g_strjoinv("", tokens); fields_set(mf, newkey, val); fields_load(struct mime_fields *mf, char **buf, gsize *len) while ((tail = g_strstr_len(*buf, *len, "\r\n"))) /* determine the current line */ /* advance our search space past the CRLF */ /* empty line, end of headers */ /* look out for line continuations */ tail = g_strstr_len(*buf, *len, "\r\n"); /* advance our search space past the CRLF (again) */ /* process our super-cool line */ fields_loadline(mf, line, ln); field_write(const char *key, const char *val, GString *str) g_string_append_printf(str, "%s: %s\r\n", key, val); fields_write(struct mime_fields *mf, GString *str) g_return_if_fail(mf != NULL); g_hash_table_foreach(mf->map, (GHFunc) field_write, str); g_string_append(str, "\r\n"); fields_destroy(struct mime_fields *mf) g_return_if_fail(mf != NULL); g_hash_table_destroy(mf->map); part_new(PurpleMimeDocument *doc) part = g_new0(PurpleMimePart, 1); fields_init(&part->fields); part->data = g_string_new(NULL); doc->parts = g_list_prepend(doc->parts, part); part_load(PurpleMimePart *part, const char *buf, gsize len) fields_load(&part->fields, &b, &n); /* the remainder will have a blank line, if there's anything at all, so check if there's anything then trim off the trailing four g_string_append_len(part->data, b, n); part_write(PurpleMimePart *part, GString *str) fields_write(&part->fields, str); g_string_append_printf(str, "%s\r\n\r\n", part->data->str); part_free(PurpleMimePart *part) fields_destroy(&part->fields); g_string_free(part->data, TRUE); purple_mime_part_new(PurpleMimeDocument *doc) g_return_val_if_fail(doc != NULL, NULL); purple_mime_part_get_fields(PurpleMimePart *part) g_return_val_if_fail(part != NULL, NULL); return part->fields.keys; purple_mime_part_get_field(PurpleMimePart *part, const char *field) g_return_val_if_fail(part != NULL, NULL); return fields_get(&part->fields, field); purple_mime_part_get_field_decoded(PurpleMimePart *part, const char *field) g_return_val_if_fail(part != NULL, NULL); f = fields_get(&part->fields, field); return purple_mime_decode_field(f); purple_mime_part_set_field(PurpleMimePart *part, const char *field, const char *value) g_return_if_fail(part != NULL); fields_set(&part->fields, field, value); purple_mime_part_get_data(PurpleMimePart *part) g_return_val_if_fail(part != NULL, NULL); g_return_val_if_fail(part->data != NULL, NULL); purple_mime_part_get_data_decoded(PurpleMimePart *part, guchar **data, gsize *len) g_return_if_fail(part != NULL); g_return_if_fail(data != NULL); g_return_if_fail(len != NULL); g_return_if_fail(part->data != NULL); enc = purple_mime_part_get_field(part, "content-transfer-encoding"); *data = (guchar *)g_strdup(part->data->str); } else if(! g_ascii_strcasecmp(enc, "7bit")) { *data = (guchar *)g_strdup(part->data->str); } else if(! g_ascii_strcasecmp(enc, "8bit")) { *data = (guchar *)g_strdup(part->data->str); } else if(! g_ascii_strcasecmp(enc, "base16")) { *data = purple_base16_decode(part->data->str, len); } else if(! g_ascii_strcasecmp(enc, "base64")) { *data = purple_base64_decode(part->data->str, len); } else if(! g_ascii_strcasecmp(enc, "quoted-printable")) { *data = purple_quotedp_decode(part->data->str, len); purple_debug_warning("mime", "purple_mime_part_get_data_decoded:" " unknown encoding '%s'\n", enc); purple_mime_part_get_length(PurpleMimePart *part) g_return_val_if_fail(part != NULL, 0); g_return_val_if_fail(part->data != NULL, 0); purple_mime_part_set_data(PurpleMimePart *part, const char *data) g_return_if_fail(part != NULL); g_string_free(part->data, TRUE); part->data = g_string_new(data); purple_mime_document_new() doc = g_new0(PurpleMimeDocument, 1); fields_init(&doc->fields); doc_parts_load(PurpleMimeDocument *doc, const char *boundary, const char *buf, gsize len) bnd = g_strdup_printf("--%s", boundary); for(b = g_strstr_len(b, n, bnd); b; ) { /* skip the trailing \r\n or -- as well */ /* find the next boundary */ tail = g_strstr_len(b, n, bnd); PurpleMimePart *part = part_new(doc); #define BOUNDARY "boundary=" parse_boundary(const char *ct) char *boundary_begin = g_strstr_len(ct, -1, BOUNDARY); boundary_begin += sizeof(BOUNDARY) - 1; if (*boundary_begin == '"') { boundary_end = strchr(++boundary_begin, '"'); boundary_end = strchr(boundary_begin, ' '); boundary_end = strchr(boundary_begin, ';'); boundary_end = boundary_begin + strlen(boundary_begin); return g_strndup(boundary_begin, boundary_end - boundary_begin); purple_mime_document_parsen(const char *buf, gsize len) g_return_val_if_fail(buf != NULL, NULL); doc = purple_mime_document_new(); fields_load(&doc->fields, &b, &n); const char *ct = fields_get(&doc->fields, "content-type"); if (ct && purple_str_has_prefix(ct, "multipart")) { char *bd = parse_boundary(ct); doc_parts_load(doc, bd, b, n); purple_mime_document_parse(const char *buf) g_return_val_if_fail(buf != NULL, NULL); return purple_mime_document_parsen(buf, strlen(buf)); purple_mime_document_write(PurpleMimeDocument *doc, GString *str) g_return_if_fail(doc != NULL); g_return_if_fail(str != NULL); const char *ct = fields_get(&doc->fields, "content-type"); if(ct && purple_str_has_prefix(ct, "multipart")) { char *b = strrchr(ct, '='); fields_write(&doc->fields, str); for(l = doc->parts; l; l = l->next) { g_string_append_printf(str, "--%s\r\n", bd); part_write(l->data, str); g_string_append_printf(str, "--%s--\r\n", bd); purple_mime_document_get_fields(PurpleMimeDocument *doc) g_return_val_if_fail(doc != NULL, NULL); purple_mime_document_get_field(PurpleMimeDocument *doc, const char *field) g_return_val_if_fail(doc != NULL, NULL); return fields_get(&doc->fields, field); purple_mime_document_set_field(PurpleMimeDocument *doc, const char *field, const char *value) g_return_if_fail(doc != NULL); fields_set(&doc->fields, field, value); purple_mime_document_get_parts(PurpleMimeDocument *doc) g_return_val_if_fail(doc != NULL, NULL); purple_mime_document_free(PurpleMimeDocument *doc) fields_destroy(&doc->fields); part_free(doc->parts->data); doc->parts = g_list_delete_link(doc->parts, doc->parts);