Split lines before column 80
[infodrom/newmail] / rfc2047.c
1 /*
2     Copyright (c) 2006  Joey Schulze <joey@infodrom.org>
3
4     This program is free software; you can redistribute it and/or modify
5     it under the terms of the GNU General Public License as published by
6     the Free Software Foundation; either version 2 of the License, or
7     (at your option) any later version.
8
9     This program is distributed in the hope that it will be useful,
10     but WITHOUT ANY WARRANTY; without even the implied warranty of
11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12     GNU General Public License for more details.
13
14     You should have received a copy of the GNU General Public License
15     along with this program; if not, write to the Free Software
16     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17  */
18
19 #include <stdlib.h>
20 #include <stdio.h>
21 #include <string.h>
22 #include <ctype.h>
23 #include "charset.h"
24
25 /*
26  * Index_hex and Index_64 imported from Mutt:handler.c
27  * decode_quotedprintable() and decode_base64() as well
28  */
29 int Index_hex[128] = {
30   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
31   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
32   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
33   0, 1, 2, 3,  4, 5, 6, 7,  8, 9,-1,-1, -1,-1,-1,-1,
34   -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
35   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
36   -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
37   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1
38 };
39
40 int Index_64[128] = {
41   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
42   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
43   -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63,
44   52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1,
45   -1, 0, 1, 2,  3, 4, 5, 6,  7, 8, 9,10, 11,12,13,14,
46   15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1,
47   -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40,
48   41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1
49 };
50 #define hexval(c) Index_hex[(unsigned int)(c)]
51 #define base64val(c) Index_64[(unsigned int)(c)]
52
53
54 /*
55  * Decode a string from quoted printable
56  */
57 char *decode_quotedprintable(char *buf)
58 {
59   char *inp, *outp;
60   char *endp;
61
62   endp = buf+strlen(buf);
63   
64   for (inp = outp = buf; inp < endp; inp++) {
65     if (*inp == '_')
66       *(outp++) = ' ';
67     else if (*inp == '=' && inp+2 < endp &&
68              (!(*(inp+1) & ~127) && hexval(*(inp+1)) != -1) &&
69              (!(*(inp+2) & ~127) && hexval(*(inp+2)) != -1)) {
70       *(outp++) = (hexval(*(inp+1)) << 4) | hexval(*(inp+2));
71       inp += 2;
72     } else
73       *(outp++) = *inp;
74   }
75   *outp = '\0';
76
77   return buf;
78 }
79
80 /*
81  * Decode a string from base43
82  */
83 char *decode_base64(char *buf)
84 {
85   char *inp, *outp;
86   char *endp;
87   int c, b = 0, k = 0;
88
89   endp = buf+strlen(buf);
90
91   for (inp = outp = buf; inp < endp; inp++) {
92     if (*inp == '=')
93       break;
94     if ((*inp & ~127) || (c = base64val(*inp)) == -1)
95       continue;
96     if (k + 6 >= 8)
97       {
98         k -= 2;
99         *(outp++) = b | (c >> k);
100         b = c << (8 - k);
101       }
102     else
103       {
104         b |= c << (k + 2);
105         k += 6;
106       }
107     *outp = '\0';
108   }
109
110   return buf;
111 }
112
113 /*
114  * converts a header line into the current character set if required
115  */
116 char *convert_header(char *buf)
117 {
118   char *charset;
119   int encoding;
120   char *inp, *outp, *encstart, *wordp, *encp, *endp;
121   char *decode;
122   char *output;
123   size_t size;
124   size_t outlen;
125
126   endp = buf+strlen(buf);
127   inp = buf;
128
129   outlen = strlen(buf)+1;
130   if ((output = (char *)malloc(outlen)) == NULL) {
131     perror ("malloc");
132     return buf;
133   }
134
135   memset(output, 0, outlen);
136   outp = output;
137
138   while ((encstart = strstr (inp, "=?"))) {
139     if (encstart != inp) {
140       // -1 nur falls vorher kein encoded-word
141       memcpy (outp, inp, encstart-inp);
142       outp += encstart-inp;
143     }
144     charset = encstart+2;
145
146     if ((encp = strchr (charset, '?')) == NULL) {
147       memcpy (outp, inp, strlen(inp)+1);
148       break;
149     }
150
151     *encp = '\0';
152
153     if ((encp + 3 >= endp) || !strchr ("BbQq", *encp) || (*(encp+2) != '?')) {
154       *encp = '?';
155       memcpy (outp, inp, strlen(inp)+1);
156       outp += strlen(inp)+1;
157       inp += strlen(inp)+1;
158       break;
159     }
160
161     encoding = toupper(*(encp+1));
162
163     inp = encp + 3;
164
165     if ((wordp = strstr (inp, "?=")) == NULL) {
166       memcpy (outp, inp, strlen(inp)+1);
167       outp += strlen(inp)+1;
168       inp += strlen(inp)+1;
169       break;
170     }
171
172     *wordp = '\0';
173     wordp += 2;
174
175     /* Look for next =?, spaces will be eaten between two encoded-words */
176     if (*wordp && *wordp == ' ' &&
177         *(wordp+1) && *(wordp+1) == '=' &&
178         *(wordp+2) && *(wordp+2) == '?')
179       wordp++;
180
181     switch (encoding) {
182     case 'B':
183       decode = decode_base64 (inp);
184       break;
185     case 'Q':
186       decode = decode_quotedprintable (inp);
187       break;
188     default:
189       decode = inp;
190       break;
191     }
192
193     size = outlen - strlen(output);
194     decode = convert_word (charset, decode, outp, size);
195
196     outp += strlen(decode);
197
198     inp = wordp;
199   }
200
201   if (strlen(inp))
202     memcpy (outp, inp, strlen(inp)+1);
203
204   memcpy (buf, output, strlen(output)+1);
205   free (output);
206
207   return buf;
208 }
209
210
211 /*
212  * Needs to be called with LANG=de_DE.ISO-8859-1
213
214 #include <stdio.h>
215
216 void test_rfc2047()
217 {
218   char *qp;
219   char *b64;
220   char *subject;
221
222   set_charset();
223
224   qp = strdup ("f=FCr");
225   printf ("\t%s -> ", qp);
226   b64 = decode_quotedprintable (qp);
227   printf ("%s\n", qp);
228   if (!strcmp (qp, "für"))
229     printf ("rfc2047.c: decode_quotedprintable() passed\n");
230   else
231     printf ("rfc2047.c: decode_quotedprintable() failed\n");
232   free (qp);
233
234   qp = strdup ("f=FCr_Umlaute_=EFm_Sub");
235   printf ("\t%s -> ", qp);
236   b64 = decode_quotedprintable (qp);
237   printf ("%s\n", qp);
238   if (!strcmp (qp, "für Umlaute ïm Sub"))
239     printf ("rfc2047.c: decode_quotedprintable() passed\n");
240   else
241     printf ("rfc2047.c: decode_quotedprintable() failed\n");
242   free (qp);
243
244   b64 = strdup ("ZvxyINxtbOT8dOs=");
245   printf ("\t%s -> ", b64);
246   b64 = decode_base64 (b64);
247   printf ("%s\n", b64);
248   if (!strcmp (b64, "für Ümläütë"))
249     printf ("rfc2047.c: decode_base64() passed\n");
250   else
251     printf ("rfc2047.c: decode_base64() failed\n");
252   free (b64);
253
254   subject = strdup ("Vorschlag =?ISO-8859-1?Q?f=FCr?= ein Eintrittskonzept");
255   printf ("\t%s\n", subject);
256   subject = convert_header (subject);
257   printf ("\t%s\n", subject);
258   if (!strcmp (subject, "Vorschlag für ein Eintrittskonzept"))
259     printf ("rfc2047.c: convert_header() passed\n");
260   else
261     printf ("rfc2047.c: convert_header() failed\n");
262   free (subject);
263
264   subject = strdup ("=?utf-8?q?Google=3A_Chat_f=C3=BCr_die_Ewigkeit?=");
265   printf ("\t%s\n", subject);
266   subject = convert_header (subject);
267   printf ("\t%s\n", subject);
268   if (!strcmp (subject, "Google: Chat für die Ewigkeit"))
269     printf ("rfc2047.c: convert_header() passed\n");
270   else
271     printf ("rfc2047.c: convert_header() failed\n");
272   free (subject);
273
274   subject = strdup ("=?iso-8859-1?B?ZvxyINxtbOT8dOs=?= testen");
275   printf ("\t%s\n", subject);
276   subject = convert_header (subject);
277   printf ("\t%s\n", subject);
278   if (!strcmp (subject, "für Ümläütë testen"))
279     printf ("rfc2047.c: convert_header() passed\n");
280   else
281     printf ("rfc2047.c: convert_header() failed\n");
282   free (subject);
283
284 }
285 */