citadel/modules/listdeliver/serv_listdeliver.c

   1 /*
   2  * This module delivers messages to mailing lists.
   3  *
   4  * Copyright (c) 2002-2021 by the citadel.org team
   5  *
   6  * This program is open source software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License version 3.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details.
  13  */
  14
  15 #include "sysdep.h"
  16 #include <stdlib.h>
  17 #include <unistd.h>
  18 #include <stdio.h>
  19 #include <fcntl.h>
  20 #include <ctype.h>
  21 #include <signal.h>
  22 #include <pwd.h>
  23 #include <errno.h>
  24 #include <sys/types.h>
  25 #include <dirent.h>
  26 #include <time.h>
  27 #include <sys/wait.h>
  28 #include <string.h>
  29 #include <limits.h>
  30 #include <libcitadel.h>
  31 #include "citadel.h"
  32 #include "server.h"
  33 #include "citserver.h"
  34 #include "support.h"
  35 #include "config.h"
  36 #include "user_ops.h"
  37 #include "database.h"
  38 #include "msgbase.h"
  39 #include "internet_addressing.h"
  40 #include "clientsocket.h"
  41 #include "ctdl_module.h"
  42
  43 int doing_listdeliver = 0;
  44
  45
  46 // data passed back and forth between listdeliver_do_msg() and listdeliver_sweep_room()
  47 struct lddata {
  48         long msgnum;            // number of most recent message processed
  49         char *netconf;          // netconfig for this room (contains the recipients)
  50 };
  51
  52
  53
  54 void listdeliver_do_msg(long msgnum, void *userdata) {
  55         struct lddata *ld = (struct lddata *) userdata;
  56         if (!ld) return;
  57         char buf[SIZ];
  58
  59         ld->msgnum = msgnum;
  60         if (msgnum <= 0) return;
  61
  62         struct CtdlMessage *TheMessage = CtdlFetchMessage(msgnum, 1);
  63         if (!TheMessage) return;
  64
  65
  66
  67         // FIXME munge the headers so it looks like it came from a mailing list
  68
  69
  70
  71         char *recipients = malloc(strlen(ld->netconf));
  72         if (recipients) {
  73                 recipients[0] = 0;
  74
  75                 int config_lines = num_tokens(ld->netconf, '\n');
  76                 for (int i=0; i<config_lines; ++i) {
  77                         extract_token(buf, ld->netconf, i, '\n', sizeof buf);
  78                         if (!strncasecmp(buf, "listrecp|", 9)) {
  79                                 if (recipients[0] != 0) {
  80                                         strcat(recipients, ",");
  81                                 }
  82                                 strcat(recipients, &buf[9]);
  83                         }
  84                         if (!strncasecmp(buf, "digestrecp|", 11)) {
  85                                 if (recipients[0] != 0) {
  86                                         strcat(recipients, ",");
  87                                 }
  88                                 strcat(recipients, &buf[11]);
  89                         }
  90                 }
  91                 syslog(LOG_DEBUG, "\033[33m%s\033[0m", recipients);
  92                 struct recptypes *valid = validate_recipients(recipients, NULL, 0);
  93                 if (valid) {
  94                         long new_msgnum = CtdlSubmitMsg(TheMessage, valid, "");
  95                         free_recipients(valid);
  96                 }
  97         }
  98         CM_Free(TheMessage);
  99 }
 100
 101
 102 /*
 103  * Sweep through one room looking for mailing list deliveries to do
 104  */
 105 void listdeliver_sweep_room(char *roomname) {
 106         char *netconfig = NULL;
 107         long lastsent = 0;
 108         char buf[SIZ];
 109         int config_lines;
 110         int i;
 111         int number_of_messages_processed = 0;
 112         int number_of_recipients = 0;
 113         struct lddata ld;
 114
 115         if (CtdlGetRoom(&CC->room, roomname)) {
 116                 syslog(LOG_DEBUG, "listdeliver: no room <%s>", roomname);
 117                 return;
 118         }
 119
 120         netconfig = LoadRoomNetConfigFile(CC->room.QRnumber);
 121         if (!netconfig) {
 122                 return;                         // no netconfig, no processing, no problem
 123         }
 124
 125         syslog(LOG_DEBUG, "listdeliver: sweeping %s", roomname);
 126
 127         config_lines = num_tokens(netconfig, '\n');
 128         for (i=0; i<config_lines; ++i) {
 129                 extract_token(buf, netconfig, i, '\n', sizeof buf);
 130
 131                 if (!strncasecmp(buf, "lastsent|", 9)) {
 132                         lastsent = atol(&buf[9]);
 133                 }
 134                 else if ( (!strncasecmp(buf, "listrecp|", 9)) || (!strncasecmp(buf, "digestrecp|", 11)) ) {
 135                         ++number_of_recipients;
 136                 }
 137         }
 138
 139         if (number_of_recipients > 0) {
 140                 syslog(LOG_DEBUG, "listdeliver: processing new messages in <%s> for <%d> recipients", CC->room.QRname, number_of_recipients);
 141                 ld.netconf = netconfig;
 142                 number_of_messages_processed = CtdlForEachMessage(MSGS_GT, lastsent, NULL, NULL, NULL, listdeliver_do_msg, &ld);
 143                 syslog(LOG_DEBUG, "listdeliver: processed %d messages", number_of_messages_processed);
 144
 145                 if (number_of_messages_processed > 0) {
 146                         syslog(LOG_DEBUG, "listdeliver: new lastsent is %ld", ld.msgnum);
 147
 148                         // FIXME write lastsent back to netconfig
 149                         syslog(LOG_DEBUG, "\033[31mBEFORE:<%s>\033[0m", netconfig);
 150                         syslog(LOG_DEBUG, "\033[32mAFTER:<%s>\033[0m", netconfig);
 151
 152
 153
 154
 155                 }
 156         }
 157
 158         free(netconfig);
 159 }
 160
 161
 162 /*
 163  * Callback for listdeliver_sweep()
 164  * Adds one room to the queue
 165  */
 166 void listdeliver_queue_room(struct ctdlroom *qrbuf, void *data) {
 167         Array *roomlistarr = (Array *)data;
 168         array_append(roomlistarr, qrbuf->QRname);
 169 }
 170
 171
 172 /*
 173  * Queue up the list of rooms so we can sweep them for mailing list delivery instructions
 174  */
 175 void listdeliver_sweep(void) {
 176         static time_t last_run = 0L;
 177         int i = 0;
 178
 179         /*
 180          * Run mailing list delivery no more frequently than once every 15 minutes (we should make this configurable)
 181          */
 182         if ( (time(NULL) - last_run) < 900 ) {
 183                 return;
 184         }
 185
 186         /*
 187          * This is a simple concurrency check to make sure only one listdeliver
 188          * run is done at a time.  We could do this with a mutex, but since we
 189          * don't really require extremely fine granularity here, we'll do it
 190          * with a static variable instead.
 191          */
 192         if (doing_listdeliver) return;
 193         doing_listdeliver = 1;
 194
 195         /*
 196          * Go through each room looking for mailing lists to process
 197          */
 198         syslog(LOG_DEBUG, "listdeliver: sweep started");
 199
 200         Array *roomlistarr = array_new(ROOMNAMELEN);                    // we have to queue them
 201         CtdlForEachRoom(listdeliver_queue_room, roomlistarr);           // otherwise we get multiple cursors in progress
 202
 203         for (i=0; i<array_len(roomlistarr); ++i) {
 204                 listdeliver_sweep_room((char *)array_get_element_at(roomlistarr, i));
 205         }
 206
 207         array_free(roomlistarr);
 208         syslog(LOG_DEBUG, "listdeliver: ended");
 209         last_run = time(NULL);
 210         doing_listdeliver = 0;
 211
 212         //exit(0);
 213 }
 214
 215
 216
 217 /*
 218  * Module entry point
 219  */
 220 CTDL_MODULE_INIT(listdeliver)
 221 {
 222         if (!threading)
 223         {
 224                 CtdlRegisterSessionHook(listdeliver_sweep, EVT_TIMER, PRIO_AGGR + 50);
 225         }
 226
 227         /* return our module name for the log */
 228         return "listsub";
 229 }