* don't re-load vcards, if the server already sent them.
[citadel.git] / webcit / msg_renderers.c
1 #include "webcit.h"
2 #include "webserver.h"
3 #include "groupdav.h"
4
5 /*
6  * message index functions
7  */
8
9
10 void DestroyMimeParts(wc_mime_attachment *Mime)
11 {
12         FreeStrBuf(&Mime->Name);
13         FreeStrBuf(&Mime->FileName);
14         FreeStrBuf(&Mime->PartNum);
15         FreeStrBuf(&Mime->Disposition);
16         FreeStrBuf(&Mime->ContentType);
17         FreeStrBuf(&Mime->Charset);
18         FreeStrBuf(&Mime->Data);
19 }
20
21 void DestroyMime(void *vMime)
22 {
23         wc_mime_attachment *Mime = (wc_mime_attachment*)vMime;
24         DestroyMimeParts(Mime);
25         free(Mime);
26 }
27
28 void DestroyMessageSummary(void *vMsg)
29 {
30         message_summary *Msg = (message_summary*) vMsg;
31
32         FreeStrBuf(&Msg->from);
33         FreeStrBuf(&Msg->to);
34         FreeStrBuf(&Msg->subj);
35         FreeStrBuf(&Msg->reply_inreplyto);
36         FreeStrBuf(&Msg->reply_references);
37         FreeStrBuf(&Msg->cccc);
38         FreeStrBuf(&Msg->hnod);
39         FreeStrBuf(&Msg->AllRcpt);
40         FreeStrBuf(&Msg->Room);
41         FreeStrBuf(&Msg->Rfca);
42         FreeStrBuf(&Msg->OtherNode);
43
44         FreeStrBuf(&Msg->reply_to);
45
46         DeleteHash(&Msg->Attachments);  /**< list of Accachments */
47         DeleteHash(&Msg->Submessages);
48         DeleteHash(&Msg->AttachLinks);
49         DeleteHash(&Msg->AllAttach);
50         free(Msg);
51 }
52
53
54
55 void RegisterMsgHdr(const char *HeaderName, long HdrNLen, ExamineMsgHeaderFunc evaluator, int type)
56 {
57         headereval *ev;
58         ev = (headereval*) malloc(sizeof(headereval));
59         ev->evaluator = evaluator;
60         ev->Type = type;
61         Put(MsgHeaderHandler, HeaderName, HdrNLen, ev, NULL);
62 }
63
64 void RegisterMimeRenderer(const char *HeaderName, long HdrNLen, 
65                           RenderMimeFunc MimeRenderer,
66                           int InlineRenderable,
67                           int Priority)
68 {
69         RenderMimeFuncStruct *f;
70
71         f = (RenderMimeFuncStruct*) malloc(sizeof(RenderMimeFuncStruct));
72         f->f = MimeRenderer;
73         Put(MimeRenderHandler, HeaderName, HdrNLen, f, NULL);
74         if (InlineRenderable)
75                 RegisterEmbeddableMimeType(HeaderName, HdrNLen, 10000 - Priority);
76 }
77
78 /*----------------------------------------------------------------------------*/
79
80 /*
81  *  comparator for two longs in descending order.
82  */
83 int longcmp_r(const void *s1, const void *s2) {
84         long l1;
85         long l2;
86
87         l1 = *(long *)GetSearchPayload(s1);
88         l2 = *(long *)GetSearchPayload(s2);
89
90         if (l1 > l2) return(-1);
91         if (l1 < l2) return(+1);
92         return(0);
93 }
94
95 /*
96  *  comparator for longs; descending order.
97  */
98 int qlongcmp_r(const void *s1, const void *s2) {
99         long l1 = (long) s1;
100         long l2 = (long) s2;
101
102         if (l1 > l2) return(-1);
103         if (l1 < l2) return(+1);
104         return(0);
105 }
106
107  
108 /*
109  * comparator for message summary structs by ascending subject.
110  */
111 int summcmp_subj(const void *s1, const void *s2) {
112         message_summary *summ1;
113         message_summary *summ2;
114         
115         summ1 = (message_summary *)GetSearchPayload(s1);
116         summ2 = (message_summary *)GetSearchPayload(s2);
117         return strcasecmp(ChrPtr(summ1->subj), ChrPtr(summ2->subj));
118 }
119
120 /*
121  * comparator for message summary structs by descending subject.
122  */
123 int summcmp_rsubj(const void *s1, const void *s2) {
124         message_summary *summ1;
125         message_summary *summ2;
126         
127         summ1 = (message_summary *)GetSearchPayload(s1);
128         summ2 = (message_summary *)GetSearchPayload(s2);
129         return strcasecmp(ChrPtr(summ2->subj), ChrPtr(summ1->subj));
130 }
131 /*
132  * comparator for message summary structs by descending subject.
133  */
134 int groupchange_subj(const void *s1, const void *s2) {
135         message_summary *summ1;
136         message_summary *summ2;
137         
138         summ1 = (message_summary *)s1;
139         summ2 = (message_summary *)s2;
140         return ChrPtr(summ2->subj)[0] != ChrPtr(summ1->subj)[0];
141 }
142
143 /*
144  * comparator for message summary structs by ascending sender.
145  */
146 int summcmp_sender(const void *s1, const void *s2) {
147         message_summary *summ1;
148         message_summary *summ2;
149         
150         summ1 = (message_summary *)GetSearchPayload(s1);
151         summ2 = (message_summary *)GetSearchPayload(s2);
152         return strcasecmp(ChrPtr(summ1->from), ChrPtr(summ2->from));
153 }
154
155 /*
156  * comparator for message summary structs by descending sender.
157  */
158 int summcmp_rsender(const void *s1, const void *s2) {
159         message_summary *summ1;
160         message_summary *summ2;
161         
162         summ1 = (message_summary *)GetSearchPayload(s1);
163         summ2 = (message_summary *)GetSearchPayload(s2);
164         return strcasecmp(ChrPtr(summ2->from), ChrPtr(summ1->from));
165 }
166 /*
167  * comparator for message summary structs by descending sender.
168  */
169 int groupchange_sender(const void *s1, const void *s2) {
170         message_summary *summ1;
171         message_summary *summ2;
172         
173         summ1 = (message_summary *)s1;
174         summ2 = (message_summary *)s2;
175         return strcasecmp(ChrPtr(summ2->from), ChrPtr(summ1->from)) != 0;
176
177 }
178
179 /*
180  * comparator for message summary structs by ascending date.
181  */
182 int summcmp_date(const void *s1, const void *s2) {
183         message_summary *summ1;
184         message_summary *summ2;
185         
186         summ1 = (message_summary *)GetSearchPayload(s1);
187         summ2 = (message_summary *)GetSearchPayload(s2);
188
189         if (summ1->date < summ2->date) return -1;
190         else if (summ1->date > summ2->date) return +1;
191         else return 0;
192 }
193
194 /*
195  * comparator for message summary structs by descending date.
196  */
197 int summcmp_rdate(const void *s1, const void *s2) {
198         message_summary *summ1;
199         message_summary *summ2;
200         
201         summ1 = (message_summary *)GetSearchPayload(s1);
202         summ2 = (message_summary *)GetSearchPayload(s2);
203
204         if (summ1->date < summ2->date) return +1;
205         else if (summ1->date > summ2->date) return -1;
206         else return 0;
207 }
208
209 /*
210  * comparator for message summary structs by descending date.
211  */
212 const long DAYSECONDS = 24 * 60 * 60;
213 int groupchange_date(const void *s1, const void *s2) {
214         message_summary *summ1;
215         message_summary *summ2;
216         
217         summ1 = (message_summary *)s1;
218         summ2 = (message_summary *)s2;
219
220         return (summ1->date % DAYSECONDS) != (summ2->date %DAYSECONDS);
221 }
222
223
224 /*----------------------------------------------------------------------------*/
225 /* Don't wanna know... or? */
226 void examine_pref(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset) {return;}
227 void examine_suff(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset) {return;}
228 void examine_path(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset) {return;}
229 void examine_content_encoding(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
230 {
231 /* TODO: do we care? */
232 }
233
234 void examine_nhdr(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
235 {
236         Msg->nhdr = 0;
237         if (!strncasecmp(ChrPtr(HdrLine), "yes", 8))
238                 Msg->nhdr = 1;
239 }
240 int Conditional_ANONYMOUS_MESSAGE(StrBuf *Target, WCTemplputParams *TP)
241 {
242         message_summary *Msg = (message_summary*) CTX;
243         return Msg->nhdr != 0;
244 }
245
246 void examine_type(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
247 {
248         Msg->format_type = StrToi(HdrLine);
249                         
250 }
251
252 void examine_from(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
253 {
254         FreeStrBuf(&Msg->from);
255         Msg->from = NewStrBufPlain(NULL, StrLength(HdrLine));
256         StrBuf_RFC822_to_Utf8(Msg->from, HdrLine, WC->DefaultCharset, FoundCharset);
257 }
258 void tmplput_MAIL_SUMM_FROM(StrBuf *Target, WCTemplputParams *TP)
259 {
260         message_summary *Msg = (message_summary*) CTX;
261         StrBufAppendTemplate(Target, TP, Msg->from, 0);
262 }
263
264
265
266 void examine_subj(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
267 {
268         FreeStrBuf(&Msg->subj);
269         Msg->subj = NewStrBufPlain(NULL, StrLength(HdrLine));
270         StrBuf_RFC822_to_Utf8(Msg->subj, HdrLine, WC->DefaultCharset, FoundCharset);
271 }
272 void tmplput_MAIL_SUMM_SUBJECT(StrBuf *Target, WCTemplputParams *TP)
273 {/*////TODO: Fwd: and RE: filter!!*/
274
275         message_summary *Msg = (message_summary*) CTX;
276         StrBufAppendTemplate(Target, TP, Msg->subj, 0);
277 }
278 int Conditional_MAIL_SUMM_SUBJECT(StrBuf *Target, WCTemplputParams *TP)
279 {
280         message_summary *Msg = (message_summary*) CTX;
281         return StrLength(Msg->subj) > 0;
282 }
283
284
285 void examine_msgn(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
286 {
287         FreeStrBuf(&Msg->reply_inreplyto);
288         Msg->reply_inreplyto = NewStrBufPlain(NULL, StrLength(HdrLine));
289         StrBuf_RFC822_to_Utf8(Msg->reply_inreplyto, HdrLine, WC->DefaultCharset, FoundCharset);
290 }
291 void tmplput_MAIL_SUMM_INREPLYTO(StrBuf *Target, WCTemplputParams *TP)
292 {
293         message_summary *Msg = (message_summary*) CTX;
294         StrBufAppendTemplate(Target, TP, Msg->reply_inreplyto, 0);
295 }
296
297 int Conditional_MAIL_SUMM_UNREAD(StrBuf *Target, WCTemplputParams *TP)
298 {
299         message_summary *Msg = (message_summary*) CTX;
300         return Msg->is_new != 0;
301 }
302
303 void examine_wefw(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
304 {
305         FreeStrBuf(&Msg->reply_references);
306         Msg->reply_references = NewStrBufPlain(NULL, StrLength(HdrLine));
307         StrBuf_RFC822_to_Utf8(Msg->reply_references, HdrLine, WC->DefaultCharset, FoundCharset);
308 }
309 void tmplput_MAIL_SUMM_REFIDS(StrBuf *Target, WCTemplputParams *TP)
310 {
311         message_summary *Msg = (message_summary*) CTX;
312         StrBufAppendTemplate(Target, TP, Msg->reply_references, 0);
313 }
314
315
316 void examine_cccc(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
317 {
318         FreeStrBuf(&Msg->cccc);
319         Msg->cccc = NewStrBufPlain(NULL, StrLength(HdrLine));
320         StrBuf_RFC822_to_Utf8(Msg->cccc, HdrLine, WC->DefaultCharset, FoundCharset);
321         if (Msg->AllRcpt == NULL)
322                 Msg->AllRcpt = NewStrBufPlain(NULL, StrLength(HdrLine));
323         if (StrLength(Msg->AllRcpt) > 0) {
324                 StrBufAppendBufPlain(Msg->AllRcpt, HKEY(", "), 0);
325         }
326         StrBufAppendBuf(Msg->AllRcpt, Msg->cccc, 0);
327 }
328 void tmplput_MAIL_SUMM_CCCC(StrBuf *Target, WCTemplputParams *TP)
329 {
330         message_summary *Msg = (message_summary*) CTX;
331         StrBufAppendTemplate(Target, TP, Msg->cccc, 0);
332 }
333
334
335 void examine_room(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
336 {
337         if ((StrLength(HdrLine) > 0) &&
338             (strcasecmp(ChrPtr(HdrLine), ChrPtr(WC->CurRoom.name)))) {
339                 FreeStrBuf(&Msg->Room);
340                 Msg->Room = NewStrBufDup(HdrLine);              
341         }
342 }
343 void tmplput_MAIL_SUMM_ORGROOM(StrBuf *Target, WCTemplputParams *TP)
344 {
345         message_summary *Msg = (message_summary*) CTX;
346         StrBufAppendTemplate(Target, TP, Msg->Room, 0);
347 }
348
349
350 void examine_rfca(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
351 {
352         FreeStrBuf(&Msg->Rfca);
353         Msg->Rfca = NewStrBufDup(HdrLine);
354 }
355 void tmplput_MAIL_SUMM_RFCA(StrBuf *Target, WCTemplputParams *TP)
356 {
357         message_summary *Msg = (message_summary*) CTX;
358         StrBufAppendTemplate(Target, TP, Msg->Rfca, 0);
359 }
360 int Conditional_MAIL_SUMM_RFCA(StrBuf *Target, WCTemplputParams *TP)
361 {
362         message_summary *Msg = (message_summary*) CTX;
363         return StrLength(Msg->Rfca) > 0;
364 }
365 int Conditional_MAIL_SUMM_CCCC(StrBuf *Target, WCTemplputParams *TP)
366 {
367         message_summary *Msg = (message_summary*) CTX;
368         return StrLength(Msg->cccc) > 0;
369 }
370
371 void examine_node(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
372 {
373         wcsession *WCC = WC;
374
375         if ( (StrLength(HdrLine) > 0) &&
376              ((WC->CurRoom.QRFlags & QR_NETWORK)
377               || ((strcasecmp(ChrPtr(HdrLine), ChrPtr(WCC->serv_info->serv_nodename))
378                    && (strcasecmp(ChrPtr(HdrLine), ChrPtr(WCC->serv_info->serv_fqdn))))))) {
379                 FreeStrBuf(&Msg->OtherNode);
380                 Msg->OtherNode = NewStrBufDup(HdrLine);
381         }
382 }
383 void tmplput_MAIL_SUMM_OTHERNODE(StrBuf *Target, WCTemplputParams *TP)
384 {
385         message_summary *Msg = (message_summary*) CTX;
386         StrBufAppendTemplate(Target, TP, Msg->OtherNode, 0);
387 }
388 int Conditional_MAIL_SUMM_OTHERNODE(StrBuf *Target, WCTemplputParams *TP)
389 {
390         message_summary *Msg = (message_summary*) CTX;
391         return StrLength(Msg->OtherNode) > 0;
392 }
393
394
395 void examine_rcpt(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
396 {
397         FreeStrBuf(&Msg->to);
398         Msg->to = NewStrBufPlain(NULL, StrLength(HdrLine));
399         StrBuf_RFC822_to_Utf8(Msg->to, HdrLine, WC->DefaultCharset, FoundCharset);
400         if (Msg->AllRcpt == NULL)
401                 Msg->AllRcpt = NewStrBufPlain(NULL, StrLength(HdrLine));
402         if (StrLength(Msg->AllRcpt) > 0) {
403                 StrBufAppendBufPlain(Msg->AllRcpt, HKEY(", "), 0);
404         }
405         StrBufAppendBuf(Msg->AllRcpt, Msg->to, 0);
406 }
407 void tmplput_MAIL_SUMM_TO(StrBuf *Target, WCTemplputParams *TP)
408 {
409         message_summary *Msg = (message_summary*) CTX;
410         StrBufAppendTemplate(Target, TP, Msg->to, 0);
411 }
412 int Conditional_MAIL_SUMM_TO(StrBuf *Target, WCTemplputParams *TP) 
413 {
414         message_summary *Msg = (message_summary*) CTX;
415         return StrLength(Msg->to) != 0;
416 }
417 int Conditional_MAIL_SUMM_SUBJ(StrBuf *Target, WCTemplputParams *TP) 
418 {
419         message_summary *Msg = (message_summary*) CTX;
420         return StrLength(Msg->subj) != 0;
421 }
422 void tmplput_MAIL_SUMM_ALLRCPT(StrBuf *Target, WCTemplputParams *TP)
423 {
424         message_summary *Msg = (message_summary*) CTX;
425         StrBufAppendTemplate(Target, TP, Msg->AllRcpt, 0);
426 }
427
428
429
430 void tmplput_SUMM_COUNT(StrBuf *Target, WCTemplputParams *TP)
431 {
432         StrBufAppendPrintf(Target, "%d", GetCount( WC->summ));
433 }
434
435 HashList *iterate_get_mailsumm_All(StrBuf *Target, WCTemplputParams *TP)
436 {
437         return WC->summ;
438 }
439 void examine_time(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
440 {
441         Msg->date = StrTol(HdrLine);
442 }
443
444 void tmplput_MAIL_SUMM_DATE_BRIEF(StrBuf *Target, WCTemplputParams *TP)
445 {
446         char datebuf[64];
447         message_summary *Msg = (message_summary*) CTX;
448         webcit_fmt_date(datebuf, 64, Msg->date, DATEFMT_BRIEF);
449         StrBufAppendBufPlain(Target, datebuf, -1, 0);
450 }
451
452 void tmplput_MAIL_SUMM_EUID(StrBuf *Target, WCTemplputParams *TP)
453 {
454         message_summary *Msg = (message_summary*) CTX;
455         StrBufAppendTemplate(Target, TP, Msg->euid, 0);
456 }
457
458 void tmplput_MAIL_SUMM_DATE_FULL(StrBuf *Target, WCTemplputParams *TP)
459 {
460         char datebuf[64];
461         message_summary *Msg = (message_summary*) CTX;
462         webcit_fmt_date(datebuf, 64, Msg->date, DATEFMT_FULL);
463         StrBufAppendBufPlain(Target, datebuf, -1, 0);
464 }
465 void tmplput_MAIL_SUMM_DATE_NO(StrBuf *Target, WCTemplputParams *TP)
466 {
467         message_summary *Msg = (message_summary*) CTX;
468         StrBufAppendPrintf(Target, "%ld", Msg->date, 0);
469 }
470
471
472
473 void render_MAIL(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
474 {
475         const StrBuf *TemplateMime;
476
477         if (Mime->Data == NULL) 
478                 Mime->Data = NewStrBufPlain(NULL, Mime->length);
479         else 
480                 FlushStrBuf(Mime->Data);
481         read_message(Mime->Data, HKEY("view_submessage"), Mime->msgnum, Mime->PartNum, &TemplateMime);
482 /*
483         if ( (!IsEmptyStr(mime_submessages)) && (!section[0]) ) {
484                 for (i=0; i<num_tokens(mime_submessages, '|'); ++i) {
485                         extract_token(buf, mime_submessages, i, '|', sizeof buf);
486                         / ** use printable_view to suppress buttons * /
487                         wc_printf("<blockquote>");
488                         read_message(Mime->msgnum, 1, ChrPtr(Mime->Section));
489                         wc_printf("</blockquote>");
490                 }
491         }
492 */
493 }
494
495 void render_MIME_VCard(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
496 {
497         wcsession *WCC = WC;
498         if (StrLength(Mime->Data) == 0)
499                 MimeLoadData(Mime);
500         if (StrLength(Mime->Data) > 0) {
501                 StrBuf *Buf;
502                 Buf = NewStrBuf();
503                 /** If it's my vCard I can edit it */
504                 if (    (!strcasecmp(ChrPtr(WCC->CurRoom.name), USERCONFIGROOM))
505                         || (!strcasecmp(&(ChrPtr(WCC->CurRoom.name)[11]), USERCONFIGROOM))
506                         || (WC->CurRoom.view == VIEW_ADDRESSBOOK)
507                         ) {
508                         StrBufAppendPrintf(Buf, "<a href=\"edit_vcard?msgnum=%ld?partnum=%s\">",
509                                 Mime->msgnum, ChrPtr(Mime->PartNum));
510                         StrBufAppendPrintf(Buf, "[%s]</a>", _("edit"));
511                 }
512
513                 /* In all cases, display the full card */
514                 display_vcard(Buf, Mime->Data, 0, 1, NULL, Mime->msgnum);
515                 FreeStrBuf(&Mime->Data);
516                 Mime->Data = Buf;
517         }
518
519 }
520
521 void render_MIME_VNote(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
522 {
523         if (StrLength(Mime->Data) == 0)
524                 MimeLoadData(Mime);
525         if (StrLength(Mime->Data) > 0) {
526                 struct vnote *v;
527                 StrBuf *Buf;
528                 char *vcard;
529
530                 Buf = NewStrBuf();
531                 vcard = SmashStrBuf(&Mime->Data);
532                 v = vnote_new_from_str(vcard);
533                 free (vcard);
534                 if (v) {
535                         WCTemplputParams TP;
536                         
537                         memset(&TP, 0, sizeof(WCTemplputParams));
538                         TP.Filter.ContextType = CTX_VNOTE;
539                         TP.Context = v;
540                         DoTemplate(HKEY("mail_vnoteitem"),
541                                    Buf, &TP);
542                         
543                         vnote_free(v);
544                         Mime->Data = Buf;
545                 }
546                 else {
547                         if (Mime->Data == NULL)
548                                 Mime->Data = NewStrBuf();
549                         else
550                                 FlushStrBuf(Mime->Data);
551                 }
552         }
553 }
554
555 void render_MIME_ICS(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
556 {
557         if (StrLength(Mime->Data) == 0) {
558                 MimeLoadData(Mime);
559         }
560         if (StrLength(Mime->Data) > 0) {
561                 cal_process_attachment(Mime);
562         }
563 }
564
565
566
567 void examine_mime_part(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
568 {
569         wc_mime_attachment *Mime;
570         StrBuf *Buf;
571         
572         Mime = (wc_mime_attachment*) malloc(sizeof(wc_mime_attachment));
573         memset(Mime, 0, sizeof(wc_mime_attachment));
574         Mime->msgnum = Msg->msgnum;
575         Buf = NewStrBuf();
576
577         Mime->Name = NewStrBuf();
578         StrBufExtract_token(Buf, HdrLine, 0, '|');
579         StrBuf_RFC822_to_Utf8(Mime->Name, Buf, WC->DefaultCharset, FoundCharset);
580         StrBufTrim(Mime->Name);
581
582         StrBufExtract_token(Buf, HdrLine, 1, '|');
583         Mime->FileName = NewStrBuf();
584         StrBuf_RFC822_to_Utf8(Mime->FileName, Buf, WC->DefaultCharset, FoundCharset);
585         StrBufTrim(Mime->FileName);
586
587         Mime->PartNum = NewStrBuf();
588         StrBufExtract_token(Mime->PartNum, HdrLine, 2, '|');
589         StrBufTrim(Mime->PartNum);
590         if (strchr(ChrPtr(Mime->PartNum), '.') != NULL) 
591                 Mime->level = 2;
592         else
593                 Mime->level = 1;
594
595         Mime->Disposition = NewStrBuf();
596         StrBufExtract_token(Mime->Disposition, HdrLine, 3, '|');
597
598         Mime->ContentType = NewStrBuf();
599         StrBufExtract_token(Mime->ContentType, HdrLine, 4, '|');
600         StrBufTrim(Mime->ContentType);
601         StrBufLowerCase(Mime->ContentType);
602
603         if (!strcmp(ChrPtr(Mime->ContentType), "application/octet-stream")) {
604                 StrBufPlain(Mime->ContentType, 
605                             GuessMimeByFilename(SKEY(Mime->FileName)), -1);
606         }
607         Mime->length = StrBufExtract_int(HdrLine, 5, '|');
608
609         if ( (StrLength(Mime->FileName) == 0) && (StrLength(Mime->Name) > 0) ) {
610                 StrBufAppendBuf(Mime->FileName, Mime->Name, 0);
611         }
612
613         if (StrLength(Msg->PartNum) > 0) {
614                 StrBuf *tmp;
615                 StrBufPrintf(Buf, "%s.%s", ChrPtr(Msg->PartNum), ChrPtr(Mime->PartNum));
616                 tmp = Mime->PartNum;
617                 Mime->PartNum = Buf;
618                 Buf = tmp;
619         }
620
621         if (Msg->AllAttach == NULL)
622                 Msg->AllAttach = NewHash(1,NULL);
623         Put(Msg->AllAttach, SKEY(Mime->PartNum), Mime, DestroyMime);
624         FreeStrBuf(&Buf);
625 }
626
627
628 void evaluate_mime_part(message_summary *Msg, wc_mime_attachment *Mime)
629 {
630         void *vMimeRenderer;
631
632         /* just print the root-node */
633         if ((Mime->level == 1) &&
634             GetHash(MimeRenderHandler, SKEY(Mime->ContentType), &vMimeRenderer) &&
635             vMimeRenderer != NULL)
636         {
637                 Mime->Renderer = (RenderMimeFuncStruct*) vMimeRenderer;
638                 if (Msg->Submessages == NULL)
639                         Msg->Submessages = NewHash(1,NULL);
640                 Put(Msg->Submessages, SKEY(Mime->PartNum), Mime, reference_free_handler);
641         }
642         else if ((Mime->level == 1) &&
643                  (!strcasecmp(ChrPtr(Mime->Disposition), "inline"))
644                  && (!strncasecmp(ChrPtr(Mime->ContentType), "image/", 6)) ){
645                 if (Msg->AttachLinks == NULL)
646                         Msg->AttachLinks = NewHash(1,NULL);
647                 Put(Msg->AttachLinks, SKEY(Mime->PartNum), Mime, reference_free_handler);
648         }
649         else if ((Mime->level == 1) &&
650                  (StrLength(Mime->ContentType) > 0) &&
651                   ( (!strcasecmp(ChrPtr(Mime->Disposition), "attachment")) 
652                     || (!strcasecmp(ChrPtr(Mime->Disposition), "inline"))
653                     || (!strcasecmp(ChrPtr(Mime->Disposition), ""))))
654         {               
655                 if (Msg->AttachLinks == NULL)
656                         Msg->AttachLinks = NewHash(1,NULL);
657                 Put(Msg->AttachLinks, SKEY(Mime->PartNum), Mime, reference_free_handler);
658                 if ((strcasecmp(ChrPtr(Mime->ContentType), "application/octet-stream") == 0) && 
659                     (StrLength(Mime->FileName) > 0)) {
660                         FlushStrBuf(Mime->ContentType);
661                         StrBufAppendBufPlain(Mime->ContentType,
662                                              GuessMimeByFilename(SKEY(Mime->FileName)),
663                                              -1, 0);
664                 }
665         }
666 }
667
668 void tmplput_MAIL_SUMM_NATTACH(StrBuf *Target, WCTemplputParams *TP)
669 {
670         message_summary *Msg = (message_summary*) CTX;
671         StrBufAppendPrintf(Target, "%ld", GetCount(Msg->Attachments));
672 }
673
674
675 void examine_hnod(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
676 {
677         FreeStrBuf(&Msg->hnod);
678         Msg->hnod = NewStrBufPlain(NULL, StrLength(HdrLine));
679         StrBuf_RFC822_to_Utf8(Msg->hnod, HdrLine, WC->DefaultCharset, FoundCharset);
680 }
681 void tmplput_MAIL_SUMM_H_NODE(StrBuf *Target, WCTemplputParams *TP)
682 {
683         message_summary *Msg = (message_summary*) CTX;
684         StrBufAppendTemplate(Target, TP, Msg->hnod, 0);
685 }
686 int Conditional_MAIL_SUMM_H_NODE(StrBuf *Target, WCTemplputParams *TP)
687 {
688         message_summary *Msg = (message_summary*) CTX;
689         return StrLength(Msg->hnod) > 0;
690 }
691
692
693
694 void examine_text(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
695 {
696         if (Msg->MsgBody->Data == NULL)
697                 Msg->MsgBody->Data = NewStrBufPlain(NULL, SIZ);
698         else
699                 FlushStrBuf(Msg->MsgBody->Data);
700 }
701
702 void examine_msg4_partnum(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
703 {
704         Msg->MsgBody->PartNum = NewStrBufDup(HdrLine);
705         StrBufTrim(Msg->MsgBody->PartNum);
706 }
707
708 void examine_content_lengh(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
709 {
710         Msg->MsgBody->length = StrTol(HdrLine);
711         Msg->MsgBody->size_known = 1;
712 }
713
714 void examine_content_type(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
715 {
716         void *vHdr;
717         headereval *Hdr;
718         StrBuf *Token;
719         StrBuf *Value;
720         const char* sem;
721         const char *eq;
722         int len;
723         StrBufTrim(HdrLine);
724         Msg->MsgBody->ContentType = NewStrBufDup(HdrLine);
725         sem = strchr(ChrPtr(HdrLine), ';');
726
727         if (sem != NULL) {
728                 Token = NewStrBufPlain(NULL, StrLength(HdrLine));
729                 Value = NewStrBufPlain(NULL, StrLength(HdrLine));
730                 len = sem - ChrPtr(HdrLine);
731                 StrBufCutAt(Msg->MsgBody->ContentType, len, NULL);
732                 while (sem != NULL) {
733                         while (isspace(*(sem + 1)))
734                                 sem ++;
735                         StrBufCutLeft(HdrLine, sem - ChrPtr(HdrLine));
736                         sem = strchr(ChrPtr(HdrLine), ';');
737                         if (sem != NULL)
738                                 len = sem - ChrPtr(HdrLine);
739                         else
740                                 len = StrLength(HdrLine);
741                         FlushStrBuf(Token);
742                         FlushStrBuf(Value);
743                         StrBufAppendBufPlain(Token, ChrPtr(HdrLine), len, 0);
744                         eq = strchr(ChrPtr(Token), '=');
745                         if (eq != NULL) {
746                                 len = eq - ChrPtr(Token);
747                                 StrBufAppendBufPlain(Value, eq + 1, StrLength(Token) - len - 1, 0); 
748                                 StrBufCutAt(Token, len, NULL);
749                                 StrBufTrim(Value);
750                         }
751                         StrBufTrim(Token);
752
753                         if (GetHash(MsgHeaderHandler, SKEY(Token), &vHdr) &&
754                             (vHdr != NULL)) {
755                                 Hdr = (headereval*)vHdr;
756                                 Hdr->evaluator(Msg, Value, FoundCharset);
757                         }
758                         else lprintf(1, "don't know how to handle content type sub-header[%s]\n", ChrPtr(Token));
759                 }
760                 FreeStrBuf(&Token);
761                 FreeStrBuf(&Value);
762         }
763 }
764
765 void tmplput_MAIL_SUMM_N(StrBuf *Target, WCTemplputParams *TP)
766 {
767         message_summary *Msg = (message_summary*) CTX;
768         StrBufAppendPrintf(Target, "%ld", Msg->msgnum);
769 }
770
771
772
773 int Conditional_MAIL_MIME_ALL(StrBuf *Target, WCTemplputParams *TP)
774 {
775         message_summary *Msg = (message_summary*) CTX;
776         return GetCount(Msg->Attachments) > 0;
777 }
778
779 int Conditional_MAIL_MIME_SUBMESSAGES(StrBuf *Target, WCTemplputParams *TP)
780 {
781         message_summary *Msg = (message_summary*) CTX;
782         return GetCount(Msg->Submessages) > 0;
783 }
784
785 int Conditional_MAIL_MIME_ATTACHLINKS(StrBuf *Target, WCTemplputParams *TP)
786 {
787         message_summary *Msg = (message_summary*) CTX;
788         return GetCount(Msg->AttachLinks) > 0;
789 }
790
791 int Conditional_MAIL_MIME_ATTACH(StrBuf *Target, WCTemplputParams *TP)
792 {
793         message_summary *Msg = (message_summary*) CTX;
794         return GetCount(Msg->AllAttach) > 0;
795 }
796
797 void tmplput_QUOTED_MAIL_BODY(StrBuf *Target, WCTemplputParams *TP)
798 {
799         const StrBuf *Mime;
800         long MsgNum;
801         StrBuf *Buf;
802
803         MsgNum = LBstr(TKEY(0));
804         Buf = NewStrBuf();
805         read_message(Buf, HKEY("view_message_replyquote"), MsgNum, NULL, &Mime);
806         StrBufAppendTemplate(Target, TP, Buf, 1);
807         FreeStrBuf(&Buf);
808 }
809
810 void tmplput_EDIT_MAIL_BODY(StrBuf *Target, WCTemplputParams *TP)
811 {
812         const StrBuf *Mime;
813         long MsgNum;
814         StrBuf *Buf;
815
816         MsgNum = LBstr(TKEY(0));
817         Buf = NewStrBuf();
818         read_message(Buf, HKEY("view_message_edit"), MsgNum, NULL, &Mime);
819         StrBufAppendTemplate(Target, TP, Buf, 1);
820         FreeStrBuf(&Buf);
821 }
822
823 void tmplput_EDIT_WIKI_BODY(StrBuf *Target, WCTemplputParams *TP)
824 {
825         const StrBuf *Mime;
826         long msgnum;
827         StrBuf *Buf;
828
829         msgnum = locate_message_by_uid(BSTR("page"));
830         if (msgnum >= 0L) {
831                 Buf = NewStrBuf();
832                 read_message(Buf, HKEY("view_message_wikiedit"), msgnum, NULL, &Mime);
833                 StrBufAppendTemplate(Target, TP, Buf, 1);
834                 FreeStrBuf(&Buf);
835         }
836 }
837
838 void tmplput_MAIL_BODY(StrBuf *Target, WCTemplputParams *TP)
839 {
840         message_summary *Msg = (message_summary*) CTX;
841         StrBufAppendTemplate(Target, TP, Msg->MsgBody->Data, 0);
842 }
843
844
845 void render_MAIL_variformat(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
846 {
847         /* Messages in legacy Citadel variformat get handled thusly... */
848         StrBuf *Target = NewStrBufPlain(NULL, StrLength(Mime->Data));
849         FmOut(Target, "JUSTIFY", Mime->Data);
850         FreeStrBuf(&Mime->Data);
851         Mime->Data = Target;
852 }
853
854 void render_MAIL_text_plain(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
855 {
856         const char *ptr, *pte;
857         const char *BufPtr = NULL;
858         StrBuf *Line;
859         StrBuf *Line1;
860         StrBuf *Line2;
861         StrBuf *Target;
862
863         int bn = 0;
864         int bq = 0;
865         int i;
866         long len;
867 #ifdef HAVE_ICONV
868         StrBuf *cs = NULL;
869         int ConvertIt = 1;
870         iconv_t ic = (iconv_t)(-1) ;
871 #endif
872
873         if ((StrLength(Mime->Data) == 0) && (Mime->length > 0)) {
874                 FreeStrBuf(&Mime->Data);
875                 MimeLoadData(Mime);
876         }
877
878 #ifdef HAVE_ICONV
879         if (ConvertIt) {
880                 if (StrLength(Mime->Charset) != 0)
881                         cs = Mime->Charset;
882                 else if (StrLength(FoundCharset) > 0)
883                         cs = FoundCharset;
884                 else if (StrLength(WC->DefaultCharset) > 0)
885                         cs = WC->DefaultCharset;
886                 if (cs == NULL) {
887                         ConvertIt = 0;
888                 }
889                 else if (!strcasecmp(ChrPtr(cs), "utf-8")) {
890                         ConvertIt = 0;
891                 }
892                 else if (!strcasecmp(ChrPtr(cs), "us-ascii")) {
893                         ConvertIt = 0;
894                 }
895                 else {
896                         ctdl_iconv_open("UTF-8", ChrPtr(cs), &ic);
897                         if (ic == (iconv_t)(-1) ) {
898                                 lprintf(5, "%s:%d iconv_open(UTF-8, %s) failed: %s\n",
899                                         __FILE__, __LINE__, ChrPtr(Mime->Charset), strerror(errno));
900                         }
901                 }
902         }
903 #endif
904         Line = NewStrBufPlain(NULL, SIZ);
905         Line1 = NewStrBufPlain(NULL, SIZ);
906         Line2 = NewStrBufPlain(NULL, SIZ);
907         Target = NewStrBufPlain(NULL, StrLength(Mime->Data));
908
909         if (StrLength(Mime->Data) > 0) 
910                 do 
911                 {
912                         StrBufSipLine(Line, Mime->Data, &BufPtr);
913                         bq = 0;
914                         i = 0;
915                         ptr = ChrPtr(Line);
916                         len = StrLength(Line);
917                         pte = ptr + len;
918                 
919                         while ((ptr < pte) &&
920                                ((*ptr == '>') ||
921                                 isspace(*ptr)))
922                         {
923                                 if (*ptr == '>')
924                                         bq++;
925                                 ptr ++;
926                                 i++;
927                         }
928                         if (i > 0) StrBufCutLeft(Line, i);
929                 
930                         if (StrLength(Line) == 0) {
931                                 StrBufAppendBufPlain(Target, HKEY("<tt></tt><br />\n"), 0);
932                                 continue;
933                         }
934
935                         for (i = bn; i < bq; i++)                               
936                                 StrBufAppendBufPlain(Target, HKEY("<blockquote>"), 0);
937                         for (i = bq; i < bn; i++)                               
938                                 StrBufAppendBufPlain(Target, HKEY("</blockquote>"), 0);
939 #ifdef HAVE_ICONV
940                         if (ConvertIt) {
941                                 StrBufConvert(Line, Line1, &ic);
942                         }
943 #endif
944                         StrBufAppendBufPlain(Target, HKEY("<tt>"), 0);
945                         UrlizeText(Line1, Line, Line2);
946
947                         StrEscAppend(Target, Line1, NULL, 0, 0);
948                         StrBufAppendBufPlain(Target, HKEY("</tt><br />\n"), 0);
949                         bn = bq;
950                 }
951         while ((BufPtr != StrBufNOTNULL) &&
952                (BufPtr != NULL));
953
954         for (i = 0; i < bn; i++)                                
955                 StrBufAppendBufPlain(Target, HKEY("</blockquote>"), 0);
956
957         StrBufAppendBufPlain(Target, HKEY("</i><br />"), 0);
958 #ifdef HAVE_ICONV
959         if (ic != (iconv_t)(-1) ) {
960                 iconv_close(ic);
961         }
962 #endif
963
964         FreeStrBuf(&Mime->Data);
965         Mime->Data = Target;
966         FlushStrBuf(Mime->ContentType);
967         StrBufAppendBufPlain(Mime->ContentType, HKEY("text/html"), 0);
968         FlushStrBuf(Mime->Charset);
969         StrBufAppendBufPlain(Mime->Charset, HKEY("UTF-8"), 0);
970         FreeStrBuf(&Line);
971         FreeStrBuf(&Line1);
972         FreeStrBuf(&Line2);
973 }
974
975 void render_MAIL_html(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
976 {
977         StrBuf *Buf;
978
979         if (StrLength(Mime->Data) == 0)
980                 return;
981
982         Buf = NewStrBufPlain(NULL, StrLength(Mime->Data));
983
984         /* HTML is fun, but we've got to strip it first */
985         output_html(ChrPtr(Mime->Charset), 
986                     (WC->CurRoom.view == VIEW_WIKI ? 1 : 0), 
987                     Mime->msgnum,
988                     Mime->Data, Buf);
989         FreeStrBuf(&Mime->Data);
990         Mime->Data = Buf;
991 }
992
993 void render_MAIL_UNKNOWN(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
994 {
995         /* Unknown weirdness */
996         FlushStrBuf(Mime->Data);
997         StrBufAppendBufPlain(Mime->Data, _("I don't know how to display "), -1, 0);
998         StrBufAppendBuf(Mime->Data, Mime->ContentType, 0);
999         StrBufAppendBufPlain(Mime->Data, HKEY("<br />\n"), 0);
1000 }
1001
1002
1003 HashList *iterate_get_mime_All(StrBuf *Target, WCTemplputParams *TP)
1004 {
1005         message_summary *Msg = (message_summary*) CTX;
1006         return Msg->Attachments;
1007 }
1008 HashList *iterate_get_mime_Submessages(StrBuf *Target, WCTemplputParams *TP)
1009 {
1010         message_summary *Msg = (message_summary*) CTX;
1011         return Msg->Submessages;
1012 }
1013 HashList *iterate_get_mime_AttachLinks(StrBuf *Target, WCTemplputParams *TP)
1014 {
1015         message_summary *Msg = (message_summary*) CTX;
1016         return Msg->AttachLinks;
1017 }
1018 HashList *iterate_get_mime_Attachments(StrBuf *Target, WCTemplputParams *TP)
1019 {
1020         message_summary *Msg = (message_summary*) CTX;
1021         return Msg->AllAttach;
1022 }
1023
1024 void tmplput_MIME_Name(StrBuf *Target, WCTemplputParams *TP)
1025 {
1026         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1027         StrBufAppendTemplate(Target, TP, mime->Name, 0);
1028 }
1029
1030 void tmplput_MIME_FileName(StrBuf *Target, WCTemplputParams *TP)
1031 {
1032         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1033         StrBufAppendTemplate(Target, TP, mime->FileName, 0);
1034 }
1035
1036 void tmplput_MIME_PartNum(StrBuf *Target, WCTemplputParams *TP)
1037 {
1038         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1039         StrBufAppendTemplate(Target, TP, mime->PartNum, 0);
1040 }
1041
1042 void tmplput_MIME_MsgNum(StrBuf *Target, WCTemplputParams *TP)
1043 {
1044         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1045         StrBufAppendPrintf(Target, "%ld", mime->msgnum);
1046 }
1047
1048 void tmplput_MIME_Disposition(StrBuf *Target, WCTemplputParams *TP)
1049 {
1050         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1051         StrBufAppendTemplate(Target, TP, mime->Disposition, 0);
1052 }
1053
1054 void tmplput_MIME_ContentType(StrBuf *Target, WCTemplputParams *TP)
1055 {
1056         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1057         StrBufAppendTemplate(Target, TP, mime->ContentType, 0);
1058 }
1059
1060 void examine_charset(message_summary *Msg, StrBuf *HdrLine, StrBuf *FoundCharset)
1061 {
1062         Msg->MsgBody->Charset = NewStrBufDup(HdrLine);
1063 }
1064
1065 void tmplput_MIME_Charset(StrBuf *Target, WCTemplputParams *TP)
1066 {
1067         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1068         StrBufAppendTemplate(Target, TP, mime->Charset, 0);
1069 }
1070
1071 void tmplput_MIME_Data(StrBuf *Target, WCTemplputParams *TP)
1072 {
1073         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1074         if (mime->Renderer != NULL)
1075                 mime->Renderer->f(mime, NULL, NULL);
1076         StrBufAppendTemplate(Target, TP, mime->Data, 0);
1077         /* TODO: check whether we need to load it now? */
1078 }
1079
1080 void tmplput_MIME_LoadData(StrBuf *Target, WCTemplputParams *TP)
1081 {
1082         wcsession *WCC = WC;    
1083         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1084         wc_mime_attachment *att;
1085         
1086         if (( (!strcasecmp(ChrPtr(mime->Disposition), "inline"))||
1087               (!strcasecmp(ChrPtr(mime->Disposition), "attachment"))) && 
1088             (strcasecmp(ChrPtr(mime->ContentType), "application/ms-tnef")!=0))
1089         {
1090                 
1091                 int n;
1092                 char N[64];
1093                 /* steal this mime part... */
1094                 att = malloc(sizeof(wc_mime_attachment));
1095                 memcpy(att, mime, sizeof(wc_mime_attachment));
1096                 memset(mime, 0, sizeof(wc_mime_attachment));
1097
1098                 if (att->Data == NULL) 
1099                         MimeLoadData(att);
1100
1101                 if (WCC->attachments == NULL)
1102                         WCC->attachments = NewHash(1, NULL);
1103                 /* And add it to the list. */
1104                 n = snprintf(N, sizeof N, "%d", GetCount(WCC->attachments) + 1);
1105                 Put(WCC->attachments, N, n, att, DestroyMime);
1106         }
1107 }
1108
1109 void tmplput_MIME_Length(StrBuf *Target, WCTemplputParams *TP)
1110 {
1111         wc_mime_attachment *mime = (wc_mime_attachment*) CTX;
1112         StrBufAppendPrintf(Target, "%ld", mime->length);
1113 }
1114
1115 HashList *iterate_get_registered_Attachments(StrBuf *Target, WCTemplputParams *TP)
1116 {
1117         return WC->attachments;
1118 }
1119
1120 void servcmd_do_search(char *buf, long bufsize)
1121 {
1122         snprintf(buf, bufsize, "MSGS SEARCH|%s", bstr("query"));
1123 }
1124
1125 void servcmd_headers(char *buf, long bufsize)
1126 {
1127         snprintf(buf, bufsize, "MSGS ALL");
1128 }
1129
1130 void servcmd_readfwd(char *buf, long bufsize)
1131 {
1132         snprintf(buf, bufsize, "MSGS ALL");
1133 }
1134
1135 void servcmd_readgt(char *buf, long bufsize)
1136 {
1137         snprintf(buf, bufsize, "MSGS GT|%s", bstr("gt"));
1138 }
1139
1140 void servcmd_readlt(char *buf, long bufsize)
1141 {
1142         snprintf(buf, bufsize, "MSGS LT|%s", bstr("lt"));
1143 }
1144
1145 void servcmd_readnew(char *buf, long bufsize)
1146 {
1147         snprintf(buf, bufsize, "MSGS NEW");
1148 }
1149
1150 void servcmd_readold(char *buf, long bufsize)
1151 {
1152         snprintf(buf, bufsize, "MSGS OLD");
1153 }
1154
1155
1156 readloop_struct rlid[] = {
1157         { {HKEY("do_search")},  servcmd_do_search       },
1158         { {HKEY("headers")},    servcmd_headers         },
1159         { {HKEY("readfwd")},    servcmd_readfwd         },
1160         { {HKEY("readnew")},    servcmd_readnew         },
1161         { {HKEY("readold")},    servcmd_readold         },
1162         { {HKEY("readgt")},     servcmd_readgt          },
1163         { {HKEY("readlt")},     servcmd_readlt          }
1164 };
1165
1166
1167 int ParseMessageListHeaders_Detail(StrBuf *Line, 
1168                                    const char **pos, 
1169                                    message_summary *Msg, 
1170                                    StrBuf *ConversionBuffer)
1171 {
1172         wcsession *WCC = WC;
1173
1174         Msg->from = NewStrBufPlain(NULL, StrLength(Line));
1175         StrBufExtract_NextToken(ConversionBuffer, Line, pos, '|');
1176         if (StrLength(ConversionBuffer) != 0) {
1177                 /* Handle senders with RFC2047 encoding */
1178                 StrBuf_RFC822_to_Utf8(Msg->from, ConversionBuffer, WCC->DefaultCharset, NULL);
1179         }
1180                         
1181         /* node name */
1182         StrBufExtract_NextToken(ConversionBuffer, Line, pos, '|');
1183         if ((StrLength(ConversionBuffer) !=0 ) &&
1184                     ( ((WCC->CurRoom.QRFlags & QR_NETWORK)
1185                || ((strcasecmp(ChrPtr(ConversionBuffer), ChrPtr(WCC->serv_info->serv_nodename))
1186                     && (strcasecmp(ChrPtr(ConversionBuffer), ChrPtr(WCC->serv_info->serv_fqdn))))))))
1187         {
1188                 StrBufAppendBufPlain(Msg->from, HKEY(" @ "), 0);
1189                 StrBufAppendBuf(Msg->from, ConversionBuffer, 0);
1190         }
1191
1192         /* Internet address (not used)
1193          *      StrBufExtract_token(Msg->inetaddr, Line, 4, '|');
1194          */
1195         StrBufSkip_NTokenS(Line, pos, '|', 1);
1196         Msg->subj = NewStrBufPlain(NULL, StrLength(Line));
1197         StrBufExtract_NextToken(ConversionBuffer,  Line, pos, '|');
1198         if (StrLength(ConversionBuffer) == 0)
1199                 StrBufAppendBufPlain(Msg->subj, _("(no subject)"), -1,0);
1200         else {
1201                 StrBuf_RFC822_to_Utf8(Msg->subj, ConversionBuffer, WCC->DefaultCharset, NULL);
1202                 if ((StrLength(Msg->subj) > 75) && 
1203                     (StrBuf_Utf8StrLen(Msg->subj) > 75)) {
1204                         StrBuf_Utf8StrCut(Msg->subj, 72);
1205                         StrBufAppendBufPlain(Msg->subj, HKEY("..."), 0);
1206                 }
1207         }
1208
1209         if ((StrLength(Msg->from) > 25) && 
1210             (StrBuf_Utf8StrLen(Msg->from) > 25)) {
1211                 StrBuf_Utf8StrCut(Msg->from, 23);
1212                 StrBufAppendBufPlain(Msg->from, HKEY("..."), 0);
1213         }
1214         return 1;
1215 }
1216
1217 /* Spit out the new summary view. This is basically a static page, so clients can cache the layout, all the dirty work is javascript :) */
1218 void new_summary_view(void) {
1219         DoTemplate(HKEY("msg_listview"),NULL,&NoCtx);
1220 }
1221
1222
1223 int mailview_GetParamsGetServerCall(SharedMessageStatus *Stat, 
1224                                     void **ViewSpecific, 
1225                                     long oper, 
1226                                     char *cmd, 
1227                                     long len)
1228 {
1229         if (!WC->is_ajax) {
1230                 new_summary_view();
1231                 return 200;
1232         } else {
1233                 Stat->defaultsortorder = 2;
1234                 Stat->sortit = 1;
1235                 Stat->load_seen = 1;
1236                 /* Generally using maxmsgs|startmsg is not required
1237                    in mailbox view, but we have a 'safemode' for clients
1238                    (*cough* Exploder) that simply can't handle too many */
1239                 if (havebstr("maxmsgs"))  Stat->maxmsgs  = ibstr("maxmsgs");
1240                 else                      Stat->maxmsgs  = 9999999;
1241                 if (havebstr("startmsg")) Stat->startmsg = lbstr("startmsg");
1242                 snprintf(cmd, len, "MSGS %s|%s||1",
1243                          (oper == do_search) ? "SEARCH" : "ALL",
1244                          (oper == do_search) ? bstr("query") : ""
1245                         );
1246         }
1247         return 200;
1248 }
1249
1250 int mailview_RenderView_or_Tail(SharedMessageStatus *Stat, 
1251                                 void **ViewSpecific, 
1252                                 long oper)
1253 {
1254         WCTemplputParams SubTP;
1255
1256         if (WC->is_ajax)
1257                 DoTemplate(HKEY("mailsummary_json"),NULL, &SubTP);
1258         
1259         return 0;
1260 }
1261
1262 int mailview_Cleanup(void **ViewSpecific)
1263 {
1264         /* Note: wDumpContent() will output one additional </div> tag. */
1265         /* We ought to move this out into template */
1266         if (WC->is_ajax)
1267                 end_burst();
1268         else
1269                 wDumpContent(1);
1270
1271         return 0;
1272 }
1273
1274
1275
1276 void 
1277 InitModule_MSGRENDERERS
1278 (void)
1279 {
1280         RegisterReadLoopHandlerset(
1281                 VIEW_MAILBOX,
1282                 mailview_GetParamsGetServerCall,
1283                 NULL, /// TODO: is this right?
1284                 ParseMessageListHeaders_Detail,
1285                 NULL, //// ""
1286                 mailview_RenderView_or_Tail,
1287                 mailview_Cleanup);
1288
1289         RegisterSortFunc(HKEY("date"), 
1290                          NULL, 0,
1291                          summcmp_date,
1292                          summcmp_rdate,
1293                          groupchange_date,
1294                          CTX_MAILSUM);
1295         RegisterSortFunc(HKEY("subject"), 
1296                          NULL, 0,
1297                          summcmp_subj,
1298                          summcmp_rsubj,
1299                          groupchange_subj,
1300                          CTX_MAILSUM);
1301         RegisterSortFunc(HKEY("sender"),
1302                          NULL, 0,
1303                          summcmp_sender,
1304                          summcmp_rsender,
1305                          groupchange_sender,
1306                          CTX_MAILSUM);
1307
1308         RegisterNamespace("SUMM:COUNT", 0, 0, tmplput_SUMM_COUNT, NULL, CTX_NONE);
1309         /* iterate over all known mails in WC->summ */
1310         RegisterIterator("MAIL:SUMM:MSGS", 0, NULL, iterate_get_mailsumm_All,
1311                          NULL,NULL, CTX_MAILSUM, CTX_NONE, IT_NOFLAG);
1312
1313         RegisterNamespace("MAIL:SUMM:EUID", 0, 1, tmplput_MAIL_SUMM_EUID, NULL, CTX_MAILSUM);
1314         RegisterNamespace("MAIL:SUMM:DATEBRIEF", 0, 0, tmplput_MAIL_SUMM_DATE_BRIEF, NULL, CTX_MAILSUM);
1315         RegisterNamespace("MAIL:SUMM:DATEFULL", 0, 0, tmplput_MAIL_SUMM_DATE_FULL, NULL, CTX_MAILSUM);
1316         RegisterNamespace("MAIL:SUMM:DATENO",  0, 0, tmplput_MAIL_SUMM_DATE_NO,  NULL, CTX_MAILSUM);
1317         RegisterNamespace("MAIL:SUMM:N",       0, 0, tmplput_MAIL_SUMM_N,        NULL, CTX_MAILSUM);
1318         RegisterNamespace("MAIL:SUMM:FROM",    0, 2, tmplput_MAIL_SUMM_FROM,     NULL, CTX_MAILSUM);
1319         RegisterNamespace("MAIL:SUMM:TO",      0, 2, tmplput_MAIL_SUMM_TO,       NULL, CTX_MAILSUM);
1320         RegisterNamespace("MAIL:SUMM:SUBJECT", 0, 4, tmplput_MAIL_SUMM_SUBJECT,  NULL, CTX_MAILSUM);
1321         RegisterNamespace("MAIL:SUMM:NTATACH", 0, 0, tmplput_MAIL_SUMM_NATTACH,  NULL, CTX_MAILSUM);
1322         RegisterNamespace("MAIL:SUMM:CCCC", 0, 2, tmplput_MAIL_SUMM_CCCC, NULL, CTX_MAILSUM);
1323         RegisterNamespace("MAIL:SUMM:H_NODE", 0, 2, tmplput_MAIL_SUMM_H_NODE,  NULL, CTX_MAILSUM);
1324         RegisterNamespace("MAIL:SUMM:ALLRCPT", 0, 2, tmplput_MAIL_SUMM_ALLRCPT,  NULL, CTX_MAILSUM);
1325         RegisterNamespace("MAIL:SUMM:ORGROOM", 0, 2, tmplput_MAIL_SUMM_ORGROOM,  NULL, CTX_MAILSUM);
1326         RegisterNamespace("MAIL:SUMM:RFCA", 0, 2, tmplput_MAIL_SUMM_RFCA, NULL, CTX_MAILSUM);
1327         RegisterNamespace("MAIL:SUMM:OTHERNODE", 2, 0, tmplput_MAIL_SUMM_OTHERNODE,  NULL, CTX_MAILSUM);
1328         RegisterNamespace("MAIL:SUMM:REFIDS", 0, 1, tmplput_MAIL_SUMM_REFIDS,  NULL, CTX_MAILSUM);
1329         RegisterNamespace("MAIL:SUMM:INREPLYTO", 0, 2, tmplput_MAIL_SUMM_INREPLYTO,  NULL, CTX_MAILSUM);
1330         RegisterNamespace("MAIL:BODY", 0, 2, tmplput_MAIL_BODY,  NULL, CTX_MAILSUM);
1331         RegisterNamespace("MAIL:QUOTETEXT", 1, 2, tmplput_QUOTED_MAIL_BODY,  NULL, CTX_NONE);
1332         RegisterNamespace("MAIL:EDITTEXT", 1, 2, tmplput_EDIT_MAIL_BODY,  NULL, CTX_NONE);
1333         RegisterNamespace("MAIL:EDITWIKI", 1, 2, tmplput_EDIT_WIKI_BODY,  NULL, CTX_NONE);
1334         RegisterConditional(HKEY("COND:MAIL:SUMM:RFCA"), 0, Conditional_MAIL_SUMM_RFCA,  CTX_MAILSUM);
1335         RegisterConditional(HKEY("COND:MAIL:SUMM:CCCC"), 0, Conditional_MAIL_SUMM_CCCC,  CTX_MAILSUM);
1336         RegisterConditional(HKEY("COND:MAIL:SUMM:UNREAD"), 0, Conditional_MAIL_SUMM_UNREAD, CTX_MAILSUM);
1337         RegisterConditional(HKEY("COND:MAIL:SUMM:H_NODE"), 0, Conditional_MAIL_SUMM_H_NODE, CTX_MAILSUM);
1338         RegisterConditional(HKEY("COND:MAIL:SUMM:OTHERNODE"), 0, Conditional_MAIL_SUMM_OTHERNODE, CTX_MAILSUM);
1339         RegisterConditional(HKEY("COND:MAIL:SUMM:SUBJECT"), 0, Conditional_MAIL_SUMM_SUBJECT, CTX_MAILSUM);
1340         RegisterConditional(HKEY("COND:MAIL:ANON"), 0, Conditional_ANONYMOUS_MESSAGE, CTX_MAILSUM);
1341         RegisterConditional(HKEY("COND:MAIL:TO"), 0, Conditional_MAIL_SUMM_TO, CTX_MAILSUM);    
1342         RegisterConditional(HKEY("COND:MAIL:SUBJ"), 0, Conditional_MAIL_SUMM_SUBJ, CTX_MAILSUM);        
1343
1344         /* do we have mimetypes to iterate over? */
1345         RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH"), 0, Conditional_MAIL_MIME_ALL, CTX_MAILSUM);
1346         RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH:SUBMESSAGES"), 0, Conditional_MAIL_MIME_SUBMESSAGES, CTX_MAILSUM);
1347         RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH:LINKS"), 0, Conditional_MAIL_MIME_ATTACHLINKS, CTX_MAILSUM);
1348         RegisterConditional(HKEY("COND:MAIL:MIME:ATTACH:ATT"), 0, Conditional_MAIL_MIME_ATTACH, CTX_MAILSUM);
1349         RegisterIterator("MAIL:MIME:ATTACH", 0, NULL, iterate_get_mime_All, 
1350                          NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1351         RegisterIterator("MAIL:MIME:ATTACH:SUBMESSAGES", 0, NULL, iterate_get_mime_Submessages, 
1352                          NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1353         RegisterIterator("MAIL:MIME:ATTACH:LINKS", 0, NULL, iterate_get_mime_AttachLinks, 
1354                          NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1355         RegisterIterator("MAIL:MIME:ATTACH:ATT", 0, NULL, iterate_get_mime_Attachments, 
1356                          NULL, NULL, CTX_MIME_ATACH, CTX_MAILSUM, IT_NOFLAG);
1357
1358         /* Parts of a mime attachent */
1359         RegisterNamespace("MAIL:MIME:NAME", 0, 2, tmplput_MIME_Name, NULL, CTX_MIME_ATACH);
1360         RegisterNamespace("MAIL:MIME:FILENAME", 0, 2, tmplput_MIME_FileName, NULL, CTX_MIME_ATACH);
1361         RegisterNamespace("MAIL:MIME:PARTNUM", 0, 2, tmplput_MIME_PartNum, NULL, CTX_MIME_ATACH);
1362         RegisterNamespace("MAIL:MIME:MSGNUM", 0, 2, tmplput_MIME_MsgNum, NULL, CTX_MIME_ATACH);
1363         RegisterNamespace("MAIL:MIME:DISPOSITION", 0, 2, tmplput_MIME_Disposition, NULL, CTX_MIME_ATACH);
1364         RegisterNamespace("MAIL:MIME:CONTENTTYPE", 0, 2, tmplput_MIME_ContentType, NULL, CTX_MIME_ATACH);
1365         RegisterNamespace("MAIL:MIME:CHARSET", 0, 2, tmplput_MIME_Charset, NULL, CTX_MIME_ATACH);
1366         RegisterNamespace("MAIL:MIME:LENGTH", 0, 2, tmplput_MIME_Length, NULL, CTX_MIME_ATACH);
1367         RegisterNamespace("MAIL:MIME:DATA", 0, 2, tmplput_MIME_Data, NULL, CTX_MIME_ATACH);
1368         /* load the actual attachment into WC->attachments; no output!!! */
1369         RegisterNamespace("MAIL:MIME:LOADDATA", 0, 0, tmplput_MIME_LoadData, NULL, CTX_MIME_ATACH);
1370
1371         /* iterate the WC->attachments; use the above tokens for their contents */
1372         RegisterIterator("MSG:ATTACHNAMES", 0, NULL, iterate_get_registered_Attachments, 
1373                          NULL, NULL, CTX_MIME_ATACH, CTX_NONE, IT_NOFLAG);
1374
1375         /* mime renderers translate an attachment into webcit viewable html text */
1376         RegisterMimeRenderer(HKEY("message/rfc822"), render_MAIL, 1, 150);
1377         RegisterMimeRenderer(HKEY("text/vnote"), render_MIME_VNote, 1, 300);
1378         RegisterMimeRenderer(HKEY("text/x-vcard"), render_MIME_VCard, 1, 201);
1379         RegisterMimeRenderer(HKEY("text/vcard"), render_MIME_VCard, 1, 200);
1380         RegisterMimeRenderer(HKEY("text/calendar"), render_MIME_ICS, 1, 501);
1381         RegisterMimeRenderer(HKEY("application/ics"), render_MIME_ICS, 1, 500);
1382         RegisterMimeRenderer(HKEY("text/x-citadel-variformat"), render_MAIL_variformat, 1, 2);
1383         RegisterMimeRenderer(HKEY("text/plain"), render_MAIL_text_plain, 1, 3);
1384         RegisterMimeRenderer(HKEY("text"), render_MAIL_text_plain, 1, 1);
1385         RegisterMimeRenderer(HKEY("text/html"), render_MAIL_html, 1, 100);
1386         RegisterMimeRenderer(HKEY(""), render_MAIL_UNKNOWN, 0, 0);
1387         /* and finalize the anouncement to the server... */
1388         CreateMimeStr();
1389
1390         /* these headers are citserver replies to MSG4 and friends. one evaluator for each */
1391         RegisterMsgHdr(HKEY("nhdr"), examine_nhdr, 0);
1392         RegisterMsgHdr(HKEY("type"), examine_type, 0);
1393         RegisterMsgHdr(HKEY("from"), examine_from, 0);
1394         RegisterMsgHdr(HKEY("subj"), examine_subj, 0);
1395         RegisterMsgHdr(HKEY("msgn"), examine_msgn, 0);
1396         RegisterMsgHdr(HKEY("wefw"), examine_wefw, 0);
1397         RegisterMsgHdr(HKEY("cccc"), examine_cccc, 0);
1398         RegisterMsgHdr(HKEY("hnod"), examine_hnod, 0);
1399         RegisterMsgHdr(HKEY("room"), examine_room, 0);
1400         RegisterMsgHdr(HKEY("rfca"), examine_rfca, 0);
1401         RegisterMsgHdr(HKEY("node"), examine_node, 0);
1402         RegisterMsgHdr(HKEY("rcpt"), examine_rcpt, 0);
1403         RegisterMsgHdr(HKEY("time"), examine_time, 0);
1404         RegisterMsgHdr(HKEY("part"), examine_mime_part, 0);
1405         RegisterMsgHdr(HKEY("text"), examine_text, 1);
1406         /* these are the content-type headers we get infront of a message; put it into the same hash since it doesn't clash. */
1407         RegisterMsgHdr(HKEY("X-Citadel-MSG4-Partnum"), examine_msg4_partnum, 0);
1408         RegisterMsgHdr(HKEY("Content-type"), examine_content_type, 0);
1409         RegisterMsgHdr(HKEY("Content-length"), examine_content_lengh, 0);
1410         RegisterMsgHdr(HKEY("Content-transfer-encoding"), examine_content_encoding, 0); /* do we care? */
1411         RegisterMsgHdr(HKEY("charset"), examine_charset, 0);
1412
1413         /* Don't care about these... */
1414         RegisterMsgHdr(HKEY("pref"), examine_pref, 0);
1415         RegisterMsgHdr(HKEY("suff"), examine_suff, 0);
1416         RegisterMsgHdr(HKEY("path"), examine_path, 0);
1417 }
1418
1419 void 
1420 ServerStartModule_MSGRENDERERS
1421 (void)
1422 {
1423         MsgHeaderHandler = NewHash(1, NULL);
1424         MimeRenderHandler = NewHash(1, NULL);
1425         ReadLoopHandler = NewHash(1, NULL);
1426 }
1427
1428 void 
1429 ServerShutdownModule_MSGRENDERERS
1430 (void)
1431 {
1432         DeleteHash(&MsgHeaderHandler);
1433         DeleteHash(&MimeRenderHandler);
1434         DeleteHash(&ReadLoopHandler);
1435 }
1436
1437
1438
1439 void 
1440 SessionDestroyModule_MSGRENDERERS
1441 (wcsession *sess)
1442 {
1443         DeleteHash(&sess->attachments);
1444 }