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