webcit/siteconfig.c

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