diff options
Diffstat (limited to 'sqwebmail/autoresponse.c')
| -rw-r--r-- | sqwebmail/autoresponse.c | 618 |
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); +} |