webcit/siteconfig.c

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