webcit/siteconfig.c

   1 /*
   2  * Administrative screen for site-wide configuration
   3  *
   4  * Copyright (c) 1996-2011 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         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, '|');
  44         }
  45         else if (State == 550)
  46                 AppendImportantMessage(_("Higher access is required to access this function."), -1);
  47         FreeStrBuf(&Buf);
  48 }
  49
  50 void SaveExpirePolicyFromHTTP(GPEXWhichPolicy which)
  51 {
  52         StrBuf *Buf;
  53         long State;
  54
  55         serv_printf("SPEX %s|%d|%d",
  56                             ExpirePolicyStrings[which][0].Key,
  57                     ibcstr( ExpirePolicyStrings[which][1] ),
  58                     ibcstr( ExpirePolicyStrings[which][1] )  );
  59
  60         Buf = NewStrBuf();
  61         StrBuf_ServGetln(Buf);
  62         GetServerStatus(Buf, &State);
  63         if (State == 550)
  64                 AppendImportantMessage(_("Higher access is required to access this function."), -1);
  65         FreeStrBuf(&Buf);
  66 }
  67
  68 int ConditionalExpire(StrBuf *Target, WCTemplputParams *TP)
  69 {
  70         wcsession *WCC = WC;
  71         GPEXWhichPolicy which;
  72         int CompareWith;
  73
  74         which = GetTemplateTokenNumber(Target, TP, 2, 0);
  75         CompareWith = GetTemplateTokenNumber(Target, TP, 3, 0);
  76
  77         if (WCC->Policy[which].loaded == 0) LoadExpirePolicy(which);
  78
  79         return WCC->Policy[which].expire_mode == CompareWith;
  80 }
  81
  82 void tmplput_ExpireValue(StrBuf *Target, WCTemplputParams *TP)
  83 {
  84         GPEXWhichPolicy which;
  85         wcsession *WCC = WC;
  86
  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);
  90 }
  91
  92
  93 void tmplput_ExpireMode(StrBuf *Target, WCTemplputParams *TP)
  94 {
  95         GPEXWhichPolicy which;
  96         wcsession *WCC = WC;
  97
  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);
 101 }
 102
 103
 104 void LoadZoneFiles(void)
 105 {
 106         icalarray *zones;
 107         int z;
 108         long len;
 109         const char *this_zone;
 110         StrBuf *ZName;
 111
 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))
 120                 ); */
 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);
 125         }
 126         SortByHashKey(ZoneHash, 0);
 127 }
 128
 129
 130 typedef struct _CfgMapping {
 131         int type;
 132         const char *Key;
 133         long len;
 134 } CfgMapping;
 135
 136 #define CFG_STR 1
 137 #define CFG_YES 2
 138 #define CFG_NO 3
 139
 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")}
 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;
 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         i = 0;
 239         while (len = StrBuf_ServGetln(Buf),
 240                 (len >= 0)
 241                 && (i < (sizeof(ServerConfig) / sizeof(CfgMapping)))
 242                 && ((len != 3) || strcmp(ChrPtr(Buf), "000"))
 243         ) {
 244                 Put(Cfg,
 245                         ServerConfig[i].Key,
 246                         ServerConfig[i].len,
 247                         Buf,
 248                         HFreeStrBuf
 249                 );
 250                 i++;
 251                 if (i <= sizeof(ServerConfig) / sizeof(CfgMapping)) {
 252                         Buf = NewStrBuf();
 253                 }
 254                 else {
 255                         Buf = NULL;
 256                 }
 257         }
 258
 259         if (strcmp(ChrPtr(Buf), "000") != 0)
 260         {
 261                 /* Discard config lines which we don't yet support */
 262                 while ( (len = StrBuf_ServGetln(Buf),
 263                         strcmp(ChrPtr(Buf), "000"))
 264                 ) {
 265                 }
 266                 AppendImportantMessage(_("WARNING: Failed to parse Server Config; do you run a to new citserver?"), -1);
 267                 FreeStrBuf(&Buf);
 268                 return;
 269         }
 270         FreeStrBuf(&Buf);
 271
 272         LoadExpirePolicy(sitepolicy);
 273         LoadExpirePolicy(mailboxespolicy);
 274 }
 275
 276
 277
 278 /*
 279  * parse siteconfig changes
 280  */
 281 void siteconfig(void)
 282 {
 283         wcsession *WCC = WC;
 284         int i;
 285         StrBuf *Line;
 286
 287         if (strlen(bstr("ok_button")) == 0) {
 288                 display_aide_menu();
 289                 return;
 290         }
 291         Line = NewStrBuf();
 292         serv_printf("CONF set");
 293         StrBuf_ServGetln(Line);
 294         if (GetServerStatusMsg(Line, NULL, 1, 4) != 4) {
 295                 display_aide_menu();
 296                 FreeStrBuf(&Line);
 297                 return;
 298         }
 299
 300         FreeStrBuf(&Line);
 301
 302         for (i=0; i < (sizeof(ServerConfig) / sizeof(CfgMapping)); i ++)
 303         {
 304                 switch (ServerConfig[i].type) {
 305                 default:
 306                 case CFG_STR:
 307                         serv_putbuf(SBstr(ServerConfig[i].Key, ServerConfig[i].len));
 308                         break;
 309                 case CFG_YES:
 310                         serv_puts(YesBstr(ServerConfig[i].Key,
 311                                           ServerConfig[i].len) ?
 312                                   "1" : "0");
 313                         break;
 314                 case CFG_NO:
 315                         serv_puts(YesBstr(ServerConfig[i].Key,
 316                                           ServerConfig[i].len) ?
 317                                   "0" : "1");
 318                         break;
 319                 }
 320         }
 321         serv_puts("000");
 322
 323         SaveExpirePolicyFromHTTP(sitepolicy);
 324         SaveExpirePolicyFromHTTP(mailboxespolicy);
 325
 326         FreeStrBuf(&WCC->serv_info->serv_default_cal_zone);
 327         WCC->serv_info->serv_default_cal_zone = NewStrBufDup(sbstr("c_default_cal_zone"));
 328
 329         AppendImportantMessage(_("Your system configuration has been updated."), -1);
 330         DeleteHash(&WCC->ServCfg);
 331         display_aide_menu();
 332 }
 333
 334 void tmplput_servcfg(StrBuf *Target, WCTemplputParams *TP)
 335 {
 336         wcsession *WCC = WC;
 337         void *vBuf;
 338         StrBuf *Buf;
 339
 340         if (WCC->is_aide) {
 341                 if (WCC->ServCfg == NULL)
 342                         load_siteconfig();
 343                 GetHash(WCC->ServCfg, TKEY(0), &vBuf);
 344                 Buf = (StrBuf*) vBuf;
 345                 StrBufAppendTemplate(Target, TP, Buf, 1);
 346         }
 347 }
 348
 349 int ConditionalServCfg(StrBuf *Target, WCTemplputParams *TP)
 350 {
 351         wcsession *WCC = WC;
 352         void *vBuf;
 353         StrBuf *Buf;
 354
 355         if (WCC->is_aide) {
 356                 if (WCC->ServCfg == NULL)
 357                         load_siteconfig();
 358                 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
 359                 if (vBuf == NULL) return 0;
 360                 Buf = (StrBuf*) vBuf;
 361                 if (TP->Tokens->nParameters == 3) {
 362                         return 1;
 363                 }
 364                 else if (IS_NUMBER(TP->Tokens->Params[3]->Type))
 365                         return (StrTol(Buf) == GetTemplateTokenNumber (Target, TP, 3, 0));
 366                 else
 367                 {
 368                         const char *pch;
 369                         long len;
 370
 371                         GetTemplateTokenString(Target, TP, 3, &pch, &len);
 372
 373                         return ((len == StrLength(Buf)) &&
 374                                 (strcmp(pch, ChrPtr(Buf)) == 0));
 375                 }
 376
 377         }
 378         else return 0;
 379 }
 380
 381 int ConditionalServCfgCTXStrBuf(StrBuf *Target, WCTemplputParams *TP)
 382 {
 383         wcsession *WCC = WC;
 384         void *vBuf;
 385         StrBuf *Buf;
 386         StrBuf *ZoneToCheck = (StrBuf*) CTX;
 387
 388         if ((WCC->is_aide) || (ZoneToCheck == NULL)) {
 389                 if (WCC->ServCfg == NULL)
 390                         load_siteconfig();
 391                 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
 392                 if (vBuf == NULL) return 0;
 393                 Buf = (StrBuf*) vBuf;
 394
 395                 return strcmp(ChrPtr(Buf), ChrPtr(ZoneToCheck)) == 0;
 396         }
 397         else return 0;
 398 }
 399
 400 void
 401 InitModule_SITECONFIG
 402 (void)
 403 {
 404         WebcitAddUrlHandler(HKEY("siteconfig"), "", 0, siteconfig, CTX_NONE);
 405
 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);
 410
 411         REGISTERTokenParamDefine(roompolicy);
 412         REGISTERTokenParamDefine(floorpolicy);
 413         REGISTERTokenParamDefine(sitepolicy);
 414         REGISTERTokenParamDefine(mailboxespolicy);
 415
 416         REGISTERTokenParamDefine(EXPIRE_NEXTLEVEL);
 417         REGISTERTokenParamDefine(EXPIRE_MANUAL);
 418         REGISTERTokenParamDefine(EXPIRE_NUMMSGS);
 419         REGISTERTokenParamDefine(EXPIRE_AGE);
 420
 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);
 424 }
 425
 426 void
 427 ServerStartModule_SITECONFIG
 428 (void)
 429 {
 430         LoadZoneFiles();
 431 }
 432
 433 void
 434 ServerShutdownModule_SITECONFIG
 435 (void)
 436 {
 437         DeleteHash(&ZoneHash);
 438 }
 439
 440
 441 void
 442 SessionDestroyModule_SITECONFIG
 443 (wcsession *sess)
 444 {
 445         DeleteHash(&sess->ServCfg);
 446 }