/*
- * $Id$
- *
* Web forms for handling mailing list subscribe/unsubscribe requests.
*/
wc_printf("<HTML><HEAD>\n"
"<meta name=\"MSSmartTagsPreventParsing\" content=\"TRUE\" />\n"
- "<link href=\"static/webcit.css\" rel=\"stylesheet\" type=\"text/css\">\n"
+ "<link href=\"static/styles/webcit.css\" rel=\"stylesheet\" type=\"text/css\">\n"
"<TITLE>\n"
);
wc_printf(_("List subscription"));
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') {