/*
+ * $Id$
+ *
* Administrative screen for site-wide configuration
*
*/
{
char buf[SIZ];
char *whichmenu;
- int i;
+ int i, j;
- output_headers(3);
+ /* expire policy settings */
+ int sitepolicy = 0;
+ int sitevalue = 0;
+ int mboxpolicy = 0;
+ int mboxvalue = 0;
- whichmenu = bstr("whichmenu");
+ output_headers(1, 1, 2, 0, 0, 0, 0);
+ wprintf("<div id=\"banner\">\n"
+ "<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>"
+ "<SPAN CLASS=\"titlebar\">Site configuration</SPAN>"
+ "</TD></TR></TABLE>\n"
+ "</div>\n<div id=\"content\">\n"
+ );
- svprintf("BOXTITLE", WCS_STRING, "Site configuration");
- do_template("beginbox");
+ wprintf("<center><table border=0 width=99%% bgcolor=\"#ffffff\"><tr><td>");
+
+ whichmenu = bstr("whichmenu");
if (!strcmp(whichmenu, "")) {
wprintf("<TABLE border=0 cellspacing=0 cellpadding=3 width=100%%>\n");
wprintf("<TR BGCOLOR=\"#CCCCCC\"><TD>"
- "</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=general\">"
"<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
"SRC=\"/static/advanced-icon.gif\" ALT=\" \">"
"</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=general\">"
- "<B>General</B><BR>"
+ "<B>General</B><br />"
"General site configuration items"
"</A></TD></TR>\n"
);
wprintf("<TR><TD>"
- "</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=access\">"
"<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
"SRC=\"/static/advanced-icon.gif\" ALT=\" \">"
"</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=access\">"
- "<B>Access</B><BR>"
+ "<B>Access</B><br />"
"Access controls and site policy settings"
"</A></TD></TR>\n"
);
wprintf("<TR BGCOLOR=\"#CCCCCC\"><TD>"
- "</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=network\">"
"<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
"SRC=\"/static/advanced-icon.gif\" ALT=\" \">"
"</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=network\">"
- "<B>Network</B><BR>"
+ "<B>Network</B><br />"
"Network services"
"</A></TD></TR>\n"
);
wprintf("<TR><TD>"
- "</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=tuning\">"
"<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
"SRC=\"/static/advanced-icon.gif\" ALT=\" \">"
"</TD><TD>"
"<A HREF=\"/display_siteconfig?whichmenu=tuning\">"
- "<B>Tuning</B><BR>"
+ "<B>Tuning</B><br />"
"Advanced server fine-tuning controls"
"</A></TD></TR>\n"
);
- wprintf("</TABLE>");
+ wprintf("<TR BGCOLOR=\"#CCCCCC\"><TD>"
+ "<A HREF=\"/display_siteconfig?whichmenu=ldap\">"
+ "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
+ "SRC=\"/static/advanced-icon.gif\" ALT=\" \">"
+ "</TD><TD>"
+ "<A HREF=\"/display_siteconfig?whichmenu=ldap\">"
+ "<B>Directory</B><br />"
+ "Configure the LDAP connector for Citadel"
+ "</A></TD></TR>\n"
+ );
- do_template("endbox");
+ wprintf("<TR><TD>"
+ "<A HREF=\"/display_siteconfig?whichmenu=purger\">"
+ "<IMG BORDER=\"0\" WIDTH=\"48\" HEIGHT=\"48\" "
+ "SRC=\"/static/advanced-icon.gif\" ALT=\" \">"
+ "</TD><TD>"
+ "<A HREF=\"/display_siteconfig?whichmenu=purger\">"
+ "<B>Auto-purger</B><br />"
+ "Configure automatic expiry of old messages"
+ "</A></TD></TR>\n"
+ );
+
+ wprintf("</TABLE>");
+ wprintf("</td></tr></table></center>\n");
wDumpContent(1);
return;
}
}
if (!strcasecmp(whichmenu, "network")) {
- wprintf("<CENTER><H2>Network services</H2></CENTER>\n");
+ wprintf("<CENTER><H2>Network services</H2>"
+ "Changes made on this screen will not take effect until you restart the Citadel server."
+ "</CENTER>\n");
}
if (!strcasecmp(whichmenu, "tuning")) {
wprintf("<CENTER><H2>Advanced server fine-tuning controls</H2></CENTER>\n");
}
+ if (!strcasecmp(whichmenu, "ldap")) {
+ wprintf("<CENTER><H2>Citadel LDAP connector configuration</H2>"
+ "Changes made on this screen will not take effect until you restart the Citadel server."
+ "</CENTER>\n");
+ }
+
+ if (!strcasecmp(whichmenu, "purger")) {
+ wprintf("<CENTER><H2>Message auto-purger settings</H2>"
+ "These settings may be overridden on a per-floor or per-room basis."
+ "</CENTER>\n");
+ }
+
serv_printf("CONF get");
serv_gets(buf);
if (buf[0] != '1') {
- wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#770000\"><TR><TD>");
+ wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
wprintf("<SPAN CLASS=\"titlebar\">Error</SPAN>\n");
- wprintf("</TD></TR></TABLE><BR>\n");
- wprintf("%s<BR>\n", &buf[4]);
+ wprintf("</TD></TR></TABLE><br />\n");
+ wprintf("%s<br />\n", &buf[4]);
do_template("endbox");
wDumpContent(1);
return;
}
-
wprintf("<FORM METHOD=\"POST\" ACTION=\"/siteconfig\">\n");
wprintf("<TABLE border=0>\n");
case 7:
if (!strcasecmp(whichmenu, "access")) {
wprintf("<TR><TD>Initial access level for new users</TD><TD>");
- wprintf("<INPUT TYPE=\"text\" NAME=\"c_initax\" MAXLENGTH=\"1\" VALUE=\"%s\">", buf);
+ wprintf("<SELECT NAME=\"c_initax\" SIZE=\"1\">\n");
+ for (j=0; j<=6; ++j) {
+ wprintf("<OPTION %s VALUE=\"%d\">%d - %s</OPTION>\n",
+ ((atoi(buf) == j) ? "SELECTED" : ""),
+ j, j, axdefs[j]
+ );
+ }
+ wprintf("</SELECT>");
wprintf("</TD></TR>\n");
}
else {
break;
case 15:
if (!strcasecmp(whichmenu, "tuning")) {
- wprintf("<TR><TD>Maximum concurrent sessions</TD><TD>");
+ wprintf("<TR><TD>Maximum concurrent sessions (0 = no limit)</TD><TD>");
wprintf("<INPUT TYPE=\"text\" NAME=\"c_maxsessions\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
wprintf("</TD></TR>\n");
}
case 20:
if (!strcasecmp(whichmenu, "access")) {
wprintf("<TR><TD>Access level required to create rooms</TD><TD>");
- wprintf("<INPUT TYPE=\"text\" NAME=\"c_createax\" MAXLENGTH=\"1\" VALUE=\"%s\">", buf);
+ wprintf("<SELECT NAME=\"c_createax\" SIZE=\"1\">\n");
+ for (j=0; j<=6; ++j) {
+ wprintf("<OPTION %s VALUE=\"%d\">%d - %s</OPTION>\n",
+ ((atoi(buf) == j) ? "SELECTED" : ""),
+ j, j, axdefs[j]
+ );
+ }
+ wprintf("</SELECT>");
wprintf("</TD></TR>\n");
}
else {
break;
case 25:
if (!strcasecmp(whichmenu, "network")) {
- wprintf("<TR><TD>SMTP listener port (-1 to disable)</TD><TD>");
+ wprintf("<TR><TD>SMTP MTA port (-1 to disable)</TD><TD>");
wprintf("<INPUT TYPE=\"text\" NAME=\"c_smtp_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
wprintf("</TD></TR>\n");
}
}
break;
case 31:
- if (!strcasecmp(whichmenu, "access")) {
- wprintf("<TR><TD>Allow system Aides access to mailboxes</TD><TD>");
- wprintf("<INPUT TYPE=\"checkbox\" NAME=\"c_aide_mailboxes\" VALUE=\"yes\" %s>", ((atoi(buf) != 0) ? "CHECKED" : ""));
+ /* placeholder -- there is no option 31 */
+ break;
+ case 32:
+ if (!strcasecmp(whichmenu, "tuning")) {
+ wprintf("<TR><TD>Hour to run database auto-purge</TD><TD>");
+ wprintf("<SELECT NAME=\"c_purge_hour\" SIZE=\"1\">\n");
+ for (j=0; j<=23; ++j) {
+ wprintf("<OPTION %s VALUE=\"%d\">%d:00%s</OPTION>\n",
+ ((atoi(buf) == j) ? "SELECTED" : ""),
+ j,
+ ((j == 0) ? 12 : ((j>12) ? j-12 : j)),
+ ((j >= 12) ? "pm" : "am")
+ );
+ }
+ wprintf("</SELECT>");
wprintf("</TD></TR>\n");
}
else {
- wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_aide_mailboxes\" VALUE=\"%s\">", buf);
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_purge_hour\" VALUE=\"%s\">", buf);
}
break;
- case 32:
- if (!strcasecmp(whichmenu, "tuning")) {
- wprintf("<TR><TD>Hour to run database auto-purge (0-23)</TD><TD>");
- wprintf("<INPUT TYPE=\"text\" NAME=\"c_purge_hour\" MAXLENGTH=\"2\" VALUE=\"%s\">", buf);
+ case 33:
+ if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
+ wprintf("<TR><TD>Host name of LDAP server (blank to disable)</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_host\" MAXLENGTH=\"127\" VALUE=\"%s\">", buf);
wprintf("</TD></TR>\n");
}
else {
- wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_purge_hour\" VALUE=\"%s\">", buf);
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_host\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 34:
+ if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
+ wprintf("<TR><TD>Port number of LDAP server (blank to disable)</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_port\" MAXLENGTH=\"127\" VALUE=\"%d\">", atoi(buf));
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_port\" VALUE=\"%d\">", atoi(buf));
+ }
+ break;
+ case 35:
+ if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
+ wprintf("<TR><TD>Base DN</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_base_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_base_dn\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 36:
+ if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
+ wprintf("<TR><TD>Bind DN</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_ldap_bind_dn\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_bind_dn\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 37:
+ if ( (serv_info.serv_supports_ldap) && (!strcasecmp(whichmenu, "ldap")) ) {
+ wprintf("<TR><TD>Password for bind DN</TD><TD>");
+ wprintf("<INPUT TYPE=\"password\" NAME=\"c_ldap_bind_pw\" MAXLENGTH=\"255\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ldap_bind_pw\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 38:
+ if (!strcasecmp(whichmenu, "network")) {
+ wprintf("<TR><TD>Server IP address (0.0.0.0 for 'any')</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_ip_addr\" MAXLENGTH=\"15\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_ip_addr\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 39:
+ if (!strcasecmp(whichmenu, "network")) {
+ wprintf("<TR><TD>SMTP MSA port (-1 to disable)</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_msa_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_msa_port\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 40:
+ if (!strcasecmp(whichmenu, "network")) {
+ wprintf("<TR><TD>IMAP over SSL port (-1 to disable)</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_imaps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_imaps_port\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 41:
+ if (!strcasecmp(whichmenu, "network")) {
+ wprintf("<TR><TD>POP3 over SSL port (-1 to disable)</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_pop3s_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_pop3s_port\" VALUE=\"%s\">", buf);
+ }
+ break;
+ case 42:
+ if (!strcasecmp(whichmenu, "network")) {
+ wprintf("<TR><TD>SMTP over SSL port (-1 to disable)</TD><TD>");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"c_smtps_port\" MAXLENGTH=\"5\" VALUE=\"%s\">", buf);
+ wprintf("</TD></TR>\n");
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"c_smtps_port\" VALUE=\"%s\">", buf);
}
break;
}
}
+ serv_puts("GPEX site");
+ serv_gets(buf);
+ if (buf[0] == '2') {
+ sitepolicy = extract_int(&buf[4], 0);
+ sitevalue = extract_int(&buf[4], 1);
+ }
+
+ serv_puts("GPEX mailboxes");
+ serv_gets(buf);
+ if (buf[0] == '2') {
+ mboxpolicy = extract_int(&buf[4], 0);
+ mboxvalue = extract_int(&buf[4], 1);
+ }
+
+ if (!strcasecmp(whichmenu, "purger")) {
+
+ wprintf("<TR><TD COLSPAN=2><hr /></TD></TR>\n");
+
+ wprintf("<TR><TD>Default message expire policy for public rooms</TD><TD>");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"sitepolicy\" VALUE=\"1\" %s>",
+ ((sitepolicy == 1) ? "CHECKED" : "") );
+ wprintf("Never automatically expire messages<br />\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"sitepolicy\" VALUE=\"2\" %s>",
+ ((sitepolicy == 2) ? "CHECKED" : "") );
+ wprintf("Expire by message count<br />\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"sitepolicy\" VALUE=\"3\" %s>",
+ ((sitepolicy == 3) ? "CHECKED" : "") );
+ wprintf("Expire by message age<br />");
+ wprintf("Number of messages or days: ");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"sitevalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", sitevalue);
+ wprintf("</TD></TR>\n");
+
+ wprintf("<TR><TD COLSPAN=2><hr /></TD></TR>\n");
+
+ wprintf("<TR><TD>Default message expire policy for private mailboxes</TD><TD>");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"0\" %s>",
+ ((mboxpolicy == 0) ? "CHECKED" : "") );
+ wprintf("Same policy as public rooms<br />\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"1\" %s>",
+ ((mboxpolicy == 1) ? "CHECKED" : "") );
+ wprintf("Never automatically expire messages<br />\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"2\" %s>",
+ ((mboxpolicy == 2) ? "CHECKED" : "") );
+ wprintf("Expire by message count<br />\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"mboxpolicy\" VALUE=\"3\" %s>",
+ ((mboxpolicy == 3) ? "CHECKED" : "") );
+ wprintf("Expire by message age<br />");
+ wprintf("Number of messages or days: ");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"mboxvalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", mboxvalue);
+ wprintf("</TD></TR>\n");
+
+ wprintf("<TR><TD COLSPAN=2><hr /></TD></TR>\n");
+
+ }
+ else {
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"sitepolicy\" VALUE=\"%d\">\n", sitepolicy);
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"sitevalue\" VALUE=\"%d\">\n", sitevalue);
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"mboxpolicy\" VALUE=\"%d\">\n", mboxpolicy);
+ wprintf("<INPUT TYPE=\"hidden\" NAME=\"mboxvalue\" VALUE=\"%d\">\n", mboxvalue);
+ }
+
wprintf("</TABLE><CENTER>");
wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
+ wprintf(" ");
wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">\n");
wprintf("</CENTER></FORM>\n");
- do_template("endbox");
+ wprintf("</td></tr></table></center>\n");
wDumpContent(1);
}
serv_printf("%s", ((!strcasecmp(bstr("c_aide_zap"), "yes") ? "1" : "0")));
serv_printf("%s", bstr("c_imap_port"));
serv_printf("%s", bstr("c_net_freq"));
- serv_printf("%s", bstr("c_disable_newu"));
- serv_printf("%s", bstr("c_aide_mailboxes"));
+ serv_printf("%s", ((!strcasecmp(bstr("c_disable_newu"), "yes") ? "1" : "0")));
+ serv_printf("1"); /* placeholder -- deprecated */
serv_printf("%s", bstr("c_purge_hour"));
+ serv_printf("%s", bstr("c_ldap_host"));
+ serv_printf("%s", bstr("c_ldap_port"));
+ serv_printf("%s", bstr("c_ldap_base_dn"));
+ serv_printf("%s", bstr("c_ldap_bind_dn"));
+ serv_printf("%s", bstr("c_ldap_bind_pw"));
+ serv_printf("%s", bstr("c_ip_addr"));
+ serv_printf("%s", bstr("c_msa_port"));
+ serv_printf("%s", bstr("c_imaps_port"));
+ serv_printf("%s", bstr("c_pop3s_port"));
+ serv_printf("%s", bstr("c_smtps_port"));
serv_printf("000");
+
+ serv_printf("SPEX site|%d|%d", atoi(bstr("sitepolicy")), atoi(bstr("sitevalue")));
+ serv_gets(buf);
+ serv_printf("SPEX mailboxes|%d|%d", atoi(bstr("mboxpolicy")), atoi(bstr("mboxvalue")));
+ serv_gets(buf);
+
strcpy(WC->ImportantMessage, "System configuration has been updated.");
display_siteconfig();
}