2 * Administrative screen for site-wide configuration
4 * Copyright (c) 1996-2011 by the citadel.org team
6 * This program is open source software. You can redistribute it and/or
7 * modify 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.
16 #include "webserver.h"
18 HashList *ZoneHash = NULL;
20 ConstStr ExpirePolicyString = {CStrOf(roompolicy) };
22 ConstStr ExpirePolicyStrings[][2] = {
23 { { CStrOf(roompolicy) } , { strof(roompolicy) "_value", sizeof(strof(roompolicy) "_value") - 1 } },
24 { { CStrOf(floorpolicy) } , { strof(floorpolicy) "_value", sizeof(strof(floorpolicy) "_value") - 1 } },
25 { { CStrOf(sitepolicy) } , { strof(sitepolicy) "_value", sizeof(strof(sitepolicy) "_value") - 1 } },
26 { { CStrOf(mailboxespolicy)} , { strof(mailboxespolicy)"_value", sizeof(strof(mailboxespolicy)"_value") - 1 } }
29 void LoadExpirePolicy(GPEXWhichPolicy which)
34 const char *Pos = NULL;
36 serv_printf("GPEX %s", ExpirePolicyStrings[which][0].Key);
38 StrBuf_ServGetln(Buf);
39 WCC->Policy[which].loaded = 1;
40 if (GetServerStatus(Buf, &State) == 2) {
41 Pos = ChrPtr(Buf) + 4;
42 WCC->Policy[which].expire_mode = StrBufExtractNext_long(Buf, &Pos, '|');
43 WCC->Policy[which].expire_value = StrBufExtractNext_long(Buf, &Pos, '|');
45 else if (State == 550)
46 AppendImportantMessage(_("Higher access is required to access this function."), -1);
50 void SaveExpirePolicyFromHTTP(GPEXWhichPolicy which)
55 serv_printf("SPEX %s|%d|%d",
56 ExpirePolicyStrings[which][0].Key,
57 ibcstr( ExpirePolicyStrings[which][1] ),
58 ibcstr( ExpirePolicyStrings[which][1] ) );
61 StrBuf_ServGetln(Buf);
62 GetServerStatus(Buf, &State);
64 AppendImportantMessage(_("Higher access is required to access this function."), -1);
68 int ConditionalExpire(StrBuf *Target, WCTemplputParams *TP)
71 GPEXWhichPolicy which;
74 which = GetTemplateTokenNumber(Target, TP, 2, 0);
75 CompareWith = GetTemplateTokenNumber(Target, TP, 3, 0);
77 if (WCC->Policy[which].loaded == 0) LoadExpirePolicy(which);
79 return WCC->Policy[which].expire_mode == CompareWith;
82 void tmplput_ExpireValue(StrBuf *Target, WCTemplputParams *TP)
84 GPEXWhichPolicy which;
87 which = GetTemplateTokenNumber(Target, TP, 0, 0);
88 if (WCC->Policy[which].loaded == 0) LoadExpirePolicy(which);
89 StrBufAppendPrintf(Target, "%d", WCC->Policy[which].expire_value);
93 void tmplput_ExpireMode(StrBuf *Target, WCTemplputParams *TP)
95 GPEXWhichPolicy which;
98 which = GetTemplateTokenNumber(Target, TP, 2, 0);
99 if (WCC->Policy[which].loaded == 0) LoadExpirePolicy(which);
100 StrBufAppendPrintf(Target, "%d", WCC->Policy[which].expire_mode);
104 void LoadZoneFiles(void)
109 const char *this_zone;
112 ZoneHash = NewHash(1, NULL);
113 ZName = NewStrBufPlain(HKEY("UTC"));
114 Put(ZoneHash, HKEY("UTC"), ZName, HFreeStrBuf);
115 zones = icaltimezone_get_builtin_timezones();
116 for (z = 0; z < zones->num_elements; ++z) {
117 /* syslog(9, "Location: %-40s tzid: %s\n",
118 icaltimezone_get_location(icalarray_element_at(zones, z)),
119 icaltimezone_get_tzid(icalarray_element_at(zones, z))
121 this_zone = icaltimezone_get_location(icalarray_element_at(zones, z));
122 len = strlen(this_zone);
123 ZName = NewStrBufPlain(this_zone, len);
124 Put(ZoneHash, this_zone, len, ZName, HFreeStrBuf);
126 SortByHashKey(ZoneHash, 0);
130 typedef struct _CfgMapping {
140 CfgMapping ServerConfig[] = {
141 {CFG_STR, HKEY("c_nodename")},
142 {CFG_STR, HKEY("c_fqdn")},
143 {CFG_STR, HKEY("c_humannode")},
144 {CFG_STR, HKEY("c_phonenum")},
145 {CFG_YES, HKEY("c_creataide")},
146 {CFG_STR, HKEY("c_sleeping")},
147 {CFG_STR, HKEY("c_initax")},
148 {CFG_YES, HKEY("c_regiscall")},
149 {CFG_YES, HKEY("c_twitdetect")},
150 {CFG_STR, HKEY("c_twitroom")},
151 {CFG_STR, HKEY("c_moreprompt")},
152 {CFG_YES, HKEY("c_restrict")},
153 {CFG_STR, HKEY("c_bbs_city")},
154 {CFG_STR, HKEY("c_sysadm")},
155 {CFG_STR, HKEY("c_maxsessions")},
156 {CFG_STR, HKEY("reserved1")},
157 {CFG_STR, HKEY("c_userpurge")},
158 {CFG_STR, HKEY("c_roompurge")},
159 {CFG_STR, HKEY("c_logpages")},
160 {CFG_STR, HKEY("c_createax")},
161 {CFG_STR, HKEY("c_maxmsglen")},
162 {CFG_STR, HKEY("c_min_workers")},
163 {CFG_STR, HKEY("c_max_workers")},
164 {CFG_STR, HKEY("c_pop3_port")},
165 {CFG_STR, HKEY("c_smtp_port")},
166 {CFG_NO , HKEY("c_rfc822_strict_from")}, /* note: reverse bool */
167 {CFG_YES, HKEY("c_aide_zap")},
168 {CFG_STR, HKEY("c_imap_port")},
169 {CFG_STR, HKEY("c_net_freq")},
170 {CFG_YES, HKEY("c_disable_newu")},
171 {CFG_STR, HKEY("reserved2")},
172 {CFG_STR, HKEY("c_purge_hour")},
173 {CFG_STR, HKEY("c_ldap_host")},
174 {CFG_STR, HKEY("c_ldap_port")},
175 {CFG_STR, HKEY("c_ldap_base_dn")},
176 {CFG_STR, HKEY("c_ldap_bind_dn")},
177 {CFG_STR, HKEY("c_ldap_bind_pw")},
178 {CFG_STR, HKEY("c_ip_addr")},
179 {CFG_STR, HKEY("c_msa_port")},
180 {CFG_STR, HKEY("c_imaps_port")},
181 {CFG_STR, HKEY("c_pop3s_port")},
182 {CFG_STR, HKEY("c_smtps_port")},
183 {CFG_YES, HKEY("c_enable_fulltext")},
184 {CFG_YES, HKEY("c_auto_cull")},
185 {CFG_YES, HKEY("c_instant_expunge")},
186 {CFG_YES, HKEY("c_allow_spoofing")},
187 {CFG_YES, HKEY("c_journal_email")},
188 {CFG_YES, HKEY("c_journal_pubmsgs")},
189 {CFG_STR, HKEY("c_journal_dest")},
190 {CFG_STR, HKEY("c_default_cal_zone")},
191 {CFG_STR, HKEY("c_pftcpdict_port")},
192 {CFG_STR, HKEY("c_mgesve_port")},
193 {CFG_STR, HKEY("c_auth_mode")},
194 {CFG_STR, HKEY("c_funambol_host")},
195 {CFG_STR, HKEY("c_funambol_port")},
196 {CFG_STR, HKEY("c_funambol_source")},
197 {CFG_STR, HKEY("c_funambol_auth")},
198 {CFG_YES, HKEY("c_rbl_at_greeting")},
199 {CFG_STR, HKEY("c_master_user")},
200 {CFG_STR, HKEY("c_master_pass")},
201 {CFG_STR, HKEY("c_pager_program")},
202 {CFG_YES, HKEY("c_imap_keep_from")},
203 {CFG_STR, HKEY("c_xmpp_c2s_port")},
204 {CFG_STR, HKEY("c_xmpp_s2s_port")},
205 {CFG_STR, HKEY("c_pop3_fetch")},
206 {CFG_STR, HKEY("c_pop3_fastest")},
207 {CFG_YES, HKEY("c_spam_flag_only")},
208 {CFG_YES, HKEY("c_guest_logins")}
213 * display all configuration items
215 void load_siteconfig(void)
223 if (WCC->ServCfg == NULL)
224 WCC->ServCfg = NewHash(1, NULL);
229 serv_printf("CONF get");
230 StrBuf_ServGetln(Buf);
231 if (GetServerStatus(Buf, NULL) != 1) {
232 StrBufCutLeft(Buf, 4);
233 AppendImportantMessage(SKEY(Buf));
239 while (len = StrBuf_ServGetln(Buf),
241 && (i < (sizeof(ServerConfig) / sizeof(CfgMapping)))
242 && ((len != 3) || strcmp(ChrPtr(Buf), "000"))
251 if (i <= sizeof(ServerConfig) / sizeof(CfgMapping)) {
259 if (strcmp(ChrPtr(Buf), "000") != 0)
261 /* Discard config lines which we don't yet support */
262 while ( (len = StrBuf_ServGetln(Buf),
263 strcmp(ChrPtr(Buf), "000"))
266 AppendImportantMessage(_("WARNING: Failed to parse Server Config; do you run a to new citserver?"), -1);
272 LoadExpirePolicy(sitepolicy);
273 LoadExpirePolicy(mailboxespolicy);
279 * parse siteconfig changes
281 void siteconfig(void)
287 if (strlen(bstr("ok_button")) == 0) {
292 serv_printf("CONF set");
293 StrBuf_ServGetln(Line);
294 if (GetServerStatusMsg(Line, NULL, 1, 4) != 4) {
302 for (i=0; i < (sizeof(ServerConfig) / sizeof(CfgMapping)); i ++)
304 switch (ServerConfig[i].type) {
307 serv_putbuf(SBstr(ServerConfig[i].Key, ServerConfig[i].len));
310 serv_puts(YesBstr(ServerConfig[i].Key,
311 ServerConfig[i].len) ?
315 serv_puts(YesBstr(ServerConfig[i].Key,
316 ServerConfig[i].len) ?
323 SaveExpirePolicyFromHTTP(sitepolicy);
324 SaveExpirePolicyFromHTTP(mailboxespolicy);
326 FreeStrBuf(&WCC->serv_info->serv_default_cal_zone);
327 WCC->serv_info->serv_default_cal_zone = NewStrBufDup(sbstr("c_default_cal_zone"));
329 AppendImportantMessage(_("Your system configuration has been updated."), -1);
330 DeleteHash(&WCC->ServCfg);
334 void tmplput_servcfg(StrBuf *Target, WCTemplputParams *TP)
341 if (WCC->ServCfg == NULL)
343 GetHash(WCC->ServCfg, TKEY(0), &vBuf);
344 Buf = (StrBuf*) vBuf;
345 StrBufAppendTemplate(Target, TP, Buf, 1);
349 int ConditionalServCfg(StrBuf *Target, WCTemplputParams *TP)
356 if (WCC->ServCfg == NULL)
358 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
359 if (vBuf == NULL) return 0;
360 Buf = (StrBuf*) vBuf;
361 if (TP->Tokens->nParameters == 3) {
364 else if (IS_NUMBER(TP->Tokens->Params[3]->Type))
365 return (StrTol(Buf) == GetTemplateTokenNumber (Target, TP, 3, 0));
371 GetTemplateTokenString(Target, TP, 3, &pch, &len);
373 return ((len == StrLength(Buf)) &&
374 (strcmp(pch, ChrPtr(Buf)) == 0));
381 int ConditionalServCfgCTXStrBuf(StrBuf *Target, WCTemplputParams *TP)
386 StrBuf *ZoneToCheck = (StrBuf*) CTX;
388 if ((WCC->is_aide) || (ZoneToCheck == NULL)) {
389 if (WCC->ServCfg == NULL)
391 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
392 if (vBuf == NULL) return 0;
393 Buf = (StrBuf*) vBuf;
395 return strcmp(ChrPtr(Buf), ChrPtr(ZoneToCheck)) == 0;
401 InitModule_SITECONFIG
404 WebcitAddUrlHandler(HKEY("siteconfig"), "", 0, siteconfig, CTX_NONE);
406 RegisterNamespace("SERV:CFG", 1, 2, tmplput_servcfg, NULL, CTX_NONE);
407 RegisterConditional(HKEY("COND:SERVCFG"), 3, ConditionalServCfg, CTX_NONE);
408 RegisterConditional(HKEY("COND:SERVCFG:CTXSTRBUF"), 4, ConditionalServCfgCTXStrBuf, CTX_STRBUF);
409 RegisterIterator("PREF:ZONE", 0, ZoneHash, NULL, NULL, NULL, CTX_STRBUF, CTX_NONE, IT_NOFLAG);
411 REGISTERTokenParamDefine(roompolicy);
412 REGISTERTokenParamDefine(floorpolicy);
413 REGISTERTokenParamDefine(sitepolicy);
414 REGISTERTokenParamDefine(mailboxespolicy);
416 REGISTERTokenParamDefine(EXPIRE_NEXTLEVEL);
417 REGISTERTokenParamDefine(EXPIRE_MANUAL);
418 REGISTERTokenParamDefine(EXPIRE_NUMMSGS);
419 REGISTERTokenParamDefine(EXPIRE_AGE);
421 RegisterConditional(HKEY("COND:EXPIRE:MODE"), 2, ConditionalExpire, CTX_NONE);
422 RegisterNamespace("EXPIRE:VALUE", 1, 2, tmplput_ExpireValue, NULL, CTX_NONE);
423 RegisterNamespace("EXPIRE:MODE", 1, 2, tmplput_ExpireMode, NULL, CTX_NONE);
427 ServerStartModule_SITECONFIG
434 ServerShutdownModule_SITECONFIG
437 DeleteHash(&ZoneHash);
442 SessionDestroyModule_SITECONFIG
445 DeleteHash(&sess->ServCfg);