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:
 294                         /* FIXME this is supposed to be c_rfc822_strict_from */
 295                         break;
 296                 case 26:
 297                         sprintf(&access[strlen(access)], "<TR><TD>");
 298                         sprintf(&access[strlen(access)], _("Allow aides to zap (forget) rooms"));
 299                         sprintf(&access[strlen(access)], "</TD><TD>");
 300                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" NAME=\"c_aide_zap\" VALUE=\"yes\" %s>",
 301                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 302                         sprintf(&access[strlen(access)], "</TD></TR>\n");
 303                         break;
 304                 case 27:
 305                         sprintf(&network[strlen(network)], "<TR><TD>");
 306                         sprintf(&network[strlen(network)], _("IMAP listener port (-1 to disable)"));
 307                         sprintf(&network[strlen(network)], "</TD><TD>");
 308                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_imap_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 309                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 310                         break;
 311                 case 28:
 312                         sprintf(&network[strlen(network)], "<TR><TD>");
 313                         sprintf(&network[strlen(network)], _("Network run frequency (in seconds)"));
 314                         sprintf(&network[strlen(network)], "</TD><TD>");
 315                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_net_freq\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 316                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 317                         break;
 318                 case 29:
 319                         sprintf(&access[strlen(access)], "<TR><TD>");
 320                         sprintf(&access[strlen(access)], _("Disable self-service user account creation"));
 321                         sprintf(&access[strlen(access)], "</TD><TD>");
 322                         sprintf(&access[strlen(access)], "<input type=\"checkbox\" NAME=\"c_disable_newu\" VALUE=\"yes\" %s>",
 323                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 324                         sprintf(&access[strlen(access)], "</TD></TR>\n");
 325                         break;
 326                 case 31:
 327                         sprintf(&purger[strlen(purger)], "<TR><TD>");
 328                         sprintf(&purger[strlen(purger)], _("Hour to run database auto-purge"));
 329                         sprintf(&purger[strlen(purger)], "</TD><TD>");
 330                         sprintf(&purger[strlen(purger)], "<SELECT NAME=\"c_purge_hour\" SIZE=\"1\">\n");
 331                         for (j=0; j<=23; ++j) {
 332                                 sprintf(&purger[strlen(purger)], "<OPTION %s VALUE=\"%d\">%d:00%s</OPTION>\n",
 333                                         ((atoi(buf) == j) ? "SELECTED" : ""),
 334                                         j,
 335                                         ((j == 0) ? 12 : ((j>12) ? j-12 : j)),
 336                                         ((j >= 12) ? "pm" : "am")
 337                                 );
 338                         }
 339                         sprintf(&purger[strlen(purger)], "</SELECT>");
 340                         sprintf(&purger[strlen(purger)], "</TD></TR>\n");
 341                         break;
 342                 case 32:
 343                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 344                         sprintf(&directory[strlen(directory)], _("Host name of LDAP server (blank to disable)"));
 345                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 346                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_host\" MAXLENGTH=\"127\" VALUE=\"%s\">", buf);
 347                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 348                         break;
 349                 case 33:
 350                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 351                         sprintf(&directory[strlen(directory)], _("Port number of LDAP server (blank to disable)"));
 352                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 353                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_port\" MAXLENGTH=\"127\" VALUE=\"%d\">", atoi(buf));
 354                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 355                         break;
 356                 case 34:
 357                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 358                         sprintf(&directory[strlen(directory)], _("Base DN"));
 359                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 360                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_base_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 361                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 362                         break;
 363                 case 35:
 364                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 365                         sprintf(&directory[strlen(directory)], _("Bind DN"));
 366                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 367                         sprintf(&directory[strlen(directory)], "<input type=\"text\" NAME=\"c_ldap_bind_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
 368                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 369                         break;
 370                 case 36:
 371                         sprintf(&directory[strlen(directory)], "<TR><TD>");
 372                         sprintf(&directory[strlen(directory)], _("Password for bind DN"));
 373                         sprintf(&directory[strlen(directory)], "</TD><TD>");
 374                         sprintf(&directory[strlen(directory)], "<input type=\"password\" NAME=\"c_ldap_bind_pw\" MAXLENGTH=\"255\" VALUE=\"%s\">",
 375                                 buf);
 376                         sprintf(&directory[strlen(directory)], "</TD></TR>\n");
 377                         break;
 378                 case 37:
 379                         sprintf(&network[strlen(network)], "<TR><TD>");
 380                         sprintf(&network[strlen(network)], _("Server IP address (0.0.0.0 for 'any')"));
 381                         sprintf(&network[strlen(network)], "</TD><TD>");
 382                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_ip_addr\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
 383                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 384                         break;
 385                 case 38:
 386                         sprintf(&network[strlen(network)], "<TR><TD>");
 387                         sprintf(&network[strlen(network)], _("SMTP MSA port (-1 to disable)"));
 388                         sprintf(&network[strlen(network)], "</TD><TD>");
 389                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_msa_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 390                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 391                         break;
 392                 case 39:
 393                         sprintf(&network[strlen(network)], "<TR><TD>");
 394                         sprintf(&network[strlen(network)], _("IMAP over SSL port (-1 to disable)"));
 395                         sprintf(&network[strlen(network)], "</TD><TD>");
 396                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_imaps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 397                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 398                         break;
 399                 case 40:
 400                         sprintf(&network[strlen(network)], "<TR><TD>");
 401                         sprintf(&network[strlen(network)], _("POP3 over SSL port (-1 to disable)"));
 402                         sprintf(&network[strlen(network)], "</TD><TD>");
 403                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_pop3s_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 404                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 405                         break;
 406                 case 41:
 407                         sprintf(&network[strlen(network)], "<TR><TD>");
 408                         sprintf(&network[strlen(network)], _("SMTP over SSL port (-1 to disable)"));
 409                         sprintf(&network[strlen(network)], "</TD><TD>");
 410                         sprintf(&network[strlen(network)], "<input type=\"text\" NAME=\"c_smtps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
 411                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 412                         break;
 413                 case 42:
 414                                 sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 415                                 sprintf(&idxjnl[strlen(idxjnl)], _("Enable full text index"));
 416                                 sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 417                                 sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"checkbox\" NAME=\"c_enable_fulltext\" VALUE=\"yes\" %s>",
 418                                         ((atoi(buf) != 0) ? "CHECKED" : ""));
 419                                 sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 420                         break;
 421                 case 43:
 422                         sprintf(&tuning[strlen(tuning)], "<TR><TD>");
 423                         sprintf(&tuning[strlen(tuning)], _("Automatically delete committed database logs"));
 424                         sprintf(&tuning[strlen(tuning)], "</TD><TD>");
 425                         sprintf(&tuning[strlen(tuning)], "<input type=\"checkbox\" NAME=\"c_auto_cull\" VALUE=\"yes\" %s>",
 426                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 427                         sprintf(&tuning[strlen(tuning)], "</TD></TR>\n");
 428                         break;
 429                 case 44:
 430                         sprintf(&network[strlen(network)], "<TR><TD>");
 431                         sprintf(&network[strlen(network)], _("Instantly expunge deleted messages in IMAP"));
 432                         sprintf(&network[strlen(network)], "</TD><TD>");
 433                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_instant_expunge\" VALUE=\"yes\" %s>",
 434                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 435                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 436                         break;
 437                 case 45:
 438                         sprintf(&network[strlen(network)], "<TR><TD>");
 439                         sprintf(&network[strlen(network)], _("Allow unauthenticated SMTP clients to spoof this site's domains"));
 440                         sprintf(&network[strlen(network)], "</TD><TD>");
 441                         sprintf(&network[strlen(network)], "<input type=\"checkbox\" NAME=\"c_allow_spoofing\" VALUE=\"yes\" %s>",
 442                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 443                         sprintf(&network[strlen(network)], "</TD></TR>\n");
 444                         break;
 445                 case 46:
 446                         sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 447                         sprintf(&idxjnl[strlen(idxjnl)], _("Perform journaling of email messages"));
 448                         sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 449                         sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"checkbox\" NAME=\"c_journal_email\" VALUE=\"yes\" %s>",
 450                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 451                         sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 452                         break;
 453                 case 47:
 454                         sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 455                         sprintf(&idxjnl[strlen(idxjnl)], _("Perform journaling of non-email messages"));
 456                         sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 457                         sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"checkbox\" NAME=\"c_journal_pubmsgs\" VALUE=\"yes\" %s>",
 458                                 ((atoi(buf) != 0) ? "CHECKED" : ""));
 459                         sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 460                         break;
 461                 case 48:
 462                         sprintf(&idxjnl[strlen(idxjnl)], "<TR><TD>");
 463                         sprintf(&idxjnl[strlen(idxjnl)], _("Email destination of journalized messages"));
 464                         sprintf(&idxjnl[strlen(idxjnl)], "</TD><TD>");
 465                         sprintf(&idxjnl[strlen(idxjnl)], "<input type=\"text\" NAME=\"c_journal_dest\" MAXLENGTH=\"127\" VALUE=\"%s\">", buf);
 466                         sprintf(&idxjnl[strlen(idxjnl)], "</TD></TR>\n");
 467                         break;
 468                 }
 469         }
 470
 471         serv_puts("GPEX site");
 472         serv_getln(buf, sizeof buf);
 473         if (buf[0] == '2') {
 474                 sitepolicy = extract_int(&buf[4], 0);
 475                 sitevalue = extract_int(&buf[4], 1);
 476         }
 477
 478         serv_puts("GPEX mailboxes");
 479         serv_getln(buf, sizeof buf);
 480         if (buf[0] == '2') {
 481                 mboxpolicy = extract_int(&buf[4], 0);
 482                 mboxvalue = extract_int(&buf[4], 1);
 483         }
 484
 485
 486         sprintf(&purger[strlen(purger)], "<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 487
 488         sprintf(&purger[strlen(purger)], "<TR><TD>");
 489         sprintf(&purger[strlen(purger)], _("Default message expire policy for public rooms"));
 490         sprintf(&purger[strlen(purger)], "</TD><TD>");
 491         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"sitepolicy\" VALUE=\"1\" %s>",
 492                 ((sitepolicy == 1) ? "CHECKED" : "") );
 493         sprintf(&purger[strlen(purger)], _("Never automatically expire messages"));
 494         sprintf(&purger[strlen(purger)], "<br />\n");
 495         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"sitepolicy\" VALUE=\"2\" %s>",
 496                 ((sitepolicy == 2) ? "CHECKED" : "") );
 497         sprintf(&purger[strlen(purger)], _("Expire by message count"));
 498         sprintf(&purger[strlen(purger)], "<br />\n");
 499         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"sitepolicy\" VALUE=\"3\" %s>",
 500                 ((sitepolicy == 3) ? "CHECKED" : "") );
 501         sprintf(&purger[strlen(purger)], _("Expire by message age"));
 502         sprintf(&purger[strlen(purger)], "<br />");
 503         sprintf(&purger[strlen(purger)], _("Number of messages or days: "));
 504         sprintf(&purger[strlen(purger)], "<input type=\"text\" NAME=\"sitevalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", sitevalue);
 505         sprintf(&purger[strlen(purger)], "</TD></TR>\n");
 506
 507         sprintf(&purger[strlen(purger)], "<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 508
 509         sprintf(&purger[strlen(purger)], "<TR><TD>");
 510         sprintf(&purger[strlen(purger)], _("Default message expire policy for private mailboxes"));
 511         sprintf(&purger[strlen(purger)], "</TD><TD>");
 512         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"0\" %s>",
 513                 ((mboxpolicy == 0) ? "CHECKED" : "") );
 514         sprintf(&purger[strlen(purger)], _("Same policy as public rooms"));
 515         sprintf(&purger[strlen(purger)], "<br />\n");
 516         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"1\" %s>",
 517                         ((mboxpolicy == 1) ? "CHECKED" : "") );
 518         sprintf(&purger[strlen(purger)], _("Never automatically expire messages"));
 519         sprintf(&purger[strlen(purger)], "<br />\n");
 520         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"2\" %s>",
 521                 ((mboxpolicy == 2) ? "CHECKED" : "") );
 522         sprintf(&purger[strlen(purger)], _("Expire by message count"));
 523         sprintf(&purger[strlen(purger)], "<br />\n");
 524         sprintf(&purger[strlen(purger)], "<input type=\"radio\" NAME=\"mboxpolicy\" VALUE=\"3\" %s>",
 525                 ((mboxpolicy == 3) ? "CHECKED" : "") );
 526         sprintf(&purger[strlen(purger)], _("Expire by message age"));
 527         sprintf(&purger[strlen(purger)], "<br />");
 528         sprintf(&purger[strlen(purger)], _("Number of messages or days: "));
 529         sprintf(&purger[strlen(purger)], "<input type=\"text\" NAME=\"mboxvalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", mboxvalue);
 530         sprintf(&purger[strlen(purger)], "</TD></TR>\n");
 531
 532         sprintf(&purger[strlen(purger)], "<TR><TD COLSPAN=2><hr /></TD></TR>\n");
 533
 534
 535         sprintf(&general[strlen(general)], "</table>");
 536         sprintf(&access[strlen(access)], "</table>");
 537         sprintf(&network[strlen(network)], "</table>");
 538         sprintf(&tuning[strlen(tuning)], "</table>");
 539         sprintf(&directory[strlen(directory)], "</table>");
 540         sprintf(&purger[strlen(purger)], "</table>");
 541         sprintf(&idxjnl[strlen(idxjnl)], "</table>");
 542
 543         tabbed_dialog(7, tabnames);
 544
 545         begin_tab(0, 7);        wprintf("%s", general);          end_tab(0, 7);
 546         begin_tab(1, 7);        wprintf("%s", access);           end_tab(1, 7);
 547         begin_tab(2, 7);        wprintf("%s", network);          end_tab(2, 7);
 548         begin_tab(3, 7);        wprintf("%s", tuning);           end_tab(3, 7);
 549         begin_tab(4, 7);        wprintf("%s", directory);        end_tab(4, 7);
 550         begin_tab(5, 7);        wprintf("%s", purger);           end_tab(5, 7);
 551         begin_tab(6, 7);        wprintf("%s", idxjnl);   end_tab(6, 7);
 552
 553         wprintf("<div align=\"center\"><br>");
 554         wprintf("<input type=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">", _("Save changes"));
 555         wprintf("&nbsp;");
 556         wprintf("<input type=\"submit\" NAME=\"cancel_button\" VALUE=\"%s\">\n", _("Cancel"));
 557         wprintf("</div></FORM>\n");
 558         wprintf("</td></tr></table></div>\n");
 559         wDumpContent(1);
 560 }
 561
 562
 563 void siteconfig(void)
 564 {
 565         char buf[256];
 566
 567         if (strlen(bstr("ok_button")) == 0) {
 568                 display_aide_menu();
 569                 return;
 570         }
 571         serv_printf("CONF set");
 572         serv_getln(buf, sizeof buf);
 573         if (buf[0] != '4') {
 574                 safestrncpy(WC->ImportantMessage, &buf[4], sizeof WC->ImportantMessage);
 575                 display_aide_menu();
 576                 return;
 577         }
 578         serv_printf("%s", bstr("c_nodename"));
 579         serv_printf("%s", bstr("c_fqdn"));
 580         serv_printf("%s", bstr("c_humannode"));
 581         serv_printf("%s", bstr("c_phonenum"));
 582         serv_printf("%s", ((!strcasecmp(bstr("c_creataide"), "yes") ? "1" : "0")));
 583         serv_printf("%s", bstr("c_sleeping"));
 584         serv_printf("%s", bstr("c_initax"));
 585         serv_printf("%s", ((!strcasecmp(bstr("c_regiscall"), "yes") ? "1" : "0")));
 586         serv_printf("%s", ((!strcasecmp(bstr("c_twitdetect"), "yes") ? "1" : "0")));
 587         serv_printf("%s", bstr("c_twitroom"));
 588         serv_printf("%s", bstr("c_moreprompt"));
 589         serv_printf("%s", ((!strcasecmp(bstr("c_restrict"), "yes") ? "1" : "0")));
 590         serv_printf("%s", bstr("c_bbs_city"));
 591         serv_printf("%s", bstr("c_sysadm"));
 592         serv_printf("%s", bstr("c_maxsessions"));
 593         serv_printf("");  /* placeholder - this field is not in use */
 594         serv_printf("%s", bstr("c_userpurge"));
 595         serv_printf("%s", bstr("c_roompurge"));
 596         serv_printf("%s", bstr("c_logpages"));
 597         serv_printf("%s", bstr("c_createax"));
 598         serv_printf("%s", bstr("c_maxmsglen"));
 599         serv_printf("%s", bstr("c_min_workers"));
 600         serv_printf("%s", bstr("c_max_workers"));
 601         serv_printf("%s", bstr("c_pop3_port"));
 602         serv_printf("%s", bstr("c_smtp_port"));
 603         serv_printf("");  /* FIXME this is supposed to be c_rfc822_strict_from */
 604         serv_printf("%s", ((!strcasecmp(bstr("c_aide_zap"), "yes") ? "1" : "0")));
 605         serv_printf("%s", bstr("c_imap_port"));
 606         serv_printf("%s", bstr("c_net_freq"));
 607         serv_printf("%s", ((!strcasecmp(bstr("c_disable_newu"), "yes") ? "1" : "0")));
 608         serv_printf("1"); /* placeholder - this field is not in use */
 609         serv_printf("%s", bstr("c_purge_hour"));
 610         serv_printf("%s", bstr("c_ldap_host"));
 611         serv_printf("%s", bstr("c_ldap_port"));
 612         serv_printf("%s", bstr("c_ldap_base_dn"));
 613         serv_printf("%s", bstr("c_ldap_bind_dn"));
 614         serv_printf("%s", bstr("c_ldap_bind_pw"));
 615         serv_printf("%s", bstr("c_ip_addr"));
 616         serv_printf("%s", bstr("c_msa_port"));
 617         serv_printf("%s", bstr("c_imaps_port"));
 618         serv_printf("%s", bstr("c_pop3s_port"));
 619         serv_printf("%s", bstr("c_smtps_port"));
 620         serv_printf("%s", ((!strcasecmp(bstr("c_enable_fulltext"), "yes") ? "1" : "0")));
 621         serv_printf("%s", ((!strcasecmp(bstr("c_auto_cull"), "yes") ? "1" : "0")));
 622         serv_printf("%s", ((!strcasecmp(bstr("c_instant_expunge"), "yes") ? "1" : "0")));
 623         serv_printf("%s", ((!strcasecmp(bstr("c_allow_spoofing"), "yes") ? "1" : "0")));
 624         serv_printf("%s", ((!strcasecmp(bstr("c_journal_email"), "yes") ? "1" : "0")));
 625         serv_printf("%s", ((!strcasecmp(bstr("c_journal_pubmsgs"), "yes") ? "1" : "0")));
 626         serv_printf("%s", bstr("c_journal_dest"));
 627         serv_printf("000");
 628
 629         serv_printf("SPEX site|%d|%d", atoi(bstr("sitepolicy")), atoi(bstr("sitevalue")));
 630         serv_getln(buf, sizeof buf);
 631         serv_printf("SPEX mailboxes|%d|%d", atoi(bstr("mboxpolicy")), atoi(bstr("mboxvalue")));
 632         serv_getln(buf, sizeof buf);
 633
 634         safestrncpy(WC->ImportantMessage, _("Your system configuration has been updated."),
 635                 sizeof WC->ImportantMessage);
 636         display_aide_menu();
 637 }