* Began constructing the listserv screen for config (not tested)

diff --git a/webcit/ChangeLog b/webcit/ChangeLog
index edfe1e0dfd86657a1fcd2a7346421af1b03ee60c..d8f16b40a1130a7b6a95ede0e0fa61d95ac7a9a4 100644 (file)
--- a/webcit/ChangeLog
+++ b/webcit/ChangeLog
@@ -1,4 +1,7 @@
 $Log$
+Revision 301.15  2001/12/11 15:22:53  ajc
+* Began constructing the listserv screen for config (not tested)
+
 Revision 301.14  2001/12/11 05:37:12  ajc
 * Finished the share/unshare room screen in Edit Room
 
@@ -653,4 +656,3 @@ Sun Dec  6 19:50:55 EST 1998 Art Cancro <ajc@uncnsrd.mt-kisco.ny.us>
 
 1998-12-03 Nathan Bryant <bryant@cs.usm.maine.edu>
        * webserver.c: warning fix
-

diff --git a/webcit/roomops.c b/webcit/roomops.c
index d12643dbe88af6687875596655c871ad8f09bbce..4af0ac68eb2dee53007a551c7b9308f114628c99 100644 (file)
--- a/webcit/roomops.c
+++ b/webcit/roomops.c
@@ -602,6 +602,7 @@ void display_editroom(void)
        char buf[SIZ];
        char cmd[SIZ];
        char node[SIZ];
+       char recp[SIZ];
        char er_name[20];
        char er_password[10];
        char er_dirname[15];
@@ -927,7 +928,26 @@ void display_editroom(void)
 
        /* Mailing list management */
        if (!strcmp(tab, "listserv")) {
-               wprintf("<CENTER><I>Under construction</I></CENTER>\n");
+
+               wprintf("<center><i>The contents of this room are being "
+                       "mailed to the following list recipients:"
+                       "</i><br><br>\n");
+
+               serv_puts("GNET");
+               serv_gets(buf);
+               if (buf[0]=='1') while (serv_gets(buf), strcmp(buf, "000")) {
+                       extract(cmd, buf, 0);
+                       if (!strcasecmp(cmd, "listrecp")) {
+                               extract(recp, buf, 1);
+                       
+                               escputs(recp);
+                               wprintf(" <A HREF=\"/netedit&cmd=remove&line="
+                                       "listrecp|");
+                               urlescputs(recp);
+                               wprintf("&tab=listserv\">(remove)</A><BR>");
+
+                       }
+               }
        }
 
        wDumpContent(1);