+
+ /* Mailing list management */
+ if (!strcmp(tab, "expire")) {
+
+ serv_puts("GPEX room");
+ serv_gets(buf);
+ if (buf[0] == '2') {
+ roompolicy = extract_int(&buf[4], 0);
+ roomvalue = extract_int(&buf[4], 1);
+ }
+
+ serv_puts("GPEX floor");
+ serv_gets(buf);
+ if (buf[0] == '2') {
+ floorpolicy = extract_int(&buf[4], 0);
+ floorvalue = extract_int(&buf[4], 1);
+ }
+
+ wprintf("<BR><FORM METHOD=\"POST\" ACTION=\"/set_room_policy\">\n");
+ wprintf("<TABLE border=0 cellspacing=5>\n");
+ wprintf("<TR><TD>Message expire policy for this room<BR>(");
+ escputs(WC->wc_roomname);
+ wprintf(")</TD><TD>");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"roompolicy\" VALUE=\"0\" %s>",
+ ((roompolicy == 0) ? "CHECKED" : "") );
+ wprintf("Use the default policy for this floor<BR>\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"roompolicy\" VALUE=\"1\" %s>",
+ ((roompolicy == 1) ? "CHECKED" : "") );
+ wprintf("Never automatically expire messages<BR>\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"roompolicy\" VALUE=\"2\" %s>",
+ ((roompolicy == 2) ? "CHECKED" : "") );
+ wprintf("Expire by message count<BR>\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"roompolicy\" VALUE=\"3\" %s>",
+ ((roompolicy == 3) ? "CHECKED" : "") );
+ wprintf("Expire by message age<BR>");
+ wprintf("Number of messages or days: ");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"roomvalue\" MAXLENGTH=\"5\" VALUE=\"%d\">", roomvalue);
+ wprintf("</TD></TR>\n");
+
+ if (WC->axlevel >= 6) {
+ wprintf("<TR><TD COLSPAN=2><HR></TD></TR>\n");
+ wprintf("<TR><TD>Message expire policy for this floor<BR>(");
+ escputs(floorlist[WC->wc_floor]);
+ wprintf(")</TD><TD>");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"floorpolicy\" VALUE=\"0\" %s>",
+ ((floorpolicy == 0) ? "CHECKED" : "") );
+ wprintf("Use the system default<BR>\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"floorpolicy\" VALUE=\"1\" %s>",
+ ((floorpolicy == 1) ? "CHECKED" : "") );
+ wprintf("Never automatically expire messages<BR>\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"floorpolicy\" VALUE=\"2\" %s>",
+ ((floorpolicy == 2) ? "CHECKED" : "") );
+ wprintf("Expire by message count<BR>\n");
+ wprintf("<INPUT TYPE=\"radio\" NAME=\"floorpolicy\" VALUE=\"3\" %s>",
+ ((floorpolicy == 3) ? "CHECKED" : "") );
+ wprintf("Expire by message age<BR>");
+ wprintf("Number of messages or days: ");
+ wprintf("<INPUT TYPE=\"text\" NAME=\"floorvalue\" MAXLENGTH=\"5\" VALUE=\"%d\">",
+ floorvalue);
+ }
+
+ wprintf("<CENTER>\n");
+ wprintf("<TR><TD COLSPAN=2><HR><CENTER>\n");
+ wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"OK\">");
+ wprintf(" ");
+ wprintf("<INPUT TYPE=\"submit\" NAME=\"sc\" VALUE=\"Cancel\">");
+ wprintf("</CENTER></TD><TR>\n");
+
+ wprintf("</TABLE>\n"
+ "<INPUT TYPE=\"hidden\" NAME=\"tab\" VALUE=\"expire\">\n"
+ "</FORM>\n"
+ );
+
+ }
+
+