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_encoded_phrase_parse(const char * default_fromcode,
const char * message, size_t length,
size_t * indx, const char * tocode,
char ** result)
{
MMAPString * gphrase;
struct mailmime_encoded_word * word;
int first;
size_t cur_token;
int r;
int res;
char * str;
char * wordutf8;
int type;
cur_token = * indx;
gphrase = mmap_string_new("");
if (gphrase == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto err;
}
first = TRUE;
type = TYPE_ERROR; /* XXX - removes a gcc warning */
while (1) {
int has_fwd = 0;
word = NULL;
r = mailmime_encoded_word_parse(message, length, &cur_token, &word, &has_fwd);
if (r == MAILIMF_NO_ERROR) {
if ((!first) && has_fwd) {
if (type != TYPE_ENCODED_WORD) {
if (mmap_string_append_c(gphrase, ' ') == NULL) {
mailmime_encoded_word_free(word);
res = MAILIMF_ERROR_MEMORY;
goto free;
}
}
}
type = TYPE_ENCODED_WORD;
wordutf8 = NULL;
r = charconv(tocode, word->wd_charset, word->wd_text,
strlen(word->wd_text), &wordutf8);
switch (r) {
case MAIL_CHARCONV_ERROR_MEMORY:
mailmime_encoded_word_free(word);
res = MAILIMF_ERROR_MEMORY;
goto free;
case MAIL_CHARCONV_ERROR_UNKNOWN_CHARSET:
r = charconv(tocode, "iso-8859-1", word->wd_text,
strlen(word->wd_text), &wordutf8);
break;
case MAIL_CHARCONV_ERROR_CONV:
mailmime_encoded_word_free(word);
res = MAILIMF_ERROR_PARSE;
goto free;
}
switch (r) {
case MAIL_CHARCONV_ERROR_MEMORY:
mailmime_encoded_word_free(word);
res = MAILIMF_ERROR_MEMORY;
goto free;
case MAIL_CHARCONV_ERROR_CONV:
mailmime_encoded_word_free(word);
res = MAILIMF_ERROR_PARSE;
goto free;
}
if (wordutf8 != NULL) {
if (mmap_string_append(gphrase, wordutf8) == NULL) {
mailmime_encoded_word_free(word);
free(wordutf8);
res = MAILIMF_ERROR_MEMORY;
goto free;
}
free(wordutf8);
}
mailmime_encoded_word_free(word);
first = FALSE;
}
else if (r == MAILIMF_ERROR_PARSE) {
/* do nothing */
}
else {
res = r;
goto free;
}
if (r == MAILIMF_ERROR_PARSE) {
char * raw_word;
raw_word = NULL;
r = mailmime_non_encoded_word_parse(message, length,
&cur_token, &raw_word, &has_fwd);
if (r == MAILIMF_NO_ERROR) {
if ((!first) && has_fwd) {
if (mmap_string_append_c(gphrase, ' ') == NULL) {
free(raw_word);
res = MAILIMF_ERROR_MEMORY;
goto free;
}
}
type = TYPE_WORD;
wordutf8 = NULL;
r = charconv(tocode, default_fromcode, raw_word,
strlen(raw_word), &wordutf8);
switch (r) {
case MAIL_CHARCONV_ERROR_MEMORY:
free(raw_word);
res = MAILIMF_ERROR_MEMORY;
goto free;
case MAIL_CHARCONV_ERROR_UNKNOWN_CHARSET:
case MAIL_CHARCONV_ERROR_CONV:
free(raw_word);
res = MAILIMF_ERROR_PARSE;
goto free;
}
if (mmap_string_append(gphrase, wordutf8) == NULL) {
free(wordutf8);
free(raw_word);
res = MAILIMF_ERROR_MEMORY;
goto free;
}
free(wordutf8);
free(raw_word);
first = FALSE;
}
else if (r == MAILIMF_ERROR_PARSE) {
r = mailimf_fws_parse(message, length, &cur_token);
if (r != MAILIMF_NO_ERROR) {
break;
}
if (mmap_string_append_c(gphrase, ' ') == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free;
}
first = FALSE;
break;
}
else {
res = r;
goto free;
}
}
}
if (first) {
if (cur_token != length) {
res = MAILIMF_ERROR_PARSE;
goto free;
}
}
str = strdup(gphrase->str);
if (str == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto free;
}
mmap_string_free(gphrase);
* result = str;
* indx = cur_token;
return MAILIMF_NO_ERROR;
free:
mmap_string_free(gphrase);
err:
return res;
}
static int
mailmime_non_encoded_word_parse(const char * message, size_t length,
size_t * indx,
char ** result, int * p_has_fwd)
{
int end;
size_t cur_token;
int res;
char * text;
int r;
size_t begin;
int state;
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;
}
begin = cur_token;
state = 0;
end = FALSE;
while (1) {
if (cur_token >= length)
break;
switch (message[cur_token]) {
case ' ':
case '\t':
case '\r':
case '\n':
state = 0;
end = TRUE;
break;
case '=':
state = 1;
break;
case '?':
if (state == 1) {
cur_token --;
end = TRUE;
}
default:
state = 0;
break;
}
if (end)
break;
cur_token ++;
}
if (cur_token - begin == 0) {
res = MAILIMF_ERROR_PARSE;
goto err;
}
text = malloc(cur_token - begin + 1);
if (text == NULL) {
res = MAILIMF_ERROR_MEMORY;
goto err;
}
memcpy(text, message + begin, cur_token - begin);
text[cur_token - begin] = '\0';
* indx = cur_token;
* result = text;
* p_has_fwd = has_fwd;
return MAILIMF_NO_ERROR;
err:
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;
}
