webcit/siteconfig.c

   1 /*
   2  * $Id$
   3  *
   4  * Administrative screen for site-wide configuration
   5  */
   6
   7
   8 #include "webcit.h"
   9 #include "webserver.h"
  10
  11
  12 HashList *ZoneHash = NULL;
  13
  14
  15
  16 void LoadZoneFiles(void)
  17 {
  18         icalarray *zones;
  19         int z;
  20         long len;
  21         char this_zone[128];
  22         char *ZName;
  23
  24         ZoneHash = NewHash(1, NULL);
  25         len = sizeof("UTC") + 1;
  26         ZName = malloc(len + 1);
  27         memcpy(ZName, "UTC", len + 1);
  28         Put(ZoneHash, ZName, len, ZName, NULL);
  29         zones = icaltimezone_get_builtin_timezones();
  30         for (z = 0; z < zones->num_elements; ++z) {
  31                 strcpy(this_zone, icaltimezone_get_location(icalarray_element_at(zones, z)));
  32                 len = strlen(this_zone);
  33                 ZName = (char*)malloc(len +1);
  34                 memcpy(ZName, this_zone, len + 1);
  35                 Put(ZoneHash, ZName, len, ZName, NULL);
  36         }
  37         SortByHashKey(ZoneHash, 0);
  38 }
  39
  40
  41
  42
  43 /*
  44  * \brief display all configuration items
  45  */
  46 void display_siteconfig(void)
  47 {
  48         char buf[SIZ];
  49         int i, j;
  50         struct wcsession *WCC = WC;
  51         const char *VCZname;
  52
  53         char general[65536];
  54         char access[SIZ];
  55         char network[SIZ];
  56         char tuning[SIZ];
  57         char directory[SIZ];
  58         char purger[SIZ];
  59         char idxjnl[SIZ];
  60         char funambol[SIZ];
  61         char pop3[SIZ];
  62
  63         /** expire policy settings */
  64         int sitepolicy = 0;
  65         int sitevalue = 0;
  66         int mboxpolicy = 0;
  67         int mboxvalue = 0;
  68
  69         output_headers(1, 1, 2, 0, 0, 0);
  70         wprintf("<div id=\"banner\">\n");
  71         wprintf("<h1>");
  72         wprintf(_("Site configuration"));
  73         wprintf("</h1>");
  74         wprintf("</div>\n");
  75
  76         wprintf("<div id=\"content\" class=\"service fix_scrollbar_bug\">\n");
  77
  78         serv_printf("CONF get");
  79         serv_getln(buf, sizeof buf);
  80         if (buf[0] != '1') {
  81                 wprintf("<div class=\"errormsg\">");
  82                 wprintf(_("Error"));
  83                 wprintf("<br />\n");
  84                 wprintf("%s<br />\n", &buf[4]);
  85                 wDumpContent(1);
  86                 wprintf("</div>\n");
  87                 return;
  88         }
  89
  90         wprintf("<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" ><tr><td>");
  91
  92         char *tabnames[] = {
  93                 _("General"),
  94                 _("Access"),
  95                 _("Network"),
  96                 _("Tuning"),
  97                 _("Directory"),
  98                 _("Auto-purger"),
  99                 _("Indexing/Journaling"),
 100                 _("Push Email"),
 101                 _("Pop3")
 102         };
 103
 104         sprintf(general, "<center><h1>%s</h1><table border=\"0\">",
 105                         _("General site configuration items")
 106         );
 107
 108         sprintf(access, "<center><h1>%s</h1><table border=\"0\">",
 109                         _("Access controls and site policy settings")
 110         );
 111
 112         sprintf(network, "<center><h1>%s</h1><h2>%s</h2><table border=\"0\">",
 113                         _("Network services"),
 114                         _("Changes made on this screen will not take effect "
 115                         "until you restart the Citadel server.")
 116         );
 117
 118         sprintf(tuning, "<center><h1>%s</h1><table border=\"0\">",
 119                         _("Advanced server fine-tuning controls")
 120         );
 121
 122         sprintf(directory, "<center><h1>%s</h1><h2>%s</h2><table border=\"0\">",
 123                         _("Configure the LDAP connector for Citadel"),
 124                         (serv_info.serv_supports_ldap
 125                         ?       _("Changes made on this screen will not take effect "
 126                                 "until you restart the Citadel server.")
 127                         :       _("NOTE: This Citadel server has been built without "
 128                                 "LDAP support.  These options will have no effect.")
 129                         )
 130         );
 131
 132         sprintf(purger, "<center><h1>%s</h1><h2>%s</h2><table border=\"0\">",
 133                         _("Configure automatic expiry of old messages"),
 134                         _("These settings may be overridden on a per-floor or per-room basis.")
 135         );
 136
 137         sprintf(idxjnl, "<center><h1>%s</h1><h2>%s</h2><table border=\"0\">",
 138                         _("Indexing and Journaling"),
 139                         _("Warning: these facilities are resource intensive.")
 140         );
 141         sprintf(funambol, "<center><h1>%s</h1><table border=\"0\">",
 142                 _("Push Email")
 143                 );
 144
 145         sprintf(pop3, "<center><h1>%s</h1><table border=\"0\">",
 146                 _("POP3")
 147                 );
 148
 149         wprintf("<form method=\"post\" action=\"siteconfig\">\n");
 150         wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WCC->nonce);
 151
 152         sprintf(&general[strlen(general)], "<tr><td><a href=\"display_edithello\"> %s </a></td>",           _("Change Login Logo"));
 153         sprintf(&general[strlen(general)],     "<td><a href=\"display_editgoodbuye\"> %s </a></td></tr>\n", _("Change Logout Logo"));
 154
 155         i = 0;
 156         while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
 157                 switch (i++) {
 158                 case 0:
 159                         sprintf(&general[strlen(general)], "<tr><td>");
 160                         sprintf(&general[strlen(general)], _("Node name"));
 161                         sprintf(&general[strlen(general)], "</td><td>");
 162                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_nodename\" maxlength=\"15\" value=\"%s\">", buf);
 163                         sprintf(&general[strlen(general)], "</td></tr>\n");
 164                         break;
 165                 case 1:
 166                         sprintf(&general[strlen(general)], "<tr><td>");
 167                         sprintf(&general[strlen(general)], _("Fully qualified domain name"));
 168                         sprintf(&general[strlen(general)], "</td><td>");
 169                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_fqdn\" maxlength=\"63\" value=\"%s\">", buf);
 170                         sprintf(&general[strlen(general)], "</td></tr>\n");
 171                         break;
 172                 case 2:
 173                         sprintf(&general[strlen(general)], "<tr><td>");
 174                         sprintf(&general[strlen(general)], _("Human-readable node name"));
 175                         sprintf(&general[strlen(general)], "</td><td>");
 176                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_humannode\" maxlength=\"20\" value=\"%s\">", buf);
 177                         sprintf(&general[strlen(general)], "</td></tr>\n");
 178                         break;
 179                 case 3:
 180                         sprintf(&general[strlen(general)], "<tr><td>");
 181                         sprintf(&general[strlen(general)], _("Telephone number"));
 182                         sprintf(&general[strlen(general)], "</td><td>");
 183                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_phonenum\" maxlength=\"15\" value=\"%s\">", buf);
 184                         sprintf(&general[strlen(general)], "</td></tr>\n");
 185                         break;
 186                 case 4:
 187                         sprintf(&access[strlen(access)], "<tr><td>");
 188                         sprintf(&access[strlen(access)], _("Automatically grant room-aide status to users who create private rooms"));
 189                         sprintf(&access[strlen(access)], "</td><td>");
 190                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" name=\"c_creataide\" value=\"yes\" %s>",
 191                                 ((atoi(buf) != 0) ? "checked" : ""));
 192                         sprintf(&access[strlen(access)], "</td></tr>\n");
 193                         break;
 194                 case 5:
 195                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 196                         sprintf(&tuning[strlen(tuning)], _("Server connection idle timeout (in seconds)"));
 197                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 198                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_sleeping\" maxlength=\"15\" value=\"%s\">", buf);
 199                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 200                         break;
 201                 case 6:
 202                         sprintf(&access[strlen(access)], "<tr><td>");
 203                         sprintf(&access[strlen(access)], _("Initial access level for new users"));
 204                         sprintf(&access[strlen(access)], "</td><td>");
 205                         sprintf(&access[strlen(access)], "<select name=\"c_initax\" size=\"1\">\n");
 206                         for (j=0; j<=6; ++j) {
 207                                 sprintf(&access[strlen(access)], "<option %s value=\"%d\">%d - %s</option>\n",
 208                                         ((atoi(buf) == j) ? "selected" : ""),
 209                                         j, j, axdefs[j]
 210                                 );
 211                         }
 212                         sprintf(&access[strlen(access)], "</select>");
 213                         sprintf(&access[strlen(access)], "</td></tr>\n");
 214                         break;
 215                 case 7:
 216                         sprintf(&access[strlen(access)], "<tr><td>");
 217                         sprintf(&access[strlen(access)], _("Require registration for new users"));
 218                         sprintf(&access[strlen(access)], "</td><td>");
 219                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" name=\"c_regiscall\" value=\"yes\" %s>",
 220                                 ((atoi(buf) != 0) ? "checked" : ""));
 221                         sprintf(&access[strlen(access)], "</td></tr>\n");
 222                         break;
 223                 case 8:
 224                         sprintf(&access[strlen(access)], "<tr><td>");
 225                         sprintf(&access[strlen(access)], _("Quarantine messages from problem users"));
 226                         sprintf(&access[strlen(access)], "</td><td>");
 227                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" name=\"c_twitdetect\" value=\"yes\" %s>",
 228                                 ((atoi(buf) != 0) ? "checked" : ""));
 229                         sprintf(&access[strlen(access)], "</td></tr>\n");
 230                         break;
 231                 case 9:
 232                         sprintf(&access[strlen(access)], "<tr><td>");
 233                         sprintf(&access[strlen(access)], _("Name of quarantine room"));
 234                         sprintf(&access[strlen(access)], "</td><td>");
 235                         sprintf(&access[strlen(access)], "<input type=\"text\" name=\"c_twitroom\" maxlength=\"63\" value=\"%s\">", buf);
 236                         sprintf(&access[strlen(access)], "</td></tr>\n");
 237                         break;
 238                 case 10:
 239                         sprintf(&general[strlen(general)], "<tr><td>");
 240                         sprintf(&general[strlen(general)], _("Paginator prompt (for text mode clients)"));
 241                         sprintf(&general[strlen(general)], "</td><td>");
 242                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_moreprompt\" maxlength=\"79\" value=\"%s\">", buf);
 243                         sprintf(&general[strlen(general)], "</td></tr>\n");
 244                         break;
 245                 case 11:
 246                         sprintf(&access[strlen(access)], "<tr><td>");
 247                         sprintf(&access[strlen(access)], _("Restrict access to Internet mail"));
 248                         sprintf(&access[strlen(access)], "</td><td>");
 249                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" name=\"c_restrict\" value=\"yes\" %s>",
 250                                 ((atoi(buf) != 0) ? "checked" : ""));
 251                         sprintf(&access[strlen(access)], "</td></tr>\n");
 252                         break;
 253                 case 12:
 254                         sprintf(&general[strlen(general)], "<tr><td>");
 255                         sprintf(&general[strlen(general)], _("Geographic location of this system"));
 256                         sprintf(&general[strlen(general)], "</td><td>");
 257                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_bbs_city\" maxlength=\"31\" value=\"%s\">", buf);
 258                         sprintf(&general[strlen(general)], "</td></tr>\n");
 259                         break;
 260                 case 13:
 261                         sprintf(&general[strlen(general)], "<tr><td>");
 262                         sprintf(&general[strlen(general)], _("Name of system administrator"));
 263                         sprintf(&general[strlen(general)], "</td><td>");
 264                         sprintf(&general[strlen(general)], "<input type=\"text\" name=\"c_sysadm\" MAXLENGTH=\"25\" VALUE=\"%s\">", buf);
 265                         sprintf(&general[strlen(general)], "</td></tr>\n");
 266                         break;
 267                 case 14:
 268                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 269                         sprintf(&tuning[strlen(tuning)], _("Maximum concurrent sessions (0 = no limit)"));
 270                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 271                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_maxsessions\" maxlength=\"5\" value=\"%s\">", buf);
 272                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 273                         break;
 274                 case 16:
 275                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 276                         sprintf(&tuning[strlen(tuning)], _("Default user purge time (days)"));
 277                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 278                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_userpurge\" maxlength=\"5\" value=\"%s\">", buf);
 279                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 280                         break;
 281                 case 17:
 282                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 283                         sprintf(&tuning[strlen(tuning)], _("Default room purge time (days)"));
 284                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 285                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_roompurge\" maxlength=\"5\" value=\"%s\">", buf);
 286                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 287                         break;
 288                 case 18:
 289                         sprintf(&access[strlen(access)], "<tr><td>");
 290                         sprintf(&access[strlen(access)], _("Name of room to log pages"));
 291                         sprintf(&access[strlen(access)], "</td><td>");
 292                         sprintf(&access[strlen(access)], "<input type=\"text\" name=\"c_logpages\" maxlength=\"63\" value=\"%s\">", buf);
 293                         sprintf(&access[strlen(access)], "</td></tr>\n");
 294                         break;
 295                 case 19:
 296                         sprintf(&access[strlen(access)], "<tr><td>");
 297                         sprintf(&access[strlen(access)], _("Access level required to create rooms"));
 298                         sprintf(&access[strlen(access)], "</td><td>");
 299                         sprintf(&access[strlen(access)], "<select name=\"c_createax\" size=\"1\">\n");
 300                         for (j=0; j<=6; ++j) {
 301                                 sprintf(&access[strlen(access)], "<option %s value=\"%d\">%d - %s</option>\n",
 302                                         ((atoi(buf) == j) ? "selected" : ""),
 303                                         j, j, axdefs[j]
 304                                 );
 305                         }
 306                         sprintf(&access[strlen(access)], "</select>");
 307                         sprintf(&access[strlen(access)], "</td></tr>\n");
 308                         break;
 309                 case 20:
 310                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 311                         sprintf(&tuning[strlen(tuning)], _("Maximum message length"));
 312                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 313                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_maxmsglen\" maxlength=\"20\" value=\"%s\">", buf);
 314                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 315                         break;
 316                 case 21:
 317                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 318                         sprintf(&tuning[strlen(tuning)], _("Minimum number of worker threads"));
 319                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 320                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_min_workers\" maxlength=\"5\" value=\"%s\">", buf);
 321                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 322                         break;
 323                 case 22:
 324                         sprintf(&tuning[strlen(tuning)], "<tr><td>");
 325                         sprintf(&tuning[strlen(tuning)], _("Maximum number of worker threads"));
 326                         sprintf(&tuning[strlen(tuning)], "</td><td>");
 327                         sprintf(&tuning[strlen(tuning)], "<input type=\"text\" name=\"c_max_workers\" maxlength=\"5\" value=\"%s\">", buf);
 328                         sprintf(&tuning[strlen(tuning)], "</td></tr>\n");
 329                         break;
 330                 case 23:
 331                         sprintf(&pop3[strlen(pop3)], "<tr><td>");
 332                         sprintf(&pop3[strlen(pop3)], _("POP3 listener port (-1 to disable)"));
 333                         sprintf(&pop3[strlen(pop3)], "</td><td>");
 334                         sprintf(&pop3[strlen(pop3)], "<input type=\"text\" name=\"c_pop3_port\" maxlength=\"5\" value=\"%s\">", buf);
 335                         sprintf(&pop3[strlen(pop3)], "</TD></TR>\n");
 336                         break;
 337                 case 24:
 338                         sprintf(&network[strlen(network)], "<TR><TD>");
 339                         sprintf(&network[strlen(network)], _("SMTP MTA port (-1 to disable)"));
 340                         sprintf(&network[strlen(network)], "</TD><TD>");
 341                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_smtp_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 342                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 343                         break;
 344                 case 25:        /* note: reverse bool */
 345                         sprintf(&network[strlen(network)], "<TR><TD>");
 346                         sprintf(&network[strlen(network)], _("Correct forged From: lines during authenticated SMTP"));
 347                         sprintf(&network[strlen(network)], "</TD><TD>");
 348                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_rfc822_strict_from\" VALUE=\"yes\" %s>",
 349                                 ((atoi(buf) == 0) ? "CHECKED" : ""));
 350                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 351                         break;
 352                 case 26:
 353                         sprintf(&access[strlen(access)], "<TR><TD>");
 354                         sprintf(&access[strlen(access)], _("Allow aides to zap (forget) rooms"));
 355                         sprintf(&access[strlen(access)], "</TD><TD>");
 356                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" NAME=\"c_aide_zap\" VALUE=\"yes\" %s>",
 357                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 358                         sprintf(&access[strlen(access)], "</TD></TR>\n");
 359                         break;
 360                 case 27:
 361                         sprintf(&network[strlen(network)], "<TR><TD>");
 362                         sprintf(&network[strlen(network)], _("IMAP listener port (-1 to disable)"));
 363                         sprintf(&network[strlen(network)], "</TD><TD>");
 364                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_imap_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 365                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 366                         break;
 367                 case 28:
 368                         sprintf(&network[strlen(network)], "<TR><TD>");
 369                         sprintf(&network[strlen(network)], _("Network run frequency (in seconds)"));
 370                         sprintf(&network[strlen(network)], "</TD><TD>");
 371                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_net_freq\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 372                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 373                         break;
 374                 case 29:
 375                         sprintf(&access[strlen(access)], "<TR><TD>");
 376                         sprintf(&access[strlen(access)], _("Disable self-service user account creation"));
 377                         sprintf(&access[strlen(access)], "</TD><TD>");
 378                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" NAME=\"c_disable_newu\" VALUE=\"yes\" %s>",
 379                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 380                         sprintf(&access[strlen(access)], "</TD></TR>\n");
 381                         break;
 382                 case 31:
 383                         sprintf(&purger[strlen(purger)], "<TR><TD>");
 384                         sprintf(&purger[strlen(purger)], _("Hour to run database auto-purge"));
 385                         sprintf(&purger[strlen(purger)], "</TD><TD>");
 386                         sprintf(&purger[strlen(purger)], "<SELECT NAME=\"c_purge_hour\" SIZE=\"1\">\n");
 387                         for (j=0; j<=23; ++j) {
 388                                 sprintf(&purger[strlen(purger)], "<OPTION %s VALUE=\"%d\">%d:00%s</OPTION>\n",
 389                                         ((atoi(buf) == j) ? "SELECTED" : ""),
 390                                         j,
 391                                         (get_time_format_cached() == WC_TIMEFORMAT_24) ? j : ((j == 0) ? 12 : ((j>12) ? j-12 : j)),
 392                                         (get_time_format_cached() == WC_TIMEFORMAT_24) ? "" : ((j >= 12) ? "pm" : "am")
 393                                 );
 394                         }
 395                         sprintf(&purger[strlen(purger)], "</SELECT>");
 396                         sprintf(&purger[strlen(purger)], "</TD></TR>\n");
 397                         break;
 398                 case 32:
 399                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 400                         sprintf(&directory[strlen(directory)], _("Host name of LDAP server (blank to disable)"));
 401                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 402                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_host\" MAXLENGTH=\"127\" VALUE=\"%s\">", buf);
 403                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 404                         break;
 405                 case 33:
 406                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 407                         sprintf(&directory[strlen(directory)], _("Port number of LDAP server (blank to disable)"));
 408                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 409                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_port\" MAXLENGTH=\"127\" VALUE=\"%d\">", atoi(buf));
 410                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 411                         break;
 412                 case 34:
 413                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 414                         sprintf(&directory[strlen(directory)], _("Base DN"));
 415                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 416                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_base_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 417                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 418                         break;
 419                 case 35:
 420                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 421                         sprintf(&directory[strlen(directory)], _("Bind DN"));
 422                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 423                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_bind_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 424                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 425                         break;
 426                 case 36:
 427                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 428                         sprintf(&directory[strlen(directory)], _("Password for bind DN"));
 429                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 430                         sprintf(&directory[strlen(directory)], "<input type=\"password\" NAME=\"c_ldap_bind_pw\" MAXLENGTH=\"255\" VALUE=\"%s\">",
 431                                 buf);
 432                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 433                         break;
 434                 case 37:
 435                         sprintf(&network[strlen(network)], "<TR><TD>");
 436                         sprintf(&network[strlen(network)], _("Server IP address (0.0.0.0 for 'any')"));
 437                         sprintf(&network[strlen(network)], "</TD><TD>");
 438                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_ip_addr\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
 439                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 440                         break;
 441                 case 38:
 442                         sprintf(&network[strlen(network)], "<TR><TD>");
 443                         sprintf(&network[strlen(network)], _("SMTP MSA port (-1 to disable)"));
 444                         sprintf(&network[strlen(network)], "</TD><TD>");
 445                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_msa_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 446                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 447                         break;
 448                 case 39:
 449                         sprintf(&network[strlen(network)], "<TR><TD>");
 450                         sprintf(&network[strlen(network)], _("IMAP over SSL port (-1 to disable)"));
 451                         sprintf(&network[strlen(network)], "</TD><TD>");
 452                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_imaps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 453                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 454                         break;
 455                 case 40:
 456                         sprintf(&pop3[strlen(pop3)], "<TR><TD>");
 457                         sprintf(&pop3[strlen(pop3)], _("POP3 over SSL port (-1 to disable)"));
 458                         sprintf(&pop3[strlen(pop3)], "</TD><TD>");
 459                         sprintf(&pop3[strlen(pop3)], "<input type=\"text\" NAME=\"c_pop3s_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 460                         sprintf(&pop3[strlen(pop3)], "</TD></TR>\n");
 461                         break;
 462                 case 41:
 463                         sprintf(&network[strlen(network)], "<TR><TD>");
 464                         sprintf(&network[strlen(network)], _("SMTP over SSL port (-1 to disable)"));
 465                         sprintf(&network[strlen(network)], "</TD><TD>");
 466                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_smtps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 467                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 468                         break;
 469                 case 42:
 470                                 sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 471                                 sprintf(&idxjnl[strlen(idxjnl)], _("Enable full text index"));
 472                                 sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 473                                 sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"checkbox\" NAME=\"c_enable_fulltext\" VALUE=\"yes\" %s>",
 474                                         ((atoi(buf) != 0) ? "CHECKED" : ""));
 475                                 sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 476                         break;
 477                 case 43:
 478                         sprintf(&tuning[strlen(tuning)], "<TR><TD>");
 479                         sprintf(&tuning[strlen(tuning)], _("Automatically delete committed database logs"));
 480                         sprintf(&tuning[strlen(tuning)], "</TD><TD>");
 481                         sprintf(&tuning[strlen(tuning)], "<input type=\"checkbox\" NAME=\"c_auto_cull\" VALUE=\"yes\" %s>",
 482                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 483                         sprintf(&tuning[strlen(tuning)], "</TD></TR>\n");
 484                         break;
 485                 case 44:
 486                         sprintf(&network[strlen(network)], "<TR><TD>");
 487                         sprintf(&network[strlen(network)], _("Instantly expunge deleted messages in IMAP"));
 488                         sprintf(&network[strlen(network)], "</TD><TD>");
 489                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_instant_expunge\" VALUE=\"yes\" %s>",
 490                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 491                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 492                         break;
 493                 case 45:
 494                         sprintf(&network[strlen(network)], "<TR><TD>");
 495                         sprintf(&network[strlen(network)], _("Allow unauthenticated SMTP clients to spoof this site's domains"));
 496                         sprintf(&network[strlen(network)], "</TD><TD>");
 497                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_allow_spoofing\" VALUE=\"yes\" %s>",
 498                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 499                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 500                         break;
 501                 case 46:
 502                         sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 503                         sprintf(&idxjnl[strlen(idxjnl)], _("Perform journaling of email messages"));
 504                         sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 505                         sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"checkbox\" NAME=\"c_journal_email\" VALUE=\"yes\" %s>",
 506                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 507                         sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 508                         break;
 509                 case 47:
 510                         sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 511                         sprintf(&idxjnl[strlen(idxjnl)], _("Perform journaling of non-email messages"));
 512                         sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 513                         sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"checkbox\" NAME=\"c_journal_pubmsgs\" VALUE=\"yes\" %s>",
 514                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 515                         sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 516                         break;
 517                 case 48:
 518                         sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 519                         sprintf(&idxjnl[strlen(idxjnl)], _("Email destination of journalized messages"));
 520                         sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 521                         sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"text\" NAME=\"c_journal_dest\" MAXLENGTH=\"127\" VALUE=\"%s\">", buf);
 522                         sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 523                         break;
 524                 case 49:
 525                         if (strlen(buf) == 0) {
 526                                 strcpy(buf, "UTC");
 527                         }
 528                         sprintf(&general[strlen(general)], "<TR><TD>");
 529                         sprintf(&general[strlen(general)], _("Default timezone for unzoned calendar items"));
 530                         sprintf(&general[strlen(general)], "</TD><TD>");
 531                         sprintf(&general[strlen(general)], "<select name=\"c_default_cal_zone\" size=\"1\">\n");
 532
 533                         icalarray *zones;
 534                         int z;
 535                         long len;
 536                         char this_zone[128];
 537                         char *ZName;
 538                         void *ZNamee;
 539                         HashList *List;
 540                         HashPos  *it;
 541
 542                         List = NewHash(1, NULL);
 543                         len = sizeof("UTC") + 1;
 544                         ZName = malloc(len + 1);
 545                         memcpy(ZName, "UTC", len + 1);
 546                         Put(List, ZName, len, ZName, NULL);
 547                         zones = icaltimezone_get_builtin_timezones();
 548                         for (z = 0; z < zones->num_elements; ++z) {
 549                                 strcpy(this_zone, icaltimezone_get_location(icalarray_element_at(zones, z)));
 550                                 len = strlen(this_zone);
 551                                 ZName = (char*)malloc(len +1);
 552                                 memcpy(ZName, this_zone, len + 1);
 553                                 Put(List, ZName, len, ZName, NULL);
 554                         }
 555                         SortByHashKey(List, 0);
 556                         it = GetNewHashPos();
 557                         while (GetNextHashPos(List, it, &len, &VCZname, &ZNamee)) {
 558                                 sprintf(&general[strlen(general)], "<option %s value=\"%s\">%s</option>\n",
 559                                         (!strcasecmp((char*)ZName, buf) ? "selected" : ""),
 560                                         ZName, ZName
 561                                 );
 562                         }
 563                         DeleteHashPos(&it);
 564                         DeleteHash(&List);
 565
 566                         sprintf(&general[strlen(general)], "</select>");
 567                         sprintf(&general[strlen(general)], "</TD></TR>\n");
 568                         break;
 569                 case 50:
 570                         sprintf(&network[strlen(network)], "<TR><TD>");
 571                         sprintf(&network[strlen(network)], _("<a href=\"http://www.postfix.org/tcp_table.5.html\">Postfix TCP Dictionary Port </a> (-1 to disable)"));
 572                         sprintf(&network[strlen(network)], "</TD><TD>");
 573                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_pftcpdict_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 574                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 575                         break;
 576                 case 51:
 577                         sprintf(&network[strlen(network)], "<TR><TD>");
 578                         sprintf(&network[strlen(network)], _("ManageSieve Port (-1 to disable)"));
 579                         sprintf(&network[strlen(network)], "</TD><TD>");
 580                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_mgesve_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 581                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 582                         break;
 583                 case 52:
 584                         sprintf(&access[strlen(access)], "<TR><TD>");
 585                         sprintf(&access[strlen(access)], _("Enable host based authentication mode"));
 586                         sprintf(&access[strlen(access)], "</TD><TD><input type=\"hidden\" NAME=\"c_auth_mode\" VALUE=\"%s\">%s",
 587                                 buf,
 588                                 ((atoi(buf) != 0) ? "Yes" : "No"));
 589                         sprintf(&access[strlen(access)], "</TD></TR>\n");
 590                         break;
 591                 case 53:
 592                         sprintf(&funambol[strlen(funambol)], "<TR><TD>");
 593                         sprintf(&funambol[strlen(funambol)], _("Funambol server host (blank to disable)"));
 594                         sprintf(&funambol[strlen(funambol)], "</TD><TD>");
 595                         sprintf(&funambol[strlen(funambol)], "<input type=\"text\" NAME=\"c_funambol_host\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 596                         sprintf(&funambol[strlen(funambol)], "</TD></TR>\n");
 597                         break;
 598                 case 54:
 599                         sprintf(&funambol[strlen(funambol)], "<TR><TD>");
 600                         sprintf(&funambol[strlen(funambol)], _("Funambol server port "));
 601                         sprintf(&funambol[strlen(funambol)], "</TD><TD>");
 602                         sprintf(&funambol[strlen(funambol)], "<input type=\"text\" NAME=\"c_funambol_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 603                         sprintf(&funambol[strlen(funambol)], "</TD></TR>\n");
 604                         break;
 605                 case 55:
 606                         sprintf(&funambol[strlen(funambol)], "<TR><TD>");
 607                         sprintf(&funambol[strlen(funambol)], _("Funambol sync source"));
 608                         sprintf(&funambol[strlen(funambol)], "</TD><TD>");
 609                         sprintf(&funambol[strlen(funambol)], "<input type=\"text\" NAME=\"c_funambol_source\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 610                         sprintf(&funambol[strlen(funambol)], "</TD></TR>\n");
 611                         break;
 612                 case 56:
 613                         sprintf(&funambol[strlen(funambol)], "<TR><TD>");
 614                         sprintf(&funambol[strlen(funambol)], _("Funambol auth details (user:pass)"));
 615                         sprintf(&funambol[strlen(funambol)], "</TD><TD>");
 616                         sprintf(&funambol[strlen(funambol)], "<input type=\"text\" NAME=\"c_funambol_auth\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 617                         sprintf(&funambol[strlen(funambol)], "</TD></TR>\n");
 618                         break;
 619                 case 57:
 620                         sprintf(&network[strlen(network)], "<TR><TD>");
 621                         sprintf(&network[strlen(network)], _("Perform RBL checks upon connect instead of after RCPT"));
 622                         sprintf(&network[strlen(network)], "</TD><TD>");
 623                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_rbl_at_greeting\" VALUE=\"yes\" %s>",
 624                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 625                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 626                         break;
 627                 case 58:
 628                         sprintf(&access[strlen(access)], "<TR><TD>");
 629                         sprintf(&access[strlen(access)], _("Master user name (blank to disable)"));
 630                         sprintf(&access[strlen(access)], "</TD><TD>");
 631                         sprintf(&access[strlen(access)], "<input type=\"text\" NAME=\"c_master_user\" MAXLENGTH=\"31\" VALUE=\"%s\">", buf);
 632                         sprintf(&access[strlen(access)], "</TD></TR>\n");
 633                         break;
 634                 case 59:
 635                         sprintf(&access[strlen(access)], "<TR><TD>");
 636                         sprintf(&access[strlen(access)], _("Master user password"));
 637                         sprintf(&access[strlen(access)], "</TD><TD>");
 638                         sprintf(&access[strlen(access)], "<input type=\"password\" NAME=\"c_master_pass\" MAXLENGTH=\"31\" VALUE=\"%s\">",
 639                         buf);
 640                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 641                         break;
 642                 case 60:
 643                         sprintf(&funambol[strlen(funambol)], "<TR><TD>");
 644                         sprintf(&funambol[strlen(funambol)], _("External pager tool (blank to disable)"));
 645                         sprintf(&funambol[strlen(funambol)], "</TD><TD>");
 646                         sprintf(&funambol[strlen(funambol)], "<input type=\"text\" NAME=\"c_pager_program\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 647                         sprintf(&funambol[strlen(funambol)], "</TD></TR>\n");
 648                         break;
 649                 case 61:
 650                         sprintf(&network[strlen(network)], "<TR><TD>");
 651                         sprintf(&network[strlen(network)], _("Keep original from headers in IMAP"));
 652                         sprintf(&network[strlen(network)], "</TD><TD>");
 653                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_imap_keep_from\" VALUE=\"yes\" %s>",
 654                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 655                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 656                         break;
 657                 case 62:
 658                         sprintf(&network[strlen(network)], "<tr><td>");
 659                         sprintf(&network[strlen(network)], _("XMPP (Jabber) client to server port (-1 to disable)"));
 660                         sprintf(&network[strlen(network)], "</td><td>");
 661                         sprintf(&network[strlen(network)], "<input type=\"text\" name=\"c_xmpp_c2s_port\" maxlength=\"5\" value=\"%s\">", buf);
 662                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 663                         break;
 664                 case 63:
 665                         sprintf(&network[strlen(network)], "<tr><td>");
 666                         sprintf(&network[strlen(network)], _("XMPP (Jabber) server to server port (-1 to disable)"));
 667                         sprintf(&network[strlen(network)], "</td><td>");
 668                         sprintf(&network[strlen(network)], "<input type=\"hidden\" name=\"c_xmpp_s2s_port\" value=\"%s\">\n", buf);
 669                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 670                         break;
 671                 case 64:
 672                         sprintf(&pop3[strlen(pop3)], "<tr><td>");
 673                         sprintf(&pop3[strlen(pop3)], _("POP3 fetch frequency in seconds"));
 674                         sprintf(&pop3[strlen(pop3)], "</td><td>");
 675                         sprintf(&pop3[strlen(pop3)], "<input type=\"text\" name=\"c_pop3_fetch\" MAXLENGTH=\"5\" value=\"%s\">\n", buf);
 676                         sprintf(&pop3[strlen(pop3)], "</TD></TR>\n");
 677                         break;
 678                 case 65:
 679                         sprintf(&pop3[strlen(pop3)], "<tr><td>");
 680                         sprintf(&pop3[strlen(pop3)], _("POP3 fastest fetch frequency in seconds"));
 681                         sprintf(&pop3[strlen(pop3)], "</td><td>");
 682                         sprintf(&pop3[strlen(pop3)], "<input type=\"text\" name=\"c_pop3_fastest\" MAXLENGTH=\"5\" value=\"%s\">\n", buf);
 683                         sprintf(&pop3[strlen(pop3)], "</TD></TR>\n");
 684                         break;
 685
 686                 }
 687
 688         }
 689
 690         serv_puts("GPEX site");
 691         serv_getln(buf, sizeof buf);
 692         if (buf[0] == '2') {
 693                 sitepolicy = extract_int(&buf[4], 0);
 694                 sitevalue = extract_int(&buf[4], 1);
 695         }
 696
 697         serv_puts("GPEX mailboxes");
 698         serv_getln(buf, sizeof buf);
 699         if (buf[0] == '2') {
 700                 mboxpolicy = extract_int(&buf[4], 0);
 701                 mboxvalue = extract_int(&buf[4], 1);
 702         }
 703
 704
 705         sprintf(&purger[strlen(purger)], "<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 706
 707         sprintf(&purger[strlen(purger)], "<TR><TD>");
 708         sprintf(&purger[strlen(purger)], _("Default message expire policy for public rooms"));
 709         sprintf(&purger[strlen(purger)], "</TD><TD>");
 710         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"sitepolicy\" VALUE=\"1\" %s>",
 711                 ((sitepolicy == 1) ? "CHECKED" : "") );
 712         sprintf(&purger[strlen(purger)], _("Never automatically expire messages"));
 713         sprintf(&purger[strlen(purger)], "<br />\n");
 714         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"sitepolicy\" VALUE=\"2\" %s>",
 715                 ((sitepolicy == 2) ? "CHECKED" : "") );
 716         sprintf(&purger[strlen(purger)], _("Expire by message count"));
 717         sprintf(&purger[strlen(purger)], "<br />\n");
 718         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"sitepolicy\" VALUE=\"3\" %s>",
 719                 ((sitepolicy == 3) ? "CHECKED" : "") );
 720         sprintf(&purger[strlen(purger)], _("Expire by message age"));
 721         sprintf(&purger[strlen(purger)], "<br />");
 722         sprintf(&purger[strlen(purger)], _("Number of messages or days: "));
 723         sprintf(&purger[strlen(purger)], "<input type=\"text\" NAME=\"sitevalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", sitevalue);
 724         sprintf(&purger[strlen(purger)], "</TD></TR>\n");
 725
 726         sprintf(&purger[strlen(purger)], "<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 727
 728         sprintf(&purger[strlen(purger)], "<TR><TD>");
 729         sprintf(&purger[strlen(purger)], _("Default message expire policy for private mailboxes"));
 730         sprintf(&purger[strlen(purger)], "</TD><TD>");
 731         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"0\" %s>",
 732                 ((mboxpolicy == 0) ? "CHECKED" : "") );
 733         sprintf(&purger[strlen(purger)], _("Same policy as public rooms"));
 734         sprintf(&purger[strlen(purger)], "<br />\n");
 735         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"1\" %s>",
 736                         ((mboxpolicy == 1) ? "CHECKED" : "") );
 737         sprintf(&purger[strlen(purger)], _("Never automatically expire messages"));
 738         sprintf(&purger[strlen(purger)], "<br />\n");
 739         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"2\" %s>",
 740                 ((mboxpolicy == 2) ? "CHECKED" : "") );
 741         sprintf(&purger[strlen(purger)], _("Expire by message count"));
 742         sprintf(&purger[strlen(purger)], "<br />\n");
 743         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"3\" %s>",
 744                 ((mboxpolicy == 3) ? "CHECKED" : "") );
 745         sprintf(&purger[strlen(purger)], _("Expire by message age"));
 746         sprintf(&purger[strlen(purger)], "<br />");
 747         sprintf(&purger[strlen(purger)], _("Number of messages or days: "));
 748         sprintf(&purger[strlen(purger)], "<input type=\"text\" NAME=\"mboxvalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", mboxvalue);
 749         sprintf(&purger[strlen(purger)], "</TD></TR>\n");
 750
 751         sprintf(&purger[strlen(purger)], "<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 752
 753
 754         sprintf(&general[strlen(general)], "</table>");
 755         sprintf(&access[strlen(access)], "</table>");
 756         sprintf(&network[strlen(network)], "</table>");
 757         sprintf(&tuning[strlen(tuning)], "</table>");
 758         sprintf(&directory[strlen(directory)], "</table>");
 759         sprintf(&purger[strlen(purger)], "</table>");
 760         sprintf(&idxjnl[strlen(idxjnl)], "</table>");
 761         sprintf(&funambol[strlen(funambol)], "</table>");
 762         sprintf(&pop3[strlen(pop3)], "</table>");
 763
 764         tabbed_dialog(9, tabnames);
 765
 766         begin_tab(0, 9);        StrBufAppendBufPlain(WCC->WBuf, general, strlen(general), 0);            end_tab(0, 9);
 767         begin_tab(1, 9);        StrBufAppendBufPlain(WCC->WBuf, access, strlen(access), 0);              end_tab(1, 9);
 768         begin_tab(2, 9);        StrBufAppendBufPlain(WCC->WBuf, network, strlen(network), 0);            end_tab(2, 9);
 769         begin_tab(3, 9);        StrBufAppendBufPlain(WCC->WBuf, tuning, strlen(tuning), 0);              end_tab(3, 9);
 770         begin_tab(4, 9);        StrBufAppendBufPlain(WCC->WBuf, directory, strlen(directory), 0);        end_tab(4, 9);
 771         begin_tab(5, 9);        StrBufAppendBufPlain(WCC->WBuf, purger, strlen(purger), 0);              end_tab(5, 9);
 772         begin_tab(6, 9);        StrBufAppendBufPlain(WCC->WBuf, idxjnl, strlen(idxjnl), 0);              end_tab(6, 9);
 773         begin_tab(7, 9);        StrBufAppendBufPlain(WCC->WBuf, funambol, strlen(funambol), 0);  end_tab(7, 9);
 774         begin_tab(8, 9);        StrBufAppendBufPlain(WCC->WBuf, pop3, strlen(pop3), 0);          end_tab(8, 9);
 775
 776         begin_tab(9, 9);
 777         wprintf("<input type=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">", _("Save changes"));
 778         wprintf("&nbsp;");
 779         wprintf("<input type=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">\n", _("Cancel"));
 780         end_tab(9, 9);
 781
 782         wprintf("</FORM>\n");
 783         wprintf("</td></tr></table>\n");
 784         wDumpContent(1);
 785 }
 786
 787 typedef struct _CfgMapping {
 788         int type;
 789         const char *Key;
 790         long len;
 791 }CfgMapping;
 792
 793 #define CFG_STR 1
 794 #define CFG_YES 2
 795 #define CFG_NO 3
 796
 797 CfgMapping ServerConfig[] = {
 798         {CFG_STR, HKEY("c_nodename")},
 799         {CFG_STR, HKEY("c_fqdn")},
 800         {CFG_STR, HKEY("c_humannode")},
 801         {CFG_STR, HKEY("c_phonenum")},
 802         {CFG_YES, HKEY("c_creataide")},
 803         {CFG_STR, HKEY("c_sleeping")},
 804         {CFG_STR, HKEY("c_initax")},
 805         {CFG_YES, HKEY("c_regiscall")},
 806         {CFG_YES, HKEY("c_twitdetect")},
 807         {CFG_STR, HKEY("c_twitroom")},
 808         {CFG_STR, HKEY("c_moreprompt")},
 809         {CFG_YES, HKEY("c_restrict")},
 810         {CFG_STR, HKEY("c_bbs_city")},
 811         {CFG_STR, HKEY("c_sysadm")},
 812         {CFG_STR, HKEY("c_maxsessions")},
 813         {CFG_STR, HKEY("reserved1")},
 814         {CFG_STR, HKEY("c_userpurge")},
 815         {CFG_STR, HKEY("c_roompurge")},
 816         {CFG_STR, HKEY("c_logpages")},
 817         {CFG_STR, HKEY("c_createax")},
 818         {CFG_STR, HKEY("c_maxmsglen")},
 819         {CFG_STR, HKEY("c_min_workers")},
 820         {CFG_STR, HKEY("c_max_workers")},
 821         {CFG_STR, HKEY("c_pop3_port")},
 822         {CFG_STR, HKEY("c_smtp_port")},
 823         {CFG_NO , HKEY("c_rfc822_strict_from")},        /* note: reverse bool */
 824         {CFG_YES, HKEY("c_aide_zap")},
 825         {CFG_STR, HKEY("c_imap_port")},
 826         {CFG_STR, HKEY("c_net_freq")},
 827         {CFG_YES, HKEY("c_disable_newu")},
 828         {CFG_STR, HKEY("reserved2")},
 829         {CFG_STR, HKEY("c_purge_hour")},
 830         {CFG_STR, HKEY("c_ldap_host")},
 831         {CFG_STR, HKEY("c_ldap_port")},
 832         {CFG_STR, HKEY("c_ldap_base_dn")},
 833         {CFG_STR, HKEY("c_ldap_bind_dn")},
 834         {CFG_STR, HKEY("c_ldap_bind_pw")},
 835         {CFG_STR, HKEY("c_ip_addr")},
 836         {CFG_STR, HKEY("c_msa_port")},
 837         {CFG_STR, HKEY("c_imaps_port")},
 838         {CFG_STR, HKEY("c_pop3s_port")},
 839         {CFG_STR, HKEY("c_smtps_port")},
 840         {CFG_YES, HKEY("c_enable_fulltext")},
 841         {CFG_YES, HKEY("c_auto_cull")},
 842         {CFG_YES, HKEY("c_instant_expunge")},
 843         {CFG_YES, HKEY("c_allow_spoofing")},
 844         {CFG_YES, HKEY("c_journal_email")},
 845         {CFG_YES, HKEY("c_journal_pubmsgs")},
 846         {CFG_STR, HKEY("c_journal_dest")},
 847         {CFG_STR, HKEY("c_default_cal_zone")},
 848         {CFG_STR, HKEY("c_pftcpdict_port")},
 849         {CFG_STR, HKEY("c_mgesve_port")},
 850         {CFG_STR, HKEY("c_auth_mode")},
 851         {CFG_STR, HKEY("c_funambol_host")},
 852         {CFG_STR, HKEY("c_funambol_port")},
 853         {CFG_STR, HKEY("c_funambol_source")},
 854         {CFG_STR, HKEY("c_funambol_auth")},
 855         {CFG_YES, HKEY("c_rbl_at_greeting")},
 856         {CFG_STR, HKEY("c_master_user")},
 857         {CFG_STR, HKEY("c_master_pass")},
 858         {CFG_STR, HKEY("c_pager_program")},
 859         {CFG_YES, HKEY("c_imap_keep_from")},
 860         {CFG_STR, HKEY("c_xmpp_c2s_port")},
 861         {CFG_STR, HKEY("c_xmpp_s2s_port")},
 862         {CFG_STR, HKEY("c_pop3_fetch")},
 863         {CFG_STR, HKEY("c_pop3_fastest")}
 864 };
 865
 866
 867 /*
 868  * \brief display all configuration items
 869  */
 870 void load_siteconfig(void)
 871 {
 872         struct wcsession *WCC = WC;
 873         StrBuf *Buf, *Token;
 874         HashList *Cfg;
 875         char buf[SIZ];
 876         long len;
 877         int i;
 878
 879         if (WCC->ServCfg == NULL)
 880                 WCC->ServCfg = NewHash(1, NULL);
 881         Cfg = WCC->ServCfg;
 882
 883         serv_printf("CONF get");
 884         serv_getln(buf, sizeof buf);
 885         i = 0;
 886         while (len = serv_getln(buf, sizeof buf),
 887                strcmp(buf, "000") &&
 888                (i < sizeof(ServerConfig)))
 889         {
 890                 Put(Cfg,
 891                     ServerConfig[i].Key,
 892                     ServerConfig[i].len,
 893                     NewStrBufPlain(buf, len),
 894                     HFreeStrBuf);
 895                 i++;
 896         }
 897
 898         serv_puts("GPEX site");
 899         Buf = NewStrBuf();
 900         Token = NULL;
 901         StrBuf_ServGetln(Buf);
 902         if (ChrPtr(Buf)[0] == '2') {
 903                 StrBufCutLeft(Buf, 4);
 904
 905                 Token = NewStrBuf();
 906                 StrBufExtract_token(Token, Buf, 0, '|');
 907                 Put(Cfg, HKEY("sitepolicy"), Token, HFreeStrBuf);
 908
 909                 Token = NewStrBuf();
 910                 StrBufExtract_token(Token, Buf, 1, '|');
 911                 Put(Cfg, HKEY("sitevalue"), Token, HFreeStrBuf);
 912         }
 913
 914         serv_puts("GPEX mailboxes");
 915         serv_getln(buf, sizeof buf);
 916         if (buf[0] == '2') {
 917                 StrBufCutLeft(Buf, 4);
 918
 919                 Token = NewStrBuf();
 920                 StrBufExtract_token(Token, Buf, 0, '|');
 921                 Put(Cfg, HKEY("mboxpolicy"), Token, HFreeStrBuf);
 922
 923                 Token = NewStrBuf();
 924                 StrBufExtract_token(Token, Buf, 1, '|');
 925                 Put(Cfg, HKEY("mboxvalue"), Token, HFreeStrBuf);
 926         }
 927 }
 928
 929
 930 /**
 931  * parse siteconfig changes
 932  */
 933 void siteconfig(void)
 934 {
 935         int i;
 936         char buf[256];
 937
 938         if (strlen(bstr("ok_button")) == 0) {
 939                 display_aide_menu();
 940                 return;
 941         }
 942         serv_printf("CONF set");
 943         serv_getln(buf, sizeof buf);
 944         if (buf[0] != '4') {
 945                 safestrncpy(WC->ImportantMessage, &buf[4], sizeof WC->ImportantMessage);
 946                 display_aide_menu();
 947                 return;
 948         }
 949
 950         i = sizeof(ServerConfig);
 951         for (i=0; i < sizeof(ServerConfig); i ++)
 952         {
 953                 switch (ServerConfig[i].type) {
 954                 default:
 955                 case CFG_STR:
 956                         serv_putbuf(SBstr(ServerConfig[i].Key, ServerConfig[i].len));
 957                         break;
 958                 case CFG_YES:
 959                         serv_puts(YesBstr(ServerConfig[i].Key,
 960                                           ServerConfig[i].len) ?
 961                                   "1" : "0");
 962                         break;
 963                 case CFG_NO:
 964                         serv_puts(YesBstr(ServerConfig[i].Key,
 965                                           ServerConfig[i].len) ?
 966                                   "0" : "1");
 967                         break;
 968                 }
 969         }
 970
 971         serv_printf("SPEX site|%d|%d", ibstr("sitepolicy"), ibstr("sitevalue"));
 972         serv_getln(buf, sizeof buf);
 973         serv_printf("SPEX mailboxes|%d|%d", ibstr("mboxpolicy"), ibstr("mboxvalue"));
 974         serv_getln(buf, sizeof buf);
 975
 976         strcpy(serv_info.serv_default_cal_zone, bstr("c_default_cal_zone"));
 977
 978         safestrncpy(WC->ImportantMessage, _("Your system configuration has been updated."),
 979                 sizeof WC->ImportantMessage);
 980         display_aide_menu();
 981 }
 982
 983 void tmplput_servcfg(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, void *Context)
 984 {
 985         struct wcsession *WCC = WC;
 986         void *vBuf;
 987         StrBuf *Buf;
 988
 989         if (WCC->is_aide) {
 990                 if (WCC->ServCfg == NULL)
 991                         load_siteconfig();
 992                 GetHash(WCC->ServCfg,
 993                         Tokens->Params[0]->Start,
 994                         Tokens->Params[0]->len,
 995                         &vBuf);
 996                 Buf = (StrBuf*) vBuf;
 997                 StrBufAppendBuf(Target, Buf, 0);
 998         }
 999 }
1000
1001 int ConditionalServCfg(WCTemplateToken *Tokens, void *Context)
1002 {
1003         struct wcsession *WCC = WC;
1004         void *vBuf;
1005         StrBuf *Buf;
1006
1007         if (WCC->is_aide) {
1008                 if (WCC->ServCfg == NULL)
1009                         load_siteconfig();
1010                 GetHash(WCC->ServCfg,
1011                         Tokens->Params[2]->Start,
1012                         Tokens->Params[2]->len,
1013                         &vBuf);
1014                 if (vBuf == NULL) return 0;
1015                 Buf = (StrBuf*) vBuf;
1016                 if (Tokens->nParameters == 3) {
1017                         return 1;
1018                 }
1019                 else if (Tokens->Params[3]->Type == TYPE_STR)
1020                         return (strcmp(Tokens->Params[3]->Start, ChrPtr(Buf)) == 0);
1021                 else return (StrTol(Buf) == Tokens->Params[3]->lvalue);
1022         }
1023         else return 0;
1024 }
1025
1026 void
1027 InitModule_SITECONFIG
1028 (void)
1029 {
1030         WebcitAddUrlHandler(HKEY("display_siteconfig"), display_siteconfig, 0);
1031         WebcitAddUrlHandler(HKEY("siteconfig"), siteconfig, 0);
1032
1033         RegisterNamespace("SERV:CFG", 1, 1, tmplput_servcfg);
1034         RegisterConditional(HKEY("COND:SERVCFG"), 3, ConditionalServCfg);
1035 }
1036 /*@}*/