+
+/*
+ * Helper function for output_sieve_rule() to output strings with quotes escaped
+ */
+void osr_sanitize(char *str) {
+ int i, len;
+
+ if (str == NULL) return;
+ len = strlen(str);
+ for (i=0; i<len; ++i) {
+ if (str[i]=='\"') {
+ str[i] = '\'' ;
+ }
+ else if (isspace(str[i])) {
+ str[i] = ' ';
+ }
+ }
+}
+
+
+/*
+ * Output parseable Sieve script code based on rules input
+ */
+void output_sieve_rule(char *hfield, char *compare, char *htext, char *sizecomp, int sizeval,
+ char *action, char *fileinto, char *redirect, char *automsg, char *final,
+ char *my_addresses)
+{
+ char *comp1 = "";
+ char *comp2 = "";
+
+ osr_sanitize(htext);
+ osr_sanitize(fileinto);
+ osr_sanitize(redirect);
+ osr_sanitize(automsg);
+
+ /* Prepare negation and match operators that will be used iff we apply a conditional */
+
+ if (!strcasecmp(compare, "contains")) {
+ comp1 = "";
+ comp2 = ":contains";
+ }
+ else if (!strcasecmp(compare, "notcontains")) {
+ comp1 = "not";
+ comp2 = ":contains";
+ }
+ else if (!strcasecmp(compare, "is")) {
+ comp1 = "";
+ comp2 = ":is";
+ }
+ else if (!strcasecmp(compare, "isnot")) {
+ comp1 = "not";
+ comp2 = ":is";
+ }
+ else if (!strcasecmp(compare, "matches")) {
+ comp1 = "";
+ comp2 = ":matches";
+ }
+ else if (!strcasecmp(compare, "notmatches")) {
+ comp1 = "not";
+ comp2 = ":matches";
+ }
+
+ /* Now do the conditional */
+
+ if (!strcasecmp(hfield, "from")) {
+ serv_printf("if%s header %s \"From\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "tocc")) {
+ serv_printf("if%s header %s [\"To\", \"Cc\"] \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "subject")) {
+ serv_printf("if%s header %s \"Subject\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "replyto")) {
+ serv_printf("if%s header %s \"Reply-to\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "sender")) {
+ serv_printf("if%s header %s \"Sender\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "resentfrom")) {
+ serv_printf("if%s header %s \"Resent-from\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "resentto")) {
+ serv_printf("if%s header %s \"Resent-to\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "xmailer")) {
+ serv_printf("if%s header %s \"X-Mailer\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "xspamflag")) {
+ serv_printf("if%s header %s \"X-Spam-Flag\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "xspamstatus")) {
+ serv_printf("if%s header %s \"X-Spam-Status\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "listid")) {
+ serv_printf("if%s header %s \"List-ID\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "envfrom")) {
+ serv_printf("if%s envelope %s \"From\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "envto")) {
+ serv_printf("if%s envelope %s \"To\" \"%s\"",
+ comp1, comp2,
+ htext
+ );
+ }
+
+ else if (!strcasecmp(hfield, "size")) {
+ if (!strcasecmp(sizecomp, "larger")) {
+ serv_printf("if size :over %d", sizeval);
+ }
+ else if (!strcasecmp(sizecomp, "smaller")) {
+ serv_printf("if size :under %d", sizeval);
+ }
+ else { /* failsafe - should never get here, but just in case... */
+ serv_printf("if size :over 1");
+ }
+ }
+
+ /* Open braces if we're in a conditional loop */
+
+ if (strcasecmp(hfield, "all")) {
+ serv_printf("{");
+ }
+
+
+ /* Do action */
+
+ if (!strcasecmp(action, "keep")) {
+ serv_printf("keep;");
+ }
+
+ else if (!strcasecmp(action, "discard")) {
+ serv_printf("discard;");
+ }
+
+ else if (!strcasecmp(action, "reject")) {
+ serv_printf("reject \"%s\";", automsg);
+ }
+
+ else if (!strcasecmp(action, "fileinto")) {
+ serv_printf("fileinto \"%s\";", fileinto);
+ }
+
+ else if (!strcasecmp(action, "redirect")) {
+ serv_printf("redirect \"%s\";", redirect);
+ }
+
+ else if (!strcasecmp(action, "vacation")) {
+ serv_printf("vacation :addresses [%s]\n\"%s\";", my_addresses, automsg);
+ }
+
+
+ /* Do 'final' action */
+
+ if (!strcasecmp(final, "stop")) {
+ serv_printf("stop;");
+ }
+
+
+ /* Close the braces if we're in a conditional loop */
+
+ if (strcasecmp(hfield, "all")) {
+ serv_printf("}");
+ }
+
+
+ /* End of rule. */
+}
+
+
+
+/*
+ * Translate the fields from the rule editor into something we can save...
+ */
+void parse_fields_from_rule_editor(void) {
+
+ int active;
+ char hfield[256];
+ char compare[32];
+ char htext[256];
+ char sizecomp[32];
+ int sizeval;
+ char action[32];
+ char fileinto[128];
+ char redirect[256];
+ char automsg[1024];
+ char final[32];
+ int i;
+ char buf[256];
+ char fname[256];
+ char rule[2048];
+ char encoded_rule[4096];
+ char my_addresses[4096];
+
+ /* Enumerate my email addresses in case they are needed for a vacation rule */
+ my_addresses[0] = 0;
+ serv_puts("GVEA");
+ serv_getln(buf, sizeof buf);
+ if (buf[0] == '1') while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
+ if (!IsEmptyStr(my_addresses)) {
+ strcat(my_addresses, ",\n");
+ }
+ strcat(my_addresses, "\"");
+ strcat(my_addresses, buf);
+ strcat(my_addresses, "\"");
+ }
+
+ /* Now generate the script and write it to the Citadel server */
+ serv_printf("MSIV putscript|%s|", RULES_SCRIPT);
+ serv_getln(buf, sizeof buf);
+ if (buf[0] != '4') {
+ return;
+ }
+
+ serv_puts("# THIS SCRIPT WAS AUTOMATICALLY GENERATED BY WEBCIT.");
+ serv_puts("# ");
+ serv_puts("# Do not attempt to manually edit it. If you do so,");
+ serv_puts("# your changes will be overwritten the next time WebCit");
+ serv_puts("# saves its mail filtering rule set. If you really want");
+ serv_puts("# to use these rules as the basis for another script,");
+ serv_puts("# copy them to another script and save that instead.");
+ serv_puts("");
+ serv_puts("require \"fileinto\";");
+ serv_puts("require \"reject\";");
+ serv_puts("require \"vacation\";");
+ serv_puts("require \"envelope\";");
+ serv_puts("");
+
+ for (i=0; i<MAX_RULES; ++i) {
+
+ strcpy(rule, "");
+
+ sprintf(fname, "active%d", i);
+ active = !strcasecmp(BSTR(fname), "on") ;
+
+ if (active) {
+
+ sprintf(fname, "hfield%d", i);
+ safestrncpy(hfield, BSTR(fname), sizeof hfield);
+
+ sprintf(fname, "compare%d", i);
+ safestrncpy(compare, BSTR(fname), sizeof compare);
+
+ sprintf(fname, "htext%d", i);
+ safestrncpy(htext, BSTR(fname), sizeof htext);
+
+ sprintf(fname, "sizecomp%d", i);
+ safestrncpy(sizecomp, BSTR(fname), sizeof sizecomp);
+
+ sprintf(fname, "sizeval%d", i);
+ sizeval = IBSTR(fname);
+
+ sprintf(fname, "action%d", i);
+ safestrncpy(action, BSTR(fname), sizeof action);
+
+ sprintf(fname, "fileinto%d", i);
+ safestrncpy(fileinto, BSTR(fname), sizeof fileinto);
+
+ sprintf(fname, "redirect%d", i);
+ safestrncpy(redirect, BSTR(fname), sizeof redirect);
+
+ sprintf(fname, "automsg%d", i);
+ safestrncpy(automsg, BSTR(fname), sizeof automsg);
+
+ sprintf(fname, "final%d", i);
+ safestrncpy(final, BSTR(fname), sizeof final);
+
+ snprintf(rule, sizeof rule, "%d|%s|%s|%s|%s|%d|%s|%s|%s|%s|%s",
+ active, hfield, compare, htext, sizecomp, sizeval, action, fileinto,
+ redirect, automsg, final
+ );
+
+ CtdlEncodeBase64(encoded_rule, rule, strlen(rule)+1, 0);
+ serv_printf("# WEBCIT_RULE|%d|%s|", i, encoded_rule);
+ output_sieve_rule(hfield, compare, htext, sizecomp, sizeval,
+ action, fileinto, redirect, automsg, final, my_addresses);
+ serv_puts("");
+ }
+
+
+ }
+
+ serv_puts("stop;");
+ serv_puts("000");
+}
+
+
+
+/*
+ * save sieve config