claws-mail/src/procmime.c
2017-01-12 16:31:10 +01:00

2716 lines
67 KiB
C

/*
* Claws Mail -- a GTK+ based, lightweight, and fast e-mail client
* Copyright (C) 1999-2016 Hiroyuki Yamamoto & The Claws Mail Team
*
* 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 3 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, see <http://www.gnu.org/licenses/>.
*/
#ifdef HAVE_CONFIG_H
# include "config.h"
#include "claws-features.h"
#endif
#define _GNU_SOURCE
#include <stdio.h>
#include "defs.h"
#include <glib.h>
#include <glib/gi18n.h>
#include <string.h>
#if HAVE_LOCALE_H
# include <locale.h>
#endif
#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <errno.h>
#include "procmime.h"
#include "procheader.h"
#include "quoted-printable.h"
#include "uuencode.h"
#include "unmime.h"
#include "html.h"
#include "enriched.h"
#include "codeconv.h"
#include "utils.h"
#include "prefs_common.h"
#include "prefs_gtk.h"
#include "alertpanel.h"
#include "timing.h"
#include "privacy.h"
static GHashTable *procmime_get_mime_type_table (void);
static MimeInfo *procmime_scan_file_short(const gchar *filename);
static MimeInfo *procmime_scan_queue_file_short(const gchar *filename);
static MimeInfo *procmime_scan_queue_file_full(const gchar *filename, gboolean short_scan);
MimeInfo *procmime_mimeinfo_new(void)
{
MimeInfo *mimeinfo;
mimeinfo = g_new0(MimeInfo, 1);
mimeinfo->content = MIMECONTENT_EMPTY;
mimeinfo->data.filename = NULL;
mimeinfo->type = MIMETYPE_UNKNOWN;
mimeinfo->encoding_type = ENC_UNKNOWN;
mimeinfo->typeparameters = g_hash_table_new(g_str_hash, g_str_equal);
mimeinfo->disposition = DISPOSITIONTYPE_UNKNOWN;
mimeinfo->dispositionparameters
= g_hash_table_new(g_str_hash, g_str_equal);
mimeinfo->node = g_node_new(mimeinfo);
return mimeinfo;
}
static gboolean procmime_mimeinfo_parameters_destroy(gpointer key, gpointer value, gpointer user_data)
{
g_free(key);
g_free(value);
return TRUE;
}
static gchar *forced_charset = NULL;
void procmime_force_charset(const gchar *str)
{
g_free(forced_charset);
forced_charset = NULL;
if (str)
forced_charset = g_strdup(str);
}
static EncodingType forced_encoding = 0;
void procmime_force_encoding(EncodingType encoding)
{
forced_encoding = encoding;
}
static gboolean free_func(GNode *node, gpointer data)
{
MimeInfo *mimeinfo = (MimeInfo *) node->data;
switch (mimeinfo->content) {
case MIMECONTENT_FILE:
if (mimeinfo->tmp)
claws_unlink(mimeinfo->data.filename);
g_free(mimeinfo->data.filename);
break;
case MIMECONTENT_MEM:
if (mimeinfo->tmp)
g_free(mimeinfo->data.mem);
default:
break;
}
g_free(mimeinfo->subtype);
g_free(mimeinfo->description);
g_free(mimeinfo->id);
g_free(mimeinfo->location);
g_hash_table_foreach_remove(mimeinfo->typeparameters,
procmime_mimeinfo_parameters_destroy, NULL);
g_hash_table_destroy(mimeinfo->typeparameters);
g_hash_table_foreach_remove(mimeinfo->dispositionparameters,
procmime_mimeinfo_parameters_destroy, NULL);
g_hash_table_destroy(mimeinfo->dispositionparameters);
if (mimeinfo->privacy)
privacy_free_privacydata(mimeinfo->privacy);
return FALSE;
}
void procmime_mimeinfo_free_all(MimeInfo **mimeinfo_ptr)
{
MimeInfo *mimeinfo = *mimeinfo_ptr;
GNode *node;
if (!mimeinfo)
return;
node = mimeinfo->node;
g_node_traverse(node, G_IN_ORDER, G_TRAVERSE_ALL, -1, free_func, NULL);
g_node_destroy(node);
g_free(mimeinfo);
*mimeinfo_ptr = NULL;
}
MimeInfo *procmime_mimeinfo_parent(MimeInfo *mimeinfo)
{
cm_return_val_if_fail(mimeinfo != NULL, NULL);
cm_return_val_if_fail(mimeinfo->node != NULL, NULL);
if (mimeinfo->node->parent == NULL)
return NULL;
return (MimeInfo *) mimeinfo->node->parent->data;
}
MimeInfo *procmime_mimeinfo_next(MimeInfo *mimeinfo)
{
cm_return_val_if_fail(mimeinfo != NULL, NULL);
cm_return_val_if_fail(mimeinfo->node != NULL, NULL);
if (mimeinfo->node->children)
return (MimeInfo *) mimeinfo->node->children->data;
if (mimeinfo->node->next)
return (MimeInfo *) mimeinfo->node->next->data;
if (mimeinfo->node->parent == NULL)
return NULL;
while (mimeinfo->node->parent != NULL) {
mimeinfo = (MimeInfo *) mimeinfo->node->parent->data;
if (mimeinfo->node->next)
return (MimeInfo *) mimeinfo->node->next->data;
}
return NULL;
}
MimeInfo *procmime_scan_message(MsgInfo *msginfo)
{
gchar *filename;
MimeInfo *mimeinfo;
filename = procmsg_get_message_file_path(msginfo);
if (!filename || !is_file_exist(filename)) {
g_free(filename);
return NULL;
}
if (!folder_has_parent_of_type(msginfo->folder, F_QUEUE) &&
!folder_has_parent_of_type(msginfo->folder, F_DRAFT))
mimeinfo = procmime_scan_file(filename);
else
mimeinfo = procmime_scan_queue_file(filename);
g_free(filename);
return mimeinfo;
}
MimeInfo *procmime_scan_message_short(MsgInfo *msginfo)
{
gchar *filename;
MimeInfo *mimeinfo;
filename = procmsg_get_message_file_path(msginfo);
if (!filename || !is_file_exist(filename)) {
g_free(filename);
return NULL;
}
if (!folder_has_parent_of_type(msginfo->folder, F_QUEUE) &&
!folder_has_parent_of_type(msginfo->folder, F_DRAFT))
mimeinfo = procmime_scan_file_short(filename);
else
mimeinfo = procmime_scan_queue_file_short(filename);
g_free(filename);
return mimeinfo;
}
enum
{
H_CONTENT_TRANSFER_ENCODING = 0,
H_CONTENT_TYPE = 1,
H_CONTENT_DISPOSITION = 2,
H_CONTENT_DESCRIPTION = 3,
H_SUBJECT = 4
};
const gchar *procmime_mimeinfo_get_parameter(MimeInfo *mimeinfo, const gchar *name)
{
const gchar *value;
cm_return_val_if_fail(mimeinfo != NULL, NULL);
cm_return_val_if_fail(name != NULL, NULL);
value = g_hash_table_lookup(mimeinfo->dispositionparameters, name);
if (value == NULL)
value = g_hash_table_lookup(mimeinfo->typeparameters, name);
return value;
}
#ifdef HAVE_FGETS_UNLOCKED
#define SC_FGETS fgets_unlocked
#define SC_FPUTS fputs_unlocked
#define SC_FPUTC fputc_unlocked
#define SC_FREAD fread_unlocked
#define SC_FWRITE fwrite_unlocked
#define SC_FEOF feof_unlocked
#define SC_FERROR ferror_unlocked
static FILE *procmime_fopen(const gchar *file, const gchar *mode)
{
FILE *fp = g_fopen(file, mode);
if (!fp)
return NULL;
flockfile(fp);
return fp;
}
static int procmime_fclose(FILE *fp)
{
funlockfile(fp);
return fclose(fp);
}
#else
#define SC_FGETS fgets
#define SC_FPUTS fputs
#define SC_FPUTC fputc
#define SC_FREAD fread
#define SC_FWRITE fwrite
#define SC_FEOF feof
#define SC_FERROR ferror
#define procmime_fopen g_fopen
#define procmime_fclose fclose
#endif
#define FLUSH_LASTLINE() { \
if (*lastline != '\0') { \
gint llen = 0; \
strretchomp(lastline); \
llen = strlen(lastline); \
if (lastline[llen-1] == ' ' && strcmp(lastline,"-- ")) { \
/* this is flowed */ \
if (delsp) \
lastline[llen-1] = '\0'; \
if (SC_FPUTS(lastline, outfp) == EOF) \
err = TRUE; \
} else { \
if (SC_FPUTS(lastline, outfp) == EOF) \
err = TRUE; \
if (SC_FPUTS("\n", outfp) == EOF) \
err = TRUE; \
} \
} \
strcpy(lastline, buf); \
}
gboolean procmime_decode_content(MimeInfo *mimeinfo)
{
gchar buf[BUFFSIZE];
gint readend;
gchar *tmpfilename;
FILE *outfp, *infp;
GStatBuf statbuf;
gboolean tmp_file = FALSE;
gboolean flowed = FALSE;
gboolean delsp = FALSE;
gboolean err = FALSE;
gint state = 0;
guint save = 0;
EncodingType encoding = forced_encoding
? forced_encoding
: mimeinfo->encoding_type;
gchar lastline[BUFFSIZE];
memset(lastline, 0, BUFFSIZE);
cm_return_val_if_fail(mimeinfo != NULL, FALSE);
if (prefs_common.respect_flowed_format &&
mimeinfo->type == MIMETYPE_TEXT &&
!strcasecmp(mimeinfo->subtype, "plain")) {
if (procmime_mimeinfo_get_parameter(mimeinfo, "format") != NULL &&
!strcasecmp(procmime_mimeinfo_get_parameter(mimeinfo, "format"),"flowed"))
flowed = TRUE;
if (flowed &&
procmime_mimeinfo_get_parameter(mimeinfo, "delsp") != NULL &&
!strcasecmp(procmime_mimeinfo_get_parameter(mimeinfo, "delsp"),"yes"))
delsp = TRUE;
}
if (!flowed && (
encoding == ENC_UNKNOWN ||
encoding == ENC_BINARY ||
encoding == ENC_7BIT ||
encoding == ENC_8BIT
))
return TRUE;
if (mimeinfo->type == MIMETYPE_MULTIPART || mimeinfo->type == MIMETYPE_MESSAGE)
return TRUE;
if (mimeinfo->data.filename == NULL)
return FALSE;
infp = procmime_fopen(mimeinfo->data.filename, "rb");
if (!infp) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return FALSE;
}
if (fseek(infp, mimeinfo->offset, SEEK_SET) < 0) {
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(infp);
return FALSE;
}
outfp = get_tmpfile_in_dir(get_mime_tmp_dir(), &tmpfilename);
if (!outfp) {
perror("tmpfile");
procmime_fclose(infp);
return FALSE;
}
#ifdef HAVE_FGETS_UNLOCKED
flockfile(outfp);
#endif
tmp_file = TRUE;
readend = mimeinfo->offset + mimeinfo->length;
if (encoding == ENC_QUOTED_PRINTABLE) {
while ((ftell(infp) < readend) && (SC_FGETS(buf, sizeof(buf), infp) != NULL)) {
gint len;
len = qp_decode_line(buf);
buf[len]='\0';
if (!flowed) {
if (SC_FWRITE(buf, 1, len, outfp) < len)
err = TRUE;
} else {
FLUSH_LASTLINE();
}
}
if (flowed)
FLUSH_LASTLINE();
} else if (encoding == ENC_BASE64) {
gchar outbuf[BUFFSIZE];
gint len, inlen, inread;
gboolean got_error = FALSE;
gboolean uncanonicalize = FALSE;
FILE *tmpfp = NULL;
gboolean null_bytes = FALSE;
gboolean starting = TRUE;
if (mimeinfo->type == MIMETYPE_TEXT ||
mimeinfo->type == MIMETYPE_MESSAGE) {
uncanonicalize = TRUE;
tmpfp = my_tmpfile();
if (!tmpfp) {
perror("my_tmpfile");
if (tmp_file)
procmime_fclose(outfp);
procmime_fclose(infp);
return FALSE;
}
#ifdef HAVE_FGETS_UNLOCKED
flockfile(tmpfp);
#endif
} else
tmpfp = outfp;
while ((inlen = MIN(readend - ftell(infp), sizeof(buf))) > 0 && !err) {
inread = SC_FREAD(buf, 1, inlen, infp);
len = g_base64_decode_step(buf, inlen, outbuf, &state, &save);
if (uncanonicalize == TRUE && strlen(outbuf) < len && starting) {
uncanonicalize = FALSE;
null_bytes = TRUE;
}
starting = FALSE;
if (((inread != inlen) || len < 0) && !got_error) {
g_warning("Bad BASE64 content.");
if (SC_FWRITE(_("[Error decoding BASE64]\n"),
sizeof(gchar),
strlen(_("[Error decoding BASE64]\n")),
tmpfp) < strlen(_("[Error decoding BASE64]\n")))
g_warning("error decoding BASE64");
got_error = TRUE;
continue;
} else if (len >= 0) {
/* print out the error message only once
* per block */
if (null_bytes) {
/* we won't uncanonicalize, output to outfp directly */
if (SC_FWRITE(outbuf, sizeof(gchar), len, outfp) < len)
err = TRUE;
} else {
if (SC_FWRITE(outbuf, sizeof(gchar), len, tmpfp) < len)
err = TRUE;
}
got_error = FALSE;
}
}
if (uncanonicalize) {
rewind(tmpfp);
while (SC_FGETS(buf, sizeof(buf), tmpfp) != NULL) {
strcrchomp(buf);
if (SC_FPUTS(buf, outfp) == EOF)
err = TRUE;
}
procmime_fclose(tmpfp);
}
} else if (encoding == ENC_X_UUENCODE) {
gchar outbuf[BUFFSIZE];
gint len;
gboolean flag = FALSE;
while ((ftell(infp) < readend) && (SC_FGETS(buf, sizeof(buf), infp) != NULL)) {
if (!flag && strncmp(buf,"begin ", 6)) continue;
if (flag) {
len = fromuutobits(outbuf, buf);
if (len <= 0) {
if (len < 0)
g_warning("Bad UUENCODE content (%d)", len);
break;
}
if (SC_FWRITE(outbuf, sizeof(gchar), len, outfp) < len)
err = TRUE;
} else
flag = TRUE;
}
} else {
while ((ftell(infp) < readend) && (SC_FGETS(buf, sizeof(buf), infp) != NULL)) {
if (!flowed) {
if (SC_FPUTS(buf, outfp) == EOF)
err = TRUE;
} else {
FLUSH_LASTLINE();
}
}
if (flowed)
FLUSH_LASTLINE();
if (err == TRUE)
g_warning("write error");
}
procmime_fclose(outfp);
procmime_fclose(infp);
if (err == TRUE) {
return FALSE;
}
if (g_stat(tmpfilename, &statbuf) < 0) {
FILE_OP_ERROR(tmpfilename, "stat");
return FALSE;
}
if (mimeinfo->tmp)
claws_unlink(mimeinfo->data.filename);
g_free(mimeinfo->data.filename);
mimeinfo->data.filename = tmpfilename;
mimeinfo->tmp = TRUE;
mimeinfo->offset = 0;
mimeinfo->length = statbuf.st_size;
mimeinfo->encoding_type = ENC_BINARY;
return TRUE;
}
#define B64_LINE_SIZE 57
#define B64_BUFFSIZE 77
gboolean procmime_encode_content(MimeInfo *mimeinfo, EncodingType encoding)
{
FILE *infp = NULL, *outfp;
gint len;
gchar *tmpfilename;
GStatBuf statbuf;
gboolean err = FALSE;
if (mimeinfo->content == MIMECONTENT_EMPTY)
return TRUE;
if (mimeinfo->encoding_type != ENC_UNKNOWN &&
mimeinfo->encoding_type != ENC_BINARY &&
mimeinfo->encoding_type != ENC_7BIT &&
mimeinfo->encoding_type != ENC_8BIT)
if(!procmime_decode_content(mimeinfo))
return FALSE;
outfp = get_tmpfile_in_dir(get_mime_tmp_dir(), &tmpfilename);
if (!outfp) {
perror("tmpfile");
return FALSE;
}
#ifdef HAVE_FGETS_UNLOCKED
flockfile(outfp);
#endif
if (mimeinfo->content == MIMECONTENT_FILE && mimeinfo->data.filename) {
if ((infp = procmime_fopen(mimeinfo->data.filename, "rb")) == NULL) {
g_warning("Can't open file %s", mimeinfo->data.filename);
procmime_fclose(outfp);
return FALSE;
}
} else if (mimeinfo->content == MIMECONTENT_MEM) {
infp = str_open_as_stream(mimeinfo->data.mem);
if (infp == NULL) {
procmime_fclose(outfp);
return FALSE;
}
#ifdef HAVE_FGETS_UNLOCKED
flockfile(infp);
#endif
} else {
procmime_fclose(outfp);
g_warning("Unknown mimeinfo");
return FALSE;
}
if (encoding == ENC_BASE64) {
gchar inbuf[B64_LINE_SIZE], *out;
FILE *tmp_fp = infp;
gchar *tmp_file = NULL;
if (mimeinfo->type == MIMETYPE_TEXT ||
mimeinfo->type == MIMETYPE_MESSAGE) {
if (mimeinfo->content == MIMECONTENT_FILE) {
tmp_file = get_tmp_file();
if (canonicalize_file(mimeinfo->data.filename, tmp_file) < 0) {
g_free(tmp_file);
procmime_fclose(infp);
procmime_fclose(outfp);
return FALSE;
}
if ((tmp_fp = procmime_fopen(tmp_file, "rb")) == NULL) {
FILE_OP_ERROR(tmp_file, "fopen");
claws_unlink(tmp_file);
g_free(tmp_file);
procmime_fclose(infp);
procmime_fclose(outfp);
return FALSE;
}
} else {
gchar *out = canonicalize_str(mimeinfo->data.mem);
procmime_fclose(infp);
infp = str_open_as_stream(out);
tmp_fp = infp;
g_free(out);
if (infp == NULL) {
procmime_fclose(outfp);
return FALSE;
}
#ifdef HAVE_FGETS_UNLOCKED
flockfile(infp);
#endif
}
}
while ((len = SC_FREAD(inbuf, sizeof(gchar),
B64_LINE_SIZE, tmp_fp))
== B64_LINE_SIZE) {
out = g_base64_encode(inbuf, B64_LINE_SIZE);
if (SC_FPUTS(out, outfp) == EOF)
err = TRUE;
g_free(out);
if (SC_FPUTC('\n', outfp) == EOF)
err = TRUE;
}
if (len > 0 && SC_FEOF(tmp_fp)) {
out = g_base64_encode(inbuf, len);
if (SC_FPUTS(out, outfp) == EOF)
err = TRUE;
g_free(out);
if (SC_FPUTC('\n', outfp) == EOF)
err = TRUE;
}
if (tmp_file) {
procmime_fclose(tmp_fp);
claws_unlink(tmp_file);
g_free(tmp_file);
}
} else if (encoding == ENC_QUOTED_PRINTABLE) {
gchar inbuf[BUFFSIZE], outbuf[BUFFSIZE * 4];
while (SC_FGETS(inbuf, sizeof(inbuf), infp) != NULL) {
qp_encode_line(outbuf, inbuf);
if (!strncmp("From ", outbuf, sizeof("From ")-1)) {
gchar *tmpbuf = outbuf;
tmpbuf += sizeof("From ")-1;
if (SC_FPUTS("=46rom ", outfp) == EOF)
err = TRUE;
if (SC_FPUTS(tmpbuf, outfp) == EOF)
err = TRUE;
} else {
if (SC_FPUTS(outbuf, outfp) == EOF)
err = TRUE;
}
}
} else {
gchar buf[BUFFSIZE];
while (SC_FGETS(buf, sizeof(buf), infp) != NULL) {
strcrchomp(buf);
if (SC_FPUTS(buf, outfp) == EOF)
err = TRUE;
}
}
procmime_fclose(outfp);
procmime_fclose(infp);
if (err == TRUE)
return FALSE;
if (mimeinfo->content == MIMECONTENT_FILE) {
if (mimeinfo->tmp && (mimeinfo->data.filename != NULL))
claws_unlink(mimeinfo->data.filename);
g_free(mimeinfo->data.filename);
} else if (mimeinfo->content == MIMECONTENT_MEM) {
if (mimeinfo->tmp && (mimeinfo->data.mem != NULL))
g_free(mimeinfo->data.mem);
}
if (g_stat(tmpfilename, &statbuf) < 0) {
FILE_OP_ERROR(tmpfilename, "stat");
return FALSE;
}
mimeinfo->content = MIMECONTENT_FILE;
mimeinfo->data.filename = tmpfilename;
mimeinfo->tmp = TRUE;
mimeinfo->offset = 0;
mimeinfo->length = statbuf.st_size;
mimeinfo->encoding_type = encoding;
return TRUE;
}
gint procmime_get_part(const gchar *outfile, MimeInfo *mimeinfo)
{
FILE *infp, *outfp;
gchar buf[BUFFSIZE];
gint restlength, readlength;
gint saved_errno = 0;
cm_return_val_if_fail(outfile != NULL, -1);
cm_return_val_if_fail(mimeinfo != NULL, -1);
if (mimeinfo->encoding_type != ENC_BINARY && !procmime_decode_content(mimeinfo))
return -EINVAL;
if ((infp = procmime_fopen(mimeinfo->data.filename, "rb")) == NULL) {
saved_errno = errno;
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return -(saved_errno);
}
if (fseek(infp, mimeinfo->offset, SEEK_SET) < 0) {
saved_errno = errno;
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(infp);
return -(saved_errno);
}
if ((outfp = procmime_fopen(outfile, "wb")) == NULL) {
saved_errno = errno;
FILE_OP_ERROR(outfile, "fopen");
procmime_fclose(infp);
return -(saved_errno);
}
restlength = mimeinfo->length;
while ((restlength > 0) && ((readlength = SC_FREAD(buf, 1, restlength > BUFFSIZE ? BUFFSIZE : restlength, infp)) > 0)) {
if (SC_FWRITE(buf, 1, readlength, outfp) != readlength) {
saved_errno = errno;
procmime_fclose(infp);
procmime_fclose(outfp);
return -(saved_errno);
}
restlength -= readlength;
}
procmime_fclose(infp);
if (procmime_fclose(outfp) == EOF) {
saved_errno = errno;
FILE_OP_ERROR(outfile, "fclose");
claws_unlink(outfile);
return -(saved_errno);
}
return 0;
}
gboolean procmime_scan_text_content(MimeInfo *mimeinfo,
gboolean (*scan_callback)(const gchar *str, gpointer cb_data),
gpointer cb_data)
{
FILE *tmpfp;
const gchar *src_codeset;
gboolean conv_fail = FALSE;
gchar buf[BUFFSIZE];
gchar *str;
gchar *tmpfile;
gboolean scan_ret = FALSE;
cm_return_val_if_fail(mimeinfo != NULL, TRUE);
cm_return_val_if_fail(scan_callback != NULL, TRUE);
if (!procmime_decode_content(mimeinfo))
return TRUE;
tmpfile = procmime_get_tmp_file_name(mimeinfo);
if (tmpfile == NULL)
return TRUE;
if (procmime_get_part(tmpfile, mimeinfo) < 0) {
g_free(tmpfile);
return TRUE;
}
tmpfp = procmime_fopen(tmpfile, "rb");
if (tmpfp == NULL) {
g_free(tmpfile);
return TRUE;
}
src_codeset = forced_charset
? forced_charset :
procmime_mimeinfo_get_parameter(mimeinfo, "charset");
/* use supersets transparently when possible */
if (!forced_charset && src_codeset && !strcasecmp(src_codeset, CS_ISO_8859_1))
src_codeset = CS_WINDOWS_1252;
else if (!forced_charset && src_codeset && !strcasecmp(src_codeset, CS_X_GBK))
src_codeset = CS_GB18030;
else if (!forced_charset && src_codeset && !strcasecmp(src_codeset, CS_GBK))
src_codeset = CS_GB18030;
else if (!forced_charset && src_codeset && !strcasecmp(src_codeset, CS_GB2312))
src_codeset = CS_GB18030;
else if (!forced_charset && src_codeset && !strcasecmp(src_codeset, CS_X_VIET_VPS))
src_codeset = CS_WINDOWS_874;
if (mimeinfo->type == MIMETYPE_TEXT && !g_ascii_strcasecmp(mimeinfo->subtype, "html")) {
SC_HTMLParser *parser;
CodeConverter *conv;
conv = conv_code_converter_new(src_codeset);
parser = sc_html_parser_new(tmpfp, conv);
while ((str = sc_html_parse(parser)) != NULL) {
if ((scan_ret = scan_callback(str, cb_data)) == TRUE)
break;
}
sc_html_parser_destroy(parser);
conv_code_converter_destroy(conv);
} else if (mimeinfo->type == MIMETYPE_TEXT && !g_ascii_strcasecmp(mimeinfo->subtype, "enriched")) {
ERTFParser *parser;
CodeConverter *conv;
conv = conv_code_converter_new(src_codeset);
parser = ertf_parser_new(tmpfp, conv);
while ((str = ertf_parse(parser)) != NULL) {
if ((scan_ret = scan_callback(str, cb_data)) == TRUE)
break;
}
ertf_parser_destroy(parser);
conv_code_converter_destroy(conv);
} else if (mimeinfo->type == MIMETYPE_TEXT && mimeinfo->disposition != DISPOSITIONTYPE_ATTACHMENT) {
while (SC_FGETS(buf, sizeof(buf), tmpfp) != NULL) {
str = conv_codeset_strdup(buf, src_codeset, CS_UTF_8);
if (str) {
if ((scan_ret = scan_callback(str, cb_data)) == TRUE) {
g_free(str);
break;
}
g_free(str);
} else {
conv_fail = TRUE;
if ((scan_ret = scan_callback(buf, cb_data)) == TRUE)
break;
}
}
}
if (conv_fail)
g_warning("procmime_get_text_content(): Code conversion failed.");
procmime_fclose(tmpfp);
claws_unlink(tmpfile);
g_free(tmpfile);
return scan_ret;
}
static gboolean scan_fputs_cb(const gchar *str, gpointer fp)
{
if (SC_FPUTS(str, (FILE *)fp) == EOF)
return TRUE;
return FALSE;
}
FILE *procmime_get_text_content(MimeInfo *mimeinfo)
{
FILE *outfp;
gboolean err;
if ((outfp = my_tmpfile()) == NULL) {
perror("my_tmpfile");
return NULL;
}
#ifdef HAVE_FGETS_UNLOCKED
flockfile(outfp);
#endif
err = procmime_scan_text_content(mimeinfo, scan_fputs_cb, outfp);
rewind(outfp);
if (err == TRUE) {
procmime_fclose(outfp);
return NULL;
}
#ifdef HAVE_FGETS_UNLOCKED
funlockfile(outfp);
#endif
return outfp;
}
FILE *procmime_get_binary_content(MimeInfo *mimeinfo)
{
FILE *outfp;
gchar *tmpfile;
cm_return_val_if_fail(mimeinfo != NULL, NULL);
if (!procmime_decode_content(mimeinfo))
return NULL;
tmpfile = procmime_get_tmp_file_name(mimeinfo);
if (tmpfile == NULL)
return NULL;
if (procmime_get_part(tmpfile, mimeinfo) < 0) {
g_free(tmpfile);
return NULL;
}
outfp = procmime_fopen(tmpfile, "rb");
if (outfp == NULL) {
g_unlink(tmpfile);
g_free(tmpfile);
return NULL;
}
g_unlink(tmpfile);
g_free(tmpfile);
#ifdef HAVE_FGETS_UNLOCKED
funlockfile(outfp);
#endif
return outfp;
}
/* search the first text part of (multipart) MIME message,
decode, convert it and output to outfp. */
FILE *procmime_get_first_text_content(MsgInfo *msginfo)
{
FILE *outfp = NULL;
MimeInfo *mimeinfo, *partinfo;
gboolean empty_ok = FALSE, short_scan = TRUE;
cm_return_val_if_fail(msginfo != NULL, NULL);
/* first we try to short-scan (for speed), refusing empty parts */
scan_again:
if (short_scan)
mimeinfo = procmime_scan_message_short(msginfo);
else
mimeinfo = procmime_scan_message(msginfo);
if (!mimeinfo) return NULL;
partinfo = mimeinfo;
while (partinfo && (partinfo->type != MIMETYPE_TEXT ||
(partinfo->length == 0 && !empty_ok))) {
partinfo = procmime_mimeinfo_next(partinfo);
}
if (partinfo)
outfp = procmime_get_text_content(partinfo);
else if (!empty_ok && short_scan) {
/* if short scan didn't find a non-empty part, rescan
* fully for non-empty parts
*/
short_scan = FALSE;
procmime_mimeinfo_free_all(&mimeinfo);
goto scan_again;
} else if (!empty_ok && !short_scan) {
/* if full scan didn't find a non-empty part, rescan
* accepting empty parts
*/
empty_ok = TRUE;
procmime_mimeinfo_free_all(&mimeinfo);
goto scan_again;
}
procmime_mimeinfo_free_all(&mimeinfo);
/* outfp already unlocked at this time */
return outfp;
}
static gboolean find_encrypted_func(GNode *node, gpointer data)
{
MimeInfo *mimeinfo = (MimeInfo *) node->data;
MimeInfo **encinfo = (MimeInfo **) data;
if (privacy_mimeinfo_is_encrypted(mimeinfo)) {
*encinfo = mimeinfo;
return TRUE;
}
return FALSE;
}
static MimeInfo *find_encrypted_part(MimeInfo *rootinfo)
{
MimeInfo *encinfo = NULL;
g_node_traverse(rootinfo->node, G_IN_ORDER, G_TRAVERSE_ALL, -1,
find_encrypted_func, &encinfo);
return encinfo;
}
/* search the first encrypted text part of (multipart) MIME message,
decode, convert it and output to outfp. */
FILE *procmime_get_first_encrypted_text_content(MsgInfo *msginfo)
{
FILE *outfp = NULL;
MimeInfo *mimeinfo, *partinfo, *encinfo;
cm_return_val_if_fail(msginfo != NULL, NULL);
mimeinfo = procmime_scan_message(msginfo);
if (!mimeinfo) {
return NULL;
}
partinfo = mimeinfo;
if ((encinfo = find_encrypted_part(partinfo)) != NULL) {
debug_print("decrypting message part\n");
if (privacy_mimeinfo_decrypt(encinfo) < 0) {
alertpanel_error(_("Couldn't decrypt: %s"),
privacy_get_error());
return NULL;
}
}
partinfo = mimeinfo;
while (partinfo && partinfo->type != MIMETYPE_TEXT) {
partinfo = procmime_mimeinfo_next(partinfo);
if (privacy_mimeinfo_is_signed(partinfo))
procmsg_msginfo_set_flags(msginfo, 0, MSG_SIGNED);
}
if (partinfo)
outfp = procmime_get_text_content(partinfo);
procmime_mimeinfo_free_all(&mimeinfo);
/* outfp already unlocked at this time */
return outfp;
}
gboolean procmime_msginfo_is_encrypted(MsgInfo *msginfo)
{
MimeInfo *mimeinfo, *partinfo;
gboolean result = FALSE;
cm_return_val_if_fail(msginfo != NULL, FALSE);
mimeinfo = procmime_scan_message(msginfo);
if (!mimeinfo) {
return FALSE;
}
partinfo = mimeinfo;
result = (find_encrypted_part(partinfo) != NULL);
procmime_mimeinfo_free_all(&mimeinfo);
return result;
}
gchar *procmime_get_tmp_file_name(MimeInfo *mimeinfo)
{
static guint32 id = 0;
gchar *base;
gchar *filename;
gchar f_prefix[10];
cm_return_val_if_fail(mimeinfo != NULL, NULL);
g_snprintf(f_prefix, sizeof(f_prefix), "%08x.", id++);
if ((mimeinfo->type == MIMETYPE_TEXT) && !g_ascii_strcasecmp(mimeinfo->subtype, "html"))
base = g_strdup("mimetmp.html");
else {
const gchar *basetmp;
basetmp = procmime_mimeinfo_get_parameter(mimeinfo, "filename");
if (basetmp == NULL)
basetmp = procmime_mimeinfo_get_parameter(mimeinfo, "name");
if (basetmp == NULL)
basetmp = "mimetmp";
basetmp = g_path_get_basename(basetmp);
if (*basetmp == '\0')
basetmp = g_strdup("mimetmp");
base = conv_filename_from_utf8(basetmp);
g_free((gchar*)basetmp);
subst_for_shellsafe_filename(base);
}
filename = g_strconcat(get_mime_tmp_dir(), G_DIR_SEPARATOR_S,
f_prefix, base, NULL);
g_free(base);
return filename;
}
static GList *mime_type_list = NULL;
gchar *procmime_get_mime_type(const gchar *filename)
{
const gchar *p;
gchar *ext = NULL;
gchar *base;
#ifndef G_OS_WIN32
static GHashTable *mime_type_table = NULL;
MimeType *mime_type;
if (!mime_type_table) {
mime_type_table = procmime_get_mime_type_table();
if (!mime_type_table) return NULL;
}
#endif
if (filename == NULL)
return NULL;
base = g_path_get_basename(filename);
if ((p = strrchr(base, '.')) != NULL)
ext = g_utf8_strdown(p + 1, -1);
else
ext = g_utf8_strdown(base, -1);
g_free(base);
#ifndef G_OS_WIN32
mime_type = g_hash_table_lookup(mime_type_table, ext);
if (mime_type) {
gchar *str;
str = g_strconcat(mime_type->type, "/", mime_type->sub_type,
NULL);
debug_print("got type %s for %s\n", str, ext);
g_free(ext);
return str;
}
return NULL;
#else
gchar *str = get_content_type_from_registry_with_ext(ext);
g_free(ext);
return str;
#endif
}
static guint procmime_str_hash(gconstpointer gptr)
{
guint hash_result = 0;
const char *str;
for (str = gptr; str && *str; str++) {
if (isupper(*str)) hash_result += (*str + ' ');
else hash_result += *str;
}
return hash_result;
}
static gint procmime_str_equal(gconstpointer gptr1, gconstpointer gptr2)
{
const char *str1 = gptr1;
const char *str2 = gptr2;
return !g_utf8_collate(str1, str2);
}
static GHashTable *procmime_get_mime_type_table(void)
{
GHashTable *table = NULL;
GList *cur;
MimeType *mime_type;
gchar **exts;
if (!mime_type_list) {
mime_type_list = procmime_get_mime_type_list();
if (!mime_type_list) return NULL;
}
table = g_hash_table_new(procmime_str_hash, procmime_str_equal);
for (cur = mime_type_list; cur != NULL; cur = cur->next) {
gint i;
gchar *key;
mime_type = (MimeType *)cur->data;
if (!mime_type->extension) continue;
exts = g_strsplit(mime_type->extension, " ", 16);
for (i = 0; exts[i] != NULL; i++) {
/* Don't overwrite previously inserted extension */
if (!g_hash_table_lookup(table, exts[i])) {
key = g_strdup(exts[i]);
g_hash_table_insert(table, key, mime_type);
}
}
g_strfreev(exts);
}
return table;
}
GList *procmime_get_mime_type_list(void)
{
GList *list = NULL;
FILE *fp;
gchar buf[BUFFSIZE];
gchar *p;
gchar *delim;
MimeType *mime_type;
gboolean fp_is_glob_file = TRUE;
if (mime_type_list)
return mime_type_list;
#if defined(__NetBSD__) || defined(__OpenBSD__) || defined(__FreeBSD__)
if ((fp = procmime_fopen(DATAROOTDIR "/mime/globs", "rb")) == NULL)
#else
if ((fp = procmime_fopen("/usr/share/mime/globs", "rb")) == NULL)
#endif
{
fp_is_glob_file = FALSE;
if ((fp = procmime_fopen("/etc/mime.types", "rb")) == NULL) {
if ((fp = procmime_fopen(SYSCONFDIR "/mime.types", "rb"))
== NULL) {
FILE_OP_ERROR(SYSCONFDIR "/mime.types",
"fopen");
return NULL;
}
}
}
while (SC_FGETS(buf, sizeof(buf), fp) != NULL) {
p = strchr(buf, '#');
if (p) *p = '\0';
g_strstrip(buf);
p = buf;
if (fp_is_glob_file) {
while (*p && !g_ascii_isspace(*p) && (*p!=':')) p++;
} else {
while (*p && !g_ascii_isspace(*p)) p++;
}
if (*p) {
*p = '\0';
p++;
}
delim = strchr(buf, '/');
if (delim == NULL) continue;
*delim = '\0';
mime_type = g_new(MimeType, 1);
mime_type->type = g_strdup(buf);
mime_type->sub_type = g_strdup(delim + 1);
if (fp_is_glob_file) {
while (*p && (g_ascii_isspace(*p)||(*p=='*')||(*p=='.'))) p++;
} else {
while (*p && g_ascii_isspace(*p)) p++;
}
if (*p)
mime_type->extension = g_utf8_strdown(p, -1);
else
mime_type->extension = NULL;
list = g_list_append(list, mime_type);
}
procmime_fclose(fp);
if (!list)
g_warning("Can't read mime.types");
return list;
}
EncodingType procmime_get_encoding_for_charset(const gchar *charset)
{
if (!charset)
return ENC_8BIT;
else if (!g_ascii_strncasecmp(charset, "ISO-2022-", 9) ||
!g_ascii_strcasecmp(charset, "US-ASCII"))
return ENC_7BIT;
else if (!g_ascii_strcasecmp(charset, "ISO-8859-5") ||
!g_ascii_strncasecmp(charset, "KOI8-", 5) ||
!g_ascii_strcasecmp(charset, "X-MAC-CYRILLIC") ||
!g_ascii_strcasecmp(charset, "MAC-CYRILLIC") ||
!g_ascii_strcasecmp(charset, "Windows-1251"))
return ENC_8BIT;
else if (!g_ascii_strncasecmp(charset, "ISO-8859-", 9))
return ENC_QUOTED_PRINTABLE;
else if (!g_ascii_strncasecmp(charset, "UTF-8", 5))
return ENC_QUOTED_PRINTABLE;
else
return ENC_8BIT;
}
EncodingType procmime_get_encoding_for_text_file(const gchar *file, gboolean *has_binary)
{
FILE *fp;
guchar buf[BUFFSIZE];
size_t len;
size_t octet_chars = 0;
size_t total_len = 0;
gfloat octet_percentage;
gboolean force_b64 = FALSE;
if ((fp = procmime_fopen(file, "rb")) == NULL) {
FILE_OP_ERROR(file, "fopen");
return ENC_UNKNOWN;
}
while ((len = SC_FREAD(buf, sizeof(guchar), sizeof(buf), fp)) > 0) {
guchar *p;
gint i;
for (p = buf, i = 0; i < len; ++p, ++i) {
if (*p & 0x80)
++octet_chars;
if (*p == '\0') {
force_b64 = TRUE;
*has_binary = TRUE;
}
}
total_len += len;
}
procmime_fclose(fp);
if (total_len > 0)
octet_percentage = (gfloat)octet_chars / (gfloat)total_len;
else
octet_percentage = 0.0;
debug_print("procmime_get_encoding_for_text_file(): "
"8bit chars: %zd / %zd (%f%%)\n", octet_chars, total_len,
100.0 * octet_percentage);
if (octet_percentage > 0.20 || force_b64) {
debug_print("using BASE64\n");
return ENC_BASE64;
} else if (octet_chars > 0) {
debug_print("using quoted-printable\n");
return ENC_QUOTED_PRINTABLE;
} else {
debug_print("using 7bit\n");
return ENC_7BIT;
}
}
struct EncodingTable
{
gchar *str;
EncodingType enc_type;
};
struct EncodingTable encoding_table[] = {
{"7bit", ENC_7BIT},
{"8bit", ENC_8BIT},
{"binary", ENC_BINARY},
{"quoted-printable", ENC_QUOTED_PRINTABLE},
{"base64", ENC_BASE64},
{"x-uuencode", ENC_UNKNOWN},
{NULL, ENC_UNKNOWN},
};
const gchar *procmime_get_encoding_str(EncodingType encoding)
{
struct EncodingTable *enc_table;
for (enc_table = encoding_table; enc_table->str != NULL; enc_table++) {
if (enc_table->enc_type == encoding)
return enc_table->str;
}
return NULL;
}
/* --- NEW MIME STUFF --- */
struct TypeTable
{
gchar *str;
MimeMediaType type;
};
static struct TypeTable mime_type_table[] = {
{"text", MIMETYPE_TEXT},
{"image", MIMETYPE_IMAGE},
{"audio", MIMETYPE_AUDIO},
{"video", MIMETYPE_VIDEO},
{"application", MIMETYPE_APPLICATION},
{"message", MIMETYPE_MESSAGE},
{"multipart", MIMETYPE_MULTIPART},
{NULL, 0},
};
const gchar *procmime_get_media_type_str(MimeMediaType type)
{
struct TypeTable *type_table;
for (type_table = mime_type_table; type_table->str != NULL; type_table++) {
if (type_table->type == type)
return type_table->str;
}
return NULL;
}
MimeMediaType procmime_get_media_type(const gchar *str)
{
struct TypeTable *typetablearray;
for (typetablearray = mime_type_table; typetablearray->str != NULL; typetablearray++)
if (g_ascii_strncasecmp(str, typetablearray->str, strlen(typetablearray->str)) == 0)
return typetablearray->type;
return MIMETYPE_UNKNOWN;
}
/*!
*\brief Safe wrapper for content type string.
*
*\return const gchar * Pointer to content type string.
*/
gchar *procmime_get_content_type_str(MimeMediaType type,
const char *subtype)
{
const gchar *type_str = NULL;
if (subtype == NULL || !(type_str = procmime_get_media_type_str(type)))
return g_strdup("unknown");
return g_strdup_printf("%s/%s", type_str, subtype);
}
static int procmime_parse_mimepart(MimeInfo *parent,
gchar *content_type,
gchar *content_encoding,
gchar *content_description,
gchar *content_id,
gchar *content_disposition,
gchar *content_location,
const gchar *original_msgid,
const gchar *disposition_notification_hdr,
const gchar *filename,
guint offset,
guint length,
gboolean short_scan);
static void procmime_parse_message_rfc822(MimeInfo *mimeinfo, gboolean short_scan)
{
HeaderEntry hentry[] = {{"Content-Type:", NULL, TRUE},
{"Content-Transfer-Encoding:",
NULL, FALSE},
{"Content-Description:",
NULL, TRUE},
{"Content-ID:",
NULL, TRUE},
{"Content-Disposition:",
NULL, TRUE},
{"Content-Location:",
NULL, TRUE},
{"MIME-Version:",
NULL, TRUE},
{"Original-Message-ID:",
NULL, TRUE},
{"Disposition:",
NULL, TRUE},
{NULL, NULL, FALSE}};
guint content_start, i;
FILE *fp;
gchar *tmp;
gint len = 0;
procmime_decode_content(mimeinfo);
fp = procmime_fopen(mimeinfo->data.filename, "rb");
if (fp == NULL) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return;
}
if (fseek(fp, mimeinfo->offset, SEEK_SET) < 0) {
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(fp);
return;
}
procheader_get_header_fields(fp, hentry);
if (hentry[0].body != NULL) {
tmp = conv_unmime_header(hentry[0].body, NULL, FALSE);
g_free(hentry[0].body);
hentry[0].body = tmp;
}
if (hentry[2].body != NULL) {
tmp = conv_unmime_header(hentry[2].body, NULL, FALSE);
g_free(hentry[2].body);
hentry[2].body = tmp;
}
if (hentry[4].body != NULL) {
tmp = conv_unmime_header(hentry[4].body, NULL, FALSE);
g_free(hentry[4].body);
hentry[4].body = tmp;
}
if (hentry[5].body != NULL) {
tmp = conv_unmime_header(hentry[5].body, NULL, FALSE);
g_free(hentry[5].body);
hentry[5].body = tmp;
}
if (hentry[7].body != NULL) {
tmp = conv_unmime_header(hentry[7].body, NULL, FALSE);
g_free(hentry[7].body);
hentry[7].body = tmp;
}
if (hentry[8].body != NULL) {
tmp = conv_unmime_header(hentry[8].body, NULL, FALSE);
g_free(hentry[8].body);
hentry[8].body = tmp;
}
content_start = ftell(fp);
procmime_fclose(fp);
len = mimeinfo->length - (content_start - mimeinfo->offset);
if (len < 0)
len = 0;
procmime_parse_mimepart(mimeinfo,
hentry[0].body, hentry[1].body,
hentry[2].body, hentry[3].body,
hentry[4].body, hentry[5].body,
hentry[7].body, hentry[8].body,
mimeinfo->data.filename, content_start,
len, short_scan);
for (i = 0; i < (sizeof hentry / sizeof hentry[0]); i++) {
g_free(hentry[i].body);
hentry[i].body = NULL;
}
}
static void procmime_parse_disposition_notification(MimeInfo *mimeinfo,
const gchar *original_msgid, const gchar *disposition_notification_hdr,
gboolean short_scan)
{
HeaderEntry hentry[] = {{"Original-Message-ID:", NULL, TRUE},
{"Disposition:", NULL, TRUE},
{NULL, NULL, FALSE}};
guint i;
FILE *fp;
gchar *orig_msg_id = NULL;
gchar *disp = NULL;
procmime_decode_content(mimeinfo);
debug_print("parse disposition notification\n");
fp = procmime_fopen(mimeinfo->data.filename, "rb");
if (fp == NULL) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return;
}
if (fseek(fp, mimeinfo->offset, SEEK_SET) < 0) {
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(fp);
return;
}
if (original_msgid && disposition_notification_hdr) {
hentry[0].body = g_strdup(original_msgid);
hentry[1].body = g_strdup(disposition_notification_hdr);
} else {
procheader_get_header_fields(fp, hentry);
}
procmime_fclose(fp);
if (!hentry[0].body || !hentry[1].body) {
debug_print("MsgId %s, Disp %s\n",
hentry[0].body ? hentry[0].body:"(nil)",
hentry[1].body ? hentry[1].body:"(nil)");
goto bail;
}
orig_msg_id = g_strdup(hentry[0].body);
disp = g_strdup(hentry[1].body);
extract_parenthesis(orig_msg_id, '<', '>');
remove_space(orig_msg_id);
if (strstr(disp, "displayed")) {
/* find sent message, if possible */
MsgInfo *info = NULL;
GList *flist;
debug_print("%s has been displayed.\n", orig_msg_id);
for (flist = folder_get_list(); flist != NULL; flist = g_list_next(flist)) {
FolderItem *outbox = ((Folder *)(flist->data))->outbox;
if (!outbox) {
debug_print("skipping folder with no outbox...\n");
continue;
}
info = folder_item_get_msginfo_by_msgid(outbox, orig_msg_id);
debug_print("%s %s in %s\n", info?"found":"didn't find", orig_msg_id, outbox->path);
if (info) {
procmsg_msginfo_set_flags(info, MSG_RETRCPT_GOT, 0);
procmsg_msginfo_free(&info);
}
}
}
g_free(orig_msg_id);
g_free(disp);
bail:
for (i = 0; i < (sizeof hentry / sizeof hentry[0]); i++) {
g_free(hentry[i].body);
hentry[i].body = NULL;
}
}
#define GET_HEADERS() { \
procheader_get_header_fields(fp, hentry); \
if (hentry[0].body != NULL) { \
tmp = conv_unmime_header(hentry[0].body, NULL, FALSE); \
g_free(hentry[0].body); \
hentry[0].body = tmp; \
} \
if (hentry[2].body != NULL) { \
tmp = conv_unmime_header(hentry[2].body, NULL, FALSE); \
g_free(hentry[2].body); \
hentry[2].body = tmp; \
} \
if (hentry[4].body != NULL) { \
tmp = conv_unmime_header(hentry[4].body, NULL, FALSE); \
g_free(hentry[4].body); \
hentry[4].body = tmp; \
} \
if (hentry[5].body != NULL) { \
tmp = conv_unmime_header(hentry[5].body, NULL, FALSE); \
g_free(hentry[5].body); \
hentry[5].body = tmp; \
} \
if (hentry[6].body != NULL) { \
tmp = conv_unmime_header(hentry[6].body, NULL, FALSE); \
g_free(hentry[6].body); \
hentry[6].body = tmp; \
} \
if (hentry[7].body != NULL) { \
tmp = conv_unmime_header(hentry[7].body, NULL, FALSE); \
g_free(hentry[7].body); \
hentry[7].body = tmp; \
} \
}
static void procmime_parse_multipart(MimeInfo *mimeinfo, gboolean short_scan)
{
HeaderEntry hentry[] = {{"Content-Type:", NULL, TRUE},
{"Content-Transfer-Encoding:",
NULL, FALSE},
{"Content-Description:",
NULL, TRUE},
{"Content-ID:",
NULL, TRUE},
{"Content-Disposition:",
NULL, TRUE},
{"Content-Location:",
NULL, TRUE},
{"Original-Message-ID:",
NULL, TRUE},
{"Disposition:",
NULL, TRUE},
{NULL, NULL, FALSE}};
gchar *tmp;
gchar *boundary;
gint boundary_len = 0, lastoffset = -1, i;
gchar buf[BUFFSIZE];
FILE *fp;
int result = 0;
gboolean start_found = FALSE;
gboolean end_found = FALSE;
boundary = g_hash_table_lookup(mimeinfo->typeparameters, "boundary");
if (!boundary)
return;
boundary_len = strlen(boundary);
procmime_decode_content(mimeinfo);
fp = procmime_fopen(mimeinfo->data.filename, "rb");
if (fp == NULL) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return;
}
if (fseek(fp, mimeinfo->offset, SEEK_SET) < 0) {
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(fp);
return;
}
while (SC_FGETS(buf, sizeof(buf), fp) != NULL && result == 0) {
if (ftell(fp) - 1 > (mimeinfo->offset + mimeinfo->length))
break;
if (IS_BOUNDARY(buf, boundary, boundary_len)) {
start_found = TRUE;
if (lastoffset != -1) {
gint len = (ftell(fp) - strlen(buf)) - lastoffset - 1;
if (len < 0)
len = 0;
result = procmime_parse_mimepart(mimeinfo,
hentry[0].body, hentry[1].body,
hentry[2].body, hentry[3].body,
hentry[4].body, hentry[5].body,
hentry[6].body, hentry[7].body,
mimeinfo->data.filename, lastoffset,
len, short_scan);
if (result == 1 && short_scan)
break;
}
if (buf[2 + boundary_len] == '-' &&
buf[2 + boundary_len + 1] == '-') {
end_found = TRUE;
break;
}
for (i = 0; i < (sizeof hentry / sizeof hentry[0]) ; i++) {
g_free(hentry[i].body);
hentry[i].body = NULL;
}
GET_HEADERS();
lastoffset = ftell(fp);
}
}
if (start_found && !end_found && lastoffset != -1) {
gint len = (ftell(fp) - strlen(buf)) - lastoffset - 1;
if (len >= 0) {
result = procmime_parse_mimepart(mimeinfo,
hentry[0].body, hentry[1].body,
hentry[2].body, hentry[3].body,
hentry[4].body, hentry[5].body,
hentry[6].body, hentry[7].body,
mimeinfo->data.filename, lastoffset,
len, short_scan);
}
mimeinfo->broken = TRUE;
}
for (i = 0; i < (sizeof hentry / sizeof hentry[0]); i++) {
g_free(hentry[i].body);
hentry[i].body = NULL;
}
procmime_fclose(fp);
}
static void parse_parameters(const gchar *parameters, GHashTable *table)
{
gchar *params, *param, *next;
GSList *convlist = NULL, *concatlist = NULL, *cur;
params = g_strdup(parameters);
param = params;
next = params;
for (; next != NULL; param = next) {
gchar *attribute, *value, *tmp, *down_attr, *orig_down_attr;
gint len;
gboolean convert = FALSE;
next = strchr_with_skip_quote(param, '"', ';');
if (next != NULL) {
next[0] = '\0';
next++;
}
g_strstrip(param);
attribute = param;
value = strchr(attribute, '=');
if (value == NULL)
continue;
value[0] = '\0';
value++;
while (value[0] != '\0' && value[0] == ' ')
value++;
down_attr = g_utf8_strdown(attribute, -1);
orig_down_attr = down_attr;
len = down_attr ? strlen(down_attr):0;
if (len > 0 && down_attr[len - 1] == '*') {
gchar *srcpos, *dstpos, *endpos;
convert = TRUE;
down_attr[len - 1] = '\0';
srcpos = value;
dstpos = value;
endpos = value + strlen(value);
while (srcpos < endpos) {
if (*srcpos != '%')
*dstpos = *srcpos;
else {
guchar dstvalue;
if (!get_hex_value(&dstvalue, srcpos[1], srcpos[2]))
*dstpos = '?';
else
*dstpos = dstvalue;
srcpos += 2;
}
srcpos++;
dstpos++;
}
*dstpos = '\0';
if (value[0] == '"')
extract_quote(value, '"');
} else {
if (value[0] == '"')
extract_quote(value, '"');
else if ((tmp = strchr(value, ' ')) != NULL)
*tmp = '\0';
}
if (down_attr) {
while (down_attr[0] == ' ')
down_attr++;
while (down_attr[strlen(down_attr)-1] == ' ')
down_attr[strlen(down_attr)-1] = '\0';
}
while (value[0] != '\0' && value[0] == ' ')
value++;
while (value[strlen(value)-1] == ' ')
value[strlen(value)-1] = '\0';
if (down_attr && strrchr(down_attr, '*') != NULL) {
gchar *tmpattr;
tmpattr = g_strdup(down_attr);
tmp = strrchr(tmpattr, '*');
tmp[0] = '\0';
if ((tmp[1] == '0') && (tmp[2] == '\0') &&
(g_slist_find_custom(concatlist, down_attr, (GCompareFunc)g_strcmp0) == NULL))
concatlist = g_slist_prepend(concatlist, g_strdup(tmpattr));
if (convert && (g_slist_find_custom(convlist, tmpattr, (GCompareFunc)g_strcmp0) == NULL))
convlist = g_slist_prepend(convlist, g_strdup(tmpattr));
g_free(tmpattr);
} else if (convert) {
if (g_slist_find_custom(convlist, down_attr, (GCompareFunc)g_strcmp0) == NULL)
convlist = g_slist_prepend(convlist, g_strdup(down_attr));
}
if (g_hash_table_lookup(table, down_attr) == NULL)
g_hash_table_insert(table, g_strdup(down_attr), g_strdup(value));
g_free(orig_down_attr);
}
for (cur = concatlist; cur != NULL; cur = g_slist_next(cur)) {
gchar *attribute, *attrwnum, *partvalue;
gint n = 0;
GString *value;
attribute = (gchar *) cur->data;
value = g_string_sized_new(64);
attrwnum = g_strdup_printf("%s*%d", attribute, n);
while ((partvalue = g_hash_table_lookup(table, attrwnum)) != NULL) {
g_string_append(value, partvalue);
g_hash_table_remove(table, attrwnum);
g_free(attrwnum);
n++;
attrwnum = g_strdup_printf("%s*%d", attribute, n);
}
g_free(attrwnum);
g_hash_table_insert(table, g_strdup(attribute), g_strdup(value->str));
g_string_free(value, TRUE);
}
slist_free_strings_full(concatlist);
for (cur = convlist; cur != NULL; cur = g_slist_next(cur)) {
gchar *attribute, *key, *value;
gchar *charset, *lang, *oldvalue, *newvalue;
attribute = (gchar *) cur->data;
if (!g_hash_table_lookup_extended(
table, attribute, (gpointer *)(gchar *) &key, (gpointer *)(gchar *) &value))
continue;
charset = value;
if (charset == NULL)
continue;
lang = strchr(charset, '\'');
if (lang == NULL)
continue;
lang[0] = '\0';
lang++;
oldvalue = strchr(lang, '\'');
if (oldvalue == NULL)
continue;
oldvalue[0] = '\0';
oldvalue++;
newvalue = conv_codeset_strdup(oldvalue, charset, CS_UTF_8);
g_hash_table_remove(table, attribute);
g_free(key);
g_free(value);
g_hash_table_insert(table, g_strdup(attribute), newvalue);
}
slist_free_strings_full(convlist);
g_free(params);
}
static void procmime_parse_content_type(const gchar *content_type, MimeInfo *mimeinfo)
{
cm_return_if_fail(content_type != NULL);
cm_return_if_fail(mimeinfo != NULL);
/* RFC 2045, page 13 says that the mime subtype is MANDATORY;
* if it's not available we use the default Content-Type */
if ((content_type[0] == '\0') || (strchr(content_type, '/') == NULL)) {
mimeinfo->type = MIMETYPE_TEXT;
mimeinfo->subtype = g_strdup("plain");
if (g_hash_table_lookup(mimeinfo->typeparameters,
"charset") == NULL) {
g_hash_table_insert(mimeinfo->typeparameters,
g_strdup("charset"),
g_strdup(
conv_get_locale_charset_str_no_utf8()));
}
} else {
gchar *type, *subtype, *params;
type = g_strdup(content_type);
subtype = strchr(type, '/') + 1;
*(subtype - 1) = '\0';
if ((params = strchr(subtype, ';')) != NULL) {
params[0] = '\0';
params++;
}
mimeinfo->type = procmime_get_media_type(type);
mimeinfo->subtype = g_strstrip(g_strdup(subtype));
/* Get mimeinfo->typeparameters */
if (params != NULL)
parse_parameters(params, mimeinfo->typeparameters);
g_free(type);
}
}
static void procmime_parse_content_disposition(const gchar *content_disposition, MimeInfo *mimeinfo)
{
gchar *tmp, *params;
cm_return_if_fail(content_disposition != NULL);
cm_return_if_fail(mimeinfo != NULL);
tmp = g_strdup(content_disposition);
if ((params = strchr(tmp, ';')) != NULL) {
params[0] = '\0';
params++;
}
g_strstrip(tmp);
if (!g_ascii_strcasecmp(tmp, "inline"))
mimeinfo->disposition = DISPOSITIONTYPE_INLINE;
else if (!g_ascii_strcasecmp(tmp, "attachment"))
mimeinfo->disposition = DISPOSITIONTYPE_ATTACHMENT;
else
mimeinfo->disposition = DISPOSITIONTYPE_ATTACHMENT;
if (params != NULL)
parse_parameters(params, mimeinfo->dispositionparameters);
g_free(tmp);
}
static void procmime_parse_content_encoding(const gchar *content_encoding, MimeInfo *mimeinfo)
{
struct EncodingTable *enc_table;
for (enc_table = encoding_table; enc_table->str != NULL; enc_table++) {
if (g_ascii_strcasecmp(enc_table->str, content_encoding) == 0) {
mimeinfo->encoding_type = enc_table->enc_type;
return;
}
}
mimeinfo->encoding_type = ENC_UNKNOWN;
return;
}
static GSList *registered_parsers = NULL;
static MimeParser *procmime_get_mimeparser_for_type(MimeMediaType type, const gchar *sub_type)
{
GSList *cur;
for (cur = registered_parsers; cur; cur = cur->next) {
MimeParser *parser = (MimeParser *)cur->data;
if (parser->type == type && !strcmp2(parser->sub_type, sub_type))
return parser;
}
return NULL;
}
void procmime_mimeparser_register(MimeParser *parser)
{
if (!procmime_get_mimeparser_for_type(parser->type, parser->sub_type))
registered_parsers = g_slist_append(registered_parsers, parser);
}
void procmime_mimeparser_unregister(MimeParser *parser)
{
registered_parsers = g_slist_remove(registered_parsers, parser);
}
static gboolean procmime_mimeparser_parse(MimeParser *parser, MimeInfo *mimeinfo)
{
cm_return_val_if_fail(parser->parse != NULL, FALSE);
return parser->parse(parser, mimeinfo);
}
static int procmime_parse_mimepart(MimeInfo *parent,
gchar *content_type,
gchar *content_encoding,
gchar *content_description,
gchar *content_id,
gchar *content_disposition,
gchar *content_location,
const gchar *original_msgid,
const gchar *disposition_notification_hdr,
const gchar *filename,
guint offset,
guint length,
gboolean short_scan)
{
MimeInfo *mimeinfo;
MimeParser *parser = NULL;
gboolean parsed = FALSE;
int result = 0;
/* Create MimeInfo */
mimeinfo = procmime_mimeinfo_new();
mimeinfo->content = MIMECONTENT_FILE;
if (parent != NULL) {
if (g_node_depth(parent->node) > 32) {
/* 32 is an arbitrary value
* this avoids DOSsing ourselves
* with enormous messages
*/
procmime_mimeinfo_free_all(&mimeinfo);
return -1;
}
g_node_append(parent->node, mimeinfo->node);
}
mimeinfo->data.filename = g_strdup(filename);
mimeinfo->offset = offset;
mimeinfo->length = length;
if (content_type != NULL) {
g_strchomp(content_type);
procmime_parse_content_type(content_type, mimeinfo);
} else {
mimeinfo->type = MIMETYPE_TEXT;
mimeinfo->subtype = g_strdup("plain");
if (g_hash_table_lookup(mimeinfo->typeparameters,
"charset") == NULL) {
g_hash_table_insert(mimeinfo->typeparameters,
g_strdup("charset"),
g_strdup(
conv_get_locale_charset_str_no_utf8()));
}
}
if (content_encoding != NULL) {
g_strchomp(content_encoding);
procmime_parse_content_encoding(content_encoding, mimeinfo);
} else {
mimeinfo->encoding_type = ENC_UNKNOWN;
}
if (content_description != NULL)
mimeinfo->description = g_strdup(content_description);
else
mimeinfo->description = NULL;
if (content_id != NULL)
mimeinfo->id = g_strdup(content_id);
else
mimeinfo->id = NULL;
if (content_location != NULL)
mimeinfo->location = g_strdup(content_location);
else
mimeinfo->location = NULL;
if (content_disposition != NULL) {
g_strchomp(content_disposition);
procmime_parse_content_disposition(content_disposition, mimeinfo);
} else
mimeinfo->disposition = DISPOSITIONTYPE_UNKNOWN;
/* Call parser for mime type */
if ((parser = procmime_get_mimeparser_for_type(mimeinfo->type, mimeinfo->subtype)) != NULL) {
parsed = procmime_mimeparser_parse(parser, mimeinfo);
}
if (!parsed) {
switch (mimeinfo->type) {
case MIMETYPE_TEXT:
if (g_ascii_strcasecmp(mimeinfo->subtype, "plain") == 0 && short_scan) {
return 1;
}
break;
case MIMETYPE_MESSAGE:
if (g_ascii_strcasecmp(mimeinfo->subtype, "rfc822") == 0) {
procmime_parse_message_rfc822(mimeinfo, short_scan);
}
if (g_ascii_strcasecmp(mimeinfo->subtype, "disposition-notification") == 0) {
procmime_parse_disposition_notification(mimeinfo,
original_msgid, disposition_notification_hdr, short_scan);
}
break;
case MIMETYPE_MULTIPART:
procmime_parse_multipart(mimeinfo, short_scan);
break;
case MIMETYPE_APPLICATION:
if (g_ascii_strcasecmp(mimeinfo->subtype, "octet-stream") == 0
&& original_msgid && *original_msgid
&& disposition_notification_hdr && *disposition_notification_hdr) {
procmime_parse_disposition_notification(mimeinfo,
original_msgid, disposition_notification_hdr, short_scan);
}
break;
default:
break;
}
}
return result;
}
static gchar *typenames[] = {
"text",
"image",
"audio",
"video",
"application",
"message",
"multipart",
"unknown",
};
static gboolean output_func(GNode *node, gpointer data)
{
guint i, depth;
MimeInfo *mimeinfo = (MimeInfo *) node->data;
depth = g_node_depth(node);
for (i = 0; i < depth; i++)
g_print(" ");
g_print("%s/%s (offset:%d length:%d encoding: %d)\n", typenames[mimeinfo->type], mimeinfo->subtype, mimeinfo->offset, mimeinfo->length, mimeinfo->encoding_type);
return FALSE;
}
static void output_mime_structure(MimeInfo *mimeinfo, int indent)
{
g_node_traverse(mimeinfo->node, G_PRE_ORDER, G_TRAVERSE_ALL, -1, output_func, NULL);
}
static MimeInfo *procmime_scan_file_with_offset(const gchar *filename, int offset, gboolean short_scan)
{
MimeInfo *mimeinfo;
GStatBuf buf;
if (g_stat(filename, &buf) < 0) {
FILE_OP_ERROR(filename, "stat");
return NULL;
}
mimeinfo = procmime_mimeinfo_new();
mimeinfo->content = MIMECONTENT_FILE;
mimeinfo->encoding_type = ENC_UNKNOWN;
mimeinfo->type = MIMETYPE_MESSAGE;
mimeinfo->subtype = g_strdup("rfc822");
mimeinfo->data.filename = g_strdup(filename);
mimeinfo->offset = offset;
mimeinfo->length = buf.st_size - offset;
procmime_parse_message_rfc822(mimeinfo, short_scan);
if (debug_get_mode())
output_mime_structure(mimeinfo, 0);
return mimeinfo;
}
static MimeInfo *procmime_scan_file_full(const gchar *filename, gboolean short_scan)
{
MimeInfo *mimeinfo;
cm_return_val_if_fail(filename != NULL, NULL);
mimeinfo = procmime_scan_file_with_offset(filename, 0, short_scan);
return mimeinfo;
}
MimeInfo *procmime_scan_file(const gchar *filename)
{
return procmime_scan_file_full(filename, FALSE);
}
static MimeInfo *procmime_scan_file_short(const gchar *filename)
{
return procmime_scan_file_full(filename, TRUE);
}
static MimeInfo *procmime_scan_queue_file_full(const gchar *filename, gboolean short_scan)
{
FILE *fp;
MimeInfo *mimeinfo;
gchar buf[BUFFSIZE];
gint offset = 0;
cm_return_val_if_fail(filename != NULL, NULL);
/* Open file */
if ((fp = procmime_fopen(filename, "rb")) == NULL)
return NULL;
/* Skip queue header */
while (SC_FGETS(buf, sizeof(buf), fp) != NULL) {
/* new way */
if ((!strncmp(buf, "X-Claws-End-Special-Headers: 1",
strlen("X-Claws-End-Special-Headers:"))) ||
(!strncmp(buf, "X-Sylpheed-End-Special-Headers: 1",
strlen("X-Sylpheed-End-Special-Headers:"))))
break;
/* old way */
if (buf[0] == '\r' || buf[0] == '\n') break;
/* from other mailers */
if (!strncmp(buf, "Date: ", 6)
|| !strncmp(buf, "To: ", 4)
|| !strncmp(buf, "From: ", 6)
|| !strncmp(buf, "Subject: ", 9)) {
rewind(fp);
break;
}
}
offset = ftell(fp);
procmime_fclose(fp);
mimeinfo = procmime_scan_file_with_offset(filename, offset, short_scan);
return mimeinfo;
}
MimeInfo *procmime_scan_queue_file(const gchar *filename)
{
return procmime_scan_queue_file_full(filename, FALSE);
}
static MimeInfo *procmime_scan_queue_file_short(const gchar *filename)
{
return procmime_scan_queue_file_full(filename, TRUE);
}
typedef enum {
ENC_AS_TOKEN,
ENC_AS_QUOTED_STRING,
ENC_AS_EXTENDED,
ENC_AS_ENCWORD
} EncodeAs;
typedef struct _ParametersData {
FILE *fp;
guint len;
gint error;
} ParametersData;
static void write_parameters(gpointer key, gpointer value, gpointer user_data)
{
gchar *param = key;
gchar *val = value, *valpos, *tmp;
ParametersData *pdata = (ParametersData *)user_data;
GString *buf = g_string_new("");
gint len;
EncodeAs encas = ENC_AS_TOKEN;
for (valpos = val; *valpos != 0; valpos++) {
if (!IS_ASCII(*valpos)) {
encas = ENC_AS_ENCWORD;
break;
}
/* CTLs */
if (((*valpos >= 0) && (*valpos < 037)) || (*valpos == 0177)) {
encas = ENC_AS_QUOTED_STRING;
continue;
}
/* tspecials + SPACE */
switch (*valpos) {
case ' ':
case '(':
case ')':
case '<':
case '>':
case '@':
case ',':
case ';':
case ':':
case '\\':
case '"':
case '/':
case '[':
case ']':
case '?':
case '=':
encas = ENC_AS_QUOTED_STRING;
continue;
}
}
switch (encas) {
case ENC_AS_TOKEN:
g_string_append_printf(buf, "%s=%s", param, val);
break;
case ENC_AS_QUOTED_STRING:
g_string_append_printf(buf, "%s=\"%s\"", param, val);
break;
#if 0 /* we don't use that for now */
case ENC_AS_EXTENDED:
if (!g_utf8_validate(val, -1, NULL))
g_string_append_printf(buf, "%s*=%s''", param,
conv_get_locale_charset_str());
else
g_string_append_printf(buf, "%s*=%s''", param,
CS_INTERNAL);
for (valpos = val; *valpos != '\0'; valpos++) {
if (IS_ASCII(*valpos) && isalnum(*valpos)) {
g_string_append_printf(buf, "%c", *valpos);
} else {
gchar hexstr[3] = "XX";
get_hex_str(hexstr, *valpos);
g_string_append_printf(buf, "%%%s", hexstr);
}
}
break;
#else
case ENC_AS_EXTENDED:
debug_print("Unhandled ENC_AS_EXTENDED.\n");
break;
#endif
case ENC_AS_ENCWORD:
len = MAX(strlen(val)*6, 512);
tmp = g_malloc(len+1);
codeconv_set_strict(TRUE);
conv_encode_header_full(tmp, len, val, pdata->len + strlen(param) + 4 , FALSE,
prefs_common.outgoing_charset);
codeconv_set_strict(FALSE);
if (!tmp || !*tmp) {
codeconv_set_strict(TRUE);
conv_encode_header_full(tmp, len, val, pdata->len + strlen(param) + 4 , FALSE,
conv_get_outgoing_charset_str());
codeconv_set_strict(FALSE);
}
if (!tmp || !*tmp) {
codeconv_set_strict(TRUE);
conv_encode_header_full(tmp, len, val, pdata->len + strlen(param) + 4 , FALSE,
CS_UTF_8);
codeconv_set_strict(FALSE);
}
if (!tmp || !*tmp) {
conv_encode_header_full(tmp, len, val, pdata->len + strlen(param) + 4 , FALSE,
CS_UTF_8);
}
g_string_append_printf(buf, "%s=\"%s\"", param, tmp);
g_free(tmp);
break;
}
if (buf->str && strlen(buf->str)) {
tmp = strstr(buf->str, "\n");
if (tmp)
len = (tmp - buf->str);
else
len = strlen(buf->str);
if (pdata->len + len > 76) {
if (fprintf(pdata->fp, ";\n %s", buf->str) < 0)
pdata->error = TRUE;
pdata->len = strlen(buf->str) + 1;
} else {
if (fprintf(pdata->fp, "; %s", buf->str) < 0)
pdata->error = TRUE;
pdata->len += strlen(buf->str) + 2;
}
}
g_string_free(buf, TRUE);
}
#define TRY(func) { \
if (!(func)) { \
return -1; \
} \
}
int procmime_write_mime_header(MimeInfo *mimeinfo, FILE *fp)
{
struct TypeTable *type_table;
ParametersData *pdata = g_new0(ParametersData, 1);
debug_print("procmime_write_mime_header\n");
pdata->fp = fp;
pdata->error = FALSE;
for (type_table = mime_type_table; type_table->str != NULL; type_table++)
if (mimeinfo->type == type_table->type) {
gchar *buf = g_strdup_printf(
"Content-Type: %s/%s", type_table->str, mimeinfo->subtype);
if (fprintf(fp, "%s", buf) < 0) {
g_free(buf);
g_free(pdata);
return -1;
}
pdata->len = strlen(buf);
g_free(buf);
break;
}
g_hash_table_foreach(mimeinfo->typeparameters, write_parameters, pdata);
if (pdata->error == TRUE) {
g_free(pdata);
return -1;
}
g_free(pdata);
TRY(fprintf(fp, "\n") >= 0);
if (mimeinfo->encoding_type != ENC_UNKNOWN)
TRY(fprintf(fp, "Content-Transfer-Encoding: %s\n", procmime_get_encoding_str(mimeinfo->encoding_type)) >= 0);
if (mimeinfo->description != NULL)
TRY(fprintf(fp, "Content-Description: %s\n", mimeinfo->description) >= 0);
if (mimeinfo->id != NULL)
TRY(fprintf(fp, "Content-ID: %s\n", mimeinfo->id) >= 0);
if (mimeinfo->location != NULL)
TRY(fprintf(fp, "Content-Location: %s\n", mimeinfo->location) >= 0);
if (mimeinfo->disposition != DISPOSITIONTYPE_UNKNOWN) {
ParametersData *pdata = g_new0(ParametersData, 1);
gchar *buf = NULL;
if (mimeinfo->disposition == DISPOSITIONTYPE_INLINE)
buf = g_strdup("Content-Disposition: inline");
else if (mimeinfo->disposition == DISPOSITIONTYPE_ATTACHMENT)
buf = g_strdup("Content-Disposition: attachment");
else
buf = g_strdup("Content-Disposition: unknown");
if (fprintf(fp, "%s", buf) < 0) {
g_free(buf);
g_free(pdata);
return -1;
}
pdata->len = strlen(buf);
g_free(buf);
pdata->fp = fp;
pdata->error = FALSE;
g_hash_table_foreach(mimeinfo->dispositionparameters, write_parameters, pdata);
if (pdata->error == TRUE) {
g_free(pdata);
return -1;
}
g_free(pdata);
TRY(fprintf(fp, "\n") >= 0);
}
TRY(fprintf(fp, "\n") >= 0);
return 0;
}
static gint procmime_write_message_rfc822(MimeInfo *mimeinfo, FILE *fp)
{
FILE *infp;
GNode *childnode;
MimeInfo *child;
gchar buf[BUFFSIZE];
gboolean skip = FALSE;;
size_t len;
debug_print("procmime_write_message_rfc822\n");
/* write header */
switch (mimeinfo->content) {
case MIMECONTENT_FILE:
if ((infp = procmime_fopen(mimeinfo->data.filename, "rb")) == NULL) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return -1;
}
if (fseek(infp, mimeinfo->offset, SEEK_SET) < 0) {
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(infp);
return -1;
}
while (SC_FGETS(buf, sizeof(buf), infp) == buf) {
strcrchomp(buf);
if (buf[0] == '\n' && buf[1] == '\0')
break;
if (skip && (buf[0] == ' ' || buf[0] == '\t'))
continue;
if (g_ascii_strncasecmp(buf, "MIME-Version:", 13) == 0 ||
g_ascii_strncasecmp(buf, "Content-Type:", 13) == 0 ||
g_ascii_strncasecmp(buf, "Content-Transfer-Encoding:", 26) == 0 ||
g_ascii_strncasecmp(buf, "Content-Description:", 20) == 0 ||
g_ascii_strncasecmp(buf, "Content-ID:", 11) == 0 ||
g_ascii_strncasecmp(buf, "Content-Location:", 17) == 0 ||
g_ascii_strncasecmp(buf, "Content-Disposition:", 20) == 0) {
skip = TRUE;
continue;
}
len = strlen(buf);
if (SC_FWRITE(buf, sizeof(gchar), len, fp) < len) {
g_warning("failed to dump %zd bytes from file", len);
procmime_fclose(infp);
return -1;
}
skip = FALSE;
}
procmime_fclose(infp);
break;
case MIMECONTENT_MEM:
len = strlen(mimeinfo->data.mem);
if (SC_FWRITE(mimeinfo->data.mem, sizeof(gchar), len, fp) < len) {
g_warning("failed to dump %zd bytes from mem", len);
return -1;
}
break;
default:
break;
}
childnode = mimeinfo->node->children;
if (childnode == NULL)
return -1;
child = (MimeInfo *) childnode->data;
if (fprintf(fp, "MIME-Version: 1.0\n") < 0) {
g_warning("failed to write mime version");
return -1;
}
if (procmime_write_mime_header(child, fp) < 0)
return -1;
return procmime_write_mimeinfo(child, fp);
}
static gint procmime_write_multipart(MimeInfo *mimeinfo, FILE *fp)
{
FILE *infp;
GNode *childnode;
gchar *boundary, *str, *str2;
gchar buf[BUFFSIZE];
gboolean firstboundary;
size_t len;
debug_print("procmime_write_multipart\n");
boundary = g_hash_table_lookup(mimeinfo->typeparameters, "boundary");
switch (mimeinfo->content) {
case MIMECONTENT_FILE:
if ((infp = procmime_fopen(mimeinfo->data.filename, "rb")) == NULL) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return -1;
}
if (fseek(infp, mimeinfo->offset, SEEK_SET) < 0) {
FILE_OP_ERROR(mimeinfo->data.filename, "fseek");
procmime_fclose(infp);
return -1;
}
while (SC_FGETS(buf, sizeof(buf), infp) == buf) {
if (IS_BOUNDARY(buf, boundary, strlen(boundary)))
break;
len = strlen(buf);
if (SC_FWRITE(buf, sizeof(gchar), len, fp) < len) {
g_warning("failed to write %zd", len);
procmime_fclose(infp);
return -1;
}
}
procmime_fclose(infp);
break;
case MIMECONTENT_MEM:
str = g_strdup(mimeinfo->data.mem);
if (((str2 = strstr(str, boundary)) != NULL) && ((str2 - str) >= 2) &&
(*(str2 - 1) == '-') && (*(str2 - 2) == '-'))
*(str2 - 2) = '\0';
len = strlen(str);
if (SC_FWRITE(str, sizeof(gchar), len, fp) < len) {
g_warning("failed to write %zd from mem", len);
g_free(str);
return -1;
}
g_free(str);
break;
default:
break;
}
childnode = mimeinfo->node->children;
firstboundary = TRUE;
while (childnode != NULL) {
MimeInfo *child = childnode->data;
if (firstboundary)
firstboundary = FALSE;
else
TRY(fprintf(fp, "\n") >= 0);
TRY(fprintf(fp, "--%s\n", boundary) >= 0);
if (procmime_write_mime_header(child, fp) < 0)
return -1;
if (procmime_write_mimeinfo(child, fp) < 0)
return -1;
childnode = g_node_next_sibling(childnode);
}
TRY(fprintf(fp, "\n--%s--\n", boundary) >= 0);
return 0;
}
gint procmime_write_mimeinfo(MimeInfo *mimeinfo, FILE *fp)
{
FILE *infp;
size_t len;
debug_print("procmime_write_mimeinfo\n");
if (G_NODE_IS_LEAF(mimeinfo->node)) {
switch (mimeinfo->content) {
case MIMECONTENT_FILE:
if ((infp = procmime_fopen(mimeinfo->data.filename, "rb")) == NULL) {
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
return -1;
}
copy_file_part_to_fp(infp, mimeinfo->offset, mimeinfo->length, fp);
procmime_fclose(infp);
return 0;
case MIMECONTENT_MEM:
len = strlen(mimeinfo->data.mem);
if (SC_FWRITE(mimeinfo->data.mem, sizeof(gchar), len, fp) < len)
return -1;
return 0;
default:
return 0;
}
} else {
/* Call writer for mime type */
switch (mimeinfo->type) {
case MIMETYPE_MESSAGE:
if (g_ascii_strcasecmp(mimeinfo->subtype, "rfc822") == 0) {
return procmime_write_message_rfc822(mimeinfo, fp);
}
break;
case MIMETYPE_MULTIPART:
return procmime_write_multipart(mimeinfo, fp);
default:
break;
}
return -1;
}
return 0;
}
gchar *procmime_get_part_file_name(MimeInfo *mimeinfo)
{
gchar *base;
if ((mimeinfo->type == MIMETYPE_TEXT) && !g_ascii_strcasecmp(mimeinfo->subtype, "html"))
base = g_strdup("mimetmp.html");
else {
const gchar *basetmp;
gchar *basename;
basetmp = procmime_mimeinfo_get_parameter(mimeinfo, "filename");
if (basetmp == NULL)
basetmp = procmime_mimeinfo_get_parameter(mimeinfo, "name");
if (basetmp == NULL)
basetmp = "mimetmp";
basename = g_path_get_basename(basetmp);
if (*basename == '\0') {
g_free(basename);
basename = g_strdup("mimetmp");
}
base = conv_filename_from_utf8(basename);
g_free(basename);
subst_for_shellsafe_filename(base);
}
return base;
}