You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
mblaze/rfc2231.c

131 lines
2.7 KiB
C

#include <iconv.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "blaze822.h"
int
blaze822_mime2231_parameter(char *s, char *name,
char *dst, size_t dlen, char *tgtenc)
{
static signed char hex[] = {
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1, -1,-1,-1,-1,
-1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
-1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1
};
int i = 0;
char namenum[64];
char *srcenc = 0;
char *dststart = dst;
char *dstend = dst + dlen;
char *sbuf, *ebuf;
snprintf(namenum, sizeof namenum, "%s*", name);
if (blaze822_mime_parameter(s, namenum, &sbuf, &ebuf)) {
i = 100;
goto found_extended;
}
if (blaze822_mime_parameter(s, name, &sbuf, &ebuf)) {
i = 100;
goto found_plain;
}
while (i < 100) {
snprintf(namenum, sizeof namenum, "%s*%d*", name, i);
if (blaze822_mime_parameter(s, namenum, &sbuf, &ebuf)) {
found_extended:
// decode extended
if (i == 0 || i == 100) { // extended-initial-value
char *encstart = sbuf;
sbuf = strchr(sbuf, '\'');
if (!sbuf)
return 0;
srcenc = strndup(encstart, sbuf - encstart);
if (!srcenc)
return 0;
sbuf = strchr(sbuf+1, '\'');
if (!sbuf) {
free(srcenc);
return 0;
}
sbuf++;
}
while (sbuf < ebuf && dst < dstend) {
if (sbuf[0] == '%') {
unsigned char c1 = sbuf[1];
unsigned char c2 = sbuf[2];
if (c1 < 127 && c2 < 127 &&
hex[c1] > -1 && hex[c2] > -1) {
*dst++ = (hex[c1] << 4) | hex[c2];
sbuf += 3;
} else {
*dst++ = *sbuf++;
}
} else {
*dst++ = *sbuf++;
}
}
*dst = 0;
} else {
namenum[strlen(namenum) - 1] = 0; // strip last *
if (blaze822_mime_parameter(s, namenum, &sbuf, &ebuf)) {
found_plain:
// copy plain
if (ebuf - sbuf < dstend - dst) {
memcpy(dst, sbuf, ebuf - sbuf);
dst += ebuf - sbuf;
}
*dst = 0;
} else {
break;
}
}
i++;
}
if (i <= 0)
return 0;
if (!srcenc)
return 1;
iconv_t ic = iconv_open(tgtenc, srcenc);
free(srcenc);
if (ic == (iconv_t)-1)
return 1;
size_t tmplen = dlen;
char *tmp = malloc(tmplen);
if (!tmp)
return 1;
char *tmpend = tmp;
size_t dstlen = dst - dststart;
dst = dststart;
size_t r = iconv(ic, &dst, &dstlen, &tmpend, &tmplen);
if (r == (size_t)-1) {
free(tmp);
return 1;
}
iconv_close(ic);
// copy back
memcpy(dststart, tmp, tmpend - tmp);
dststart[tmpend - tmp] = 0;
free(tmp);
return 1;
}