webcit/siteconfig.c

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