static int mailmime_encoded_word_parse(const char * message, size_t length,
size_t * indx,
struct mailmime_encoded_word ** result,
int * p_has_fwd)
{
size_t cur_token;
char * charset;
int encoding;
char * text;
size_t end_encoding;
char * decoded;
size_t decoded_len;
struct mailmime_encoded_word * ew;
int r;
int res;
int opening_quote;
int end;
int has_fwd;
cur_token = * indx;
has_fwd = 0;
r = mailimf_fws_parse(message, length, &cur_token);
if (r == MAILIMF_NO_ERROR) {
has_fwd = 1;
}
if ((r != MAILIMF_NO_ERROR) && (r != MAILIMF_ERROR_PARSE)) {
res = r;
goto err;
}
opening_quote = FALSE;
r = mailimf_char_parse(message, length, &cur_token, '\"');
if (r == MAILIMF_NO_ERROR) {
opening_quote = TRUE;
}
else if (r == MAILIMF_ERROR_PARSE) {
/* do nothing */
}
else {
res = r;
goto err;
}
r = mailimf_token_case_insensitive_parse(message, length, &cur_token, "=?");
if (r != MAILIMF_NO_ERROR) {
res = r;
goto err;
}
r = mailmime_charset_parse(message, length, &cur_token, &charset);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto err;
}
r = mailimf_char_parse(message, length, &cur_token, '?');
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
r = mailmime_encoding_parse(message, length, &cur_token, &encoding);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
r = mailimf_char_parse(message, length, &cur_token, '?');
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
end = FALSE;
end_encoding = cur_token;
while (1) {
if (end_encoding >= length)
break;
if (end_encoding + 1 < length) {
if ((message[end_encoding] == '?') && (message[end_encoding + 1] == '=')) {
end = TRUE;
}
}
if (end)
break;
end_encoding ++;
}
decoded_len = 0;
decoded = NULL;
switch (encoding) {
case MAILMIME_ENCODING_B:
r = mailmime_base64_body_parse(message, end_encoding,
&cur_token, &decoded,
&decoded_len);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
break;
case MAILMIME_ENCODING_Q:
r = mailmime_quoted_printable_body_parse(message, end_encoding,
&cur_token, &decoded,
&decoded_len, TRUE);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
break;
}
text = malloc(decoded_len + 1);
if (text == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free_charset;
}
if (decoded_len > 0)
memcpy(text, decoded, decoded_len);
text[decoded_len] = '\0';
mailmime_decoded_part_free(decoded);
r = mailimf_token_case_insensitive_parse(message, length, &cur_token, "?=");
#if 0
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_encoded_text;
}
#endif
if (opening_quote) {
r = mailimf_char_parse(message, length, &cur_token, '\"');
#if 0
if ((r != MAILIMF_NO_ERROR) && (r != MAILIMF_ERROR_PARSE)) {
res = r;
goto free_encoded_text;
}
#endif
}
/* fix charset */
if (strcasecmp(charset, "utf8") == 0) {
free(charset);
charset = strdup("utf-8");
}
ew = mailmime_encoded_word_new(charset, text);
if (ew == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free_encoded_text;
}
* result = ew;
* indx = cur_token;
* p_has_fwd = has_fwd;
return MAILIMF_NO_ERROR;
free_encoded_text:
mailmime_encoded_text_free(text);
free_charset:
mailmime_charset_free(charset);
err:
return res;
}
LIBETPAN_EXPORT
int
mailmime_field_parse(struct mailimf_optional_field * field,
struct mailmime_field ** result)
{
char * name;
char * value;
int guessed_type;
size_t cur_token;
struct mailmime_content * content;
struct mailmime_mechanism * encoding;
char * id;
char * description;
uint32_t version;
struct mailmime_field * mime_field;
struct mailmime_language * language;
struct mailmime_disposition * disposition;
char * location;
int res;
int r;
name = field->fld_name;
value = field->fld_value;
cur_token = 0;
content = NULL;
encoding = NULL;
id = NULL;
description = NULL;
version = 0;
disposition = NULL;
language = NULL;
location = NULL;
guessed_type = guess_field_type(name);
switch (guessed_type) {
case MAILMIME_FIELD_TYPE:
if (strcasecmp(name, "Content-Type") != 0)
return MAILIMF_ERROR_PARSE;
{
size_t cur_token = 0;
char * decoded_value;
r = mailmime_encoded_phrase_parse("us-ascii",
value, strlen(value),
&cur_token, "utf-8", &decoded_value);
if (r != MAILIMF_NO_ERROR) {
cur_token = 0;
r = mailmime_content_parse(value, strlen(value), &cur_token, &content);
}
else {
cur_token = 0;
r = mailmime_content_parse(decoded_value, strlen(decoded_value), &cur_token, &content);
free(decoded_value);
}
if (r != MAILIMF_NO_ERROR)
return r;
}
break;
case MAILMIME_FIELD_TRANSFER_ENCODING:
if (strcasecmp(name, "Content-Transfer-Encoding") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_encoding_parse(value, strlen(value), &cur_token, &encoding);
if (r != MAILIMF_NO_ERROR)
return r;
break;
case MAILMIME_FIELD_ID:
if (strcasecmp(name, "Content-ID") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_id_parse(value, strlen(value), &cur_token, &id);
if (r != MAILIMF_NO_ERROR)
return r;
break;
case MAILMIME_FIELD_DESCRIPTION:
if (strcasecmp(name, "Content-Description") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_description_parse(value, strlen(value),
&cur_token, &description);
if (r != MAILIMF_NO_ERROR)
return r;
break;
case MAILMIME_FIELD_VERSION:
if (strcasecmp(name, "MIME-Version") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_version_parse(value, strlen(value), &cur_token, &version);
if (r != MAILIMF_NO_ERROR)
return r;
break;
case MAILMIME_FIELD_DISPOSITION:
if (strcasecmp(name, "Content-Disposition") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_disposition_parse(value, strlen(value),
&cur_token, &disposition);
if (r != MAILIMF_NO_ERROR)
return r;
break;
case MAILMIME_FIELD_LANGUAGE:
if (strcasecmp(name, "Content-Language") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_language_parse(value, strlen(value), &cur_token, &language);
if (r != MAILIMF_NO_ERROR)
return r;
break;
case MAILMIME_FIELD_LOCATION:
if (strcasecmp(name, "Content-Location") != 0)
return MAILIMF_ERROR_PARSE;
r = mailmime_location_parse(value, strlen(value), &cur_token, &location);
if (r != MAILIMF_NO_ERROR)
return r;
break;
default:
return MAILIMF_ERROR_PARSE;
}
mime_field = mailmime_field_new(guessed_type, content, encoding,
id, description, version, disposition,
language, location);
if (mime_field == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free;
}
* result = mime_field;
return MAILIMF_NO_ERROR;
free:
if (location != NULL)
mailmime_location_free(location);
if (language != NULL)
mailmime_language_free(language);
if (content != NULL)
mailmime_content_free(content);
if (encoding != NULL)
mailmime_encoding_free(encoding);
if (id != NULL)
mailmime_id_free(id);
if (description != NULL)
mailmime_description_free(description);
return res;
}
int mailmime_encoded_word_parse(const char * message, size_t length,
size_t * indx,
struct mailmime_encoded_word ** result,
int * p_has_fwd, int * p_missing_closing_quote)
{
/*
Parse the following, when a unicode character encoding is split.
=?UTF-8?B?4Lij4Liw4LmA4Lia4Li04LiU4LiE4Lin4Liy4Lih4Lih4Lix4LiZ4Liq4LmM?=
=?UTF-8?B?4LmA4LiV4LmH4Lih4Lie4Li04LiB4Lix4LiUIFRSQU5TRk9STUVSUyA0IOC4?=
=?UTF-8?B?oeC4seC4meC4quC5jOC4hOC4o+C4muC4l+C4uOC4geC4o+C4sOC4muC4miDg?=
=?UTF-8?B?uJfguLXguYjguYDguJTguLXguKLguKfguYPguJnguYDguKHguLfguK3guIfg?=
=?UTF-8?B?uYTguJfguKI=?=
Expected result:
ระเบิดความมันส์เต็มพิกัด TRANSFORMERS 4 มันส์ครบทุกระบบ ที่เดียวในเมืองไทย
libetpan result:
ระเบิดความมันส์เต็มพิกัด TRANSFORMERS 4 ?ันส์ครบทุกระบบ ??ี่เดียวในเมือง??ทย
See https://github.com/dinhviethoa/libetpan/pull/211
*/
size_t cur_token;
char * charset;
int encoding;
char * body;
size_t old_body_len;
char * text;
size_t end_encoding;
size_t lookfwd_cur_token;
char * lookfwd_charset;
int lookfwd_encoding;
size_t copy_len;
size_t decoded_token;
char * decoded;
size_t decoded_len;
struct mailmime_encoded_word * ew;
int r;
int res;
int opening_quote;
int end;
int has_fwd;
int missing_closing_quote;
cur_token = * indx;
text = NULL;
lookfwd_charset = NULL;
missing_closing_quote = 0;
has_fwd = 0;
r = mailimf_fws_parse(message, length, &cur_token);
if (r == MAILIMF_NO_ERROR) {
has_fwd = 1;
}
if ((r != MAILIMF_NO_ERROR) && (r != MAILIMF_ERROR_PARSE)) {
res = r;
goto err;
}
opening_quote = FALSE;
r = mailimf_char_parse(message, length, &cur_token, '\"');
if (r == MAILIMF_NO_ERROR) {
opening_quote = TRUE;
}
else if (r == MAILIMF_ERROR_PARSE) {
/* do nothing */
}
else {
res = r;
goto err;
}
/* Parse first charset and encoding. */
r = mailimf_token_case_insensitive_parse(message, length, &cur_token, "=?");
if (r != MAILIMF_NO_ERROR) {
res = r;
goto err;
}
r = mailmime_charset_parse(message, length, &cur_token, &charset);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto err;
}
r = mailimf_char_parse(message, length, &cur_token, '?');
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
r = mailmime_encoding_parse(message, length, &cur_token, &encoding);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
r = mailimf_char_parse(message, length, &cur_token, '?');
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_charset;
}
lookfwd_cur_token = cur_token;
body = NULL;
old_body_len = 0;
while (1) {
int has_base64_padding;
end = FALSE;
has_base64_padding = FALSE;
end_encoding = cur_token;
while (1) {
if (end_encoding >= length)
break;
if (end_encoding + 1 < length) {
if ((message[end_encoding] == '?') && (message[end_encoding + 1] == '=')) {
end = TRUE;
}
}
if (end)
break;
end_encoding ++;
}
copy_len = end_encoding - lookfwd_cur_token;
if (copy_len > 0) {
if (encoding == MAILMIME_ENCODING_B) {
if (end_encoding >= 1) {
if (message[end_encoding - 1] == '=') {
has_base64_padding = TRUE;
}
}
}
body = realloc(body, old_body_len + copy_len + 1);
if (body == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free_body;
}
memcpy(body + old_body_len, &message[cur_token], copy_len);
body[old_body_len + copy_len] = '\0';
old_body_len += copy_len;
}
cur_token = end_encoding;
r = mailimf_token_case_insensitive_parse(message, length, &cur_token, "?=");
if (r != MAILIMF_NO_ERROR) {
break;
}
if (has_base64_padding) {
break;
}
lookfwd_cur_token = cur_token;
r = mailimf_fws_parse(message, length, &lookfwd_cur_token);
if ((r != MAILIMF_NO_ERROR) && (r != MAILIMF_ERROR_PARSE)) {
break;
}
/* Parse following charset and encoding to check if they're matching. */
r = mailimf_token_case_insensitive_parse(message, length, &lookfwd_cur_token, "=?");
if (r != MAILIMF_NO_ERROR) {
break;
}
r = mailmime_charset_parse(message, length, &lookfwd_cur_token, &lookfwd_charset);
if (r != MAILIMF_NO_ERROR) {
break;
}
r = mailimf_char_parse(message, length, &lookfwd_cur_token, '?');
if (r != MAILIMF_NO_ERROR) {
break;
}
r = mailmime_encoding_parse(message, length, &lookfwd_cur_token, &lookfwd_encoding);
if (r != MAILIMF_NO_ERROR) {
break;
}
r = mailimf_char_parse(message, length, &lookfwd_cur_token, '?');
if (r != MAILIMF_NO_ERROR) {
break;
}
if ((strcasecmp(charset, lookfwd_charset) == 0) && (encoding == lookfwd_encoding)) {
cur_token = lookfwd_cur_token;
} else {
/* the next charset is not matched with the current one,
therefore exit the loop to decode the body appended so far */
break;
}
mailmime_charset_free(lookfwd_charset);
lookfwd_charset = NULL;
}
if (lookfwd_charset != NULL) {
mailmime_charset_free(lookfwd_charset);
lookfwd_charset = NULL;
}
if (body == NULL) {
body = strdup("");
if (body == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free_body;
}
}
decoded_token = 0;
decoded_len = 0;
decoded = NULL;
switch (encoding) {
case MAILMIME_ENCODING_B:
r = mailmime_base64_body_parse(body, strlen(body),
&decoded_token, &decoded,
&decoded_len);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_body;
}
break;
case MAILMIME_ENCODING_Q:
r = mailmime_quoted_printable_body_parse(body, strlen(body),
&decoded_token, &decoded,
&decoded_len, TRUE);
if (r != MAILIMF_NO_ERROR) {
res = r;
goto free_body;
}
break;
}
text = malloc(decoded_len + 1);
if (text == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free_decoded;
}
if (decoded_len > 0)
memcpy(text, decoded, decoded_len);
text[decoded_len] = '\0';
if (opening_quote) {
r = mailimf_char_parse(message, length, &cur_token, '\"');
if (r == MAILIMF_ERROR_PARSE) {
missing_closing_quote = 1;
}
}
/* fix charset */
if (strcasecmp(charset, "utf8") == 0) {
free(charset);
charset = strdup("utf-8");
}
ew = mailmime_encoded_word_new(charset, text);
if (ew == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free_decoded;
}
* result = ew;
* indx = cur_token;
* p_has_fwd = has_fwd;
* p_missing_closing_quote = missing_closing_quote;
mailmime_decoded_part_free(decoded);
free(body);
return MAILIMF_NO_ERROR;
free_decoded:
mailmime_decoded_part_free(decoded);
free_body:
free(body);
mailmime_encoded_text_free(text);
free_charset:
mailmime_charset_free(charset);
err:
return res;
}
