2 * Read and write the citadel.config file
4 * Copyright (c) 1987-2020 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.
20 #include <sys/utsname.h>
21 #include <libcitadel.h>
24 #include "ctdl_module.h"
26 long config_msgnum = 0;
27 HashList *ctdlconfig = NULL; // new configuration
30 void config_warn_if_port_unset(char *key, int default_port)
32 int p = CtdlGetConfigInt(key);
33 if ((p < -1) || (p == 0) || (p > UINT16_MAX))
35 syslog(LOG_ERR, "config: setting %s is not -1 (disabled) or a valid TCP port - setting to default %d", key, default_port);
36 CtdlSetConfigInt(key, default_port);
41 void config_warn_if_empty(char *key)
43 if (IsEmptyStr(CtdlGetConfigStr(key)))
45 syslog(LOG_ERR, "config: setting %s is empty, but must not - check your config!", key);
50 void validate_config(void) {
53 * these shouldn't be empty
55 config_warn_if_empty("c_fqdn");
56 config_warn_if_empty("c_baseroom");
57 config_warn_if_empty("c_aideroom");
58 config_warn_if_empty("c_twitroom");
59 config_warn_if_empty("c_nodename");
62 * Sanity check for port bindings
64 config_warn_if_port_unset("c_smtp_port", 25);
65 config_warn_if_port_unset("c_pop3_port", 110);
66 config_warn_if_port_unset("c_imap_port", 143);
67 config_warn_if_port_unset("c_msa_port", 587);
68 config_warn_if_port_unset("c_port_number", 504);
69 config_warn_if_port_unset("c_smtps_port", 465);
70 config_warn_if_port_unset("c_pop3s_port", 995);
71 config_warn_if_port_unset("c_imaps_port", 993);
72 config_warn_if_port_unset("c_pftcpdict_port", -1);
73 config_warn_if_port_unset("c_xmpp_c2s_port", 5222);
74 config_warn_if_port_unset("c_xmpp_s2s_port", 5269);
75 config_warn_if_port_unset("c_nntp_port", 119);
76 config_warn_if_port_unset("c_nntps_port", 563);
78 if (getpwuid(ctdluid) == NULL) {
79 syslog(LOG_ERR, "config: uid (%d) does not exist ... citserver will run as root", ctdluid);
85 * Put some sane default values into our configuration. Some will be overridden when we run setup.
87 void brand_new_installation_set_defaults(void) {
89 struct utsname my_utsname;
91 char detected_hostname[256];
93 /* Determine our host name, in case we need to use it as a default */
96 /* set some sample/default values in place of blanks... */
97 extract_token(detected_hostname, my_utsname.nodename, 0, '.', sizeof detected_hostname);
98 CtdlSetConfigStr("c_nodename", detected_hostname);
100 if ((he = gethostbyname(my_utsname.nodename)) != NULL) {
101 CtdlSetConfigStr("c_fqdn", he->h_name);
104 CtdlSetConfigStr("c_fqdn", my_utsname.nodename);
107 CtdlSetConfigStr("c_humannode", "Citadel Server");
108 CtdlSetConfigInt("c_initax", 4);
109 CtdlSetConfigStr("c_moreprompt", "<more>");
110 CtdlSetConfigStr("c_twitroom", "Trashcan");
111 CtdlSetConfigStr("c_baseroom", BASEROOM);
112 CtdlSetConfigStr("c_aideroom", "Aide");
113 CtdlSetConfigInt("c_sleeping", 900);
115 if (CtdlGetConfigInt("c_createax") == 0) {
116 CtdlSetConfigInt("c_createax", 3);
120 * Default port numbers for various services
122 CtdlSetConfigInt("c_port_number", 504);
123 CtdlSetConfigInt("c_smtp_port", 25);
124 CtdlSetConfigInt("c_pop3_port", 110);
125 CtdlSetConfigInt("c_imap_port", 143);
126 CtdlSetConfigInt("c_msa_port", 587);
127 CtdlSetConfigInt("c_smtps_port", 465);
128 CtdlSetConfigInt("c_pop3s_port", 995);
129 CtdlSetConfigInt("c_imaps_port", 993);
130 CtdlSetConfigInt("c_pftcpdict_port", -1);
131 CtdlSetConfigInt("c_xmpp_c2s_port", 5222);
132 CtdlSetConfigInt("c_xmpp_s2s_port", 5269);
133 CtdlSetConfigInt("c_nntp_port", 119);
134 CtdlSetConfigInt("c_nntps_port", 563);
137 * Prevent the "new installation, set defaults" behavior from occurring again
139 CtdlSetConfigLong("c_config_created_or_migrated", (long)time(NULL));
144 * Migrate a supplied legacy configuration to the new in-db format.
145 * No individual site should ever have to do this more than once.
147 void migrate_legacy_config(struct legacy_config *lconfig)
149 CtdlSetConfigStr( "c_nodename" , lconfig->c_nodename );
150 CtdlSetConfigStr( "c_fqdn" , lconfig->c_fqdn );
151 CtdlSetConfigStr( "c_humannode" , lconfig->c_humannode );
152 CtdlSetConfigInt( "c_creataide" , lconfig->c_creataide );
153 CtdlSetConfigInt( "c_sleeping" , lconfig->c_sleeping );
154 CtdlSetConfigInt( "c_initax" , lconfig->c_initax );
155 CtdlSetConfigInt( "c_regiscall" , lconfig->c_regiscall );
156 CtdlSetConfigInt( "c_twitdetect" , lconfig->c_twitdetect );
157 CtdlSetConfigStr( "c_twitroom" , lconfig->c_twitroom );
158 CtdlSetConfigStr( "c_moreprompt" , lconfig->c_moreprompt );
159 CtdlSetConfigInt( "c_restrict" , lconfig->c_restrict );
160 CtdlSetConfigStr( "c_site_location" , lconfig->c_site_location );
161 CtdlSetConfigStr( "c_sysadm" , lconfig->c_sysadm );
162 CtdlSetConfigInt( "c_maxsessions" , lconfig->c_maxsessions );
163 CtdlSetConfigStr( "c_ip_addr" , lconfig->c_ip_addr );
164 CtdlSetConfigInt( "c_port_number" , lconfig->c_port_number );
165 CtdlSetConfigInt( "c_ep_mode" , lconfig->c_ep.expire_mode );
166 CtdlSetConfigInt( "c_ep_value" , lconfig->c_ep.expire_value );
167 CtdlSetConfigInt( "c_userpurge" , lconfig->c_userpurge );
168 CtdlSetConfigInt( "c_roompurge" , lconfig->c_roompurge );
169 CtdlSetConfigStr( "c_logpages" , lconfig->c_logpages );
170 CtdlSetConfigInt( "c_createax" , lconfig->c_createax );
171 CtdlSetConfigLong( "c_maxmsglen" , lconfig->c_maxmsglen );
172 CtdlSetConfigInt( "c_min_workers" , lconfig->c_min_workers );
173 CtdlSetConfigInt( "c_max_workers" , lconfig->c_max_workers );
174 CtdlSetConfigInt( "c_pop3_port" , lconfig->c_pop3_port );
175 CtdlSetConfigInt( "c_smtp_port" , lconfig->c_smtp_port );
176 CtdlSetConfigInt( "c_rfc822_strict_from" , lconfig->c_rfc822_strict_from );
177 CtdlSetConfigInt( "c_aide_zap" , lconfig->c_aide_zap );
178 CtdlSetConfigInt( "c_imap_port" , lconfig->c_imap_port );
179 CtdlSetConfigLong( "c_net_freq" , lconfig->c_net_freq );
180 CtdlSetConfigInt( "c_disable_newu" , lconfig->c_disable_newu );
181 CtdlSetConfigInt( "c_enable_fulltext" , lconfig->c_enable_fulltext );
182 CtdlSetConfigStr( "c_baseroom" , lconfig->c_baseroom );
183 CtdlSetConfigStr( "c_aideroom" , lconfig->c_aideroom );
184 CtdlSetConfigInt( "c_purge_hour" , lconfig->c_purge_hour );
185 CtdlSetConfigInt( "c_mbxep_mode" , lconfig->c_mbxep.expire_mode );
186 CtdlSetConfigInt( "c_mbxep_value" , lconfig->c_mbxep.expire_value );
187 CtdlSetConfigStr( "c_ldap_host" , lconfig->c_ldap_host );
188 CtdlSetConfigInt( "c_ldap_port" , lconfig->c_ldap_port );
189 CtdlSetConfigStr( "c_ldap_base_dn" , lconfig->c_ldap_base_dn );
190 CtdlSetConfigStr( "c_ldap_bind_dn" , lconfig->c_ldap_bind_dn );
191 CtdlSetConfigStr( "c_ldap_bind_pw" , lconfig->c_ldap_bind_pw );
192 CtdlSetConfigInt( "c_msa_port" , lconfig->c_msa_port );
193 CtdlSetConfigInt( "c_imaps_port" , lconfig->c_imaps_port );
194 CtdlSetConfigInt( "c_pop3s_port" , lconfig->c_pop3s_port );
195 CtdlSetConfigInt( "c_smtps_port" , lconfig->c_smtps_port );
196 CtdlSetConfigInt( "c_auto_cull" , lconfig->c_auto_cull );
197 CtdlSetConfigInt( "c_allow_spoofing" , lconfig->c_allow_spoofing );
198 CtdlSetConfigInt( "c_journal_email" , lconfig->c_journal_email );
199 CtdlSetConfigInt( "c_journal_pubmsgs" , lconfig->c_journal_pubmsgs );
200 CtdlSetConfigStr( "c_journal_dest" , lconfig->c_journal_dest );
201 CtdlSetConfigStr( "c_default_cal_zone" , lconfig->c_default_cal_zone );
202 CtdlSetConfigInt( "c_pftcpdict_port" , lconfig->c_pftcpdict_port );
203 CtdlSetConfigInt( "c_auth_mode" , lconfig->c_auth_mode );
204 CtdlSetConfigInt( "c_rbl_at_greeting" , lconfig->c_rbl_at_greeting );
205 CtdlSetConfigStr( "c_pager_program" , lconfig->c_pager_program );
206 CtdlSetConfigInt( "c_imap_keep_from" , lconfig->c_imap_keep_from );
207 CtdlSetConfigInt( "c_xmpp_c2s_port" , lconfig->c_xmpp_c2s_port );
208 CtdlSetConfigInt( "c_xmpp_s2s_port" , lconfig->c_xmpp_s2s_port );
209 CtdlSetConfigLong( "c_pop3_fetch" , lconfig->c_pop3_fetch );
210 CtdlSetConfigLong( "c_pop3_fastest" , lconfig->c_pop3_fastest );
211 CtdlSetConfigInt( "c_spam_flag_only" , lconfig->c_spam_flag_only );
212 CtdlSetConfigInt( "c_guest_logins" , lconfig->c_guest_logins );
213 CtdlSetConfigInt( "c_nntp_port" , lconfig->c_nntp_port );
214 CtdlSetConfigInt( "c_nntps_port" , lconfig->c_nntps_port );
219 * Called during the initialization of Citadel server.
220 * It verifies the system's integrity and reads citadel.config into memory.
222 void initialize_config_system(void) {
225 struct legacy_config lconfig; // legacy configuration
226 ctdlconfig = NewHash(1, NULL); // set up the real config system
228 /* Ensure that we are linked to the correct version of libcitadel */
229 if (libcitadel_version_number() < LIBCITADEL_VERSION_NUMBER) {
230 fprintf(stderr, "You are running libcitadel version %d\n", libcitadel_version_number());
231 fprintf(stderr, "citserver was compiled against version %d\n", LIBCITADEL_VERSION_NUMBER);
232 exit(CTDLEXIT_LIBCITADEL);
235 if (chdir(ctdl_bbsbase_dir) != 0) {
237 "This program could not be started.\nUnable to change directory to %s\nError: %s\n",
244 memset(&lconfig, 0, sizeof(struct legacy_config));
245 cfp = fopen(file_citadel_config, "rb");
247 if (CtdlGetConfigLong("c_config_created_or_migrated") > 0) {
248 fprintf(stderr, "Citadel Server found BOTH legacy and new configurations present.\n");
249 fprintf(stderr, "Exiting to prevent data corruption.\n");
250 exit(CTDLEXIT_CONFIG);
252 rv = fread((char *) &lconfig, sizeof(struct legacy_config), 1, cfp);
256 "Warning: Found a legacy config file %s has unexpected size. \n",
261 migrate_legacy_config(&lconfig);
264 if (unlink(file_citadel_config) != 0) {
265 fprintf(stderr, "Unable to remove legacy config file %s after migrating it.\n", file_citadel_config);
266 fprintf(stderr, "Exiting to prevent data corruption.\n");
267 exit(CTDLEXIT_CONFIG);
271 * Prevent migration/initialization from happening again.
273 CtdlSetConfigLong("c_config_created_or_migrated", (long)time(NULL));
277 /* New installation? Set up configuration */
278 if (CtdlGetConfigLong("c_config_created_or_migrated") <= 0) {
279 brand_new_installation_set_defaults();
282 /* Only allow LDAP auth mode if we actually have LDAP support */
284 if ((CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP) || (CtdlGetConfigInt("c_auth_mode") == AUTHMODE_LDAP_AD)) {
285 fprintf(stderr, "Your system is configured for LDAP authentication,\n"
286 "but you are running a server built without OpenLDAP support.\n");
287 exit(CTDL_EXIT_UNSUP_AUTH);
291 /* Default maximum message length is 10 megabytes. This is site
292 * configurable. Also check to make sure the limit has not been
293 * set below 8192 bytes.
295 if (CtdlGetConfigLong("c_maxmsglen") <= 0) CtdlSetConfigLong("c_maxmsglen", 10485760);
296 if (CtdlGetConfigLong("c_maxmsglen") < 8192) CtdlSetConfigLong("c_maxmsglen", 8192);
299 * Default lower and upper limits on number of worker threads
301 if (CtdlGetConfigInt("c_min_workers") < 5) CtdlSetConfigInt("c_min_workers", 5); // min
302 if (CtdlGetConfigInt("c_max_workers") == 0) CtdlSetConfigInt("c_max_workers", 256); // default max
303 if (CtdlGetConfigInt("c_max_workers") < CtdlGetConfigInt("c_min_workers")) {
304 CtdlSetConfigInt("c_max_workers", CtdlGetConfigInt("c_min_workers")); // max >= min
307 /* Networking more than once every five minutes just isn't sane */
308 if (CtdlGetConfigLong("c_net_freq") == 0) CtdlSetConfigLong("c_net_freq", 3600); // once per hour default
309 if (CtdlGetConfigLong("c_net_freq") < 300) CtdlSetConfigLong("c_net_freq", 300); // minimum 5 minutes
311 /* Same goes for POP3 */
312 if (CtdlGetConfigLong("c_pop3_fetch") == 0) CtdlSetConfigLong("c_pop3_fetch", 3600); // once per hour default
313 if (CtdlGetConfigLong("c_pop3_fetch") < 300) CtdlSetConfigLong("c_pop3_fetch", 300); // 5 minutes min
314 if (CtdlGetConfigLong("c_pop3_fastest") == 0) CtdlSetConfigLong("c_pop3_fastest", 3600); // once per hour default
315 if (CtdlGetConfigLong("c_pop3_fastest") < 300) CtdlSetConfigLong("c_pop3_fastest", 300); // 5 minutes min
317 /* LDAP sync frequency */
318 if (CtdlGetConfigLong("c_ldap_sync_freq") == 0) CtdlSetConfigLong("c_ldap_sync_freq", 300); // every 5 minutes default
320 /* "create new user" only works with native authentication mode */
321 if (CtdlGetConfigInt("c_auth_mode") != AUTHMODE_NATIVE) {
322 CtdlSetConfigInt("c_disable_newu", 1);
328 * Called when Citadel server is shutting down.
329 * Clears out the config hash table.
331 void shutdown_config_system(void)
333 DeleteHash(&ctdlconfig);
338 * Set a system config value. Simple key/value here.
340 void CtdlSetConfigStr(char *key, char *value)
342 int key_len = strlen(key);
343 int value_len = strlen(value);
345 /* Save it in memory */
346 Put(ctdlconfig, key, key_len, strdup(value), NULL);
348 /* Also write it to the config database */
350 int dbv_size = key_len + value_len + 2;
351 char *dbv = malloc(dbv_size);
353 strcpy(&dbv[key_len + 1], value);
354 cdb_store(CDB_CONFIG, key, key_len, dbv, dbv_size);
360 * Set a numeric system config value (long integer)
362 void CtdlSetConfigLong(char *key, long value)
365 sprintf(longstr, "%ld", value);
366 CtdlSetConfigStr(key, longstr);
371 * Set a numeric system config value (integer)
373 void CtdlSetConfigInt(char *key, int value)
376 sprintf(intstr, "%d", value);
377 CtdlSetConfigStr(key, intstr);
382 * Delete a system config value.
384 void CtdlDelConfig(char *key)
386 int key_len = strlen(key);
388 if (IsEmptyStr(key)) return;
390 /* Delete from the database. */
391 cdb_delete(CDB_CONFIG, key, key_len);
393 /* Delete from the in-memory cache */
394 HashPos *Pos = GetNewHashPos(ctdlconfig, 1);
395 if (GetHashPosFromKey(ctdlconfig, key, key_len, Pos)) {
396 DeleteEntryFromHash(ctdlconfig, Pos);
400 assert(Pos == NULL); // no memory leaks allowed
405 * Fetch a system config value. Caller does *not* own the returned value and may not alter it.
407 char *CtdlGetConfigStr(char *key)
411 int key_len = strlen(key);
413 if (IsEmptyStr(key)) return(NULL);
415 /* First look in memory */
416 if (GetHash(ctdlconfig, key, key_len, (void *)&value))
421 /* Then look in the database. */
423 cdb = cdb_fetch(CDB_CONFIG, key, key_len);
425 if (cdb == NULL) { /* nope, not there either. */
429 /* Got it. Save it in memory for the next fetch. */
430 value = strdup(cdb->ptr + key_len + 1); /* The key was stored there too; skip past it */
432 Put(ctdlconfig, key, key_len, value, NULL);
438 * Fetch a system config value - integer
440 int CtdlGetConfigInt(char *key)
442 char *s = CtdlGetConfigStr(key);
443 if (s) return atoi(s);
449 * Fetch a system config value - long integer
451 long CtdlGetConfigLong(char *key)
453 char *s = CtdlGetConfigStr(key);
454 if (s) return atol(s);
459 void CtdlGetSysConfigBackend(long msgnum, void *userdata) {
460 config_msgnum = msgnum;
464 char *CtdlGetSysConfig(char *sysconfname) {
465 char hold_rm[ROOMNAMELEN];
468 struct CtdlMessage *msg;
471 strcpy(hold_rm, CC->room.QRname);
472 if (CtdlGetRoom(&CC->room, SYSCONFIGROOM) != 0) {
473 CtdlGetRoom(&CC->room, hold_rm);
477 /* We want the last (and probably only) config in this room */
478 begin_critical_section(S_CONFIG);
479 config_msgnum = (-1L);
480 CtdlForEachMessage(MSGS_LAST, 1, NULL, sysconfname, NULL, CtdlGetSysConfigBackend, NULL);
481 msgnum = config_msgnum;
482 end_critical_section(S_CONFIG);
488 msg = CtdlFetchMessage(msgnum, 1);
490 conf = strdup(msg->cm_fields[eMesageText]);
498 CtdlGetRoom(&CC->room, hold_rm);
502 extract_token(buf, conf, 0, '\n', sizeof buf);
503 strcpy(conf, &conf[strlen(buf)+1]);
504 } while ( (!IsEmptyStr(conf)) && (!IsEmptyStr(buf)) );
511 void CtdlPutSysConfig(char *sysconfname, char *sysconfdata) {
512 CtdlWriteObject(SYSCONFIGROOM, sysconfname, sysconfdata, (strlen(sysconfdata)+1), NULL, 0, 1, 0);