citadel/journaling.c

   1 /*
   2  * $Id:  $
   3  *
   4  * Message journaling functions.
   5  *
   6  */
   7
   8 #include "sysdep.h"
   9 #include <stdlib.h>
  10 #include <unistd.h>
  11 #include <stdio.h>
  12 #include <fcntl.h>
  13
  14 #if TIME_WITH_SYS_TIME
  15 # include <sys/time.h>
  16 # include <time.h>
  17 #else
  18 # if HAVE_SYS_TIME_H
  19 #  include <sys/time.h>
  20 # else
  21 #  include <time.h>
  22 # endif
  23 #endif
  24
  25
  26 #include <ctype.h>
  27 #include <string.h>
  28 #include <limits.h>
  29 #include <errno.h>
  30 #include <stdarg.h>
  31 #include <sys/stat.h>
  32 #include "citadel.h"
  33 #include "server.h"
  34 #include "serv_extensions.h"
  35 #include "database.h"
  36 #include "msgbase.h"
  37 #include "support.h"
  38 #include "sysdep_decls.h"
  39 #include "citserver.h"
  40 #include "room_ops.h"
  41 #include "user_ops.h"
  42 #include "file_ops.h"
  43 #include "config.h"
  44 #include "control.h"
  45 #include "tools.h"
  46 #include "mime_parser.h"
  47 #include "html.h"
  48 #include "genstamp.h"
  49 #include "internet_addressing.h"
  50 #include "journaling.h"
  51
  52 struct jnlq *jnlq = NULL;       /* journal queue */
  53
  54 /*
  55  * Hand off a copy of a message to be journalized.
  56  */
  57 void JournalBackgroundSubmit(struct CtdlMessage *msg,
  58                         char *saved_rfc822_version,
  59                         struct recptypes *recps) {
  60
  61         struct jnlq *jptr = NULL;
  62
  63         /* Avoid double journaling! */
  64         if (msg->cm_fields['J'] != NULL) {
  65                 free(saved_rfc822_version);
  66                 return;
  67         }
  68
  69         jptr = (struct jnlq *)malloc(sizeof(struct jnlq));
  70         if (jptr == NULL) {
  71                 free(saved_rfc822_version);
  72                 return;
  73         }
  74         memset(jptr, 0, sizeof(struct jnlq));
  75         if (recps != NULL) memcpy(&jptr->recps, recps, sizeof(struct recptypes));
  76         if (msg->cm_fields['A'] != NULL) jptr->from = strdup(msg->cm_fields['A']);
  77         if (msg->cm_fields['N'] != NULL) jptr->node = strdup(msg->cm_fields['N']);
  78         if (msg->cm_fields['F'] != NULL) jptr->rfca = strdup(msg->cm_fields['F']);
  79         if (msg->cm_fields['U'] != NULL) jptr->subj = strdup(msg->cm_fields['U']);
  80         if (msg->cm_fields['I'] != NULL) jptr->msgn = strdup(msg->cm_fields['I']);
  81         jptr->rfc822 = saved_rfc822_version;
  82
  83         /* Add to the queue */
  84         begin_critical_section(S_JOURNAL_QUEUE);
  85         jptr->next = jnlq;
  86         jnlq = jptr;
  87         end_critical_section(S_JOURNAL_QUEUE);
  88 }
  89
  90
  91 /*
  92  * Called by JournalRunQueue() to send an individual message.
  93  */
  94 void JournalRunQueueMsg(struct jnlq *jmsg) {
  95
  96         struct CtdlMessage *journal_msg = NULL;
  97         struct recptypes *journal_recps = NULL;
  98         char *message_text = NULL;
  99         char mime_boundary[256];
 100         char recipient[256];
 101         static int seq = 0;
 102         int i;
 103
 104         journal_recps = validate_recipients("FIXME@example.com");       /* FIXME */
 105         if (journal_recps != NULL) {
 106
 107                 if (  (journal_recps->num_local > 0)
 108                    || (journal_recps->num_internet > 0)
 109                    || (journal_recps->num_ignet > 0)
 110                    || (journal_recps->num_room > 0)
 111                 ) {
 112
 113                         /*
 114                          * Construct journal message.
 115                          * Note that we are transferring ownership of some of the memory here.
 116                          */
 117                         journal_msg = malloc(sizeof(struct CtdlMessage));
 118                         memset(journal_msg, 0, sizeof(struct CtdlMessage));
 119                         journal_msg->cm_magic = CTDLMESSAGE_MAGIC;
 120                         journal_msg->cm_anon_type = MES_NORMAL;
 121                         journal_msg->cm_format_type = FMT_RFC822;
 122                         journal_msg->cm_fields['J'] = strdup("is journal");
 123                         journal_msg->cm_fields['A'] = jmsg->from;
 124                         journal_msg->cm_fields['N'] = jmsg->node;
 125                         journal_msg->cm_fields['F'] = jmsg->rfca;
 126                         journal_msg->cm_fields['U'] = jmsg->subj;
 127
 128                         sprintf(mime_boundary, "--Citadel-Journal-%08lx-%04x--", time(NULL), ++seq);
 129                         message_text = malloc(strlen(jmsg->rfc822) + sizeof(struct recptypes) + 1024);
 130
 131                         sprintf(message_text,
 132                                 "Content-type: multipart/mixed; boundary=\"%s\"\r\n"
 133                                 "MIME-Version: 1.0\r\n"
 134                                 "\n"
 135                                 "--%s\r\n"
 136                                 "Content-type: text/plain\r\n"
 137                                 "\r\n"
 138                                 "Sender: %s "
 139                         ,
 140                                 mime_boundary,
 141                                 mime_boundary,
 142                                 ( journal_msg->cm_fields['A'] ? journal_msg->cm_fields['A'] : "(null)" )
 143                         );
 144
 145                         if (journal_msg->cm_fields['F']) {
 146                                 sprintf(&message_text[strlen(message_text)], "<%s>",
 147                                         journal_msg->cm_fields['F']);
 148                         }
 149                         else if (journal_msg->cm_fields['N']) {
 150                                 sprintf(&message_text[strlen(message_text)], "@ %s",
 151                                         journal_msg->cm_fields['N']);
 152                         }
 153
 154                         sprintf(&message_text[strlen(message_text)],
 155                                 "\r\n"
 156                                 "Message-ID: <%s>\r\n"
 157                                 "Recipients:\r\n"
 158                         ,
 159                                 jmsg->msgn
 160                         );
 161
 162                         if (journal_recps->num_local > 0) {
 163                                 for (i=0; i<journal_recps->num_local; ++i) {
 164                                         extract_token(recipient, journal_recps->recp_local,
 165                                                         i, '|', sizeof recipient);
 166                                         sprintf(&message_text[strlen(message_text)],
 167                                                 "       %s\r\n", recipient);
 168                                 }
 169                         }
 170
 171                         if (journal_recps->num_ignet > 0) {
 172                                 for (i=0; i<journal_recps->num_ignet; ++i) {
 173                                         extract_token(recipient, journal_recps->recp_ignet,
 174                                                         i, '|', sizeof recipient);
 175                                         sprintf(&message_text[strlen(message_text)],
 176                                                 "       %s\r\n", recipient);
 177                                 }
 178                         }
 179
 180                         if (journal_recps->num_internet > 0) {
 181                                 for (i=0; i<journal_recps->num_internet; ++i) {
 182                                         extract_token(recipient, journal_recps->recp_internet,
 183                                                         i, '|', sizeof recipient);
 184                                         sprintf(&message_text[strlen(message_text)],
 185                                                 "       %s\r\n", recipient);
 186                                 }
 187                         }
 188
 189                         sprintf(&message_text[strlen(message_text)],
 190                                 "\r\n"
 191                                 "--%s\r\n"
 192                                 "Content-type: message/rfc822\r\n"
 193                                 "\r\n"
 194                                 "%s"
 195                                 "--%s--\r\n"
 196                         ,
 197                                 mime_boundary,
 198                                 jmsg->rfc822,
 199                                 mime_boundary
 200                         );
 201
 202                         journal_msg->cm_fields['M'] = message_text;
 203                         free(jmsg->rfc822);
 204                         free(jmsg->msgn);
 205
 206                         /* Submit journal message */
 207                         CtdlSubmitMsg(journal_msg, journal_recps, "");
 208                         CtdlFreeMessage(journal_msg);
 209                 }
 210
 211                 free(journal_recps);
 212         }
 213
 214         /* We are responsible for freeing this memory. */
 215         free(jmsg);
 216 }
 217
 218
 219 /*
 220  * Run the queue.
 221  */
 222 void JournalRunQueue(void) {
 223         struct jnlq *jptr;
 224
 225         while (jnlq != NULL) {
 226                 begin_critical_section(S_JOURNAL_QUEUE);
 227                 if (jnlq != NULL) {
 228                         jptr = jnlq;
 229                         jnlq = jnlq->next;
 230                 }
 231                 end_critical_section(S_JOURNAL_QUEUE);
 232                 JournalRunQueueMsg(jptr);
 233         }
 234 }
 235
 236