MailQ: remember & display the room for mailingilst Queue-Entries
[citadel.git] / webcit / smtpqueue.c
1 /* 
2  * Display the outbound SMTP queue
3  */
4
5 #include "webcit.h"
6 HashList *QItemHandlers = NULL;
7
8 /*
9  * display one message in the queue
10  */
11 void display_queue_msg(long msgnum)
12 {
13         char buf[1024];
14         char keyword[32];
15         int in_body = 0;
16         int is_delivery_list = 0;
17         time_t submitted = 0;
18         time_t attempted = 0;
19         time_t last_attempt = 0;
20         int number_of_attempts = 0;
21         char sender[256];
22         char recipients[65536];
23         int recipients_len = 0;
24         char thisrecp[256];
25         char thisdsn[256];
26         char thismsg[512];
27         int thismsg_len;
28         long msgid = 0;
29         int len;
30
31         strcpy(sender, "");
32         strcpy(recipients, "");
33         recipients_len = 0;
34
35         serv_printf("MSG2 %ld", msgnum);
36         serv_getln(buf, sizeof buf);
37         if (buf[0] != '1') return;
38
39         while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
40
41                 if (!IsEmptyStr(buf)) {
42                         len = strlen(buf);
43                         if (buf[len - 1] == 13) {
44                                 buf[len - 1] = 0;
45                         }
46                 }
47
48                 if ( (IsEmptyStr(buf)) && (in_body == 0) ) {
49                         in_body = 1;
50                 }
51
52                 if ( (!in_body)
53                    && (!strncasecmp(buf, "Content-type: application/x-citadel-delivery-list", 49))
54                 ) {
55                         is_delivery_list = 1;
56                 }
57
58                 if ( (in_body) && (!is_delivery_list) ) {
59                         while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
60                                 /* Not a delivery list; flush and return quietly. */
61                         }
62                         return;
63                 }
64
65                 if ( (in_body) && (is_delivery_list) ) {
66                         extract_token(keyword, buf, 0, '|', sizeof keyword);
67
68                         if (!strcasecmp(keyword, "msgid")) {
69                                 msgid = extract_long(buf, 1);
70                         }
71
72                         if (!strcasecmp(keyword, "submitted")) {
73                                 submitted = extract_long(buf, 1);
74                         }
75
76                         if (!strcasecmp(keyword, "attempted")) {
77                                 attempted = extract_long(buf, 1);
78                                 ++number_of_attempts;
79                                 if (attempted > last_attempt) {
80                                         last_attempt = attempted;
81                                 }
82                         }
83
84                         if (!strcasecmp(keyword, "bounceto")) {
85                                 char *atsign;
86                                 extract_token(sender, buf, 1, '|', sizeof sender);
87
88                                 /* Strip off local hostname if it's our own */
89                                 atsign = strchr(sender, '@');
90                                 if (atsign != NULL) {
91                                         ++atsign;
92                                         if (!strcasecmp(atsign, ChrPtr(WC->serv_info->serv_nodename))) {
93                                                 --atsign;
94                                                 *atsign = 0;
95                                         }
96                                 }
97                         }
98
99                         if (!strcasecmp(keyword, "remote")) {
100                                 thismsg[0] = 0;
101
102                                 extract_token(thisrecp, buf, 1, '|', sizeof thisrecp);
103                                 extract_token(thisdsn, buf, 3, '|', sizeof thisdsn);
104
105                                 if (!IsEmptyStr(thisrecp)) {
106                                         stresc(thismsg, sizeof thismsg, thisrecp, 1, 1);
107                                         if (!IsEmptyStr(thisdsn)) {
108                                                 strcat(thismsg, "<br>&nbsp;&nbsp;<i>");
109                                                 stresc(&thismsg[strlen(thismsg)], sizeof thismsg,
110                                                         thisdsn, 1, 1);
111                                                 strcat(thismsg, "</i>");
112                                         }
113                                         thismsg_len = strlen(thismsg);
114
115                                         if ((recipients_len + thismsg_len + 100) < sizeof recipients) {
116                                                 if (!IsEmptyStr(recipients)) {
117                                                         strcpy(&recipients[recipients_len], "<br>");
118                                                         recipients_len += 6;
119                                                 }
120                                                 strcpy(&recipients[recipients_len], thismsg);
121                                                 recipients_len += thismsg_len;
122                                         }
123                                 }
124
125                         }
126
127                 }
128
129         }
130
131         wc_printf("<tr><td>");
132         wc_printf("%ld<br>", msgnum);
133         wc_printf(" <a href=\"javascript:DeleteSMTPqueueMsg(%ld,%ld);\">%s</a>", 
134                 msgnum, msgid, _("(Delete)")
135         );
136
137         wc_printf("</td><td>");
138         if (submitted > 0) {
139                 webcit_fmt_date(buf, 1024, submitted, 1);
140                 wc_printf("%s", buf);
141         }
142         else {
143                 wc_printf("&nbsp;");
144         }
145
146         wc_printf("</td><td>");
147         if (last_attempt > 0) {
148                 webcit_fmt_date(buf, 1024, last_attempt, 1);
149                 wc_printf("%s", buf);
150         }
151         else {
152                 wc_printf("&nbsp;");
153         }
154
155         wc_printf("</td><td>");
156         escputs(sender);
157
158         wc_printf("</td><td>");
159         wc_printf("%s", recipients);
160         wc_printf("</td></tr>\n");
161
162 }
163
164
165 void display_smtpqueue_inner_div(void) {
166         message_summary *Msg = NULL;
167         wcsession *WCC = WC;
168         int i;
169         int num_msgs;
170         StrBuf *Buf;
171         SharedMessageStatus Stat;
172
173         memset(&Stat, 0, sizeof(SharedMessageStatus));
174         /* Check to see if we can go to the __CitadelSMTPspoolout__ room.
175          * If not, we don't have access to the queue.
176          */
177         Buf = NewStrBufPlain(HKEY("__CitadelSMTPspoolout__"));
178         gotoroom(Buf);
179         FreeStrBuf(&Buf);
180         if (!strcasecmp(ChrPtr(WCC->CurRoom.name), "__CitadelSMTPspoolout__")) {
181
182                 Stat.maxload = 10000;
183                 Stat.lowest_found = (-1);
184                 Stat.highest_found = (-1);
185 //              num_msgs = load_msg_ptrs("MSGS ALL|0|1", "SUBJ|;QMSG", &Stat, NULL);
186                 num_msgs = load_msg_ptrs("MSGS ", NULL, &Stat, NULL);
187                 if (num_msgs > 0) {
188                         wc_printf("<table class=\"mailbox_summary\" rules=rows "
189                                 "cellpadding=2 style=\"width:100%%;\">"
190                         );
191
192                         wc_printf("<tr><td><b><i>");
193                         wc_printf(_("Message ID"));
194                         wc_printf("</i></b></td><td><b><i>");
195                         wc_printf(_("Date/time submitted"));
196                         wc_printf("</i></b></td><td><b><i>");
197                         wc_printf(_("Last attempt"));
198                         wc_printf("</i></b></td><td><b><i>");
199                         wc_printf(_("Sender"));
200                         wc_printf("</i></b></td><td><b><i>");
201                         wc_printf(_("Recipients"));
202                         wc_printf("</i></b></td></tr>\n");
203
204                         for (i=0; (i < num_msgs) && (i < Stat.maxload); ++i) {
205                                 Msg = GetMessagePtrAt(i, WCC->summ);
206                                 if (Msg != NULL) {
207                                         display_queue_msg(Msg->msgnum);
208                                 }
209                         }
210
211                         wc_printf("</table>");
212
213                 }
214                 else {
215                         wc_printf("<br><br><div align=\"center\">");
216                         wc_printf(_("The queue is empty."));
217                         wc_printf("</div><br><br>");
218                 }
219         }
220         else {
221                 wc_printf("<br><br><div align=\"center\">");
222                 wc_printf(_("You do not have permission to view this resource."));
223                 wc_printf("</div><br><br>");
224         }
225         output_headers(0, 0, 0, 0, 0, 0);
226         end_burst();
227 }
228
229 /*
230  * display the outbound SMTP queue
231  */
232 void display_smtpqueue(void)
233 {
234         output_headers(1, 1, 2, 0, 0, 0);
235
236         wc_printf("<div id=\"banner\">\n");
237         wc_printf("<h1>");
238         wc_printf(_("View the outbound SMTP queue"));
239         wc_printf("</h1>\n");
240         wc_printf("</div>\n");
241
242         wc_printf("<div id=\"content\" class=\"service\">\n");
243
244         wc_printf("<table class=\"smtpqueue_background\">"
245                 "<tr><td valign=top>\n");
246
247         wc_printf("<div id=\"smtpqueue_inner_div\">"
248                 "<div align=\"center\"><img src=\"static/webcit_icons/throbber.gif\"></div>"
249                 "</div>"
250                 "<div align=\"center\">"
251                 "<a href=\"javascript:RefreshSMTPqueueDisplay();\">%s</a>"
252                 "</div>"
253                 "</td></tr></table>\n", _("Refresh this page")
254         );
255
256         StrBufAppendPrintf(WC->trailing_javascript, "RefreshSMTPqueueDisplay();\n");
257
258         wDumpContent(1);
259
260 }
261
262
263
264
265
266
267
268
269
270
271 typedef struct _mailq_entry {
272         StrBuf *Recipient;
273         StrBuf *StatusMessage;
274         int Status;
275         /**<
276          * 0 = No delivery has yet been attempted
277          * 2 = Delivery was successful
278          * 3 = Transient error like connection problem. Try next remote if available.
279          * 4 = A transient error was experienced ... try again later
280          * 5 = Delivery to this address failed permanently.  The error message
281          *     should be placed in the fourth field so that a bounce message may
282          *     be generated.
283          */
284
285         int n;
286         int Active;
287 }MailQEntry;
288
289 typedef struct queueitem {
290         long MessageID;
291         long QueMsgID;
292         long Submitted;
293         int FailNow;
294         HashList *MailQEntries;
295 /* copy of the currently parsed item in the MailQEntries list;
296  * if null add a new one.
297  */
298         MailQEntry *Current;
299         time_t ReattemptWhen;
300         time_t Retry;
301
302         long ActiveDeliveries;
303         StrBuf *EnvelopeFrom;
304         StrBuf *BounceTo;
305         StrBuf *SenderRoom;
306         ParsedURL *URL;
307         ParsedURL *FallBackHost;
308 } OneQueItem;
309
310
311 typedef void (*QItemHandler)(OneQueItem *Item, StrBuf *Line, const char **Pos);
312
313
314 void FreeMailQEntry(void *qv)
315 {
316         MailQEntry *Q = qv;
317         FreeStrBuf(&Q->Recipient);
318         FreeStrBuf(&Q->StatusMessage);
319         free(Q);
320 }
321 void FreeQueItem(OneQueItem **Item)
322 {
323         DeleteHash(&(*Item)->MailQEntries);
324         FreeStrBuf(&(*Item)->EnvelopeFrom);
325         FreeStrBuf(&(*Item)->BounceTo);
326         FreeStrBuf(&(*Item)->SenderRoom);
327         FreeURL(&(*Item)->URL);
328         free(*Item);
329         Item = NULL;
330 }
331 void HFreeQueItem(void *Item)
332 {
333         FreeQueItem((OneQueItem**)&Item);
334 }
335
336
337 OneQueItem *DeserializeQueueItem(StrBuf *RawQItem, long QueMsgID)
338 {
339         OneQueItem *Item;
340         const char *pLine = NULL;
341         StrBuf *Line;
342         StrBuf *Token;
343         
344         Item = (OneQueItem*)malloc(sizeof(OneQueItem));
345         memset(Item, 0, sizeof(OneQueItem));
346         Item->Retry = 0;
347         Item->MessageID = -1;
348         Item->QueMsgID = QueMsgID;
349
350         Token = NewStrBuf();
351         Line = NewStrBufPlain(NULL, 128);
352         while (pLine != StrBufNOTNULL) {
353                 const char *pItemPart = NULL;
354                 void *vHandler;
355
356                 StrBufExtract_NextToken(Line, RawQItem, &pLine, '\n');
357                 if (StrLength(Line) == 0) continue;
358                 StrBufExtract_NextToken(Token, Line, &pItemPart, '|');
359                 if (GetHash(QItemHandlers, SKEY(Token), &vHandler))
360                 {
361                         QItemHandler H;
362                         H = (QItemHandler) vHandler;
363                         H(Item, Line, &pItemPart);
364                 }
365         }
366         FreeStrBuf(&Line);
367         FreeStrBuf(&Token);
368 /*
369         Put(ActiveQItems,
370             LKEY(Item->MessageID),
371             Item,
372             HFreeQueItem);
373 */      
374
375         return Item;
376 }
377
378 void tmplput_MailQID(StrBuf *Target, WCTemplputParams *TP)
379 {
380         OneQueItem *Item = (OneQueItem*) CTX;
381         StrBufAppendPrintf(Target, "%ld", Item->QueMsgID);;
382 }
383 void tmplput_MailQPayloadID(StrBuf *Target, WCTemplputParams *TP)
384 {
385         OneQueItem *Item = (OneQueItem*) CTX;
386         StrBufAppendPrintf(Target, "%ld", Item->MessageID);
387 }
388 void tmplput_MailQBounceTo(StrBuf *Target, WCTemplputParams *TP)
389 {
390         OneQueItem *Item = (OneQueItem*) CTX;
391         StrBufAppendTemplate(Target, TP, Item->BounceTo, 0);
392 }
393 void tmplput_MailQAttempted(StrBuf *Target, WCTemplputParams *TP)
394 {
395         char datebuf[64];
396         OneQueItem *Item = (OneQueItem*) CTX;
397         webcit_fmt_date(datebuf, 64, Item->ReattemptWhen, DATEFMT_BRIEF);
398         StrBufAppendBufPlain(Target, datebuf, -1, 0);
399 }
400 void tmplput_MailQSubmitted(StrBuf *Target, WCTemplputParams *TP)
401 {
402         char datebuf[64];
403         OneQueItem *Item = (OneQueItem*) CTX;
404         webcit_fmt_date(datebuf, 64, Item->Submitted, DATEFMT_BRIEF);
405         StrBufAppendBufPlain(Target, datebuf, -1, 0);
406 }
407 void tmplput_MailQEnvelopeFrom(StrBuf *Target, WCTemplputParams *TP)
408 {
409         OneQueItem *Item = (OneQueItem*) CTX;
410         StrBufAppendTemplate(Target, TP, Item->EnvelopeFrom, 0);
411 }
412 void tmplput_MailQSourceRoom(StrBuf *Target, WCTemplputParams *TP)
413 {
414         OneQueItem *Item = (OneQueItem*) CTX;
415         StrBufAppendTemplate(Target, TP, Item->SenderRoom, 0);
416 }
417
418 int Conditional_MailQ_HaveSourceRoom(StrBuf *Target, WCTemplputParams *TP)
419 {
420         OneQueItem *Item = (OneQueItem*) CTX;
421         return StrLength(Item->SenderRoom) > 0;
422 }
423
424 void tmplput_MailQRetry(StrBuf *Target, WCTemplputParams *TP)
425 {
426         char datebuf[64];
427         OneQueItem *Item = (OneQueItem*) CTX;
428
429         if (Item->Retry == 0) {
430                 StrBufAppendBufPlain(Target, _("First Attempt pending"), -1, 0);
431         }
432         else {
433                 webcit_fmt_date(datebuf, sizeof(datebuf), Item->Retry, DATEFMT_BRIEF);
434                 StrBufAppendBufPlain(Target, datebuf, -1, 0);
435         }
436 }
437
438 void tmplput_MailQRCPT(StrBuf *Target, WCTemplputParams *TP)
439 {
440         MailQEntry *Entry = (MailQEntry*) CTX;
441         StrBufAppendTemplate(Target, TP, Entry->Recipient, 0);
442 }
443 void tmplput_MailQRCPTStatus(StrBuf *Target, WCTemplputParams *TP)
444 {
445         MailQEntry *Entry = (MailQEntry*) CTX;
446         StrBufAppendPrintf(Target, "%ld", Entry->Status);
447 }
448 void tmplput_MailQStatusMsg(StrBuf *Target, WCTemplputParams *TP)
449 {
450         MailQEntry *Entry = (MailQEntry*) CTX;
451         StrBufAppendTemplate(Target, TP, Entry->StatusMessage, 0);
452 }
453
454 HashList *iterate_get_Recipients(StrBuf *Target, WCTemplputParams *TP)
455 {
456         OneQueItem *Item = (OneQueItem*) CTX;
457         return Item->MailQEntries;
458 }
459
460
461 void NewMailQEntry(OneQueItem *Item)
462 {
463         Item->Current = (MailQEntry*) malloc(sizeof(MailQEntry));
464         memset(Item->Current, 0, sizeof(MailQEntry));
465
466         if (Item->MailQEntries == NULL)
467                 Item->MailQEntries = NewHash(1, Flathash);
468         Item->Current->StatusMessage = NewStrBuf();
469         Item->Current->n = GetCount(Item->MailQEntries);
470         Put(Item->MailQEntries,
471             IKEY(Item->Current->n),
472             Item->Current,
473             FreeMailQEntry);
474 }
475
476 void QItem_Handle_MsgID(OneQueItem *Item, StrBuf *Line, const char **Pos)
477 {
478         Item->MessageID = StrBufExtractNext_long(Line, Pos, '|');
479 }
480
481 void QItem_Handle_EnvelopeFrom(OneQueItem *Item, StrBuf *Line, const char **Pos)
482 {
483         if (Item->EnvelopeFrom == NULL)
484                 Item->EnvelopeFrom = NewStrBufPlain(NULL, StrLength(Line));
485         StrBufExtract_NextToken(Item->EnvelopeFrom, Line, Pos, '|');
486 }
487
488 void QItem_Handle_BounceTo(OneQueItem *Item, StrBuf *Line, const char **Pos)
489 {
490         if (Item->BounceTo == NULL)
491                 Item->BounceTo = NewStrBufPlain(NULL, StrLength(Line));
492         StrBufExtract_NextToken(Item->BounceTo, Line, Pos, '|');
493 }
494
495 void QItem_Handle_SenderRoom(OneQueItem *Item, StrBuf *Line, const char **Pos)
496 {
497         if (Item->SenderRoom == NULL)
498                 Item->SenderRoom = NewStrBufPlain(NULL, StrLength(Line));
499         StrBufExtract_NextToken(Item->SenderRoom, Line, Pos, '|');
500 }
501
502 void QItem_Handle_Recipient(OneQueItem *Item, StrBuf *Line, const char **Pos)
503 {
504         if (Item->Current == NULL)
505                 NewMailQEntry(Item);
506         if (Item->Current->Recipient == NULL)
507                 Item->Current->Recipient=NewStrBufPlain(NULL, StrLength(Line));
508         StrBufExtract_NextToken(Item->Current->Recipient, Line, Pos, '|');
509         Item->Current->Status = StrBufExtractNext_int(Line, Pos, '|');
510         StrBufExtract_NextToken(Item->Current->StatusMessage, Line, Pos, '|');
511         Item->Current = NULL; // TODO: is this always right?
512 }
513
514
515 void QItem_Handle_retry(OneQueItem *Item, StrBuf *Line, const char **Pos)
516 {
517         Item->Retry =
518                 StrBufExtractNext_int(Line, Pos, '|');
519         Item->Retry *= 2;
520 }
521
522
523 void QItem_Handle_Submitted(OneQueItem *Item, StrBuf *Line, const char **Pos)
524 {
525         Item->Submitted = atol(*Pos);
526
527 }
528
529 void QItem_Handle_Attempted(OneQueItem *Item, StrBuf *Line, const char **Pos)
530 {
531         Item->ReattemptWhen = StrBufExtractNext_int(Line, Pos, '|');
532 }
533
534
535
536
537
538
539
540
541 void render_QUEUE(wc_mime_attachment *Mime, StrBuf *RawData, StrBuf *FoundCharset)
542 {
543         WCTemplputParams SubTP;
544
545         memset(&SubTP, 0, sizeof(WCTemplputParams));
546         SubTP.Filter.ContextType = CTX_MAILQITEM;
547         SubTP.Context = DeserializeQueueItem(Mime->Data, Mime->msgnum);
548         DoTemplate(HKEY("view_mailq_message"),NULL, &SubTP);
549         FreeQueItem ((OneQueItem**)&SubTP.Context);
550 }
551
552 void
553 ServerShutdownModule_SMTP_QUEUE
554 (void)
555 {
556         DeleteHash(&QItemHandlers);
557 }
558 void
559 ServerStartModule_SMTP_QUEUE
560 (void)
561 {
562         QItemHandlers = NewHash(0, NULL);
563 }
564
565 int qview_PrintPageHeader(SharedMessageStatus *Stat, void **ViewSpecific)
566 {
567         if (!WC->is_aide)
568         {
569                 output_headers(1, 1, 1, 0, 0, 0);
570         }
571         else
572         {
573                 output_headers(1, 1, 2, 0, 0, 0);
574         }
575         return 0;
576 }
577
578 int qview_GetParamsGetServerCall(SharedMessageStatus *Stat,
579                                  void **ViewSpecific,
580                                  long oper,
581                                  char *cmd,
582                                  long len,
583                                  char *filter,
584                                  long flen)
585 {
586         if (!WC->is_aide)
587         {
588                 DoTemplate(HKEY("aide_required"), NULL, NULL);
589                 end_burst();
590
591                 return 300;
592         }
593         else {
594                 snprintf(cmd, len, "MSGS ALL|0|1");
595                 snprintf(filter, flen, "SUBJ|QMSG");
596                 DoTemplate(HKEY("view_mailq_header"), NULL, NULL);
597                 return 200;
598         }
599 }
600
601 /*
602  * Display task view
603  */
604 int qview_LoadMsgFromServer(SharedMessageStatus *Stat, 
605                             void **ViewSpecific, 
606                             message_summary* Msg, 
607                             int is_new, 
608                             int i)
609 {
610         wcsession *WCC = WC;
611         const StrBuf *Mime;
612
613         /* Not (yet?) needed here? calview *c = (calview *) *ViewSpecific; */
614         read_message(WCC->WBuf, HKEY("view_mailq_message_bearer"), Msg->msgnum, NULL, &Mime);
615
616         return 0;
617 }
618
619
620 int qview_RenderView_or_Tail(SharedMessageStatus *Stat, 
621                              void **ViewSpecific, 
622                              long oper)
623 {
624         wcsession *WCC = WC;
625         WCTemplputParams SubTP;
626
627         if (GetCount(WCC->summ) == 0)
628                 DoTemplate(HKEY("view_mailq_footer_empty"),NULL, &SubTP);
629         else
630                 DoTemplate(HKEY("view_mailq_footer"),NULL, &SubTP);
631         
632         return 0;
633 }
634 int qview_Cleanup(void **ViewSpecific)
635 {
636         wDumpContent(1);
637         return 0;
638 }
639
640 void 
641 InitModule_SMTP_QUEUE
642 (void)
643 {
644
645         Put(QItemHandlers, HKEY("msgid"), QItem_Handle_MsgID, reference_free_handler);
646         Put(QItemHandlers, HKEY("envelope_from"), QItem_Handle_EnvelopeFrom, reference_free_handler);
647         Put(QItemHandlers, HKEY("retry"), QItem_Handle_retry, reference_free_handler);
648         Put(QItemHandlers, HKEY("attempted"), QItem_Handle_Attempted, reference_free_handler);
649         Put(QItemHandlers, HKEY("remote"), QItem_Handle_Recipient, reference_free_handler);
650         Put(QItemHandlers, HKEY("bounceto"), QItem_Handle_BounceTo, reference_free_handler);
651         Put(QItemHandlers, HKEY("source_room"), QItem_Handle_SenderRoom, reference_free_handler);
652         Put(QItemHandlers, HKEY("submitted"), QItem_Handle_Submitted, reference_free_handler);
653
654         WebcitAddUrlHandler(HKEY("display_smtpqueue"), "", 0, display_smtpqueue, 0);
655         WebcitAddUrlHandler(HKEY("display_smtpqueue_inner_div"), "", 0, display_smtpqueue_inner_div, 0);
656         RegisterMimeRenderer(HKEY("application/x-citadel-delivery-list"), render_QUEUE, 1, 9000);
657
658
659         RegisterNamespace("MAILQ:ID", 0, 0, tmplput_MailQID, NULL, CTX_MAILQITEM);
660         RegisterNamespace("MAILQ:PAYLOAD:ID", 0, 0, tmplput_MailQPayloadID, NULL, CTX_MAILQITEM);
661         RegisterNamespace("MAILQ:BOUNCETO", 0, 1, tmplput_MailQBounceTo, NULL, CTX_MAILQITEM);
662         RegisterNamespace("MAILQ:ATTEMPTED", 0, 0, tmplput_MailQAttempted, NULL, CTX_MAILQITEM);
663         RegisterNamespace("MAILQ:SUBMITTED", 0, 0, tmplput_MailQSubmitted, NULL, CTX_MAILQITEM);
664         RegisterNamespace("MAILQ:ENVELOPEFROM", 0, 1, tmplput_MailQEnvelopeFrom, NULL, CTX_MAILQITEM);
665         RegisterNamespace("MAILQ:SRCROOM", 0, 1, tmplput_MailQSourceRoom, NULL, CTX_MAILQITEM);
666         RegisterConditional(HKEY("COND:MAILQ:HAVESRCROOM"), 0, Conditional_MailQ_HaveSourceRoom,  CTX_MAILQITEM);
667         RegisterNamespace("MAILQ:RETRY", 0, 0, tmplput_MailQRetry, NULL, CTX_MAILQITEM);
668
669         RegisterNamespace("MAILQ:RCPT:ADDR", 0, 1, tmplput_MailQRCPT, NULL, CTX_MAILQ_RCPT);
670         RegisterNamespace("MAILQ:RCPT:STATUS", 0, 0, tmplput_MailQRCPTStatus, NULL, CTX_MAILQ_RCPT);
671         RegisterNamespace("MAILQ:RCPT:STATUSMSG", 0, 1, tmplput_MailQStatusMsg, NULL, CTX_MAILQ_RCPT);
672
673         RegisterIterator("MAILQ:RCPT", 0, NULL, iterate_get_Recipients, 
674                          NULL, NULL, CTX_MAILQ_RCPT, CTX_MAILQITEM, IT_NOFLAG);
675
676
677         RegisterReadLoopHandlerset(
678                 VIEW_QUEUE,
679                 qview_GetParamsGetServerCall,
680                 qview_PrintPageHeader,
681                 NULL, /* TODO: is this right? */
682                 NULL,
683                 qview_LoadMsgFromServer,
684                 qview_RenderView_or_Tail,
685                 qview_Cleanup);
686
687 }