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