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