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 /*
 214  *  display all configuration items
 215  */
 216 void load_siteconfig(void)
 217 {
 218         wcsession *WCC = WC;
 219         StrBuf *Buf;
 220         HashList *Cfg;
 221         long len;
 222         int i, j;
 223
 224         if (WCC->ServCfg == NULL)
 225                 WCC->ServCfg = NewHash(1, NULL);
 226         Cfg = WCC->ServCfg;
 227
 228         Buf = NewStrBuf();
 229
 230         serv_printf("CONF get");
 231         StrBuf_ServGetln(Buf);
 232         if (GetServerStatus(Buf, NULL) != 1) {
 233                 StrBufCutLeft(Buf, 4);
 234                 AppendImportantMessage(SKEY(Buf));
 235                 FreeStrBuf(&Buf);
 236                 return;
 237
 238         }
 239         j = i = 0;
 240         while (len = StrBuf_ServGetln(Buf),
 241                (len >= 0) &&
 242                ((len != 3) || strcmp(ChrPtr(Buf), "000")))
 243         {
 244                 if (i < (sizeof(ServerConfig) / sizeof(CfgMapping)))
 245                 {
 246                         Put(Cfg,
 247                             ServerConfig[i].Key,
 248                             ServerConfig[i].len,
 249                             Buf,
 250                             HFreeStrBuf);
 251                         i++;
 252                         Buf = NewStrBuf();
 253                 }
 254                 else {
 255                         if (j == 0)
 256                                 AppendImportantMessage(_("WARNING: Failed to parse Server Config; do you run a to new citserver?"), -1);
 257                         j++;
 258                 }
 259         }
 260         FreeStrBuf(&Buf);
 261
 262         LoadExpirePolicy(sitepolicy);
 263         LoadExpirePolicy(mailboxespolicy);
 264 }
 265
 266
 267
 268 /*
 269  * parse siteconfig changes
 270  */
 271 void siteconfig(void)
 272 {
 273         wcsession *WCC = WC;
 274         int i;
 275         StrBuf *Line;
 276
 277         if (strlen(bstr("ok_button")) == 0) {
 278                 display_aide_menu();
 279                 return;
 280         }
 281         Line = NewStrBuf();
 282         serv_printf("CONF set");
 283         StrBuf_ServGetln(Line);
 284         if (GetServerStatusMsg(Line, NULL, 1, 4) != 4) {
 285                 display_aide_menu();
 286                 FreeStrBuf(&Line);
 287                 return;
 288         }
 289
 290         FreeStrBuf(&Line);
 291
 292         for (i=0; i < (sizeof(ServerConfig) / sizeof(CfgMapping)); i ++)
 293         {
 294                 switch (ServerConfig[i].type) {
 295                 default:
 296                 case CFG_STR:
 297                         serv_putbuf(SBstr(ServerConfig[i].Key, ServerConfig[i].len));
 298                         break;
 299                 case CFG_YES:
 300                         serv_puts(YesBstr(ServerConfig[i].Key,
 301                                           ServerConfig[i].len) ?
 302                                   "1" : "0");
 303                         break;
 304                 case CFG_NO:
 305                         serv_puts(YesBstr(ServerConfig[i].Key,
 306                                           ServerConfig[i].len) ?
 307                                   "0" : "1");
 308                         break;
 309                 }
 310         }
 311         serv_puts("000");
 312
 313         SaveExpirePolicyFromHTTP(sitepolicy);
 314         SaveExpirePolicyFromHTTP(mailboxespolicy);
 315
 316         FreeStrBuf(&WCC->serv_info->serv_default_cal_zone);
 317         WCC->serv_info->serv_default_cal_zone = NewStrBufDup(sbstr("c_default_cal_zone"));
 318
 319         AppendImportantMessage(_("Your system configuration has been updated."), -1);
 320         DeleteHash(&WCC->ServCfg);
 321         display_aide_menu();
 322 }
 323
 324 void tmplput_servcfg(StrBuf *Target, WCTemplputParams *TP)
 325 {
 326         wcsession *WCC = WC;
 327         void *vBuf;
 328         StrBuf *Buf;
 329
 330         if (WCC->is_aide) {
 331                 if (WCC->ServCfg == NULL)
 332                         load_siteconfig();
 333                 GetHash(WCC->ServCfg, TKEY(0), &vBuf);
 334                 Buf = (StrBuf*) vBuf;
 335                 StrBufAppendTemplate(Target, TP, Buf, 1);
 336         }
 337 }
 338
 339 int ConditionalServCfg(StrBuf *Target, WCTemplputParams *TP)
 340 {
 341         wcsession *WCC = WC;
 342         void *vBuf;
 343         StrBuf *Buf;
 344
 345         if (WCC->is_aide) {
 346                 if (WCC->ServCfg == NULL)
 347                         load_siteconfig();
 348                 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
 349                 if (vBuf == NULL) return 0;
 350                 Buf = (StrBuf*) vBuf;
 351                 if (TP->Tokens->nParameters == 3) {
 352                         return 1;
 353                 }
 354                 else if (IS_NUMBER(TP->Tokens->Params[3]->Type))
 355                         return (StrTol(Buf) == GetTemplateTokenNumber (Target, TP, 3, 0));
 356                 else
 357                 {
 358                         const char *pch;
 359                         long len;
 360
 361                         GetTemplateTokenString(Target, TP, 3, &pch, &len);
 362
 363                         return ((len == StrLength(Buf)) &&
 364                                 (strcmp(pch, ChrPtr(Buf)) == 0));
 365                 }
 366
 367         }
 368         else return 0;
 369 }
 370
 371 int ConditionalServCfgCTXStrBuf(StrBuf *Target, WCTemplputParams *TP)
 372 {
 373         wcsession *WCC = WC;
 374         void *vBuf;
 375         StrBuf *Buf;
 376         StrBuf *ZoneToCheck = (StrBuf*) CTX;
 377
 378         if ((WCC->is_aide) || (ZoneToCheck == NULL)) {
 379                 if (WCC->ServCfg == NULL)
 380                         load_siteconfig();
 381                 GetHash(WCC->ServCfg, TKEY(2), &vBuf);
 382                 if (vBuf == NULL) return 0;
 383                 Buf = (StrBuf*) vBuf;
 384
 385                 return strcmp(ChrPtr(Buf), ChrPtr(ZoneToCheck)) == 0;
 386         }
 387         else return 0;
 388 }
 389
 390 void
 391 InitModule_SITECONFIG
 392 (void)
 393 {
 394         WebcitAddUrlHandler(HKEY("siteconfig"), "", 0, siteconfig, CTX_NONE);
 395
 396         RegisterNamespace("SERV:CFG", 1, 2, tmplput_servcfg, NULL, CTX_NONE);
 397         RegisterConditional(HKEY("COND:SERVCFG"), 3, ConditionalServCfg, CTX_NONE);
 398         RegisterConditional(HKEY("COND:SERVCFG:CTXSTRBUF"), 4, ConditionalServCfgCTXStrBuf, CTX_STRBUF);
 399         RegisterIterator("PREF:ZONE", 0, ZoneHash, NULL, NULL, NULL, CTX_STRBUF, CTX_NONE, IT_NOFLAG);
 400
 401         REGISTERTokenParamDefine(roompolicy);
 402         REGISTERTokenParamDefine(floorpolicy);
 403         REGISTERTokenParamDefine(sitepolicy);
 404         REGISTERTokenParamDefine(mailboxespolicy);
 405
 406         REGISTERTokenParamDefine(EXPIRE_NEXTLEVEL);
 407         REGISTERTokenParamDefine(EXPIRE_MANUAL);
 408         REGISTERTokenParamDefine(EXPIRE_NUMMSGS);
 409         REGISTERTokenParamDefine(EXPIRE_AGE);
 410
 411         RegisterConditional(HKEY("COND:EXPIRE:MODE"), 2, ConditionalExpire, CTX_NONE);
 412         RegisterNamespace("EXPIRE:VALUE", 1, 2, tmplput_ExpireValue, NULL, CTX_NONE);
 413         RegisterNamespace("EXPIRE:MODE", 1, 2, tmplput_ExpireMode, NULL, CTX_NONE);
 414 }
 415
 416 void
 417 ServerStartModule_SITECONFIG
 418 (void)
 419 {
 420         LoadZoneFiles();
 421 }
 422
 423 void
 424 ServerShutdownModule_SITECONFIG
 425 (void)
 426 {
 427         DeleteHash(&ZoneHash);
 428 }
 429
 430
 431 void
 432 SessionDestroyModule_SITECONFIG
 433 (wcsession *sess)
 434 {
 435         DeleteHash(&sess->ServCfg);
 436 }