* Finished all of the subscribe/unsubscribe/confirm stuff! (I think)

[citadel.git] / webcit / listsub.c

diff --git a/webcit/listsub.c b/webcit/listsub.c
index c58a7bad199dbfc989219140620c0692f6c56989..40b87a162e6a020e108519a9f4d3fc58b666f587 100644 (file)
--- a/webcit/listsub.c
+++ b/webcit/listsub.c
@@ -33,6 +33,8 @@ void do_listsub(void)
        char subtype[SIZ];
 
        char buf[SIZ];
+       int self;
+       char sroom[SIZ];
 
        strcpy(WC->wc_username, "");
        strcpy(WC->wc_password, "");
@@ -57,9 +59,10 @@ void do_listsub(void)
         * Subscribe command
         */
        if (!strcasecmp(cmd, "subscribe")) {
-               serv_printf("SUBS subscribe|%s|%s|digest|%s/listsub",
+               serv_printf("SUBS subscribe|%s|%s|%s|%s/listsub",
                        room,
                        email,
+                       subtype,
                        WC->http_host
                );
                serv_gets(buf);
@@ -74,7 +77,8 @@ void do_listsub(void)
                                "Web link for you to click on to confirm "
                                "your subscription.  This extra step is for "
                                "your protection, as it prevents others from "
-                               "being able to subscribe you to lists.<BR><BR>"
+                               "being able to subscribe you to lists "
+                               "without your consent.<BR><BR>"
                                "Please click on the link which is being "
                                "e-mailed to you and your subscription will "
                                "be confirmed.<BR></CENTER>\n"
@@ -87,7 +91,61 @@ void do_listsub(void)
                        goto FORM;
                }
        }
-       
+
+       /*
+        * Unsubscribe command
+        */
+       else if (!strcasecmp(cmd, "unsubscribe")) {
+               serv_printf("SUBS unsubscribe|%s|%s|%s/listsub",
+                       room,
+                       email,
+                       WC->http_host
+               );
+               serv_gets(buf);
+               if (buf[0] == '2') {
+                       wprintf("<CENTER><H1>Confirmation request sent</H1>"
+                               "You are unsubscribing <TT>");
+                       escputs(email);
+                       wprintf("</TT> from the &quot;");
+                       escputs(room);
+                       wprintf("&quot; mailing list.  The listserver has "
+                               "sent you an e-mail with one additional "
+                               "Web link for you to click on to confirm "
+                               "your unsubscription.  This extra step is for "
+                               "your protection, as it prevents others from "
+                               "being able to unsubscribe you from "
+                               "lists without your consent.<BR><BR>"
+                               "Please click on the link which is being "
+                               "e-mailed to you and your unsubscription will "
+                               "be confirmed.<BR></CENTER>\n"
+                       );
+               }
+               else {
+                       wprintf("<FONT SIZE=+1><B>ERROR: %s</B>"
+                               "</FONT><BR><BR>\n",
+                               &buf[4]);
+                       goto FORM;
+               }
+       }
+
+       /* 
+        * Confirm command
+        */
+       else if (!strcasecmp(cmd, "confirm")) {
+               serv_printf("SUBS confirm|%s|%s",
+                       room,
+                       token
+               );
+               serv_gets(buf);
+               if (buf[0] == '2') {
+                       wprintf("<CENTER><H1>Confirmation successful!</H1>");
+               }
+               else {
+                       wprintf("<CENTER><H1>Confirmation failed.</H1>");
+               }
+               wprintf("%s</CENTER><BR>\n", &buf[4]);
+       }
+
        /*
         * Any other (invalid) command causes the form to be displayed
         */
@@ -97,11 +155,25 @@ FORM:              wprintf("<FORM METHOD=\"POST\" ACTION=\"/listsub\">\n"
                );
 
                wprintf("<TR><TD>Name of list</TD><TD>"
-                       "<INPUT TYPE=\"text\" NAME=\"room\" "
-                       "VALUE=\""
-               );
-               escputs(room);
-               wprintf("\" MAXLENGTH=128></TD></TR>\n");
+                       "<SELECT NAME=\"room\" SIZE=1>\n");
+
+               serv_puts("LPRM");
+               serv_gets(buf);
+               if (buf[0] == '1') {
+                       while (serv_gets(buf), strcmp(buf, "000")) {
+                               extract(sroom, buf, 0);
+                               self = extract_int(buf, 4) & QR2_SELFLIST ;
+                               if (self) {
+                                       wprintf("<OPTION VALUE=\"");
+                                       escputs(sroom);
+                                       wprintf("\">");
+                                       escputs(sroom);
+                                       wprintf("</OPTION>\n");
+                               }
+                       }
+               }
+               wprintf("</SELECT>"
+                       "</TD></TR>\n");
 
                wprintf("<TR><TD>Your e-mail address</TD><TD>"
                        "<INPUT TYPE=\"text\" NAME=\"email\" "
@@ -111,6 +183,12 @@ FORM:              wprintf("<FORM METHOD=\"POST\" ACTION=\"/listsub\">\n"
                wprintf("\" MAXLENGTH=128></TD></TR>\n");
 
                wprintf("</TABLE>"
+                       "(If subscribing) preferred format: "
+                       "<INPUT TYPE=\"radio\" NAME=\"subtype\""
+                       "VALUE=\"list\">One message at a time&nbsp; "
+                       "<INPUT TYPE=\"radio\" NAME=\"subtype\""
+                       "VALUE=\"digest\" CHECKED>Digest format&nbsp; "
+                       "<BR>\n"
                        "<INPUT TYPE=\"submit\" NAME=\"cmd\""
                        " VALUE=\"subscribe\">\n"
                        "<INPUT TYPE=\"submit\" NAME=\"cmd\""