1 // Read and write the system configuration database
3 // Copyright (c) 1987-2022 by the citadel.org team
5 // This program is open source software. Use, duplication, or disclosure
6 // is subject to the terms of the GNU General Public License, version 3.
14 #include <sys/utsname.h>
15 #include <libcitadel.h>
18 #include "ctdl_module.h"
20 long config_msgnum = 0;
21 HashList *ctdlconfig = NULL; // new configuration
24 void config_warn_if_port_unset(char *key, int default_port) {
25 int p = CtdlGetConfigInt(key);
26 if ((p < -1) || (p == 0) || (p > UINT16_MAX)) {
27 syslog(LOG_ERR, "config: setting %s is not -1 (disabled) or a valid TCP port - setting to default %d", key, default_port);
28 CtdlSetConfigInt(key, default_port);
33 void config_warn_if_empty(char *key) {
34 if (IsEmptyStr(CtdlGetConfigStr(key))) {
35 syslog(LOG_ERR, "config: setting %s is empty, but must not - check your config!", key);
40 void validate_config(void) {
42 // these shouldn't be empty
43 config_warn_if_empty("c_fqdn");
44 config_warn_if_empty("c_baseroom");
45 config_warn_if_empty("c_aideroom");
46 config_warn_if_empty("c_twitroom");
47 config_warn_if_empty("c_nodename");
49 // Sanity check for port bindings
50 config_warn_if_port_unset("c_smtp_port", 25);
51 config_warn_if_port_unset("c_pop3_port", 110);
52 config_warn_if_port_unset("c_imap_port", 143);
53 config_warn_if_port_unset("c_msa_port", 587);
54 config_warn_if_port_unset("c_port_number", 504);
55 config_warn_if_port_unset("c_smtps_port", 465);
56 config_warn_if_port_unset("c_pop3s_port", 995);
57 config_warn_if_port_unset("c_imaps_port", 993);
58 config_warn_if_port_unset("c_pftcpdict_port", -1);
59 config_warn_if_port_unset("c_xmpp_c2s_port", 5222);
60 config_warn_if_port_unset("c_xmpp_s2s_port", 5269);
61 config_warn_if_port_unset("c_nntp_port", 119);
62 config_warn_if_port_unset("c_nntps_port", 563);
64 if (getpwuid(ctdluid) == NULL) {
65 syslog(LOG_ERR, "config: uid (%d) does not exist ... citserver will run as root", ctdluid);
70 // The "host key" is a 100-byte random string that is used to do some persistent hashing.
71 // It must remain consistent throughout the lifetime of this Citadel installation
72 void generate_host_key(void) {
73 syslog(LOG_INFO, "config: generating a host key");
79 host_key[len] = random() % 0x7F;
80 } while (!isalnum(host_key[len]));
83 CtdlSetConfigStr("host_key", host_key);
87 // Put some sane default values into our configuration. Some will be overridden when we run setup.
88 void brand_new_installation_set_defaults(void) {
90 struct utsname my_utsname;
92 char detected_hostname[256];
94 // Determine our host name, in case we need to use it as a default
97 // set some sample/default values in place of blanks...
98 extract_token(detected_hostname, my_utsname.nodename, 0, '.', sizeof detected_hostname);
99 CtdlSetConfigStr("c_nodename", detected_hostname);
101 if ((he = gethostbyname(my_utsname.nodename)) != NULL) {
102 CtdlSetConfigStr("c_fqdn", he->h_name);
105 CtdlSetConfigStr("c_fqdn", my_utsname.nodename);
108 CtdlSetConfigStr("c_humannode", "Citadel Server");
109 CtdlSetConfigInt("c_initax", 4);
110 CtdlSetConfigStr("c_moreprompt", "<more>");
111 CtdlSetConfigStr("c_twitroom", "Trashcan");
112 CtdlSetConfigStr("c_baseroom", BASEROOM);
113 CtdlSetConfigStr("c_aideroom", "Aide");
114 CtdlSetConfigInt("c_sleeping", 900);
116 if (CtdlGetConfigInt("c_createax") == 0) {
117 CtdlSetConfigInt("c_createax", 3);
120 // Default port numbers for various services
121 CtdlSetConfigInt("c_port_number", 504);
122 CtdlSetConfigInt("c_smtp_port", 25);
123 CtdlSetConfigInt("c_pop3_port", 110);
124 CtdlSetConfigInt("c_imap_port", 143);
125 CtdlSetConfigInt("c_msa_port", 587);
126 CtdlSetConfigInt("c_smtps_port", 465);
127 CtdlSetConfigInt("c_pop3s_port", 995);
128 CtdlSetConfigInt("c_imaps_port", 993);
129 CtdlSetConfigInt("c_pftcpdict_port", -1);
130 CtdlSetConfigInt("c_xmpp_c2s_port", 5222);
131 CtdlSetConfigInt("c_xmpp_s2s_port", 5269);
132 CtdlSetConfigInt("c_nntp_port", 119);
133 CtdlSetConfigInt("c_nntps_port", 563);
135 // Prevent the "new installation, set defaults" behavior from occurring again
136 CtdlSetConfigLong("c_config_created_or_migrated", (long)time(NULL));
140 // Migrate a supplied legacy configuration to the new in-db format.
141 // No individual site should ever have to do this more than once.
142 void migrate_legacy_config(struct legacy_config *lconfig) {
143 CtdlSetConfigStr( "c_nodename" , lconfig->c_nodename );
144 CtdlSetConfigStr( "c_fqdn" , lconfig->c_fqdn );
145 CtdlSetConfigStr( "c_humannode" , lconfig->c_humannode );
146 CtdlSetConfigInt( "c_creataide" , lconfig->c_creataide );
147 CtdlSetConfigInt( "c_sleeping" , lconfig->c_sleeping );
148 CtdlSetConfigInt( "c_initax" , lconfig->c_initax );
149 CtdlSetConfigInt( "c_regiscall" , lconfig->c_regiscall );
150 CtdlSetConfigInt( "c_twitdetect" , lconfig->c_twitdetect );
151 CtdlSetConfigStr( "c_twitroom" , lconfig->c_twitroom );
152 CtdlSetConfigStr( "c_moreprompt" , lconfig->c_moreprompt );
153 CtdlSetConfigInt( "c_restrict" , lconfig->c_restrict );
154 CtdlSetConfigStr( "c_site_location" , lconfig->c_site_location );
155 CtdlSetConfigStr( "c_sysadm" , lconfig->c_sysadm );
156 CtdlSetConfigInt( "c_maxsessions" , lconfig->c_maxsessions );
157 CtdlSetConfigStr( "c_ip_addr" , lconfig->c_ip_addr );
158 CtdlSetConfigInt( "c_port_number" , lconfig->c_port_number );
159 CtdlSetConfigInt( "c_ep_mode" , lconfig->c_ep.expire_mode );
160 CtdlSetConfigInt( "c_ep_value" , lconfig->c_ep.expire_value );
161 CtdlSetConfigInt( "c_userpurge" , lconfig->c_userpurge );
162 CtdlSetConfigInt( "c_roompurge" , lconfig->c_roompurge );
163 CtdlSetConfigStr( "c_logpages" , lconfig->c_logpages );
164 CtdlSetConfigInt( "c_createax" , lconfig->c_createax );
165 CtdlSetConfigLong( "c_maxmsglen" , lconfig->c_maxmsglen );
166 CtdlSetConfigInt( "c_min_workers" , lconfig->c_min_workers );
167 CtdlSetConfigInt( "c_max_workers" , lconfig->c_max_workers );
168 CtdlSetConfigInt( "c_pop3_port" , lconfig->c_pop3_port );
169 CtdlSetConfigInt( "c_smtp_port" , lconfig->c_smtp_port );
170 CtdlSetConfigInt( "c_rfc822_strict_from" , lconfig->c_rfc822_strict_from );
171 CtdlSetConfigInt( "c_aide_zap" , lconfig->c_aide_zap );
172 CtdlSetConfigInt( "c_imap_port" , lconfig->c_imap_port );
173 CtdlSetConfigLong( "c_net_freq" , lconfig->c_net_freq );
174 CtdlSetConfigInt( "c_disable_newu" , lconfig->c_disable_newu );
175 CtdlSetConfigInt( "c_enable_fulltext" , lconfig->c_enable_fulltext );
176 CtdlSetConfigStr( "c_baseroom" , lconfig->c_baseroom );
177 CtdlSetConfigStr( "c_aideroom" , lconfig->c_aideroom );
178 CtdlSetConfigInt( "c_purge_hour" , lconfig->c_purge_hour );
179 CtdlSetConfigInt( "c_mbxep_mode" , lconfig->c_mbxep.expire_mode );
180 CtdlSetConfigInt( "c_mbxep_value" , lconfig->c_mbxep.expire_value );
181 CtdlSetConfigStr( "c_ldap_host" , lconfig->c_ldap_host );
182 CtdlSetConfigInt( "c_ldap_port" , lconfig->c_ldap_port );
183 CtdlSetConfigStr( "c_ldap_base_dn" , lconfig->c_ldap_base_dn );
184 CtdlSetConfigStr( "c_ldap_bind_dn" , lconfig->c_ldap_bind_dn );
185 CtdlSetConfigStr( "c_ldap_bind_pw" , lconfig->c_ldap_bind_pw );
186 CtdlSetConfigInt( "c_msa_port" , lconfig->c_msa_port );
187 CtdlSetConfigInt( "c_imaps_port" , lconfig->c_imaps_port );
188 CtdlSetConfigInt( "c_pop3s_port" , lconfig->c_pop3s_port );
189 CtdlSetConfigInt( "c_smtps_port" , lconfig->c_smtps_port );
190 CtdlSetConfigInt( "c_auto_cull" , lconfig->c_auto_cull );
191 CtdlSetConfigInt( "c_allow_spoofing" , lconfig->c_allow_spoofing );
192 CtdlSetConfigInt( "c_journal_email" , lconfig->c_journal_email );
193 CtdlSetConfigInt( "c_journal_pubmsgs" , lconfig->c_journal_pubmsgs );
194 CtdlSetConfigStr( "c_journal_dest" , lconfig->c_journal_dest );
195 CtdlSetConfigStr( "c_default_cal_zone" , lconfig->c_default_cal_zone );
196 CtdlSetConfigInt( "c_pftcpdict_port" , lconfig->c_pftcpdict_port );
197 CtdlSetConfigInt( "c_auth_mode" , lconfig->c_auth_mode );
198 CtdlSetConfigInt( "c_rbl_at_greeting" , lconfig->c_rbl_at_greeting );
199 CtdlSetConfigStr( "c_pager_program" , lconfig->c_pager_program );
200 CtdlSetConfigInt( "c_imap_keep_from" , lconfig->c_imap_keep_from );
201 CtdlSetConfigInt( "c_xmpp_c2s_port" , lconfig->c_xmpp_c2s_port );
202 CtdlSetConfigInt( "c_xmpp_s2s_port" , lconfig->c_xmpp_s2s_port );
203 CtdlSetConfigLong( "c_pop3_fetch" , lconfig->c_pop3_fetch );
204 CtdlSetConfigLong( "c_pop3_fastest" , lconfig->c_pop3_fastest );
205 CtdlSetConfigInt( "c_spam_flag_only" , lconfig->c_spam_flag_only );
206 CtdlSetConfigInt( "c_guest_logins" , lconfig->c_guest_logins );
207 CtdlSetConfigInt( "c_nntp_port" , lconfig->c_nntp_port );
208 CtdlSetConfigInt( "c_nntps_port" , lconfig->c_nntps_port );
212 // Called during the initialization of Citadel server.
213 // It verifies the system's integrity and reads citadel.config into memory.
214 void initialize_config_system(void) {
217 struct legacy_config lconfig; // legacy configuration
218 ctdlconfig = NewHash(1, NULL); // set up the real config system
220 // Ensure that we are linked to the correct version of libcitadel
221 if (libcitadel_version_number() < LIBCITADEL_VERSION_NUMBER) {
222 fprintf(stderr, "You are running libcitadel version %d\n", libcitadel_version_number());
223 fprintf(stderr, "citserver was compiled against version %d\n", LIBCITADEL_VERSION_NUMBER);
224 exit(CTDLEXIT_LIBCITADEL);
227 memset(&lconfig, 0, sizeof(struct legacy_config));
228 cfp = fopen(file_citadel_config, "rb");
230 if (CtdlGetConfigLong("c_config_created_or_migrated") > 0) {
231 fprintf(stderr, "Citadel Server found BOTH legacy and new configurations present.\n");
232 fprintf(stderr, "Exiting to prevent data corruption.\n");
233 exit(CTDLEXIT_CONFIG);
235 rv = fread((char *) &lconfig, sizeof(struct legacy_config), 1, cfp);
238 "Warning: Found a legacy config file %s has unexpected size. \n",
243 migrate_legacy_config(&lconfig);
246 if (unlink(file_citadel_config) != 0) {
247 fprintf(stderr, "Unable to remove legacy config file %s after migrating it.\n", file_citadel_config);
248 fprintf(stderr, "Exiting to prevent data corruption.\n");
249 exit(CTDLEXIT_CONFIG);
252 // Prevent migration/initialization from happening again.
253 CtdlSetConfigLong("c_config_created_or_migrated", (long)time(NULL));
257 // New installation? Set up configuration
258 if (CtdlGetConfigLong("c_config_created_or_migrated") <= 0) {
259 brand_new_installation_set_defaults();
262 // Default maximum message length is 10 megabytes. This is site
263 // configurable. Also check to make sure the limit has not been
264 // set below 8192 bytes.
265 if (CtdlGetConfigLong("c_maxmsglen") <= 0) CtdlSetConfigLong("c_maxmsglen", 10485760);
266 if (CtdlGetConfigLong("c_maxmsglen") < 8192) CtdlSetConfigLong("c_maxmsglen", 8192);
268 // Default lower and upper limits on number of worker threads
269 if (CtdlGetConfigInt("c_min_workers") < 5) CtdlSetConfigInt("c_min_workers", 5); // min
270 if (CtdlGetConfigInt("c_max_workers") == 0) CtdlSetConfigInt("c_max_workers", 256); // default max
271 if (CtdlGetConfigInt("c_max_workers") < CtdlGetConfigInt("c_min_workers")) {
272 CtdlSetConfigInt("c_max_workers", CtdlGetConfigInt("c_min_workers")); // max >= min
275 // Networking more than once every five minutes just isn't sane
276 if (CtdlGetConfigLong("c_net_freq") == 0) CtdlSetConfigLong("c_net_freq", 3600); // once per hour default
277 if (CtdlGetConfigLong("c_net_freq") < 300) CtdlSetConfigLong("c_net_freq", 300); // minimum 5 minutes
279 // Same goes for POP3
280 if (CtdlGetConfigLong("c_pop3_fetch") == 0) CtdlSetConfigLong("c_pop3_fetch", 3600); // once per hour default
281 if (CtdlGetConfigLong("c_pop3_fetch") < 300) CtdlSetConfigLong("c_pop3_fetch", 300); // 5 minutes min
282 if (CtdlGetConfigLong("c_pop3_fastest") == 0) CtdlSetConfigLong("c_pop3_fastest", 3600); // once per hour default
283 if (CtdlGetConfigLong("c_pop3_fastest") < 300) CtdlSetConfigLong("c_pop3_fastest", 300); // 5 minutes min
285 // LDAP sync frequency
286 if (CtdlGetConfigLong("c_ldap_sync_freq") == 0) CtdlSetConfigLong("c_ldap_sync_freq", 300); // every 5 minutes default
288 // "create new user" only works with native authentication mode
289 if (CtdlGetConfigInt("c_auth_mode") != AUTHMODE_NATIVE) {
290 CtdlSetConfigInt("c_disable_newu", 1);
293 // If we do not have a host key, generate one now, and save it.
294 if (IsEmptyStr(CtdlGetConfigStr("host_key"))) {
300 // Called when Citadel server is shutting down.
301 // Clears out the config hash table.
302 void shutdown_config_system(void) {
303 DeleteHash(&ctdlconfig);
307 // Set a system config value. Simple key/value here.
308 void CtdlSetConfigStr(char *key, char *value) {
309 int key_len = strlen(key);
310 int value_len = strlen(value);
313 Put(ctdlconfig, key, key_len, strdup(value), NULL);
315 // Also write it to the config database
317 int dbv_size = key_len + value_len + 2;
318 char *dbv = malloc(dbv_size);
320 strcpy(&dbv[key_len + 1], value);
321 cdb_store(CDB_CONFIG, key, key_len, dbv, dbv_size);
326 // Set a numeric system config value (long integer)
327 void CtdlSetConfigLong(char *key, long value) {
329 sprintf(longstr, "%ld", value);
330 CtdlSetConfigStr(key, longstr);
334 // Set a numeric system config value (integer)
335 void CtdlSetConfigInt(char *key, int value) {
337 sprintf(intstr, "%d", value);
338 CtdlSetConfigStr(key, intstr);
342 // Delete a system config value.
343 void CtdlDelConfig(char *key) {
344 int key_len = strlen(key);
346 if (IsEmptyStr(key)) return;
348 // Delete from the database.
349 cdb_delete(CDB_CONFIG, key, key_len);
351 // Delete from the in-memory cache
352 HashPos *Pos = GetNewHashPos(ctdlconfig, 1);
353 if (GetHashPosFromKey(ctdlconfig, key, key_len, Pos)) {
354 DeleteEntryFromHash(ctdlconfig, Pos);
358 assert(Pos == NULL); // no memory leaks allowed
362 // Fetch a system config value. Caller does *not* own the returned value and may not alter it.
363 char *CtdlGetConfigStr(char *key) {
366 int key_len = strlen(key);
368 if (IsEmptyStr(key)) return(NULL);
370 // First look in memory
371 if (GetHash(ctdlconfig, key, key_len, (void *)&value)) {
375 // Then look in the database.
376 cdb = cdb_fetch(CDB_CONFIG, key, key_len);
377 if (cdb.ptr == NULL) { // nope, not there either.
381 // Got it. Save it in memory for the next fetch.
382 value = strdup(cdb.ptr + key_len + 1); // The key was stored there too; skip past it
383 Put(ctdlconfig, key, key_len, value, NULL);
388 // Fetch a system config value - integer
389 int CtdlGetConfigInt(char *key) {
390 char *s = CtdlGetConfigStr(key);
391 if (s) return atoi(s);
396 // Fetch a system config value - long integer
397 long CtdlGetConfigLong(char *key) {
398 char *s = CtdlGetConfigStr(key);
399 if (s) return atol(s);
404 void CtdlGetSysConfigBackend(long msgnum, void *userdata) {
405 config_msgnum = msgnum;
409 // This is for fetching longer configuration sets which are stored in the message base.
410 char *CtdlGetSysConfig(char *sysconfname) {
411 char hold_rm[ROOMNAMELEN];
414 struct CtdlMessage *msg;
417 strcpy(hold_rm, CC->room.QRname);
418 if (CtdlGetRoom(&CC->room, SYSCONFIGROOM) != 0) {
419 CtdlGetRoom(&CC->room, hold_rm);
423 // The new way: hunt for the message number in the config database
424 msgnum = CtdlGetConfigLong(sysconfname);
426 // Legacy format: hunt through the local system configuration room for a message with a matching MIME type
428 begin_critical_section(S_CONFIG);
430 CtdlForEachMessage(MSGS_LAST, 1, NULL, sysconfname, NULL, CtdlGetSysConfigBackend, NULL);
431 msgnum = config_msgnum;
432 end_critical_section(S_CONFIG);
434 CtdlSetConfigLong(sysconfname, msgnum); // store it the new way so we don't have to do this again
442 msg = CtdlFetchMessage(msgnum, 1);
444 conf = strdup(msg->cm_fields[eMesageText]);
452 CtdlGetRoom(&CC->room, hold_rm);
454 if (conf != NULL) { // Strip the MIME headers, leaving only the content
456 extract_token(buf, conf, 0, '\n', sizeof buf);
457 strcpy(conf, &conf[strlen(buf)+1]);
458 } while ( (!IsEmptyStr(conf)) && (!IsEmptyStr(buf)) );
465 // This is for storing longer configuration sets which are stored in the message base.
466 void CtdlPutSysConfig(char *sysconfname, char *sysconfdata) {
467 long old_msgnum = -1;
468 long new_msgnum = -1;
470 // Search for the previous copy of this config item, so we can delete it
471 old_msgnum = CtdlGetConfigLong(sysconfname);
473 // Go ahead and save it, and write the new msgnum to the config database so we can find it again
474 new_msgnum = CtdlWriteObject(SYSCONFIGROOM, sysconfname, sysconfdata, (strlen(sysconfdata)+1), NULL, 0, 0);
475 if (new_msgnum > 0) {
476 CtdlSetConfigLong(sysconfname, new_msgnum);
478 // Now delete the old copy
479 if (old_msgnum > 0) {
480 CtdlDeleteMessages(SYSCONFIGROOM, &old_msgnum, 1, "");