webcit/siteconfig.c

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