Mailing list header changes (fuck you Google)
[citadel.git] / webcit / siteconfig.c
1 /*
2  * Administrative screen for site-wide configuration
3  *
4  * Copyright (c) 1996-2014 by the citadel.org team
5  *
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.
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 "webcit.h"
16 #include "webserver.h"
17
18 /*
19  * Expiry policy for the autopurger
20  */
21 #define EXPIRE_NEXTLEVEL        0       /* Inherit expiration policy    */
22 #define EXPIRE_MANUAL           1       /* Don't expire messages at all */
23 #define EXPIRE_NUMMSGS          2       /* Keep only latest n messages  */
24 #define EXPIRE_AGE              3       /* Expire messages after n days */
25
26 CtxType CTX_SRVLOG = CTX_NONE;
27
28 HashList *ZoneHash = NULL;
29
30 ConstStr ExpirePolicyString = {CStrOf(roompolicy)     };
31
32 ConstStr ExpirePolicyStrings[][2] = {
33         { { CStrOf(roompolicy)     } , { strof(roompolicy)     "_value", sizeof(strof(roompolicy)     "_value") - 1 } },
34         { { CStrOf(floorpolicy)    } , { strof(floorpolicy)    "_value", sizeof(strof(floorpolicy)    "_value") - 1 } },
35         { { CStrOf(sitepolicy)     } , { strof(sitepolicy)     "_value", sizeof(strof(sitepolicy)     "_value") - 1 } },
36         { { CStrOf(mailboxespolicy)} , { strof(mailboxespolicy)"_value", sizeof(strof(mailboxespolicy)"_value") - 1 } }
37 };
38
39 void LoadExpirePolicy(GPEXWhichPolicy which)
40 {
41         StrBuf *Buf;
42         wcsession *WCC = WC;
43         long State;
44         const char *Pos = NULL;
45
46         serv_printf("GPEX %s", ExpirePolicyStrings[which][0].Key);
47         Buf = NewStrBuf();
48         StrBuf_ServGetln(Buf);
49         if (GetServerStatus(Buf, &State) == 2) {
50                 Pos = ChrPtr(Buf) + 4;
51                 WCC->Policy[which].expire_mode = StrBufExtractNext_long(Buf, &Pos, '|');
52                 WCC->Policy[which].expire_value = StrBufExtractNext_long(Buf, &Pos, '|');
53         }
54         else if (State == 550)
55                 AppendImportantMessage(_("Higher access is required to access this function."), -1);
56         FreeStrBuf(&Buf);
57 }
58
59 void SaveExpirePolicyFromHTTP(GPEXWhichPolicy which)
60 {
61         StrBuf *Buf;
62         long State;
63
64         serv_printf("SPEX %s|%d|%d", 
65                             ExpirePolicyStrings[which][0].Key,
66                     ibcstr( ExpirePolicyStrings[which][1] ),
67                     ibcstr( ExpirePolicyStrings[which][1] )  );
68
69         Buf = NewStrBuf();
70         StrBuf_ServGetln(Buf);
71         GetServerStatus(Buf, &State);
72         if (State == 550)
73                 AppendImportantMessage(_("Higher access is required to access this function."), -1);
74         FreeStrBuf(&Buf);
75 }
76
77 int ConditionalExpire(StrBuf *Target, WCTemplputParams *TP)
78 {
79         wcsession *WCC = WC;
80         GPEXWhichPolicy which;
81         int CompareWith;
82
83         which = GetTemplateTokenNumber(Target, TP, 2, 0);
84         CompareWith = GetTemplateTokenNumber(Target, TP, 3, 0);
85
86         LoadExpirePolicy(which);
87         
88         return WCC->Policy[which].expire_mode == CompareWith;
89 }
90
91 void tmplput_ExpireValue(StrBuf *Target, WCTemplputParams *TP)
92 {
93         GPEXWhichPolicy which;
94         wcsession *WCC = WC;
95                 
96         which = GetTemplateTokenNumber(Target, TP, 0, 0);
97         LoadExpirePolicy(which);
98         StrBufAppendPrintf(Target, "%d", WCC->Policy[which].expire_value);
99 }
100
101
102 void tmplput_ExpireMode(StrBuf *Target, WCTemplputParams *TP)
103 {
104         GPEXWhichPolicy which;
105         wcsession *WCC = WC;
106                 
107         which = GetTemplateTokenNumber(Target, TP, 2, 0);
108         LoadExpirePolicy(which);
109         StrBufAppendPrintf(Target, "%d", WCC->Policy[which].expire_mode);
110 }
111
112
113 void LoadZoneFiles(void)
114 {
115         icalarray *zones;
116         int z;
117         long len;
118         const char *this_zone;
119         StrBuf *ZName;
120         
121         ZoneHash = NewHash(1, NULL);
122         ZName = NewStrBufPlain(HKEY("UTC"));
123         Put(ZoneHash, HKEY("UTC"), ZName, HFreeStrBuf);
124         zones = icaltimezone_get_builtin_timezones();
125         for (z = 0; z < zones->num_elements; ++z) {
126                 /* syslog(LOG_DEBUG, "Location: %-40s tzid: %s\n",
127                         icaltimezone_get_location(icalarray_element_at(zones, z)),
128                         icaltimezone_get_tzid(icalarray_element_at(zones, z))
129                 ); */
130                 this_zone = icaltimezone_get_location(icalarray_element_at(zones, z));
131                 len = strlen(this_zone);
132                 ZName = NewStrBufPlain(this_zone, len);
133                 Put(ZoneHash, this_zone, len, ZName, HFreeStrBuf);
134         }
135         SortByHashKey(ZoneHash, 0);
136 }
137
138
139 typedef struct _CfgMapping {
140         int type;
141         int min;
142         int max;
143         const char *defval;
144         const char *Key;
145         long len;
146 } CfgMapping;
147
148 #define CFG_STR 1
149 #define CFG_YES 2
150 #define CFG_NO 3
151 #define CFG_INT 4
152
153 CfgMapping ServerConfig[] = {
154         {CFG_STR, 0, 0, "", HKEY("c_nodename")},
155         {CFG_STR, 0, 0, "", HKEY("c_fqdn")},
156         {CFG_STR, 0, 0, "", HKEY("c_humannode")},
157         {CFG_STR, 0, 0, "", HKEY("c_phonenum")},
158         {CFG_YES, 0, 0, "", HKEY("c_creataide")},
159         {CFG_STR, 0, 0, "", HKEY("c_sleeping")},
160         {CFG_STR, 0, 0, "", HKEY("c_initax")},
161         {CFG_YES, 0, 0, "", HKEY("c_regiscall")},
162         {CFG_YES, 0, 0, "", HKEY("c_twitdetect")},
163         {CFG_STR, 0, 0, "", HKEY("c_twitroom")},
164         {CFG_STR, 0, 0, "", HKEY("c_moreprompt")},
165         {CFG_YES, 0, 0, "", HKEY("c_restrict")},
166         {CFG_STR, 0, 0, "", HKEY("c_bbs_city")},
167         {CFG_STR, 0, 0, "", HKEY("c_sysadm")},
168         {CFG_STR, 0, 0, "", HKEY("c_maxsessions")},
169         {CFG_STR, 0, 0, "", HKEY("reserved1")},
170         {CFG_STR, 0, 0, "", HKEY("c_userpurge")},
171         {CFG_STR, 0, 0, "", HKEY("c_roompurge")},
172         {CFG_STR, 0, 0, "", HKEY("c_logpages")},
173         {CFG_STR, 0, 0, "", HKEY("c_createax")},
174         {CFG_STR, 0, 0, "", HKEY("c_maxmsglen")},
175         {CFG_STR, 0, 0, "", HKEY("c_min_workers")},
176         {CFG_STR, 0, 0, "", HKEY("c_max_workers")},
177         {CFG_STR, 0, 0, "", HKEY("c_pop3_port")},
178         {CFG_STR, 0, 0, "", HKEY("c_smtp_port")},
179         {CFG_INT, CFG_SMTP_FROM_FILTERALL, CFG_SMTP_FROM_REJECT, "0", HKEY("c_rfc822_strict_from")},    
180         {CFG_YES, 0, 0, "", HKEY("c_aide_zap")},
181         {CFG_STR, 0, 0, "", HKEY("c_imap_port")},
182         {CFG_STR, 0, 0, "", HKEY("c_net_freq")},
183         {CFG_YES, 0, 0, "", HKEY("c_disable_newu")},
184         {CFG_STR, 0, 0, "", HKEY("reserved2")},
185         {CFG_STR, 0, 0, "", HKEY("c_purge_hour")},
186         {CFG_STR, 0, 0, "", HKEY("c_ldap_host")},
187         {CFG_STR, 0, 0, "", HKEY("c_ldap_port")},
188         {CFG_STR, 0, 0, "", HKEY("c_ldap_base_dn")},
189         {CFG_STR, 0, 0, "", HKEY("c_ldap_bind_dn")},
190         {CFG_STR, 0, 0, "", HKEY("c_ldap_bind_pw")},
191         {CFG_STR, 0, 0, "", HKEY("c_ip_addr")},
192         {CFG_STR, 0, 0, "", HKEY("c_msa_port")},
193         {CFG_STR, 0, 0, "", HKEY("c_imaps_port")},
194         {CFG_STR, 0, 0, "", HKEY("c_pop3s_port")},
195         {CFG_STR, 0, 0, "", HKEY("c_smtps_port")},
196         {CFG_YES, 0, 0, "", HKEY("c_enable_fulltext")},
197         {CFG_YES, 0, 0, "", HKEY("c_auto_cull")},
198         {CFG_YES, 0, 0, "", HKEY("reserved3")},
199         {CFG_YES, 0, 0, "", HKEY("c_allow_spoofing")},
200         {CFG_YES, 0, 0, "", HKEY("c_journal_email")},
201         {CFG_YES, 0, 0, "", HKEY("c_journal_pubmsgs")},
202         {CFG_STR, 0, 0, "", HKEY("c_journal_dest")},
203         {CFG_STR, 0, 0, "", HKEY("c_default_cal_zone")},
204         {CFG_STR, 0, 0, "", HKEY("c_pftcpdict_port")},
205         {CFG_STR, 0, 0, "", HKEY("c_mgesve_port")},
206         {CFG_STR, 0, 0, "", HKEY("c_auth_mode")},
207         {CFG_STR, 0, 0, "", HKEY("c_funambol_host")},
208         {CFG_STR, 0, 0, "", HKEY("c_funambol_port")},
209         {CFG_STR, 0, 0, "", HKEY("c_funambol_source")},
210         {CFG_STR, 0, 0, "", HKEY("c_funambol_auth")},
211         {CFG_YES, 0, 0, "", HKEY("c_rbl_at_greeting")},
212         {CFG_STR, 0, 0, "", HKEY("c_master_user")},
213         {CFG_STR, 0, 0, "", HKEY("c_master_pass")},
214         {CFG_STR, 0, 0, "", HKEY("c_pager_program")},
215         {CFG_YES, 0, 0, "", HKEY("c_imap_keep_from")},
216         {CFG_STR, 0, 0, "", HKEY("c_xmpp_c2s_port")},
217         {CFG_STR, 0, 0, "", HKEY("c_xmpp_s2s_port")},
218         {CFG_STR, 0, 0, "", HKEY("c_pop3_fetch")},
219         {CFG_STR, 0, 0, "", HKEY("c_pop3_fastest")},
220         {CFG_YES, 0, 0, "", HKEY("c_spam_flag_only")},
221         {CFG_YES, 0, 0, "", HKEY("c_guest_logins")},
222         {CFG_STR, 0, 0, "", HKEY("c_port_number")},
223         {CFG_STR, 0, 0, "", HKEY("c_ctdluid")},
224         {CFG_STR, 0, 0, "", HKEY("c_nntp_port")},
225         {CFG_STR, 0, 0, "", HKEY("c_nntps_port")}
226 };
227
228
229
230 /*
231  *  display all configuration items
232  */
233 void load_siteconfig(void)
234 {
235         wcsession *WCC = WC;
236         StrBuf *Buf;
237         HashList *Cfg;
238         long len;
239         int i, j;
240         
241         if (WCC->ServCfg == NULL)
242                 WCC->ServCfg = NewHash(1, NULL);
243         Cfg = WCC->ServCfg;
244
245         Buf = NewStrBuf();
246
247         serv_printf("CONF get");
248         StrBuf_ServGetln(Buf);
249         if (GetServerStatus(Buf, NULL) != 1) {
250                 StrBufCutLeft(Buf, 4);
251                 AppendImportantMessage(SKEY(Buf));
252                 FreeStrBuf(&Buf);
253                 return;
254                 
255         }
256         j = i = 0;
257         while (len = StrBuf_ServGetln(Buf),
258                (len >= 0) && 
259                ((len != 3) || strcmp(ChrPtr(Buf), "000")))
260         {
261                 if (i < (sizeof(ServerConfig) / sizeof(CfgMapping)))
262                 {
263                         Put(Cfg,
264                             ServerConfig[i].Key, 
265                             ServerConfig[i].len, 
266                             Buf, 
267                             HFreeStrBuf);
268                         i++;
269                         Buf = NewStrBuf();
270                 }
271                 else {
272                         if (j == 0) {
273                                 syslog(LOG_WARNING, "The server sent more configuration data than this version of webcit is capable of changing.  Unknown configuration values will remain unchanged.");
274                         }
275                         j++;
276                 }
277         }
278         FreeStrBuf(&Buf);
279
280         LoadExpirePolicy(roompolicy);
281         LoadExpirePolicy(floorpolicy);
282         LoadExpirePolicy(mailboxespolicy);
283         LoadExpirePolicy(sitepolicy);
284 }
285
286
287
288 /*
289  * parse siteconfig changes 
290  */
291 void siteconfig(void)
292 {
293         wcsession *WCC = WC;
294         int i, value;
295         StrBuf *Line;
296
297         if (strlen(bstr("ok_button")) == 0) {
298                 display_aide_menu();
299                 return;
300         }
301         Line = NewStrBuf();
302         serv_printf("CONF set");
303         StrBuf_ServGetln(Line);
304         if (GetServerStatusMsg(Line, NULL, 1, 4) != 4) {
305                 display_aide_menu();
306                 FreeStrBuf(&Line);
307                 return;
308         }
309
310         FreeStrBuf(&Line);
311
312         for (i=0; i < (sizeof(ServerConfig) / sizeof(CfgMapping)); i ++)
313         {
314                 switch (ServerConfig[i].type) {
315                 default:
316                 case CFG_STR:
317                         serv_putbuf(SBstr(ServerConfig[i].Key, ServerConfig[i].len));
318                         break;
319                 case CFG_YES:
320                         serv_puts(YesBstr(ServerConfig[i].Key, 
321                                           ServerConfig[i].len) ?
322                                   "1" : "0");
323                         break;
324                 case CFG_NO:
325                         serv_puts(YesBstr(ServerConfig[i].Key, 
326                                           ServerConfig[i].len) ?
327                                   "0" : "1");
328                         break;
329                 case CFG_INT:
330                         value = IBstr(ServerConfig[i].Key, 
331                                       ServerConfig[i].len);
332                         if ((value < ServerConfig[i].min) ||
333                             (value > ServerConfig[i].max))
334                                 value = atol(ServerConfig[i].defval);
335                         serv_printf("%d", value);
336                         break;
337                 }
338         }
339         serv_puts("000");
340
341         SaveExpirePolicyFromHTTP(sitepolicy);
342         SaveExpirePolicyFromHTTP(mailboxespolicy);
343
344         FreeStrBuf(&WCC->serv_info->serv_default_cal_zone);
345         WCC->serv_info->serv_default_cal_zone = NewStrBufDup(sbstr("c_default_cal_zone"));
346
347         AppendImportantMessage(_("Your system configuration has been updated."), -1);
348         DeleteHash(&WCC->ServCfg);
349         display_aide_menu();
350 }
351
352 void tmplput_servcfg(StrBuf *Target, WCTemplputParams *TP)
353 {
354         wcsession *WCC = WC;
355         void *vBuf;
356         StrBuf *Buf;
357
358         if (WCC->is_aide) {
359                 if (WCC->ServCfg == NULL)
360                         load_siteconfig();
361                 GetHash(WCC->ServCfg, TKEY(0), &vBuf);
362                 Buf = (StrBuf*) vBuf;
363                 StrBufAppendTemplate(Target, TP, Buf, 1);
364         }
365 }
366
367 int ConditionalServCfg(StrBuf *Target, WCTemplputParams *TP)
368 {
369         wcsession *WCC = WC;
370         void *vBuf;
371         StrBuf *Buf;
372
373         if (WCC->is_aide) {
374                 if (WCC->ServCfg == NULL)
375                         load_siteconfig();
376                 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
377                 if (vBuf == NULL) return 0;
378                 Buf = (StrBuf*) vBuf;
379                 if (TP->Tokens->nParameters == 3) {
380                         return 1;
381                 }
382                 else if (IS_NUMBER(TP->Tokens->Params[3]->Type))
383                         return (StrTol(Buf) == GetTemplateTokenNumber (Target, TP, 3, 0));
384                 else
385                 {
386                         const char *pch;
387                         long len;
388                         
389                         GetTemplateTokenString(Target, TP, 3, &pch, &len);
390                 
391                         return ((len == StrLength(Buf)) &&
392                                 (strcmp(pch, ChrPtr(Buf)) == 0));
393                 }
394
395         }
396         else return 0;
397 }
398
399 int ConditionalServCfgCTXStrBuf(StrBuf *Target, WCTemplputParams *TP)
400 {
401         wcsession *WCC = WC;
402         void *vBuf;
403         StrBuf *Buf;
404         StrBuf *ZoneToCheck = (StrBuf*) CTX(CTX_STRBUF);
405
406         if ((WCC->is_aide) || (ZoneToCheck == NULL)) {
407                 if (WCC->ServCfg == NULL)
408                         load_siteconfig();
409                 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
410                 if (vBuf == NULL) return 0;
411                 Buf = (StrBuf*) vBuf;
412
413                 return strcmp(ChrPtr(Buf), ChrPtr(ZoneToCheck)) == 0;
414         }
415         else return 0;
416 }
417
418 /*----------------------------------------------------------------------------*
419  *              Displaying Logging                                            *
420  *----------------------------------------------------------------------------*/
421 typedef struct __LogStatusStruct {
422         int Enable;
423         StrBuf *Name;
424 }LogStatusStruct;
425
426 void DeleteLogStatusStruct(void *v)
427 {
428         LogStatusStruct *Stat = (LogStatusStruct*)v;
429
430         FreeStrBuf(&Stat->Name);
431         free(Stat);
432 }
433
434 void tmplput_servcfg_LogName(StrBuf *Target, WCTemplputParams *TP)
435 {
436         LogStatusStruct *Stat = (LogStatusStruct*) CTX(CTX_SRVLOG);
437         StrBufAppendTemplate(Target, TP, Stat->Name, 1);
438 }
439
440 int ConditionalServCfgThisLogEnabled(StrBuf *Target, WCTemplputParams *TP)
441 {
442         LogStatusStruct *Stat = (LogStatusStruct*) CTX(CTX_SRVLOG);
443         return Stat->Enable;
444 }
445
446 HashList *iterate_GetSrvLogEnable(StrBuf *Target, WCTemplputParams *TP)
447 {
448         HashList *Hash = NULL;
449         StrBuf *Buf;
450         LogStatusStruct *Stat;
451         const char *Pos;
452         int Done = 0;
453         long len;
454         int num_logs = 0;
455
456         serv_puts("LOGP");
457         Buf = NewStrBuf();
458         StrBuf_ServGetln(Buf);
459         if (GetServerStatus(Buf, NULL) == 1) {
460                 Hash = NewHash(1, Flathash);
461                 while (!Done) {
462                         len = StrBuf_ServGetln(Buf);
463                         if ((len <0) || 
464                             ((len == 3) &&
465                              !strcmp(ChrPtr(Buf), "000")))
466                         {
467                                 Done = 1;
468                                 break;
469                         }
470                         Stat = (LogStatusStruct*) malloc (sizeof(LogStatusStruct));
471                         Pos = NULL;
472                         Stat->Name = NewStrBufPlain(NULL, len);
473                         StrBufExtract_NextToken(Stat->Name, Buf, &Pos, '|');
474                         Stat->Enable = StrBufExtractNext_int(Buf, &Pos, '|');
475
476                         Put(Hash, IKEY(num_logs), Stat, DeleteLogStatusStruct); 
477                         num_logs++;
478                 }
479         }
480         FreeStrBuf(&Buf);
481         return Hash;
482 }
483
484
485 void 
486 InitModule_SITECONFIG
487 (void)
488 {
489         RegisterCTX(CTX_SRVLOG);
490         WebcitAddUrlHandler(HKEY("siteconfig"), "", 0, siteconfig, CTX_NONE);
491
492         RegisterNamespace("SERV:CFG", 1, 2, tmplput_servcfg, NULL, CTX_NONE);
493         RegisterConditional("COND:SERVCFG", 3, ConditionalServCfg, CTX_NONE);
494         RegisterConditional("COND:SERVCFG:CTXSTRBUF", 4, ConditionalServCfgCTXStrBuf, CTX_STRBUF);
495         RegisterIterator("PREF:ZONE", 0, ZoneHash, NULL, NULL, NULL, CTX_STRBUF, CTX_NONE, IT_NOFLAG);
496
497         REGISTERTokenParamDefine(roompolicy);
498         REGISTERTokenParamDefine(floorpolicy);
499         REGISTERTokenParamDefine(sitepolicy);
500         REGISTERTokenParamDefine(mailboxespolicy);
501
502         REGISTERTokenParamDefine(EXPIRE_NEXTLEVEL);
503         REGISTERTokenParamDefine(EXPIRE_MANUAL);
504         REGISTERTokenParamDefine(EXPIRE_NUMMSGS);
505         REGISTERTokenParamDefine(EXPIRE_AGE);
506
507         REGISTERTokenParamDefine(CFG_SMTP_FROM_FILTERALL);
508         REGISTERTokenParamDefine(CFG_SMTP_FROM_NOFILTER);
509         REGISTERTokenParamDefine(CFG_SMTP_FROM_CORRECT);
510         REGISTERTokenParamDefine(CFG_SMTP_FROM_REJECT);
511
512         RegisterConditional("COND:EXPIRE:MODE", 2, ConditionalExpire, CTX_NONE);
513         RegisterNamespace("EXPIRE:VALUE", 1, 2, tmplput_ExpireValue, NULL, CTX_NONE);
514         RegisterNamespace("EXPIRE:MODE", 1, 2, tmplput_ExpireMode, NULL, CTX_NONE);
515
516         RegisterConditional("COND:SERVCFG:THISLOGENABLE", 4, ConditionalServCfgThisLogEnabled, CTX_SRVLOG);
517         RegisterIterator("SERVCFG:LOGENABLE", 0, NULL, iterate_GetSrvLogEnable, NULL, DeleteHash, CTX_SRVLOG, CTX_NONE, IT_NOFLAG);
518         RegisterNamespace("SERVCFG:LOGNAME", 0, 1, tmplput_servcfg_LogName, NULL, CTX_SRVLOG);
519 }
520
521 void 
522 ServerStartModule_SITECONFIG
523 (void)
524 {
525         LoadZoneFiles();
526 }
527
528 void 
529 ServerShutdownModule_SITECONFIG
530 (void)
531 {
532         DeleteHash(&ZoneHash);
533 }
534
535
536 void 
537 SessionDestroyModule_SITECONFIG
538 (wcsession *sess)
539 {
540         DeleteHash(&sess->ServCfg);
541 }