Initial checkin

Imported from subversion report, converted to git. Updated all paths in
scripts and makefiles, reflecting the new directory hierarchy.

1 files changed, 618 insertions, 0 deletions

diff --git a/sqwebmail/autoresponse.c b/sqwebmail/autoresponse.c
new file mode 100644
index 0000000..c14e345
--- /dev/null
+++ b/sqwebmail/autoresponse.c
@@ -0,0 +1,618 @@
+/*
+*/
+
+/*
+** Copyright 2001-2011 Double Precision, Inc.  See COPYING for
+** distribution information.
+*/
+
+#include	"config.h"
+#include	"autoresponse.h"
+#include	"maildir/autoresponse.h"
+#include	"mailfilter.h"
+#include	"unicode/unicode.h"
+#include	"sqwebmail.h"
+#include	"htmllibdir.h"
+#include	"maildir.h"
+#include	"maildir/maildirmisc.h"
+#include	"maildir/maildirfilter.h"
+#include	"rfc2045/rfc2045.h"
+#include	"newmsg.h"
+#include	"cgi/cgi.h"
+#include	"numlib/numlib.h"
+#include	<string.h>
+#include	<stdlib.h>
+#include	<stdio.h>
+#include	<signal.h>
+#include	<ctype.h>
+#include	<errno.h>
+#if HAVE_SYS_WAIT_H
+#include	<sys/wait.h>
+#endif
+#ifndef WEXITSTATUS
+#define WEXITSTATUS(stat_val) ((unsigned)(stat_val) >> 8)
+#endif
+#ifndef WIFEXITED
+#define WIFEXITED(stat_val) (((stat_val) & 255) == 0)
+#endif
+
+extern const char *sqwebmail_content_charset;
+extern void output_attrencoded(const char *);
+extern const char *calc_mime_type(const char *filename);
+
+extern void charset_warning(const char *);
+
+static void save_autoresponse(const char *p, size_t l, void *vp)
+{
+	FILE *fp=*(FILE **)vp;
+
+	if (fp)
+		if (fwrite(p, l, 1, fp) != 1)
+			; /* ignore */
+}
+
+static int read_headers(FILE *);
+
+static int show_autoresponse_trampoline(const char *ptr, size_t cnt, void *arg)
+{
+	show_textarea((struct show_textarea_info *)arg, ptr, cnt);
+	return 0;
+}
+
+void autoresponse()
+{
+const char	*autoresp_title1=getarg("TITLE1");
+const char	*autoresp_title2=getarg("TITLE2");
+const char	*autoresp_text1=getarg("TEXT1");
+const char	*autoresp_text2=getarg("TEXT2");
+
+	if ( *cgi("do.newautoresp"))
+	{
+		const char *name=cgi("newname");
+		char *p;
+		FILE *fp;
+
+		p=folder_toutf7(name);
+
+		if (!p || maildir_autoresponse_validate(NULL, p))
+		{
+			free(p);
+			printf("%s", getarg("BADNAME"));
+			return;
+		}
+
+		if ((fp=maildir_autoresponse_open(NULL, p)) != NULL)
+		{
+			free(p);
+			fclose(fp);
+			printf("%s", getarg("EEXIST"));
+			return;
+		}
+
+		printf("%s%s%s\n", autoresp_title1, name, autoresp_title2);
+		printf("<input type=\"hidden\" name=\"autoresponse\" value=\"");
+		output_attrencoded(p);
+		printf("\" />\n");
+		free(p);
+
+		printf("%s%s\n", autoresp_text1, autoresp_text2);
+		printf("%s<input type=\"file\" size=\"20\" name=\"uploadfile\" /><br />",
+		       getarg("UPLOAD"));
+		printf("<input type=\"submit\" name=\"do.autorespcreate\""
+		       " value=\"%s\" />", getarg("SAVE"));
+		return;
+	}
+
+	if ( *cgi("do.autorespedit"))
+	{
+		const char *autorespname=cgi("autoresponse_choose");
+		FILE *fp;
+		char *s=folder_fromutf7(autorespname);
+		const char *pp;
+
+		if (!s)
+		{
+			printf(getarg("ERROR"), strerror(errno));
+			return;
+		}
+
+		pp=cgi("replytext");
+
+		if ((fp=maildir_autoresponse_open(NULL, autorespname)) == NULL
+		    && !*pp)
+		{
+			free(s);
+			return;
+		}
+
+		printf("%s%s%s\n", autoresp_title1, s, autoresp_title2);
+
+		if (fp && read_headers(fp))
+		{
+			fclose(fp);
+			free(s);
+			return;
+		}
+
+		printf("<input type=\"hidden\" name=\"autoresponse\" value=\"");
+		output_attrencoded(autorespname);
+		printf("\" />\n");
+		free(s);
+
+		printf("%s", autoresp_text1);
+
+		if (pp && *pp)
+			output_attrencoded(pp);
+		else
+		{
+			struct show_textarea_info info;
+			libmail_u_convert_handle_t h;
+
+			show_textarea_init(&info, 0);
+
+			h=libmail_u_convert_init("utf-8",
+						 sqwebmail_content_charset,
+						 show_autoresponse_trampoline,
+						 &info);
+
+			if (h)
+			{
+				size_t i;
+				char buf[BUFSIZ];
+
+				while ((i=fread(buf, 1, sizeof(buf), fp)) > 0)
+				{
+					libmail_u_convert(h, buf, i);
+				}
+				libmail_u_convert_deinit(h, NULL);
+			}
+		}
+
+		if (fp)
+			fclose(fp);
+		printf("%s\n", autoresp_text2);
+		printf("%s<input type=\"file\" size=\"20\" name=\"uploadfile\" /><br />",
+		       getarg("UPLOAD"));
+		printf("<input type=\"submit\" name=\"do.autorespcreate\""
+		       " value=\"%s\" />", getarg("SAVE"));
+		return;
+	}
+}
+
+/*
+** Read the MIME headers in the autoresponse file, to make sure that we
+** can show it.
+*/
+
+static int read_headers(FILE *fp)
+{
+	struct rfc2045 *rfc2045p=rfc2045_alloc();
+	static const char mv[]="Mime-Version: 1.0\n";
+	char buf[BUFSIZ];
+	char *s;
+	const char *content_type, *content_transfer_encoding, *charset;
+
+	rfc2045_parse(rfc2045p, mv, sizeof(mv)-1);
+
+	while ((s=fgets(buf, sizeof(buf), fp)) != NULL)
+	{
+		rfc2045_parse(rfc2045p, s, strlen(s));
+		if (strcmp(s, "\n") == 0 || strcmp(s, "\r\n") == 0)
+			break;
+	}
+	rfc2045_parse_partial(rfc2045p);
+
+	rfc2045_mimeinfo(rfc2045p, &content_type,
+			 &content_transfer_encoding,
+			 &charset);
+
+	if (strcmp(content_type, "text/plain") ||
+	    !rfc2045_isflowed(rfc2045p))
+	{
+		printf(getarg("ATT"), content_type);
+		rfc2045_free(rfc2045p);
+		return (-1);
+	}
+
+	rfc2045_free(rfc2045p);
+	return (0);
+}
+
+static FILE *upload_attachment(const char *);
+
+void autoresponsedelete()
+{
+	if ( *cgi("do.autorespcreate"))
+	{
+		const char *autorespname=cgi("autoresponse");
+		const char *autoresptxt=cgi("text");
+		FILE *fp;
+		size_t l;
+
+		if ((fp=upload_attachment(autorespname)) == NULL)
+		{
+			struct wrap_info uw;
+
+			if ((fp=maildir_autoresponse_create(NULL,
+							    autorespname))
+			    == NULL)
+			{
+				printf(getarg("SAVEFAILED"), strerror(errno));
+				return;
+			}
+
+			l=strlen(autoresptxt);
+			while (l && (autoresptxt[l-1] == '\r' ||
+				     autoresptxt[l-1] == '\n'))
+				--l;
+
+			fprintf(fp, "Content-Type: text/plain");
+			fprintf(fp, "; format=flowed; delsp=yes"
+				"; charset=\"utf-8\"\n");
+			fprintf(fp, "Content-Transfer-Encoding: 8bit\n\n");
+
+			wrap_text_init(&uw, "utf-8", save_autoresponse, &fp);
+			wrap_text(&uw, autoresptxt, l);
+		}
+
+		if (fflush(fp) || ferror(fp))
+		{
+			fclose(fp);
+			printf(getarg("SAVEFAILED"), strerror(errno));
+			return;
+		}
+		if (maildir_autoresponse_create_finish(NULL, autorespname, fp))
+		{
+			if (errno == ENOSPC)
+			{
+				cgi_put("do.autorespedit", "1");
+				cgi_put("autoresponse_choose", autorespname);
+				cgi_put("replytext", cgi("text"));
+				printf(getarg("QUOTA"), strerror(errno));
+			}
+			else
+				printf(getarg("SAVEFAILED"), strerror(errno));
+		}
+		return;
+	}
+
+	if ( *cgi("do.autorespdelete"))
+	{
+		const char *autorespname=cgi("autoresponse_choose");
+
+		if (mailfilter_autoreplyused(autorespname))
+		{
+			char *s=folder_fromutf7(autorespname);
+			printf(getarg("INUSE"), s ? s:"");
+			if (s)
+				free(s);
+		}
+		else
+			maildir_autoresponse_delete(NULL, autorespname);
+		return;
+	}
+}
+
+struct upload_attach_info {
+	FILE *fp;
+	const char *filename;
+	const char *name;
+	const char *autorespname;
+} ;
+
+static int start_upload(const char *, const char *, void *);
+static int upload(const char *, size_t, void *);
+static void end_upload(void *);
+
+static FILE *upload_attachment(const char *autorespname)
+{
+	struct upload_attach_info uai;
+
+	uai.fp=NULL;
+	uai.autorespname=autorespname;
+
+	if (cgi_getfiles( &start_upload, &upload, &end_upload, 1, &uai ))
+	{
+		if (uai.fp)
+			fclose(uai.fp);
+
+		return (NULL);
+	}
+
+	return (uai.fp);
+}
+
+static int start_upload(const char *name, const char *filename, void *vp)
+{
+	struct upload_attach_info *uai=(struct upload_attach_info *)vp;
+	const char *p;
+
+	p=strrchr(filename, '/');
+	if (p)	filename=p+1;
+
+	p=strrchr(filename, '\\');
+	if (p)	filename=p+1;
+
+	if (*filename)
+	{
+		uai->filename=filename;
+	}
+	else
+	{
+		p=strrchr(name, '/');
+		if (p)	name=p+1;
+
+		p=strrchr(name, '\\');
+		if (p)	name=p+1;
+		uai->filename=p;
+	}
+
+	uai->fp=tmpfile();
+	if (!uai->fp)
+		enomem();
+	return (0);
+}
+
+static int upload(const char *c, size_t n, void *vp)
+{
+	struct upload_attach_info *uai=(struct upload_attach_info *)vp;
+
+	if (fwrite(c, n, 1, uai->fp) != 1)
+	{
+		fclose(uai->fp);
+		enomem();
+	}
+	return (0);
+}
+
+static int upload_messagerfc822(FILE *, FILE *);
+
+static void end_upload(void *vp)
+{
+	struct upload_attach_info *uai=(struct upload_attach_info *)vp;
+	const char *mimetype;
+	char *argvec[10];
+	int n;
+	pid_t pid1, pid2;
+	int waitstat;
+	FILE *afp;
+
+	if (fflush(uai->fp) || ferror(uai->fp)
+	    || fseek(uai->fp, 0L, SEEK_SET) < 0)
+	{
+		fclose(uai->fp);
+		enomem();
+	}
+
+	mimetype=calc_mime_type(uai->filename);
+
+	if (strcasecmp(mimetype, "message/rfc822") == 0)
+	{
+		/* Magic */
+
+		afp=maildir_autoresponse_create(NULL, uai->autorespname);
+		if (!afp)
+		{
+			fclose(uai->fp);
+			enomem();
+		}
+
+		if (upload_messagerfc822(uai->fp, afp) ||
+		    fflush(afp) || ferror(afp))
+		{
+			fclose(uai->fp);
+			fclose(afp);
+			enomem();
+		}
+		fclose(uai->fp);
+		uai->fp=afp;
+		return;
+	}
+	argvec[0]="makemime";
+	argvec[1]="-c";
+	argvec[2]=(char *)mimetype;
+
+	n=3;
+	if (strncasecmp(argvec[2], "text/", 5) == 0 ||
+	    strcasecmp(argvec[2], "auto") == 0)
+	{
+		argvec[3]="-C";
+		argvec[4]=(char *)sqwebmail_content_charset;
+		n=5;
+	}
+
+	argvec[n++]="-";
+	argvec[n]=0;
+
+	afp=maildir_autoresponse_create(NULL, uai->autorespname);
+	if (!afp)
+	{
+		fclose(uai->fp);
+		enomem();
+	}
+
+	signal(SIGCHLD, SIG_DFL);
+	pid1=fork();
+
+	if (pid1 < 0)
+	{
+		fclose(afp);
+		fclose(uai->fp);
+		enomem();
+	}
+
+	if (pid1 == 0)
+	{
+		dup2(fileno(uai->fp), 0);
+		dup2(fileno(afp), 1);
+		fclose(uai->fp);
+		fclose(afp);
+		execv(MAKEMIME, argvec);
+		fprintf(stderr,
+		       "CRIT: exec %s: %s\n", MAKEMIME, strerror(errno));
+		exit(1);
+	}
+
+	for (;;)
+	{
+		pid2=wait(&waitstat);
+
+		if (pid2 == pid1)
+		{
+			waitstat= WIFEXITED(waitstat) ? WEXITSTATUS(waitstat)
+				: 1;
+			break;
+		}
+
+		if (pid2 == -1)
+		{
+			waitstat=1;
+			break;
+		}
+	}
+
+	if (waitstat)
+	{
+		fclose(afp);
+		fclose(uai->fp);
+		enomem();
+	}
+
+	fclose(uai->fp);
+	uai->fp=afp;
+}
+
+/*
+** If we get something that's MIMEed as message/rfc822, read it, strip its
+** headers except for the MIME content- headers, then save what's left as
+** our autoreply.  This allows for a convenient way to upload
+** multipart/alternative content.
+*/
+
+static int upload_messagerfc822(FILE *i, FILE *o)
+{
+	char buf[BUFSIZ];
+	int skip_hdr;
+	int c;
+	const char *pp;
+
+	skip_hdr=0;
+
+	for (;;)
+	{
+		if (fgets(buf, sizeof(buf), i) == NULL)
+		{
+			fprintf(o, "\n");
+			return (0);
+		}
+
+		if (strcmp(buf, "\n") == 0 || strcmp(buf, "\r\n") == 0)
+		{
+			fprintf(o, "\n");
+			break;
+		}
+
+		if (!isspace((int)(unsigned char)*buf))
+			skip_hdr=strncasecmp(buf, "content-", 8) != 0;
+
+		if (skip_hdr)
+			continue;
+
+		for (pp=buf; *pp; pp++)
+			if (*pp != '\r')
+				if (putc((int)(unsigned char)*pp, o)
+				    == EOF)
+					return (-1);
+	}
+
+	while ((c=getc(i)) != EOF)
+		if (c != '\r')
+			if (putc(c, o) == EOF)
+				return (-1);
+	return (0);
+}
+
+
+
+static int comp_autorespname(const void *a, const void *b)
+{
+	const char *ca=*(const char **)a;
+	const char *cb=*(const char **)b;
+
+	char *sa=folder_fromutf7(ca);
+	char *sb=folder_fromutf7(cb);
+
+	int i=sa && sb ? strcoll(sa, sb):0;
+
+	free(sa);
+	free(sb);
+	return (i);
+}
+
+void autoresponselist()
+{
+	char **list=maildir_autoresponse_list(NULL); /* I'm sorry... */
+	size_t i;
+
+	if (!list)
+	{
+		printf(getarg("ERROR"), strerror(errno));
+		return;
+	}
+
+	for (i=0; list[i]; i++)
+		;
+
+	qsort(list, i, sizeof(list[0]), &comp_autorespname);
+
+	for (i=0; list[i]; i++)
+	{
+		char *s;
+
+		printf("<option value=\"");
+		output_attrencoded(list[i]);
+		printf("\">");
+
+		s=folder_fromutf7(list[i]);
+		output_attrencoded(s);
+		printf("</option>");
+		free(s);
+	}
+
+	maildir_autoresponse_list_free(list);
+}
+
+void autoresponsepick()
+{
+	char **list=maildir_autoresponse_list(NULL);
+	size_t i;
+	const char *choice=cgi("autoresponse_choose");
+
+	if (!list)
+	{
+		printf(getarg("ERROR"), strerror(errno));
+		return;
+	}
+
+	for (i=0; list[i]; i++)
+		;
+
+	qsort(list, i, sizeof(list[0]), &comp_autorespname);
+
+	for (i=0; list[i]; i++)
+	{
+		char *s;
+
+		printf("<option%s value=\"",
+		       strcmp(choice, list[i]) ? "":" selected='selected'");
+		output_attrencoded(list[i]);
+		printf("\">");
+
+		s=folder_fromutf7(list[i]);
+		output_attrencoded(s);
+		printf("</option>");
+		free(s);
+	}
+
+	maildir_autoresponse_list_free(list);
+}