2023 lines
47 KiB
C
2023 lines
47 KiB
C
/*
|
|
* Sylpheed -- a GTK+ based, lightweight, and fast e-mail client
|
|
* Copyright (C) 1999-2004 Hiroyuki Yamamoto & The Sylpheed-Claws 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 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 Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
# include "config.h"
|
|
#endif
|
|
|
|
#include "defs.h"
|
|
|
|
#include <stdio.h>
|
|
#include <glib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <locale.h>
|
|
#include <ctype.h>
|
|
#include <sys/types.h>
|
|
#include <sys/stat.h>
|
|
#include <unistd.h>
|
|
|
|
#include "intl.h"
|
|
#include "procmime.h"
|
|
#include "procheader.h"
|
|
#include "base64.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"
|
|
|
|
static GHashTable *procmime_get_mime_type_table (void);
|
|
|
|
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)
|
|
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_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);
|
|
|
|
g_free(mimeinfo);
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
void procmime_mimeinfo_free_all(MimeInfo *mimeinfo)
|
|
{
|
|
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);
|
|
}
|
|
|
|
#if 0 /* UNUSED */
|
|
MimeInfo *procmime_mimeinfo_insert(MimeInfo *parent, MimeInfo *mimeinfo)
|
|
{
|
|
MimeInfo *child = parent->children;
|
|
|
|
if (!child)
|
|
parent->children = mimeinfo;
|
|
else {
|
|
while (child->next != NULL)
|
|
child = child->next;
|
|
|
|
child->next = mimeinfo;
|
|
}
|
|
|
|
mimeinfo->parent = parent;
|
|
mimeinfo->level = parent->level + 1;
|
|
|
|
return mimeinfo;
|
|
}
|
|
|
|
void procmime_mimeinfo_replace(MimeInfo *old, MimeInfo *new)
|
|
{
|
|
MimeInfo *parent = old->parent;
|
|
MimeInfo *child;
|
|
|
|
g_return_if_fail(parent != NULL);
|
|
g_return_if_fail(new->next == NULL);
|
|
|
|
for (child = parent->children; child && child != old;
|
|
child = child->next)
|
|
;
|
|
if (!child) {
|
|
g_warning("oops: parent can't find it's own child");
|
|
return;
|
|
}
|
|
procmime_mimeinfo_free_all(old);
|
|
|
|
if (child == parent->children) {
|
|
new->next = parent->children->next;
|
|
parent->children = new;
|
|
} else {
|
|
new->next = child->next;
|
|
child = new;
|
|
}
|
|
}
|
|
#endif
|
|
|
|
MimeInfo *procmime_mimeinfo_parent(MimeInfo *mimeinfo)
|
|
{
|
|
g_return_val_if_fail(mimeinfo != NULL, NULL);
|
|
g_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)
|
|
{
|
|
g_return_val_if_fail(mimeinfo != NULL, NULL);
|
|
g_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);
|
|
filename = procmsg_get_message_file(msginfo);
|
|
}
|
|
if (!filename || !is_file_exist(filename))
|
|
return NULL;
|
|
|
|
if (msginfo->folder->stype != F_QUEUE &&
|
|
msginfo->folder->stype != F_DRAFT)
|
|
mimeinfo = procmime_scan_file(filename);
|
|
else
|
|
mimeinfo = procmime_scan_queue_file(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;
|
|
|
|
g_return_val_if_fail(mimeinfo != NULL, NULL);
|
|
g_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;
|
|
}
|
|
|
|
gboolean procmime_decode_content(MimeInfo *mimeinfo)
|
|
{
|
|
gchar buf[BUFFSIZE];
|
|
gint readend;
|
|
gchar *tmpfilename;
|
|
FILE *outfp, *infp;
|
|
struct stat statbuf;
|
|
gboolean tmp_file = FALSE;
|
|
|
|
EncodingType encoding = forced_encoding
|
|
? forced_encoding
|
|
: mimeinfo->encoding_type;
|
|
|
|
g_return_val_if_fail(mimeinfo != NULL, FALSE);
|
|
|
|
if (encoding == ENC_UNKNOWN ||
|
|
encoding == ENC_BINARY)
|
|
return TRUE;
|
|
|
|
infp = fopen(mimeinfo->data.filename, "rb");
|
|
if (!infp) {
|
|
perror("fopen");
|
|
return FALSE;
|
|
}
|
|
fseek(infp, mimeinfo->offset, SEEK_SET);
|
|
|
|
outfp = get_tmpfile_in_dir(get_mime_tmp_dir(), &tmpfilename);
|
|
if (!outfp) {
|
|
perror("tmpfile");
|
|
return FALSE;
|
|
}
|
|
tmp_file = TRUE;
|
|
readend = mimeinfo->offset + mimeinfo->length;
|
|
|
|
if (encoding == ENC_QUOTED_PRINTABLE) {
|
|
while ((ftell(infp) < readend) && (fgets(buf, sizeof(buf), infp) != NULL)) {
|
|
gint len;
|
|
len = qp_decode_line(buf);
|
|
fwrite(buf, len, 1, outfp);
|
|
}
|
|
} else if (encoding == ENC_BASE64) {
|
|
gchar outbuf[BUFFSIZE];
|
|
gint len;
|
|
Base64Decoder *decoder;
|
|
gboolean uncanonicalize = FALSE;
|
|
FILE *tmpfp = outfp;
|
|
|
|
if (mimeinfo->type == MIMETYPE_TEXT ||
|
|
mimeinfo->type == MIMETYPE_MESSAGE) {
|
|
uncanonicalize = TRUE;
|
|
tmpfp = my_tmpfile();
|
|
if (!tmpfp) {
|
|
perror("tmpfile");
|
|
if (tmp_file) fclose(outfp);
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
decoder = base64_decoder_new();
|
|
while ((ftell(infp) < readend) && (fgets(buf, sizeof(buf), infp) != NULL)) {
|
|
len = base64_decoder_decode(decoder, buf, outbuf);
|
|
if (len < 0) {
|
|
g_warning("Bad BASE64 content\n");
|
|
break;
|
|
}
|
|
fwrite(outbuf, sizeof(gchar), len, tmpfp);
|
|
}
|
|
base64_decoder_free(decoder);
|
|
|
|
if (uncanonicalize) {
|
|
rewind(tmpfp);
|
|
while (fgets(buf, sizeof(buf), tmpfp) != NULL) {
|
|
strcrchomp(buf);
|
|
fputs(buf, outfp);
|
|
}
|
|
fclose(tmpfp);
|
|
}
|
|
} else if (encoding == ENC_X_UUENCODE) {
|
|
gchar outbuf[BUFFSIZE];
|
|
gint len;
|
|
gboolean flag = FALSE;
|
|
|
|
while ((ftell(infp) < readend) && (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)\n", len);
|
|
break;
|
|
}
|
|
fwrite(outbuf, sizeof(gchar), len, outfp);
|
|
} else
|
|
flag = TRUE;
|
|
}
|
|
} else {
|
|
while ((ftell(infp) < readend) && (fgets(buf, sizeof(buf), infp) != NULL)) {
|
|
fputs(buf, outfp);
|
|
}
|
|
}
|
|
|
|
fclose(outfp);
|
|
fclose(infp);
|
|
|
|
stat(tmpfilename, &statbuf);
|
|
if (mimeinfo->tmp && (mimeinfo->data.filename != NULL))
|
|
unlink(mimeinfo->data.filename);
|
|
if (mimeinfo->data.filename != NULL)
|
|
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, *outfp;
|
|
gint len;
|
|
gchar *tmpfilename;
|
|
struct stat statbuf;
|
|
|
|
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;
|
|
}
|
|
|
|
if (mimeinfo->content == MIMECONTENT_FILE) {
|
|
if ((infp = fopen(mimeinfo->data.filename, "rb")) == NULL) {
|
|
g_warning("Can't open file %s\n", mimeinfo->data.filename);
|
|
return FALSE;
|
|
}
|
|
} else if (mimeinfo->content == MIMECONTENT_MEM) {
|
|
infp = str_open_as_stream(mimeinfo->data.mem);
|
|
if (infp == NULL)
|
|
return FALSE;
|
|
}
|
|
|
|
if (encoding == ENC_BASE64) {
|
|
gchar inbuf[B64_LINE_SIZE], outbuf[B64_BUFFSIZE];
|
|
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);
|
|
fclose(infp);
|
|
return FALSE;
|
|
}
|
|
if ((tmp_fp = fopen(tmp_file, "rb")) == NULL) {
|
|
FILE_OP_ERROR(tmp_file, "fopen");
|
|
unlink(tmp_file);
|
|
g_free(tmp_file);
|
|
fclose(infp);
|
|
return FALSE;
|
|
}
|
|
} else {
|
|
gchar *out = canonicalize_str(mimeinfo->data.mem);
|
|
fclose(infp);
|
|
infp = str_open_as_stream(out);
|
|
g_free(out);
|
|
if (infp == NULL)
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
while ((len = fread(inbuf, sizeof(gchar),
|
|
B64_LINE_SIZE, tmp_fp))
|
|
== B64_LINE_SIZE) {
|
|
base64_encode(outbuf, inbuf, B64_LINE_SIZE);
|
|
fputs(outbuf, outfp);
|
|
fputc('\n', outfp);
|
|
}
|
|
if (len > 0 && feof(tmp_fp)) {
|
|
base64_encode(outbuf, inbuf, len);
|
|
fputs(outbuf, outfp);
|
|
fputc('\n', outfp);
|
|
}
|
|
|
|
if (tmp_file) {
|
|
fclose(tmp_fp);
|
|
unlink(tmp_file);
|
|
g_free(tmp_file);
|
|
}
|
|
} else if (encoding == ENC_QUOTED_PRINTABLE) {
|
|
gchar inbuf[BUFFSIZE], outbuf[BUFFSIZE * 4];
|
|
|
|
while (fgets(inbuf, sizeof(inbuf), infp) != NULL) {
|
|
qp_encode_line(outbuf, inbuf);
|
|
fputs(outbuf, outfp);
|
|
}
|
|
} else {
|
|
gchar buf[BUFFSIZE];
|
|
|
|
while (fgets(buf, sizeof(buf), infp) != NULL) {
|
|
strcrchomp(buf);
|
|
fputs(buf, outfp);
|
|
}
|
|
}
|
|
|
|
fclose(outfp);
|
|
fclose(infp);
|
|
|
|
if (mimeinfo->content == MIMECONTENT_FILE) {
|
|
if (mimeinfo->tmp && (mimeinfo->data.filename != NULL))
|
|
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);
|
|
}
|
|
|
|
stat(tmpfilename, &statbuf);
|
|
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;
|
|
|
|
g_return_val_if_fail(outfile != NULL, -1);
|
|
g_return_val_if_fail(mimeinfo != NULL, -1);
|
|
|
|
if (mimeinfo->encoding_type != ENC_BINARY && !procmime_decode_content(mimeinfo))
|
|
return -1;
|
|
|
|
if ((infp = 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");
|
|
fclose(infp);
|
|
return -1;
|
|
}
|
|
if ((outfp = fopen(outfile, "wb")) == NULL) {
|
|
FILE_OP_ERROR(outfile, "fopen");
|
|
fclose(infp);
|
|
return -1;
|
|
}
|
|
|
|
restlength = mimeinfo->length;
|
|
|
|
while ((restlength > 0) && ((readlength = fread(buf, 1, restlength > BUFFSIZE ? BUFFSIZE : restlength, infp)) > 0)) {
|
|
fwrite(buf, 1, readlength, outfp);
|
|
restlength -= readlength;
|
|
}
|
|
|
|
fclose(infp);
|
|
if (fclose(outfp) == EOF) {
|
|
FILE_OP_ERROR(outfile, "fclose");
|
|
unlink(outfile);
|
|
return -1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
struct ContentRenderer {
|
|
char * content_type;
|
|
char * renderer;
|
|
};
|
|
|
|
static GList * renderer_list = NULL;
|
|
|
|
static struct ContentRenderer *
|
|
content_renderer_new(char * content_type, char * renderer)
|
|
{
|
|
struct ContentRenderer * cr;
|
|
|
|
cr = g_new(struct ContentRenderer, 1);
|
|
if (cr == NULL)
|
|
return NULL;
|
|
|
|
cr->content_type = g_strdup(content_type);
|
|
cr->renderer = g_strdup(renderer);
|
|
|
|
return cr;
|
|
}
|
|
|
|
static void content_renderer_free(struct ContentRenderer * cr)
|
|
{
|
|
g_free(cr->content_type);
|
|
g_free(cr->renderer);
|
|
g_free(cr);
|
|
}
|
|
|
|
void renderer_read_config(void)
|
|
{
|
|
gchar buf[BUFFSIZE];
|
|
FILE * f;
|
|
gchar * rcpath;
|
|
|
|
g_list_foreach(renderer_list, (GFunc) content_renderer_free, NULL);
|
|
renderer_list = NULL;
|
|
|
|
rcpath = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S, RENDERER_RC, NULL);
|
|
f = fopen(rcpath, "rb");
|
|
g_free(rcpath);
|
|
|
|
if (f == NULL)
|
|
return;
|
|
|
|
while (fgets(buf, BUFFSIZE, f)) {
|
|
char * p;
|
|
struct ContentRenderer * cr;
|
|
|
|
strretchomp(buf);
|
|
p = strchr(buf, ' ');
|
|
if (p == NULL)
|
|
continue;
|
|
* p = 0;
|
|
|
|
cr = content_renderer_new(buf, p + 1);
|
|
if (cr == NULL)
|
|
continue;
|
|
|
|
renderer_list = g_list_append(renderer_list, cr);
|
|
}
|
|
|
|
fclose(f);
|
|
}
|
|
|
|
void renderer_write_config(void)
|
|
{
|
|
gchar * rcpath;
|
|
PrefFile *pfile;
|
|
GList * cur;
|
|
|
|
rcpath = g_strconcat(get_rc_dir(), G_DIR_SEPARATOR_S, RENDERER_RC, NULL);
|
|
|
|
if ((pfile = prefs_write_open(rcpath)) == NULL) {
|
|
g_warning("failed to write configuration to file\n");
|
|
g_free(rcpath);
|
|
return;
|
|
}
|
|
|
|
g_free(rcpath);
|
|
|
|
for (cur = renderer_list ; cur != NULL ; cur = cur->next) {
|
|
struct ContentRenderer * renderer;
|
|
renderer = cur->data;
|
|
fprintf(pfile->fp, "%s %s\n", renderer->content_type,
|
|
renderer->renderer);
|
|
}
|
|
|
|
if (prefs_file_close(pfile) < 0) {
|
|
g_warning("failed to write configuration to file\n");
|
|
return;
|
|
}
|
|
}
|
|
|
|
FILE *procmime_get_text_content(MimeInfo *mimeinfo)
|
|
{
|
|
FILE *tmpfp, *outfp;
|
|
const gchar *src_codeset;
|
|
gboolean conv_fail = FALSE;
|
|
gchar buf[BUFFSIZE];
|
|
gchar *str;
|
|
struct ContentRenderer * renderer;
|
|
GList * cur;
|
|
gchar *tmpfile, *content_type;
|
|
|
|
g_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;
|
|
}
|
|
|
|
tmpfp = fopen(tmpfile, "rb");
|
|
if (tmpfp == NULL) {
|
|
g_free(tmpfile);
|
|
return NULL;
|
|
}
|
|
|
|
if ((outfp = my_tmpfile()) == NULL) {
|
|
perror("tmpfile");
|
|
fclose(tmpfp);
|
|
g_free(tmpfile);
|
|
return NULL;
|
|
}
|
|
|
|
src_codeset = forced_charset
|
|
? forced_charset :
|
|
procmime_mimeinfo_get_parameter(mimeinfo, "charset");
|
|
|
|
renderer = NULL;
|
|
|
|
content_type = procmime_get_content_type_str(mimeinfo->type,
|
|
mimeinfo->subtype);
|
|
for (cur = renderer_list ; cur != NULL ; cur = cur->next) {
|
|
struct ContentRenderer * cr;
|
|
|
|
cr = cur->data;
|
|
if (g_ascii_strcasecmp(cr->content_type, content_type) == 0) {
|
|
renderer = cr;
|
|
break;
|
|
}
|
|
}
|
|
g_free(content_type);
|
|
|
|
if (renderer != NULL) {
|
|
FILE * p;
|
|
int oldout;
|
|
|
|
oldout = dup(1);
|
|
|
|
dup2(fileno(outfp), 1);
|
|
|
|
p = popen(renderer->renderer, "w");
|
|
if (p != NULL) {
|
|
size_t count;
|
|
|
|
while ((count =
|
|
fread(buf, sizeof(char), sizeof(buf),
|
|
tmpfp)) > 0)
|
|
fwrite(buf, sizeof(char), count, p);
|
|
pclose(p);
|
|
}
|
|
|
|
dup2(oldout, 1);
|
|
#warning FIXME_GTK2 HTML/RTF not yet utf8
|
|
/* CodeConverter seems to have no effect here */
|
|
} else if (mimeinfo->type == MIMETYPE_TEXT && !g_ascii_strcasecmp(mimeinfo->subtype, "html")) {
|
|
HTMLParser *parser;
|
|
CodeConverter *conv;
|
|
|
|
conv = conv_code_converter_new(src_codeset);
|
|
parser = html_parser_new(tmpfp, conv);
|
|
while ((str = html_parse(parser)) != NULL) {
|
|
fputs(str, outfp);
|
|
}
|
|
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) {
|
|
fputs(str, outfp);
|
|
}
|
|
ertf_parser_destroy(parser);
|
|
conv_code_converter_destroy(conv);
|
|
} else if (mimeinfo->type == MIMETYPE_TEXT) {
|
|
while (fgets(buf, sizeof(buf), tmpfp) != NULL) {
|
|
str = conv_codeset_strdup(buf, src_codeset, CS_UTF_8);
|
|
if (str) {
|
|
fputs(str, outfp);
|
|
g_free(str);
|
|
} else {
|
|
conv_fail = TRUE;
|
|
fputs(buf, outfp);
|
|
}
|
|
}
|
|
}
|
|
|
|
if (conv_fail)
|
|
g_warning("procmime_get_text_content(): Code conversion failed.\n");
|
|
|
|
fclose(tmpfp);
|
|
rewind(outfp);
|
|
unlink(tmpfile);
|
|
g_free(tmpfile);
|
|
|
|
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;
|
|
|
|
g_return_val_if_fail(msginfo != NULL, NULL);
|
|
|
|
mimeinfo = procmime_scan_message(msginfo);
|
|
if (!mimeinfo) return NULL;
|
|
|
|
partinfo = mimeinfo;
|
|
while (partinfo && partinfo->type != MIMETYPE_TEXT)
|
|
partinfo = procmime_mimeinfo_next(partinfo);
|
|
|
|
if (partinfo)
|
|
outfp = procmime_get_text_content(partinfo);
|
|
|
|
procmime_mimeinfo_free_all(mimeinfo);
|
|
|
|
return outfp;
|
|
}
|
|
|
|
gboolean procmime_find_string_part(MimeInfo *mimeinfo, const gchar *filename,
|
|
const gchar *str, StrFindFunc find_func)
|
|
{
|
|
FILE *outfp;
|
|
gchar buf[BUFFSIZE];
|
|
|
|
g_return_val_if_fail(mimeinfo != NULL, FALSE);
|
|
g_return_val_if_fail(mimeinfo->type == MIMETYPE_TEXT, FALSE);
|
|
g_return_val_if_fail(str != NULL, FALSE);
|
|
g_return_val_if_fail(find_func != NULL, FALSE);
|
|
|
|
outfp = procmime_get_text_content(mimeinfo);
|
|
|
|
if (!outfp)
|
|
return FALSE;
|
|
|
|
while (fgets(buf, sizeof(buf), outfp) != NULL) {
|
|
strretchomp(buf);
|
|
if (find_func(buf, str)) {
|
|
fclose(outfp);
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
fclose(outfp);
|
|
|
|
return FALSE;
|
|
}
|
|
|
|
gboolean procmime_find_string(MsgInfo *msginfo, const gchar *str,
|
|
StrFindFunc find_func)
|
|
{
|
|
MimeInfo *mimeinfo;
|
|
MimeInfo *partinfo;
|
|
gchar *filename;
|
|
gboolean found = FALSE;
|
|
|
|
g_return_val_if_fail(msginfo != NULL, FALSE);
|
|
g_return_val_if_fail(str != NULL, FALSE);
|
|
g_return_val_if_fail(find_func != NULL, FALSE);
|
|
|
|
filename = procmsg_get_message_file(msginfo);
|
|
if (!filename) return FALSE;
|
|
mimeinfo = procmime_scan_message(msginfo);
|
|
|
|
for (partinfo = mimeinfo; partinfo != NULL;
|
|
partinfo = procmime_mimeinfo_next(partinfo)) {
|
|
if (partinfo->type == MIMETYPE_TEXT) {
|
|
if (procmime_find_string_part
|
|
(partinfo, filename, str, find_func) == TRUE) {
|
|
found = TRUE;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
procmime_mimeinfo_free_all(mimeinfo);
|
|
g_free(filename);
|
|
|
|
return found;
|
|
}
|
|
|
|
gchar *procmime_get_tmp_file_name(MimeInfo *mimeinfo)
|
|
{
|
|
static guint32 id = 0;
|
|
gchar *base;
|
|
gchar *filename;
|
|
gchar f_prefix[10];
|
|
|
|
g_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";
|
|
base = g_path_get_basename(basetmp);
|
|
if (*base == '\0') base = g_strdup("mimetmp");
|
|
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)
|
|
{
|
|
static GHashTable *mime_type_table = NULL;
|
|
MimeType *mime_type;
|
|
const gchar *p;
|
|
gchar *ext;
|
|
gchar *base;
|
|
|
|
if (!mime_type_table) {
|
|
mime_type_table = procmime_get_mime_type_table();
|
|
if (!mime_type_table) return NULL;
|
|
}
|
|
|
|
base = g_path_get_basename(filename);
|
|
p = strrchr(base, '.');
|
|
g_free(base);
|
|
if (!p) return NULL;
|
|
|
|
Xstrdup_a(ext, p + 1, return NULL);
|
|
g_strdown(ext);
|
|
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);
|
|
return str;
|
|
}
|
|
|
|
return NULL;
|
|
}
|
|
|
|
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++) {
|
|
/* make the key case insensitive */
|
|
g_strdown(exts[i]);
|
|
/* use previously dup'd key on overwriting */
|
|
if (g_hash_table_lookup(table, exts[i]))
|
|
key = exts[i];
|
|
else
|
|
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];
|
|
guchar *p;
|
|
gchar *delim;
|
|
MimeType *mime_type;
|
|
|
|
if (mime_type_list)
|
|
return mime_type_list;
|
|
|
|
if ((fp = fopen("/etc/mime.types", "rb")) == NULL) {
|
|
if ((fp = fopen(SYSCONFDIR "/mime.types", "rb")) == NULL) {
|
|
FILE_OP_ERROR(SYSCONFDIR "/mime.types", "fopen");
|
|
return NULL;
|
|
}
|
|
}
|
|
|
|
while (fgets(buf, sizeof(buf), fp) != NULL) {
|
|
p = strchr(buf, '#');
|
|
if (p) *p = '\0';
|
|
g_strstrip(buf);
|
|
|
|
p = buf;
|
|
while (*p && !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);
|
|
|
|
while (*p && isspace(*p)) p++;
|
|
if (*p)
|
|
mime_type->extension = g_strdup(p);
|
|
else
|
|
mime_type->extension = NULL;
|
|
|
|
list = g_list_append(list, mime_type);
|
|
}
|
|
|
|
fclose(fp);
|
|
|
|
if (!list)
|
|
g_warning("Can't read mime.types\n");
|
|
|
|
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, "Windows-1251"))
|
|
return ENC_8BIT;
|
|
else if (!g_ascii_strncasecmp(charset, "ISO-8859-", 9))
|
|
return ENC_QUOTED_PRINTABLE;
|
|
else
|
|
return ENC_8BIT;
|
|
}
|
|
|
|
EncodingType procmime_get_encoding_for_text_file(const gchar *file)
|
|
{
|
|
FILE *fp;
|
|
guchar buf[BUFFSIZE];
|
|
size_t len;
|
|
size_t octet_chars = 0;
|
|
size_t total_len = 0;
|
|
gfloat octet_percentage;
|
|
|
|
if ((fp = fopen(file, "rb")) == NULL) {
|
|
FILE_OP_ERROR(file, "fopen");
|
|
return ENC_UNKNOWN;
|
|
}
|
|
|
|
while ((len = 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;
|
|
}
|
|
total_len += len;
|
|
}
|
|
|
|
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: %d / %d (%f%%)\n", octet_chars, total_len,
|
|
100.0 * octet_percentage);
|
|
|
|
if (octet_percentage > 0.20) {
|
|
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);
|
|
}
|
|
|
|
void procmime_parse_mimepart(MimeInfo *parent,
|
|
gchar *content_type,
|
|
gchar *content_encoding,
|
|
gchar *content_description,
|
|
gchar *content_id,
|
|
gchar *content_disposition,
|
|
const gchar *filename,
|
|
guint offset,
|
|
guint length);
|
|
|
|
void procmime_parse_message_rfc822(MimeInfo *mimeinfo)
|
|
{
|
|
HeaderEntry hentry[] = {{"Content-Type:", NULL, TRUE},
|
|
{"Content-Transfer-Encoding:",
|
|
NULL, FALSE},
|
|
{"Content-Description:",
|
|
NULL, TRUE},
|
|
{"Content-ID:",
|
|
NULL, TRUE},
|
|
{"Content-Disposition:",
|
|
NULL, TRUE},
|
|
{"MIME-Version:",
|
|
NULL, TRUE},
|
|
{NULL, NULL, FALSE}};
|
|
guint content_start, i;
|
|
FILE *fp;
|
|
gint mime_major, mime_minor;
|
|
|
|
procmime_decode_content(mimeinfo);
|
|
|
|
fp = fopen(mimeinfo->data.filename, "rb");
|
|
if (fp == NULL) {
|
|
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
|
|
return;
|
|
}
|
|
fseek(fp, mimeinfo->offset, SEEK_SET);
|
|
procheader_get_header_fields(fp, hentry);
|
|
if (hentry[0].body != NULL)
|
|
conv_unmime_header_overwrite(hentry[0].body);
|
|
if (hentry[2].body != NULL)
|
|
conv_unmime_header_overwrite(hentry[2].body);
|
|
if (hentry[4].body != NULL)
|
|
conv_unmime_header_overwrite(hentry[4].body);
|
|
content_start = ftell(fp);
|
|
fclose(fp);
|
|
|
|
if ((hentry[5].body != NULL) &&
|
|
(sscanf(hentry[5].body, "%d.%d", &mime_major, &mime_minor) == 2) &&
|
|
(mime_major == 1) && (mime_minor == 0)) {
|
|
procmime_parse_mimepart(mimeinfo,
|
|
hentry[0].body, hentry[1].body,
|
|
hentry[2].body, hentry[3].body,
|
|
hentry[4].body,
|
|
mimeinfo->data.filename, content_start,
|
|
mimeinfo->length - (content_start - mimeinfo->offset));
|
|
} else {
|
|
MimeInfo *subinfo;
|
|
|
|
subinfo = procmime_mimeinfo_new();
|
|
subinfo->content = MIMECONTENT_FILE;
|
|
subinfo->encoding_type = ENC_UNKNOWN;
|
|
subinfo->type = MIMETYPE_TEXT;
|
|
subinfo->subtype = g_strdup("plain");
|
|
subinfo->data.filename = g_strdup(mimeinfo->data.filename);
|
|
subinfo->offset = content_start;
|
|
subinfo->length = mimeinfo->length - (content_start - mimeinfo->offset);
|
|
|
|
g_node_append(mimeinfo->node, subinfo->node);
|
|
}
|
|
for (i = 0; i < (sizeof hentry / sizeof hentry[0]); i++) {
|
|
g_free(hentry[i].body);
|
|
hentry[i].body = NULL;
|
|
}
|
|
}
|
|
|
|
void procmime_parse_multipart(MimeInfo *mimeinfo)
|
|
{
|
|
HeaderEntry hentry[] = {{"Content-Type:", NULL, TRUE},
|
|
{"Content-Transfer-Encoding:",
|
|
NULL, FALSE},
|
|
{"Content-Description:",
|
|
NULL, TRUE},
|
|
{"Content-ID:",
|
|
NULL, TRUE},
|
|
{"Content-Disposition:",
|
|
NULL, TRUE},
|
|
{NULL, NULL, FALSE}};
|
|
gchar *p;
|
|
gchar *boundary;
|
|
gint boundary_len = 0, lastoffset = -1, i;
|
|
gchar buf[BUFFSIZE];
|
|
FILE *fp;
|
|
|
|
boundary = g_hash_table_lookup(mimeinfo->typeparameters, "boundary");
|
|
if (!boundary)
|
|
return;
|
|
boundary_len = strlen(boundary);
|
|
|
|
procmime_decode_content(mimeinfo);
|
|
|
|
fp = fopen(mimeinfo->data.filename, "rb");
|
|
if (fp == NULL) {
|
|
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
|
|
return;
|
|
}
|
|
fseek(fp, mimeinfo->offset, SEEK_SET);
|
|
while ((p = fgets(buf, sizeof(buf), fp)) != NULL) {
|
|
if (ftell(fp) > (mimeinfo->offset + mimeinfo->length))
|
|
break;
|
|
|
|
if (IS_BOUNDARY(buf, boundary, boundary_len)) {
|
|
if (lastoffset != -1) {
|
|
procmime_parse_mimepart(mimeinfo,
|
|
hentry[0].body, hentry[1].body,
|
|
hentry[2].body, hentry[3].body,
|
|
hentry[4].body,
|
|
mimeinfo->data.filename, lastoffset,
|
|
(ftell(fp) - strlen(buf)) - lastoffset - 1);
|
|
}
|
|
|
|
if (buf[2 + boundary_len] == '-' &&
|
|
buf[2 + boundary_len + 1] == '-')
|
|
break;
|
|
|
|
for (i = 0; i < (sizeof hentry / sizeof hentry[0]) ; i++) {
|
|
g_free(hentry[i].body);
|
|
hentry[i].body = NULL;
|
|
}
|
|
procheader_get_header_fields(fp, hentry);
|
|
if (hentry[0].body != NULL)
|
|
conv_unmime_header_overwrite(hentry[0].body);
|
|
if (hentry[2].body != NULL)
|
|
conv_unmime_header_overwrite(hentry[2].body);
|
|
if (hentry[4].body != NULL)
|
|
conv_unmime_header_overwrite(hentry[4].body);
|
|
lastoffset = ftell(fp);
|
|
}
|
|
}
|
|
for (i = 0; i < (sizeof hentry / sizeof hentry[0]); i++) {
|
|
g_free(hentry[i].body);
|
|
hentry[i].body = NULL;
|
|
}
|
|
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;
|
|
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++;
|
|
|
|
g_strdown(attribute);
|
|
|
|
len = strlen(attribute);
|
|
if (attribute[len - 1] == '*') {
|
|
gchar *srcpos, *dstpos, *endpos;
|
|
|
|
convert = TRUE;
|
|
attribute[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';
|
|
} else {
|
|
if (value[0] == '"')
|
|
extract_quote(value, '"');
|
|
else if ((tmp = strchr(value, ' ')) != NULL)
|
|
*tmp = '\0';
|
|
}
|
|
|
|
if (strrchr(attribute, '*') != NULL) {
|
|
gchar *tmpattr;
|
|
|
|
tmpattr = g_strdup(attribute);
|
|
tmp = strrchr(tmpattr, '*');
|
|
tmp[0] = '\0';
|
|
|
|
if ((tmp[1] == '0') && (tmp[2] == '\0') &&
|
|
(g_slist_find_custom(concatlist, attribute, g_str_equal) == NULL))
|
|
concatlist = g_slist_prepend(concatlist, g_strdup(tmpattr));
|
|
|
|
if (convert && (g_slist_find_custom(convlist, attribute, g_str_equal) == NULL))
|
|
convlist = g_slist_prepend(convlist, g_strdup(tmpattr));
|
|
|
|
g_free(tmpattr);
|
|
} else if (convert) {
|
|
if (g_slist_find_custom(convlist, attribute, g_str_equal) == NULL)
|
|
convlist = g_slist_prepend(convlist, g_strdup(attribute));
|
|
}
|
|
|
|
if (g_hash_table_lookup(table, attribute) == NULL)
|
|
g_hash_table_insert(table, g_strdup(attribute), g_strdup(value));
|
|
}
|
|
|
|
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_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(concatlist);
|
|
g_slist_free(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 *) &key, (gpointer *) &value))
|
|
continue;
|
|
|
|
charset = value;
|
|
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(convlist);
|
|
g_slist_free(convlist);
|
|
|
|
g_free(params);
|
|
}
|
|
|
|
static void procmime_parse_content_type(const gchar *content_type, MimeInfo *mimeinfo)
|
|
{
|
|
g_return_if_fail(content_type != NULL);
|
|
g_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("us-ascii"));
|
|
} 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_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;
|
|
|
|
g_return_if_fail(content_disposition != NULL);
|
|
g_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;
|
|
}
|
|
|
|
void procmime_parse_mimepart(MimeInfo *parent,
|
|
gchar *content_type,
|
|
gchar *content_encoding,
|
|
gchar *content_description,
|
|
gchar *content_id,
|
|
gchar *content_disposition,
|
|
const gchar *filename,
|
|
guint offset,
|
|
guint length)
|
|
{
|
|
MimeInfo *mimeinfo;
|
|
|
|
/* Create MimeInfo */
|
|
mimeinfo = procmime_mimeinfo_new();
|
|
mimeinfo->content = MIMECONTENT_FILE;
|
|
if (parent != NULL)
|
|
g_node_append(parent->node, mimeinfo->node);
|
|
mimeinfo->data.filename = g_strdup(filename);
|
|
mimeinfo->offset = offset;
|
|
mimeinfo->length = length;
|
|
|
|
if (content_type != NULL) {
|
|
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("us-ascii"));
|
|
}
|
|
|
|
if (content_encoding != NULL) {
|
|
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_disposition != NULL)
|
|
procmime_parse_content_disposition(content_disposition, mimeinfo);
|
|
else
|
|
mimeinfo->disposition = DISPOSITIONTYPE_UNKNOWN;
|
|
|
|
/* Call parser for mime type */
|
|
switch (mimeinfo->type) {
|
|
case MIMETYPE_MESSAGE:
|
|
if (g_ascii_strcasecmp(mimeinfo->subtype, "rfc822") == 0) {
|
|
procmime_parse_message_rfc822(mimeinfo);
|
|
}
|
|
break;
|
|
|
|
case MIMETYPE_MULTIPART:
|
|
procmime_parse_multipart(mimeinfo);
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
|
|
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++)
|
|
printf(" ");
|
|
printf("%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);
|
|
}
|
|
|
|
MimeInfo *procmime_scan_file_with_offset(const gchar *filename, int offset)
|
|
{
|
|
MimeInfo *mimeinfo;
|
|
struct stat buf;
|
|
|
|
stat(filename, &buf);
|
|
|
|
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);
|
|
if (debug_get_mode())
|
|
output_mime_structure(mimeinfo, 0);
|
|
|
|
return mimeinfo;
|
|
}
|
|
|
|
MimeInfo *procmime_scan_file(const gchar *filename)
|
|
{
|
|
MimeInfo *mimeinfo;
|
|
|
|
g_return_val_if_fail(filename != NULL, NULL);
|
|
|
|
mimeinfo = procmime_scan_file_with_offset(filename, 0);
|
|
|
|
return mimeinfo;
|
|
}
|
|
|
|
MimeInfo *procmime_scan_queue_file(const gchar *filename)
|
|
{
|
|
FILE *fp;
|
|
MimeInfo *mimeinfo;
|
|
gchar buf[BUFFSIZE];
|
|
gint offset = 0;
|
|
|
|
g_return_val_if_fail(filename != NULL, NULL);
|
|
|
|
/* Open file */
|
|
if ((fp = fopen(filename, "rb")) == NULL)
|
|
return NULL;
|
|
/* Skip queue header */
|
|
while (fgets(buf, sizeof(buf), fp) != NULL)
|
|
if (buf[0] == '\r' || buf[0] == '\n') break;
|
|
offset = ftell(fp);
|
|
fclose(fp);
|
|
|
|
mimeinfo = procmime_scan_file_with_offset(filename, offset);
|
|
|
|
return mimeinfo;
|
|
}
|
|
|
|
typedef enum {
|
|
ENC_AS_TOKEN,
|
|
ENC_AS_QUOTED_STRING,
|
|
ENC_AS_EXTENDED,
|
|
} EncodeAs;
|
|
|
|
typedef struct _ParametersData {
|
|
FILE *fp;
|
|
guint len;
|
|
} ParametersData;
|
|
|
|
static void write_parameters(gpointer key, gpointer value, gpointer user_data)
|
|
{
|
|
gchar *param = key;
|
|
gchar *val = value, *valpos;
|
|
ParametersData *pdata = (ParametersData *)user_data;
|
|
GString *buf = g_string_new("");
|
|
|
|
EncodeAs encas = ENC_AS_TOKEN;
|
|
|
|
for (valpos = val; *valpos != 0; valpos++) {
|
|
if (!IS_ASCII(*valpos)) {
|
|
encas = ENC_AS_EXTENDED;
|
|
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;
|
|
|
|
case ENC_AS_EXTENDED:
|
|
g_string_append_printf(buf, "%s*=%s''", param,
|
|
conv_get_current_charset_str());
|
|
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;
|
|
}
|
|
|
|
if (buf->str && strlen(buf->str)) {
|
|
if (pdata->len + strlen(buf->str) + 2 > 76) {
|
|
fprintf(pdata->fp, ";\n %s", buf->str);
|
|
pdata->len = strlen(buf->str) + 1;
|
|
} else {
|
|
fprintf(pdata->fp, "; %s", buf->str);
|
|
pdata->len += strlen(buf->str) + 2;
|
|
}
|
|
}
|
|
g_string_free(buf, TRUE);
|
|
}
|
|
|
|
void 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;
|
|
|
|
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);
|
|
fprintf(fp, "%s", buf);
|
|
pdata->len = strlen(buf);
|
|
g_free(buf);
|
|
break;
|
|
}
|
|
g_hash_table_foreach(mimeinfo->typeparameters, write_parameters, pdata);
|
|
g_free(pdata);
|
|
|
|
fprintf(fp, "\n");
|
|
|
|
if (mimeinfo->encoding_type != ENC_UNKNOWN)
|
|
fprintf(fp, "Content-Transfer-Encoding: %s\n", procmime_get_encoding_str(mimeinfo->encoding_type));
|
|
|
|
if (mimeinfo->description != NULL)
|
|
fprintf(fp, "Content-Description: %s\n", mimeinfo->description);
|
|
|
|
if (mimeinfo->id != NULL)
|
|
fprintf(fp, "Content-ID: %s\n", mimeinfo->id);
|
|
|
|
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");
|
|
|
|
fprintf(fp, "%s", buf);
|
|
pdata->len = strlen(buf);
|
|
g_free(buf);
|
|
|
|
pdata->fp = fp;
|
|
g_hash_table_foreach(mimeinfo->dispositionparameters, write_parameters, pdata);
|
|
g_free(pdata);
|
|
fprintf(fp, "\n");
|
|
}
|
|
|
|
fprintf(fp, "\n");
|
|
}
|
|
|
|
gint procmime_write_message_rfc822(MimeInfo *mimeinfo, FILE *fp)
|
|
{
|
|
FILE *infp;
|
|
GNode *childnode;
|
|
MimeInfo *child;
|
|
gchar buf[BUFFSIZE];
|
|
gboolean skip = FALSE;;
|
|
|
|
debug_print("procmime_write_message_rfc822\n");
|
|
|
|
/* write header */
|
|
switch (mimeinfo->content) {
|
|
case MIMECONTENT_FILE:
|
|
if ((infp = fopen(mimeinfo->data.filename, "rb")) == NULL) {
|
|
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
|
|
return -1;
|
|
}
|
|
fseek(infp, mimeinfo->offset, SEEK_SET);
|
|
while (fgets(buf, sizeof(buf), infp) == 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-Disposition:", 20) == 0) {
|
|
skip = TRUE;
|
|
continue;
|
|
}
|
|
fwrite(buf, sizeof(gchar), strlen(buf), fp);
|
|
skip = FALSE;
|
|
}
|
|
fclose(infp);
|
|
break;
|
|
|
|
case MIMECONTENT_MEM:
|
|
fwrite(mimeinfo->data.mem, strlen(mimeinfo->data.mem), sizeof(gchar), fp);
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
childnode = mimeinfo->node->children;
|
|
if (childnode == NULL)
|
|
return -1;
|
|
|
|
child = (MimeInfo *) childnode->data;
|
|
fprintf(fp, "Mime-Version: 1.0\n");
|
|
procmime_write_mime_header(child, fp);
|
|
return procmime_write_mimeinfo(child, fp);
|
|
}
|
|
|
|
gint procmime_write_multipart(MimeInfo *mimeinfo, FILE *fp)
|
|
{
|
|
FILE *infp;
|
|
GNode *childnode;
|
|
gchar *boundary, *str, *str2;
|
|
gchar buf[BUFFSIZE];
|
|
gboolean firstboundary;
|
|
|
|
debug_print("procmime_write_multipart\n");
|
|
|
|
boundary = g_hash_table_lookup(mimeinfo->typeparameters, "boundary");
|
|
|
|
switch (mimeinfo->content) {
|
|
case MIMECONTENT_FILE:
|
|
if ((infp = fopen(mimeinfo->data.filename, "rb")) == NULL) {
|
|
FILE_OP_ERROR(mimeinfo->data.filename, "fopen");
|
|
return -1;
|
|
}
|
|
fseek(infp, mimeinfo->offset, SEEK_SET);
|
|
while (fgets(buf, sizeof(buf), infp) == buf) {
|
|
if (IS_BOUNDARY(buf, boundary, strlen(boundary)))
|
|
break;
|
|
fwrite(buf, sizeof(gchar), strlen(buf), fp);
|
|
}
|
|
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';
|
|
fwrite(str, strlen(str), sizeof(gchar), fp);
|
|
g_free(str);
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
|
|
childnode = mimeinfo->node->children;
|
|
firstboundary = TRUE;
|
|
while (childnode != NULL) {
|
|
MimeInfo *child = childnode->data;
|
|
|
|
if (firstboundary)
|
|
firstboundary = FALSE;
|
|
else
|
|
fprintf(fp, "\n");
|
|
fprintf(fp, "--%s\n", boundary);
|
|
|
|
procmime_write_mime_header(child, fp);
|
|
if (procmime_write_mimeinfo(child, fp) < 0)
|
|
return -1;
|
|
|
|
childnode = g_node_next_sibling(childnode);
|
|
}
|
|
fprintf(fp, "\n--%s--\n", boundary);
|
|
|
|
return 0;
|
|
}
|
|
|
|
gint procmime_write_mimeinfo(MimeInfo *mimeinfo, FILE *fp)
|
|
{
|
|
FILE *infp;
|
|
|
|
debug_print("procmime_write_mimeinfo\n");
|
|
|
|
if (G_NODE_IS_LEAF(mimeinfo->node)) {
|
|
switch (mimeinfo->content) {
|
|
case MIMECONTENT_FILE:
|
|
if ((infp = 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);
|
|
fclose(infp);
|
|
return 0;
|
|
|
|
case MIMECONTENT_MEM:
|
|
fwrite(mimeinfo->data.mem, strlen(mimeinfo->data.mem), sizeof(gchar), fp);
|
|
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;
|
|
}
|