webcit/siteconfig.c

   1 /*
   2  * $Id$
   3  *
   4  * Administrative screen for site-wide configuration
   5  *
   6  */
   7
   8
   9 #include <ctype.h>
  10 #include <stdlib.h>
  11 #include <unistd.h>
  12 #include <stdio.h>
  13 #include <fcntl.h>
  14 #include <signal.h>
  15 #include <sys/types.h>
  16 #include <sys/wait.h>
  17 #include <sys/socket.h>
  18 #include <sys/time.h>
  19 #include <limits.h>
  20 #include <netinet/in.h>
  21 #include <netdb.h>
  22 #include <string.h>
  23 #include <pwd.h>
  24 #include <errno.h>
  25 #include <stdarg.h>
  26 #include <pthread.h>
  27 #include <signal.h>
  28 #include "webcit.h"
  29
  30
  31
  32
  33
  34 void display_siteconfig(void)
  35 {
  36         char buf[SIZ];
  37         char *whichmenu;
  38         int i, j;
  39
  40         /* expire policy settings */
  41         int sitepolicy = 0;
  42         int sitevalue = 0;
  43         int mboxpolicy = 0;
  44         int mboxvalue = 0;
  45
  46         output_headers(1, 1, 2, 0, 0, 0, 0);
  47         wprintf("<div id=\"banner\">\n"
  48                 "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
  49                 "<SPAN CLASS=\"titlebar\">Site configuration</SPAN>"
  50                 "</TD></TR></TABLE>\n"
  51                 "</div>\n<div id=\"content\">\n"
  52         );
  53
  54         wprintf("<div id=\"fix_scrollbar_bug\">"
  55                 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>");
  56
  57         whichmenu = bstr("whichmenu");
  58
  59         if (!strcmp(whichmenu, "")) {
  60                 wprintf("<TABLE border=0 cellspacing=0 cellpadding=3 width=100%%>\n");
  61
  62                 wprintf("<TR BGCOLOR=\"#CCCCCC\"><TD>"
  63                         "<A HREF=\"/display_siteconfig?whichmenu=general\">"
  64                         "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
  65                         "SRC=\"/static/advanced-icon.gif\" ALT=\"&nbsp;\">"
  66                         "</TD><TD>"
  67                         "<A HREF=\"/display_siteconfig?whichmenu=general\">"
  68                         "<B>General</B><br />"
  69                         "General site configuration items"
  70                         "</A></TD></TR>\n"
  71                 );
  72
  73                 wprintf("<TR><TD>"
  74                         "<A HREF=\"/display_siteconfig?whichmenu=access\">"
  75                         "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
  76                         "SRC=\"/static/advanced-icon.gif\" ALT=\"&nbsp;\">"
  77                         "</TD><TD>"
  78                         "<A HREF=\"/display_siteconfig?whichmenu=access\">"
  79                         "<B>Access</B><br />"
  80                         "Access controls and site policy settings"
  81                         "</A></TD></TR>\n"
  82                 );
  83
  84                 wprintf("<TR BGCOLOR=\"#CCCCCC\"><TD>"
  85                         "<A HREF=\"/display_siteconfig?whichmenu=network\">"
  86                         "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
  87                         "SRC=\"/static/advanced-icon.gif\" ALT=\"&nbsp;\">"
  88                         "</TD><TD>"
  89                         "<A HREF=\"/display_siteconfig?whichmenu=network\">"
  90                         "<B>Network</B><br />"
  91                         "Network services"
  92                         "</A></TD></TR>\n"
  93                 );
  94
  95                 wprintf("<TR><TD>"
  96                         "<A HREF=\"/display_siteconfig?whichmenu=tuning\">"
  97                         "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
  98                         "SRC=\"/static/advanced-icon.gif\" ALT=\"&nbsp;\">"
  99                         "</TD><TD>"
 100                         "<A HREF=\"/display_siteconfig?whichmenu=tuning\">"
 101                         "<B>Tuning</B><br />"
 102                         "Advanced server fine-tuning controls"
 103                         "</A></TD></TR>\n"
 104                 );
 105
 106                 wprintf("<TR BGCOLOR=\"#CCCCCC\"><TD>"
 107                         "<A HREF=\"/display_siteconfig?whichmenu=ldap\">"
 108                         "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
 109                         "SRC=\"/static/advanced-icon.gif\" ALT=\"&nbsp;\">"
 110                         "</TD><TD>"
 111                         "<A HREF=\"/display_siteconfig?whichmenu=ldap\">"
 112                         "<B>Directory</B><br />"
 113                         "Configure the LDAP connector for Citadel"
 114                         "</A></TD></TR>\n"
 115                 );
 116
 117                 wprintf("<TR><TD>"
 118                         "<A HREF=\"/display_siteconfig?whichmenu=purger\">"
 119                         "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
 120                         "SRC=\"/static/advanced-icon.gif\" ALT=\"&nbsp;\">"
 121                         "</TD><TD>"
 122                         "<A HREF=\"/display_siteconfig?whichmenu=purger\">"
 123                         "<B>Auto-purger</B><br />"
 124                         "Configure automatic expiry of old messages"
 125                         "</A></TD></TR>\n"
 126                 );
 127
 128                 wprintf("</TABLE>");
 129                 wprintf("</td></tr></table></center>\n");
 130                 wDumpContent(1);
 131                 return;
 132         }
 133
 134         if (!strcasecmp(whichmenu, "general")) {
 135                 wprintf("<CENTER><H2>General site configuration items</H2></CENTER>\n");
 136         }
 137
 138         if (!strcasecmp(whichmenu, "access")) {
 139                 wprintf("<CENTER><H2>Access controls and site policy settings</H2></CENTER>\n");
 140         }
 141
 142         if (!strcasecmp(whichmenu, "network")) {
 143                 wprintf("<CENTER><H2>Network services</H2>"
 144                         "Changes made on this screen will not take effect until you restart the Citadel server."
 145                         "</CENTER>\n");
 146         }
 147
 148         if (!strcasecmp(whichmenu, "tuning")) {
 149                 wprintf("<CENTER><H2>Advanced server fine-tuning controls</H2></CENTER>\n");
 150         }
 151
 152         if (!strcasecmp(whichmenu, "ldap")) {
 153                 wprintf("<CENTER><H2>Citadel LDAP connector configuration</H2>"
 154                         "Changes made on this screen will not take effect until you restart the Citadel server."
 155                         "</CENTER>\n");
 156         }
 157
 158         if (!strcasecmp(whichmenu, "purger")) {
 159                 wprintf("<CENTER><H2>Message auto-purger settings</H2>"
 160                         "These settings may be overridden on a per-floor or per-room basis."
 161                         "</CENTER>\n");
 162         }
 163
 164         serv_printf("CONF get");
 165         serv_gets(buf);
 166         if (buf[0] != '1') {
 167                 wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
 168                 wprintf("<SPAN CLASS=\"titlebar\">Error</SPAN>\n");
 169                 wprintf("</TD></TR></TABLE><br />\n");
 170                 wprintf("%s<br />\n", &buf[4]);
 171                 do_template("endbox");
 172                 wDumpContent(1);
 173                 return;
 174         }
 175
 176         wprintf("<FORM METHOD=\"POST\" ACTION=\"/siteconfig\">\n");
 177         wprintf("<TABLE border=0>\n");
 178
 179         i = 0;
 180         while (serv_gets(buf), strcmp(buf, "000")) {
 181                 switch (++i) {
 182                 case 1:
 183                         if (!strcasecmp(whichmenu, "general")) {
 184                                 wprintf("<TR><TD>Node name</TD><TD>");
 185                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_nodename\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
 186                                 wprintf("</TD></TR>\n");
 187                         }
 188                         else {
 189                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_nodename\" VALUE=\"%s\">", buf);
 190                         }
 191                         break;
 192                 case 2:
 193                         if (!strcasecmp(whichmenu, "general")) {
 194                                 wprintf("<TR><TD>Fully qualified domain name</TD><TD>");
 195                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_fqdn\" MAXLENGTH=\"63\" VALUE=\"%s\">", buf);
 196                                 wprintf("</TD></TR>\n");
 197                         }
 198                         else {
 199                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_fqdn\" VALUE=\"%s\">", buf);
 200                         }
 201                         break;
 202                 case 3:
 203                         if (!strcasecmp(whichmenu, "general")) {
 204                                 wprintf("<TR><TD>Human-readable node name</TD><TD>");
 205                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_humannode\" MAXLENGTH=\"20\" VALUE=\"%s\">", buf);
 206                                 wprintf("</TD></TR>\n");
 207                         }
 208                         else {
 209                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_humannode\" VALUE=\"%s\">", buf);
 210                         }
 211                         break;
 212                 case 4:
 213                         if (!strcasecmp(whichmenu, "general")) {
 214                                 wprintf("<TR><TD>Landline telephone number</TD><TD>");
 215                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_phonenum\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
 216                                 wprintf("</TD></TR>\n");
 217                         }
 218                         else {
 219                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_phonenum\" VALUE=\"%s\">", buf);
 220                         }
 221                         break;
 222                 case 5:
 223                         if (!strcasecmp(whichmenu, "access")) {
 224                                 wprintf("<TR><TD>Automatically grant room-aide status to users who create private rooms</TD><TD>");
 225                                 wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_creataide\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
 226                                 wprintf("</TD></TR>\n");
 227                         }
 228                         else {
 229                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_creataide\" VALUE=\"%s\">", buf);
 230                         }
 231                         break;
 232                 case 6:
 233                         if (!strcasecmp(whichmenu, "tuning")) {
 234                                 wprintf("<TR><TD>Server connection idle timeout (in seconds)</TD><TD>");
 235                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_sleeping\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
 236                                 wprintf("</TD></TR>\n");
 237                         }
 238                         else {
 239                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_sleeping\" VALUE=\"%s\">", buf);
 240                         }
 241                         break;
 242                 case 7:
 243                         if (!strcasecmp(whichmenu, "access")) {
 244                                 wprintf("<TR><TD>Initial access level for new users</TD><TD>");
 245                                 wprintf("<SELECT NAME=\"c_initax\" SIZE=\"1\">\n");
 246                                 for (j=0; j<=6; ++j) {
 247                                         wprintf("<OPTION %s VALUE=\"%d\">%d - %s</OPTION>\n",
 248                                                 ((atoi(buf) == j) ? "SELECTED" : ""),
 249                                                 j, j, axdefs[j]
 250                                         );
 251                                 }
 252                                 wprintf("</SELECT>");
 253                                 wprintf("</TD></TR>\n");
 254                         }
 255                         else {
 256                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_initax\" VALUE=\"%s\">", buf);
 257                         }
 258                         break;
 259                 case 8:
 260                         if (!strcasecmp(whichmenu, "access")) {
 261                                 wprintf("<TR><TD>Require registration for new users</TD><TD>");
 262                                 wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_regiscall\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
 263                                 wprintf("</TD></TR>\n");
 264                         }
 265                         else {
 266                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_regiscall\" VALUE=\"%s\">", buf);
 267                         }
 268                         break;
 269                 case 9:
 270                         if (!strcasecmp(whichmenu, "access")) {
 271                                 wprintf("<TR><TD>Quarantine messages from problem users</TD><TD>");
 272                                 wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_twitdetect\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
 273                                 wprintf("</TD></TR>\n");
 274                         }
 275                         else {
 276                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_twitdetect\" VALUE=\"%s\">", buf);
 277                         }
 278                         break;
 279                 case 10:
 280                         if (!strcasecmp(whichmenu, "access")) {
 281                                 wprintf("<TR><TD>Name of quarantine room</TD><TD>");
 282                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_twitroom\" MAXLENGTH=\"63\" VALUE=\"%s\">", buf);
 283                                 wprintf("</TD></TR>\n");
 284                         }
 285                         else {
 286                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_twitroom\" VALUE=\"%s\">", buf);
 287                         }
 288                         break;
 289                 case 11:
 290                         if (!strcasecmp(whichmenu, "general")) {
 291                                 wprintf("<TR><TD>Paginator prompt (for text mode clients)</TD><TD>");
 292                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_moreprompt\" MAXLENGTH=\"79\" VALUE=\"%s\">", buf);
 293                                 wprintf("</TD></TR>\n");
 294                         }
 295                         else {
 296                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_moreprompt\" VALUE=\"%s\">", buf);
 297                         }
 298                         break;
 299                 case 12:
 300                         if (!strcasecmp(whichmenu, "access")) {
 301                                 wprintf("<TR><TD>Restrict access to Internet mail</TD><TD>");
 302                                 wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_restrict\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
 303                                 wprintf("</TD></TR>\n");
 304                         }
 305                         else {
 306                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_restrict\" VALUE=\"%s\">", buf);
 307                         }
 308                         break;
 309                 case 13:
 310                         if (!strcasecmp(whichmenu, "general")) {
 311                                 wprintf("<TR><TD>Geographic location of this system</TD><TD>");
 312                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_bbs_city\" MAXLENGTH=\"31\" VALUE=\"%s\">", buf);
 313                                 wprintf("</TD></TR>\n");
 314                         }
 315                         else {
 316                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_bbs_city\" VALUE=\"%s\">", buf);
 317                         }
 318                         break;
 319                 case 14:
 320                         if (!strcasecmp(whichmenu, "general")) {
 321                                 wprintf("<TR><TD>Name of system administrator</TD><TD>");
 322                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_sysadm\" MAXLENGTH=\"25\" VALUE=\"%s\">", buf);
 323                                 wprintf("</TD></TR>\n");
 324                         }
 325                         else {
 326                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_sysadm\" VALUE=\"%s\">", buf);
 327                         }
 328                         break;
 329                 case 15:
 330                         if (!strcasecmp(whichmenu, "tuning")) {
 331                                 wprintf("<TR><TD>Maximum concurrent sessions (0 = no limit)</TD><TD>");
 332                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_maxsessions\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 333                                 wprintf("</TD></TR>\n");
 334                         }
 335                         else {
 336                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_maxsessions\" VALUE=\"%s\">", buf);
 337                         }
 338                         break;
 339                 case 17:
 340                         if (!strcasecmp(whichmenu, "tuning")) {
 341                                 wprintf("<TR><TD>Default user purge time (days)</TD><TD>");
 342                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_userpurge\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 343                                 wprintf("</TD></TR>\n");
 344                         }
 345                         else {
 346                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_userpurge\" VALUE=\"%s\">", buf);
 347                         }
 348                         break;
 349                 case 18:
 350                         if (!strcasecmp(whichmenu, "tuning")) {
 351                                 wprintf("<TR><TD>Default room purge time (days)</TD><TD>");
 352                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_roompurge\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 353                                 wprintf("</TD></TR>\n");
 354                         }
 355                         else {
 356                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_roompurge\" VALUE=\"%s\">", buf);
 357                         }
 358                         break;
 359                 case 19:
 360                         if (!strcasecmp(whichmenu, "access")) {
 361                                 wprintf("<TR><TD>Name of room to log pages</TD><TD>");
 362                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_logpages\" MAXLENGTH=\"63\" VALUE=\"%s\">", buf);
 363                                 wprintf("</TD></TR>\n");
 364                         }
 365                         else {
 366                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_logpages\" VALUE=\"%s\">", buf);
 367                         }
 368                         break;
 369                 case 20:
 370                         if (!strcasecmp(whichmenu, "access")) {
 371                                 wprintf("<TR><TD>Access level required to create rooms</TD><TD>");
 372                                 wprintf("<SELECT NAME=\"c_createax\" SIZE=\"1\">\n");
 373                                 for (j=0; j<=6; ++j) {
 374                                         wprintf("<OPTION %s VALUE=\"%d\">%d - %s</OPTION>\n",
 375                                                 ((atoi(buf) == j) ? "SELECTED" : ""),
 376                                                 j, j, axdefs[j]
 377                                         );
 378                                 }
 379                                 wprintf("</SELECT>");
 380                                 wprintf("</TD></TR>\n");
 381                         }
 382                         else {
 383                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_createax\" VALUE=\"%s\">", buf);
 384                         }
 385                         break;
 386                 case 21:
 387                         if (!strcasecmp(whichmenu, "tuning")) {
 388                                 wprintf("<TR><TD>Maximum message length</TD><TD>");
 389                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_maxmsglen\" MAXLENGTH=\"20\" VALUE=\"%s\">", buf);
 390                                 wprintf("</TD></TR>\n");
 391                         }
 392                         else {
 393                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_maxmsglen\" VALUE=\"%s\">", buf);
 394                         }
 395                         break;
 396                 case 22:
 397                         if (!strcasecmp(whichmenu, "tuning")) {
 398                                 wprintf("<TR><TD>Minimum number of worker threads</TD><TD>");
 399                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_min_workers\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 400                                 wprintf("</TD></TR>\n");
 401                         }
 402                         else {
 403                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_min_workers\" VALUE=\"%s\">", buf);
 404                         }
 405                         break;
 406                 case 23:
 407                         if (!strcasecmp(whichmenu, "tuning")) {
 408                                 wprintf("<TR><TD>Maximum number of worker threads</TD><TD>");
 409                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_max_workers\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 410                                 wprintf("</TD></TR>\n");
 411                         }
 412                         else {
 413                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_max_workers\" VALUE=\"%s\">", buf);
 414                         }
 415                         break;
 416                 case 24:
 417                         if (!strcasecmp(whichmenu, "network")) {
 418                                 wprintf("<TR><TD>POP3 listener port (-1 to disable)</TD><TD>");
 419                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_pop3_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 420                                 wprintf("</TD></TR>\n");
 421                         }
 422                         else {
 423                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_pop3_port\" VALUE=\"%s\">", buf);
 424                         }
 425                         break;
 426                 case 25:
 427                         if (!strcasecmp(whichmenu, "network")) {
 428                                 wprintf("<TR><TD>SMTP MTA port (-1 to disable)</TD><TD>");
 429                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_smtp_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 430                                 wprintf("</TD></TR>\n");
 431                         }
 432                         else {
 433                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_smtp_port\" VALUE=\"%s\">", buf);
 434                         }
 435                         break;
 436                 case 27:
 437                         if (!strcasecmp(whichmenu, "access")) {
 438                                 wprintf("<TR><TD>Allow aides to zap (forget) rooms</TD><TD>");
 439                                 wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_aide_zap\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
 440                                 wprintf("</TD></TR>\n");
 441                         }
 442                         else {
 443                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_aide_zap\" VALUE=\"%s\">", buf);
 444                         }
 445                         break;
 446                 case 28:
 447                         if (!strcasecmp(whichmenu, "network")) {
 448                                 wprintf("<TR><TD>IMAP listener port (-1 to disable)</TD><TD>");
 449                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_imap_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 450                                 wprintf("</TD></TR>\n");
 451                         }
 452                         else {
 453                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_imap_port\" VALUE=\"%s\">", buf);
 454                         }
 455                         break;
 456                 case 29:
 457                         if (!strcasecmp(whichmenu, "network")) {
 458                                 wprintf("<TR><TD>Network run frequency (in seconds)</TD><TD>");
 459                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_net_freq\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 460                                 wprintf("</TD></TR>\n");
 461                         }
 462                         else {
 463                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_net_freq\" VALUE=\"%s\">", buf);
 464                         }
 465                         break;
 466                 case 30:
 467                         if (!strcasecmp(whichmenu, "access")) {
 468                                 wprintf("<TR><TD>Disable self-service user account creation</TD><TD>");
 469                                 wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_disable_newu\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
 470                                 wprintf("</TD></TR>\n");
 471                         }
 472                         else {
 473                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_disable_newu\" VALUE=\"%s\">", buf);
 474                         }
 475                         break;
 476                 case 31:
 477                         /* placeholder -- there is no option 31 */
 478                         break;
 479                 case 32:
 480                         if (!strcasecmp(whichmenu, "tuning")) {
 481                                 wprintf("<TR><TD>Hour to run database auto-purge</TD><TD>");
 482                                 wprintf("<SELECT NAME=\"c_purge_hour\" SIZE=\"1\">\n");
 483                                 for (j=0; j<=23; ++j) {
 484                                         wprintf("<OPTION %s VALUE=\"%d\">%d:00%s</OPTION>\n",
 485                                                 ((atoi(buf) == j) ? "SELECTED" : ""),
 486                                                 j,
 487                                                 ((j == 0) ? 12 : ((j>12) ? j-12 : j)),
 488                                                 ((j >= 12) ? "pm" : "am")
 489                                         );
 490                                 }
 491                                 wprintf("</SELECT>");
 492                                 wprintf("</TD></TR>\n");
 493                         }
 494                         else {
 495                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_purge_hour\" VALUE=\"%s\">", buf);
 496                         }
 497                         break;
 498                 case 33:
 499                         if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
 500                                 wprintf("<TR><TD>Host name of LDAP server (blank to disable)</TD><TD>");
 501                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_host\" MAXLENGTH=\"127\" VALUE=\"%s\">", buf);
 502                                 wprintf("</TD></TR>\n");
 503                         }
 504                         else {
 505                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_host\" VALUE=\"%s\">", buf);
 506                         }
 507                         break;
 508                 case 34:
 509                         if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
 510                                 wprintf("<TR><TD>Port number of LDAP server (blank to disable)</TD><TD>");
 511                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_port\" MAXLENGTH=\"127\" VALUE=\"%d\">", atoi(buf));
 512                                 wprintf("</TD></TR>\n");
 513                         }
 514                         else {
 515                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_port\" VALUE=\"%d\">", atoi(buf));
 516                         }
 517                         break;
 518                 case 35:
 519                         if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
 520                                 wprintf("<TR><TD>Base DN</TD><TD>");
 521                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_base_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 522                                 wprintf("</TD></TR>\n");
 523                         }
 524                         else {
 525                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_base_dn\" VALUE=\"%s\">", buf);
 526                         }
 527                         break;
 528                 case 36:
 529                         if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
 530                                 wprintf("<TR><TD>Bind DN</TD><TD>");
 531                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_bind_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 532                                 wprintf("</TD></TR>\n");
 533                         }
 534                         else {
 535                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_bind_dn\" VALUE=\"%s\">", buf);
 536                         }
 537                         break;
 538                 case 37:
 539                         if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
 540                                 wprintf("<TR><TD>Password for bind DN</TD><TD>");
 541                                 wprintf("<INPUT TYPE=\"password\" NAME=\"c_ldap_bind_pw\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 542                                 wprintf("</TD></TR>\n");
 543                         }
 544                         else {
 545                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_bind_pw\" VALUE=\"%s\">", buf);
 546                         }
 547                         break;
 548                 case 38:
 549                         if (!strcasecmp(whichmenu, "network")) {
 550                                 wprintf("<TR><TD>Server IP address (0.0.0.0 for 'any')</TD><TD>");
 551                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_ip_addr\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
 552                                 wprintf("</TD></TR>\n");
 553                         }
 554                         else {
 555                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ip_addr\" VALUE=\"%s\">", buf);
 556                         }
 557                         break;
 558                 case 39:
 559                         if (!strcasecmp(whichmenu, "network")) {
 560                                 wprintf("<TR><TD>SMTP MSA port (-1 to disable)</TD><TD>");
 561                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_msa_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 562                                 wprintf("</TD></TR>\n");
 563                         }
 564                         else {
 565                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_msa_port\" VALUE=\"%s\">", buf);
 566                         }
 567                         break;
 568                 case 40:
 569                         if (!strcasecmp(whichmenu, "network")) {
 570                                 wprintf("<TR><TD>IMAP over SSL port (-1 to disable)</TD><TD>");
 571                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_imaps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 572                                 wprintf("</TD></TR>\n");
 573                         }
 574                         else {
 575                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_imaps_port\" VALUE=\"%s\">", buf);
 576                         }
 577                         break;
 578                 case 41:
 579                         if (!strcasecmp(whichmenu, "network")) {
 580                                 wprintf("<TR><TD>POP3 over SSL port (-1 to disable)</TD><TD>");
 581                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_pop3s_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 582                                 wprintf("</TD></TR>\n");
 583                         }
 584                         else {
 585                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_pop3s_port\" VALUE=\"%s\">", buf);
 586                         }
 587                         break;
 588                 case 42:
 589                         if (!strcasecmp(whichmenu, "network")) {
 590                                 wprintf("<TR><TD>SMTP over SSL port (-1 to disable)</TD><TD>");
 591                                 wprintf("<INPUT TYPE=\"text\" NAME=\"c_smtps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 592                                 wprintf("</TD></TR>\n");
 593                         }
 594                         else {
 595                                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_smtps_port\" VALUE=\"%s\">", buf);
 596                         }
 597                         break;
 598                 }
 599         }
 600
 601         serv_puts("GPEX site");
 602         serv_gets(buf);
 603         if (buf[0] == '2') {
 604                 sitepolicy = extract_int(&buf[4], 0);
 605                 sitevalue = extract_int(&buf[4], 1);
 606         }
 607
 608         serv_puts("GPEX mailboxes");
 609         serv_gets(buf);
 610         if (buf[0] == '2') {
 611                 mboxpolicy = extract_int(&buf[4], 0);
 612                 mboxvalue = extract_int(&buf[4], 1);
 613         }
 614
 615         if (!strcasecmp(whichmenu, "purger")) {
 616
 617                 wprintf("<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 618
 619                 wprintf("<TR><TD>Default message expire policy for public rooms</TD><TD>");
 620                 wprintf("<INPUT TYPE=\"radio\" NAME=\"sitepolicy\" VALUE=\"1\" %s>",
 621                         ((sitepolicy == 1) ? "CHECKED" : "") );
 622                 wprintf("Never automatically expire messages<br />\n");
 623                 wprintf("<INPUT TYPE=\"radio\" NAME=\"sitepolicy\" VALUE=\"2\" %s>",
 624                         ((sitepolicy == 2) ? "CHECKED" : "") );
 625                 wprintf("Expire by message count<br />\n");
 626                 wprintf("<INPUT TYPE=\"radio\" NAME=\"sitepolicy\" VALUE=\"3\" %s>",
 627                         ((sitepolicy == 3) ? "CHECKED" : "") );
 628                 wprintf("Expire by message age<br />");
 629                 wprintf("Number of messages or days: ");
 630                 wprintf("<INPUT TYPE=\"text\" NAME=\"sitevalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", sitevalue);
 631                 wprintf("</TD></TR>\n");
 632
 633                 wprintf("<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 634
 635                 wprintf("<TR><TD>Default message expire policy for private mailboxes</TD><TD>");
 636                 wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"0\" %s>",
 637                         ((mboxpolicy == 0) ? "CHECKED" : "") );
 638                 wprintf("Same policy as public rooms<br />\n");
 639                 wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"1\" %s>",
 640                         ((mboxpolicy == 1) ? "CHECKED" : "") );
 641                 wprintf("Never automatically expire messages<br />\n");
 642                 wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"2\" %s>",
 643                         ((mboxpolicy == 2) ? "CHECKED" : "") );
 644                 wprintf("Expire by message count<br />\n");
 645                 wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"3\" %s>",
 646                         ((mboxpolicy == 3) ? "CHECKED" : "") );
 647                 wprintf("Expire by message age<br />");
 648                 wprintf("Number of messages or days: ");
 649                 wprintf("<INPUT TYPE=\"text\" NAME=\"mboxvalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", mboxvalue);
 650                 wprintf("</TD></TR>\n");
 651
 652                 wprintf("<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 653
 654         }
 655         else {
 656                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"sitepolicy\" VALUE=\"%d\">\n", sitepolicy);
 657                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"sitevalue\" VALUE=\"%d\">\n", sitevalue);
 658                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"mboxpolicy\" VALUE=\"%d\">\n", mboxpolicy);
 659                 wprintf("<INPUT TYPE=\"hidden\" NAME=\"mboxvalue\" VALUE=\"%d\">\n", mboxvalue);
 660         }
 661
 662         wprintf("</TABLE><CENTER>");
 663         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
 664         wprintf("&nbsp;");
 665         wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">\n");
 666         wprintf("</CENTER></FORM>\n");
 667         wprintf("</td></tr></table></div>\n");
 668         wDumpContent(1);
 669 }
 670
 671
 672 void siteconfig(void)
 673 {
 674         char buf[SIZ];
 675
 676         if (strcasecmp(bstr("sc"), "OK")) {
 677                 display_siteconfig();
 678                 return;
 679         }
 680         serv_printf("CONF set");
 681         serv_gets(buf);
 682         if (buf[0] != '4') {
 683                 strcpy(WC->ImportantMessage, &buf[4]);
 684                 display_siteconfig();
 685                 return;
 686         }
 687         serv_printf("%s", bstr("c_nodename"));
 688         serv_printf("%s", bstr("c_fqdn"));
 689         serv_printf("%s", bstr("c_humannode"));
 690         serv_printf("%s", bstr("c_phonenum"));
 691         serv_printf("%s", ((!strcasecmp(bstr("c_creataide"), "yes") ? "1" : "0")));
 692         serv_printf("%s", bstr("c_sleeping"));
 693         serv_printf("%s", bstr("c_initax"));
 694         serv_printf("%s", ((!strcasecmp(bstr("c_regiscall"), "yes") ? "1" : "0")));
 695         serv_printf("%s", ((!strcasecmp(bstr("c_twitdetect"), "yes") ? "1" : "0")));
 696         serv_printf("%s", bstr("c_twitroom"));
 697         serv_printf("%s", bstr("c_moreprompt"));
 698         serv_printf("%s", ((!strcasecmp(bstr("c_restrict"), "yes") ? "1" : "0")));
 699         serv_printf("%s", bstr("c_bbs_city"));
 700         serv_printf("%s", bstr("c_sysadm"));
 701         serv_printf("%s", bstr("c_maxsessions"));
 702         serv_printf("");  /* networking password -- deprecated */
 703         serv_printf("%s", bstr("c_userpurge"));
 704         serv_printf("%s", bstr("c_roompurge"));
 705         serv_printf("%s", bstr("c_logpages"));
 706         serv_printf("%s", bstr("c_createax"));
 707         serv_printf("%s", bstr("c_maxmsglen"));
 708         serv_printf("%s", bstr("c_min_workers"));
 709         serv_printf("%s", bstr("c_max_workers"));
 710         serv_printf("%s", bstr("c_pop3_port"));
 711         serv_printf("%s", bstr("c_smtp_port"));
 712         serv_printf("");  /* moderation filter level -- not yet implemented */
 713         serv_printf("%s", ((!strcasecmp(bstr("c_aide_zap"), "yes") ? "1" : "0")));
 714         serv_printf("%s", bstr("c_imap_port"));
 715         serv_printf("%s", bstr("c_net_freq"));
 716         serv_printf("%s", ((!strcasecmp(bstr("c_disable_newu"), "yes") ? "1" : "0")));
 717         serv_printf("1");       /* placeholder -- deprecated */
 718         serv_printf("%s", bstr("c_purge_hour"));
 719         serv_printf("%s", bstr("c_ldap_host"));
 720         serv_printf("%s", bstr("c_ldap_port"));
 721         serv_printf("%s", bstr("c_ldap_base_dn"));
 722         serv_printf("%s", bstr("c_ldap_bind_dn"));
 723         serv_printf("%s", bstr("c_ldap_bind_pw"));
 724         serv_printf("%s", bstr("c_ip_addr"));
 725         serv_printf("%s", bstr("c_msa_port"));
 726         serv_printf("%s", bstr("c_imaps_port"));
 727         serv_printf("%s", bstr("c_pop3s_port"));
 728         serv_printf("%s", bstr("c_smtps_port"));
 729         serv_printf("000");
 730
 731         serv_printf("SPEX site|%d|%d", atoi(bstr("sitepolicy")), atoi(bstr("sitevalue")));
 732         serv_gets(buf);
 733         serv_printf("SPEX mailboxes|%d|%d", atoi(bstr("mboxpolicy")), atoi(bstr("mboxvalue")));
 734         serv_gets(buf);
 735
 736         strcpy(WC->ImportantMessage, "System configuration has been updated.");
 737         display_siteconfig();
 738 }