/*
- * $Id: listsub.c 8232 2010-01-14 21:46:39Z dothebart $
- *
* Web forms for handling mailing list subscribe/unsubscribe requests.
*/
wc_printf("<div align=center>");
wc_printf("<table border=0 width=75%%><tr><td>");
- svput("BOXTITLE", WCS_STRING, _("List subscribe/unsubscribe"));
- do_template("beginboxx", NULL);
+ do_template("beginbox_1", NULL);
+ StrBufAppendBufPlain(WC->WBuf, _("List subscribe/unsubscribe"), -1, 0);
+ do_template("beginbox_2", NULL);
wc_printf("<div align=center><br>");
/*
* Subscribe command
*/
if (!strcasecmp(cmd, "subscribe")) {
- serv_printf("SUBS subscribe|%s|%s|%s|%s://%s/listsub",
+ serv_printf("SUBS subscribe|%s|%s|%s|%s/listsub",
room,
email,
subtype,
- (is_https ? "https" : "http"),
- ChrPtr(WC->Hdr->HR.http_host)
+ ChrPtr(site_prefix)
);
serv_getln(buf, sizeof buf);
if (buf[0] == '2') {
* Unsubscribe command
*/
else if (!strcasecmp(cmd, "unsubscribe")) {
- serv_printf("SUBS unsubscribe|%s|%s|%s://%s/listsub",
- room,
- email,
- (is_https ? "https" : "http"),
- ChrPtr(WC->Hdr->HR.http_host)
+ serv_printf("SUBS unsubscribe|%s|%s|%s/listsub",
+ room,
+ email,
+ ChrPtr(site_prefix)
);
serv_getln(buf, sizeof buf);
if (buf[0] == '2') {