2 * This module delivers messages to mailing lists.
4 * Copyright (c) 2002-2021 by the citadel.org team
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.
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.
24 #include <sys/types.h>
30 #include <libcitadel.h>
33 #include "citserver.h"
39 #include "internet_addressing.h"
40 #include "clientsocket.h"
41 #include "ctdl_module.h"
43 int doing_listdeliver = 0;
46 void listdeliver_do_msg(long msgnum, void *userdata) {
50 void listdeliver_sweep_room(struct ctdlroom *qrbuf, void *data) {
51 char *serialized_config = NULL;
56 int number_of_messages_processed = 0;
57 int number_of_recipients = 0;
59 if (CtdlGetRoom(&CC->room, qrbuf->QRname)) {
60 syslog(LOG_DEBUG, "listdeliver: no room <%s>", qrbuf->QRname);
64 serialized_config = LoadRoomNetConfigFile(qrbuf->QRnumber);
65 if (!serialized_config) {
66 return; // no netconfig, no processing, no problem
69 config_lines = num_tokens(serialized_config, '\n');
70 for (i=0; i<config_lines; ++i) {
71 extract_token(buf, serialized_config, i, '\n', sizeof buf);
73 if (!strncasecmp(buf, "lastsent|", 9)) {
74 lastsent = atol(&buf[9]);
76 else if ( (!strncasecmp(buf, "listrecp|", 9)) || (!strncasecmp(buf, "digestrecp|", 11)) ) {
77 ++number_of_recipients;
81 if (number_of_recipients > 0) {
82 syslog(LOG_DEBUG, "listdeliver: processing new messages in <%s> for <%d> recipients", qrbuf->QRname, number_of_recipients);
83 number_of_messages_processed = CtdlForEachMessage(MSGS_GT, lastsent, NULL, NULL, NULL, listdeliver_do_msg, NULL);
84 syslog(LOG_DEBUG, "listdeliver: processed %d messages", number_of_messages_processed);
86 if (number_of_messages_processed > 0) {
87 // FIXME write lastsent back to netconfig
91 free(serialized_config);
96 void listdeliver_sweep(void) {
97 static time_t last_run = 0L;
100 * Run mailing list delivery no more frequently than once every 15 minutes (we should make this configurable)
102 if ( (time(NULL) - last_run) < 900 ) {
107 * This is a simple concurrency check to make sure only one listdeliver
108 * run is done at a time. We could do this with a mutex, but since we
109 * don't really require extremely fine granularity here, we'll do it
110 * with a static variable instead.
112 if (doing_listdeliver) return;
113 doing_listdeliver = 1;
116 * Go through each room looking for mailing lists to process
118 syslog(LOG_DEBUG, "listdeliver: sweep started");
119 CtdlForEachRoom(listdeliver_sweep_room, NULL);
120 syslog(LOG_DEBUG, "listdeliver: ended");
121 last_run = time(NULL);
122 doing_listdeliver = 0;
130 CTDL_MODULE_INIT(listdeliver)
134 CtdlRegisterSessionHook(listdeliver_sweep, EVT_TIMER, PRIO_AGGR + 50);
137 /* return our module name for the log */