Work on the new mailing list engine
[citadel] / 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
47 void listdeliver_sweep_room(struct ctdlroom *qrbuf, void *data) {
48         char *serialized_config = NULL;
49         long lastsent = 0;
50         char buf[SIZ];
51         int config_lines;
52         int i;
53
54         serialized_config = LoadRoomNetConfigFile(qrbuf->QRnumber);
55         if (!serialized_config) {
56                 syslog(LOG_DEBUG, "\033[31m %s has no netconfig \033[0m", qrbuf->QRname);
57                 return;
58         }
59
60         syslog(LOG_DEBUG, "\033[32m %s has a netconfig \033[0m", qrbuf->QRname);
61
62         config_lines = num_tokens(serialized_config, '\n');
63         for (i=0; i<config_lines; ++i) {
64                 extract_token(buf, serialized_config, i, '\n', sizeof buf);
65
66                 if (!strncasecmp(buf, "lastsent|", 9)) {
67                         lastsent = atol(buf[9]);
68                         syslog(LOG_DEBUG, "listdeliver: last message delivered = %ld", lastsent);
69                 }
70
71
72
73
74                 syslog(LOG_DEBUG, "%s", buf);
75         }
76
77
78         free(serialized_config);
79 }
80
81
82
83 void listdeliver_sweep(void) {
84         static time_t last_run = 0L;
85
86         /*
87          * Run mailing list delivery no more frequently than once every 15 minutes (we should make this configurable)
88          */
89         if ( (time(NULL) - last_run) < 900 ) {
90                 return;
91         }
92
93         /*
94          * This is a simple concurrency check to make sure only one listdeliver
95          * run is done at a time.  We could do this with a mutex, but since we
96          * don't really require extremely fine granularity here, we'll do it
97          * with a static variable instead.
98          */
99         if (doing_listdeliver) return;
100         doing_listdeliver = 1;
101
102         /*
103          * Go through each room looking for mailing lists to process
104          */
105         syslog(LOG_DEBUG, "listdeliver: sweep started");
106         CtdlForEachRoom(listdeliver_sweep_room, NULL);
107         syslog(LOG_DEBUG, "listdeliver: ended");
108         last_run = time(NULL);
109         doing_listdeliver = 0;
110 }
111
112
113
114 /*
115  * Module entry point
116  */
117 CTDL_MODULE_INIT(listdeliver)
118 {
119         if (!threading)
120         {
121                 CtdlRegisterSessionHook(listdeliver_sweep, EVT_TIMER, PRIO_AGGR + 50);
122         }
123         
124         /* return our module name for the log */
125         return "listsub";
126 }