1 9f1fdc12 2005-10-29 devnull #include <u.h>
2 9f1fdc12 2005-10-29 devnull #include <libc.h>
3 9f1fdc12 2005-10-29 devnull #include <bio.h>
4 9f1fdc12 2005-10-29 devnull #include <thread.h>
5 9f1fdc12 2005-10-29 devnull #include <ctype.h>
6 9f1fdc12 2005-10-29 devnull #include <plumb.h>
7 9f1fdc12 2005-10-29 devnull #include <9pclient.h>
8 9f1fdc12 2005-10-29 devnull #include "dat.h"
10 9f1fdc12 2005-10-29 devnull static int replyid;
13 9f1fdc12 2005-10-29 devnull quote(Message *m, CFid *fid, char *dir, char *quotetext)
15 9f1fdc12 2005-10-29 devnull char *body, *type;
16 9f1fdc12 2005-10-29 devnull int i, n, nlines;
17 9f1fdc12 2005-10-29 devnull char **lines;
19 9f1fdc12 2005-10-29 devnull if(quotetext){
20 9f1fdc12 2005-10-29 devnull body = quotetext;
21 9f1fdc12 2005-10-29 devnull n = strlen(body);
22 9f1fdc12 2005-10-29 devnull type = nil;
24 9f1fdc12 2005-10-29 devnull /* look for first textual component to quote */
25 9f1fdc12 2005-10-29 devnull type = readfile(dir, "type", &n);
26 9f1fdc12 2005-10-29 devnull if(type == nil){
27 9f1fdc12 2005-10-29 devnull print("no type in %s\n", dir);
28 9f1fdc12 2005-10-29 devnull return 0;
30 9f1fdc12 2005-10-29 devnull if(strncmp(type, "multipart/", 10)==0 || strncmp(type, "message/", 8)==0){
31 9f1fdc12 2005-10-29 devnull dir = estrstrdup(dir, "1/");
32 9f1fdc12 2005-10-29 devnull if(quote(m, fid, dir, nil)){
33 9f1fdc12 2005-10-29 devnull free(type);
34 9f1fdc12 2005-10-29 devnull free(dir);
35 9f1fdc12 2005-10-29 devnull return 1;
37 9f1fdc12 2005-10-29 devnull free(dir);
39 9f1fdc12 2005-10-29 devnull if(strncmp(type, "text", 4) != 0){
40 9f1fdc12 2005-10-29 devnull free(type);
41 9f1fdc12 2005-10-29 devnull return 0;
43 9f1fdc12 2005-10-29 devnull body = readbody(m->type, dir, &n);
44 9f1fdc12 2005-10-29 devnull if(body == nil)
45 9f1fdc12 2005-10-29 devnull return 0;
47 9f1fdc12 2005-10-29 devnull nlines = 0;
48 9f1fdc12 2005-10-29 devnull for(i=0; i<n; i++)
49 9f1fdc12 2005-10-29 devnull if(body[i] == '\n')
50 9f1fdc12 2005-10-29 devnull nlines++;
51 9f1fdc12 2005-10-29 devnull nlines++;
52 9f1fdc12 2005-10-29 devnull lines = emalloc(nlines*sizeof(char*));
53 9f1fdc12 2005-10-29 devnull nlines = getfields(body, lines, nlines, 0, "\n");
54 9f1fdc12 2005-10-29 devnull /* delete leading and trailing blank lines */
56 9f1fdc12 2005-10-29 devnull while(i<nlines && lines[i][0]=='\0')
58 9f1fdc12 2005-10-29 devnull while(i<nlines && lines[nlines-1][0]=='\0')
59 9f1fdc12 2005-10-29 devnull nlines--;
60 9f1fdc12 2005-10-29 devnull while(i < nlines){
61 9f1fdc12 2005-10-29 devnull fsprint(fid, ">%s%s\n", lines[i][0]=='>'? "" : " ", lines[i]);
64 9f1fdc12 2005-10-29 devnull free(lines);
65 9f1fdc12 2005-10-29 devnull free(body); /* will free quotetext if non-nil */
66 9f1fdc12 2005-10-29 devnull free(type);
67 9f1fdc12 2005-10-29 devnull return 1;
71 9f1fdc12 2005-10-29 devnull mkreply(Message *m, char *label, char *to, Plumbattr *attr, char *quotetext)
73 1190a7aa 2006-03-03 devnull char buf[100];
74 1190a7aa 2006-03-03 devnull CFid *fd;
75 9f1fdc12 2005-10-29 devnull Message *r;
76 9f1fdc12 2005-10-29 devnull char *dir, *t;
77 9f1fdc12 2005-10-29 devnull int quotereply;
78 9f1fdc12 2005-10-29 devnull Plumbattr *a;
80 9f1fdc12 2005-10-29 devnull quotereply = (label[0] == 'Q');
82 1190a7aa 2006-03-03 devnull if(quotereply && m && m->replywinid > 0){
83 1190a7aa 2006-03-03 devnull snprint(buf, sizeof buf, "%d/body", m->replywinid);
84 1190a7aa 2006-03-03 devnull if((fd = fsopen(acmefs, buf, OWRITE)) != nil){
85 1190a7aa 2006-03-03 devnull dir = estrstrdup(mbox.name, m->name);
86 1190a7aa 2006-03-03 devnull quote(m, fd, dir, quotetext);
87 1190a7aa 2006-03-03 devnull free(dir);
92 9f1fdc12 2005-10-29 devnull r = emalloc(sizeof(Message));
93 9f1fdc12 2005-10-29 devnull r->isreply = 1;
94 9f1fdc12 2005-10-29 devnull if(m != nil)
95 9f1fdc12 2005-10-29 devnull r->replyname = estrdup(m->name);
96 9f1fdc12 2005-10-29 devnull r->next = replies.head;
97 9f1fdc12 2005-10-29 devnull r->prev = nil;
98 9f1fdc12 2005-10-29 devnull if(replies.head != nil)
99 9f1fdc12 2005-10-29 devnull replies.head->prev = r;
100 9f1fdc12 2005-10-29 devnull replies.head = r;
101 9f1fdc12 2005-10-29 devnull if(replies.tail == nil)
102 9f1fdc12 2005-10-29 devnull replies.tail = r;
103 9f1fdc12 2005-10-29 devnull r->name = emalloc(strlen(mbox.name)+strlen(label)+10);
104 9f1fdc12 2005-10-29 devnull sprint(r->name, "%s%s%d", mbox.name, label, ++replyid);
105 9f1fdc12 2005-10-29 devnull r->w = newwindow();
107 1190a7aa 2006-03-03 devnull m->replywinid = r->w->id;
108 9f1fdc12 2005-10-29 devnull winname(r->w, r->name);
109 9f1fdc12 2005-10-29 devnull ctlprint(r->w->ctl, "cleartag");
110 9f1fdc12 2005-10-29 devnull wintagwrite(r->w, "fmt Look Post Undo", 4+5+5+4);
111 9f1fdc12 2005-10-29 devnull r->tagposted = 1;
112 9f1fdc12 2005-10-29 devnull threadcreate(mesgctl, r, STACK);
113 9f1fdc12 2005-10-29 devnull winopenbody(r->w, OWRITE);
114 3f8c36d6 2006-02-09 devnull if(to!=nil && to[0]!='\0')
115 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "%s\n", to);
116 3f8c36d6 2006-02-09 devnull for(a=attr; a; a=a->next)
117 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "%s: %s\n", a->name, a->value);
118 9f1fdc12 2005-10-29 devnull dir = nil;
119 9f1fdc12 2005-10-29 devnull if(m != nil){
120 9f1fdc12 2005-10-29 devnull dir = estrstrdup(mbox.name, m->name);
121 9f1fdc12 2005-10-29 devnull if(to == nil && attr == nil){
122 9f1fdc12 2005-10-29 devnull /* Reply goes to replyto; Reply all goes to From and To and CC */
123 3f8c36d6 2006-02-09 devnull if(strstr(label, "all") == nil)
124 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "To: %s\n", m->replyto);
125 9f1fdc12 2005-10-29 devnull else{ /* Replyall */
126 3f8c36d6 2006-02-09 devnull if(strlen(m->from) > 0)
127 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "To: %s\n", m->from);
128 3f8c36d6 2006-02-09 devnull if(strlen(m->to) > 0)
129 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "To: %s\n", m->to);
130 3f8c36d6 2006-02-09 devnull if(strlen(m->cc) > 0)
131 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "CC: %s\n", m->cc);
134 9f1fdc12 2005-10-29 devnull if(strlen(m->subject) > 0){
135 9f1fdc12 2005-10-29 devnull t = "Subject: Re: ";
136 9f1fdc12 2005-10-29 devnull if(strlen(m->subject) >= 3)
137 9f1fdc12 2005-10-29 devnull if(tolower(m->subject[0])=='r' && tolower(m->subject[1])=='e' && m->subject[2]==':')
138 9f1fdc12 2005-10-29 devnull t = "Subject: ";
139 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "%s%s\n", t, m->subject);
141 9f1fdc12 2005-10-29 devnull if(!quotereply){
142 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "Include: %sraw\n", dir);
143 9f1fdc12 2005-10-29 devnull free(dir);
146 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "\n");
147 3f8c36d6 2006-02-09 devnull if(m == nil)
148 9f1fdc12 2005-10-29 devnull fsprint(r->w->body, "\n");
149 9f1fdc12 2005-10-29 devnull else if(quotereply){
150 9f1fdc12 2005-10-29 devnull quote(m, r->w->body, dir, quotetext);
151 9f1fdc12 2005-10-29 devnull free(dir);
153 9f1fdc12 2005-10-29 devnull winclosebody(r->w);
154 9f1fdc12 2005-10-29 devnull if(m==nil && (to==nil || to[0]=='\0'))
155 9f1fdc12 2005-10-29 devnull winselect(r->w, "0", 0);
157 9f1fdc12 2005-10-29 devnull winselect(r->w, "$", 0);
158 9f1fdc12 2005-10-29 devnull winclean(r->w);
159 9f1fdc12 2005-10-29 devnull windormant(r->w);
163 9f1fdc12 2005-10-29 devnull delreply(Message *m)
165 9f1fdc12 2005-10-29 devnull if(m->next == nil)
166 9f1fdc12 2005-10-29 devnull replies.tail = m->prev;
168 9f1fdc12 2005-10-29 devnull m->next->prev = m->prev;
169 9f1fdc12 2005-10-29 devnull if(m->prev == nil)
170 9f1fdc12 2005-10-29 devnull replies.head = m->next;
172 9f1fdc12 2005-10-29 devnull m->prev->next = m->next;
173 9f1fdc12 2005-10-29 devnull mesgfreeparts(m);
174 9f1fdc12 2005-10-29 devnull free(m);
177 9f1fdc12 2005-10-29 devnull /* copy argv to stack and free the incoming strings, so we don't leak argument vectors */
179 9f1fdc12 2005-10-29 devnull buildargv(char **inargv, char *argv[NARGS+1], char args[NARGCHAR])
181 9f1fdc12 2005-10-29 devnull int i, n;
182 9f1fdc12 2005-10-29 devnull char *s, *a;
184 9f1fdc12 2005-10-29 devnull s = args;
185 9f1fdc12 2005-10-29 devnull for(i=0; i<NARGS; i++){
186 9f1fdc12 2005-10-29 devnull a = inargv[i];
187 9f1fdc12 2005-10-29 devnull if(a == nil)
189 9f1fdc12 2005-10-29 devnull n = strlen(a)+1;
190 9f1fdc12 2005-10-29 devnull if((s-args)+n >= NARGCHAR) /* too many characters */
192 9f1fdc12 2005-10-29 devnull argv[i] = s;
193 9f1fdc12 2005-10-29 devnull memmove(s, a, n);
195 9f1fdc12 2005-10-29 devnull free(a);
197 9f1fdc12 2005-10-29 devnull argv[i] = nil;
201 9f1fdc12 2005-10-29 devnull execproc(void *v)
203 9f1fdc12 2005-10-29 devnull struct Exec *e;
204 9f1fdc12 2005-10-29 devnull int p[2], q[2];
205 9f1fdc12 2005-10-29 devnull char *prog;
206 9f1fdc12 2005-10-29 devnull char *argv[NARGS+1], args[NARGCHAR];
207 9f1fdc12 2005-10-29 devnull int fd[3];
210 9f1fdc12 2005-10-29 devnull p[0] = e->p[0];
211 9f1fdc12 2005-10-29 devnull p[1] = e->p[1];
212 9f1fdc12 2005-10-29 devnull q[0] = e->q[0];
213 9f1fdc12 2005-10-29 devnull q[1] = e->q[1];
214 9f1fdc12 2005-10-29 devnull prog = e->prog; /* known not to be malloc'ed */
216 3f8c36d6 2006-02-09 devnull fd[0] = dup(p[0], -1);
217 3f8c36d6 2006-02-09 devnull if(q[0])
218 3f8c36d6 2006-02-09 devnull fd[1] = dup(q[1], -1);
220 3f8c36d6 2006-02-09 devnull fd[1] = dup(1, -1);
221 3f8c36d6 2006-02-09 devnull fd[2] = dup(2, -2);
222 9f1fdc12 2005-10-29 devnull sendul(e->sync, 1);
223 9f1fdc12 2005-10-29 devnull buildargv(e->argv, argv, args);
224 9f1fdc12 2005-10-29 devnull free(e->argv);
225 9f1fdc12 2005-10-29 devnull chanfree(e->sync);
226 9f1fdc12 2005-10-29 devnull free(e);
228 9f1fdc12 2005-10-29 devnull threadexec(nil, fd, prog, argv);
229 9f1fdc12 2005-10-29 devnull close(fd[0]);
230 9f1fdc12 2005-10-29 devnull close(fd[1]);
231 3f8c36d6 2006-02-09 devnull close(fd[2]);
233 9f1fdc12 2005-10-29 devnull fprint(2, "Mail: can't exec %s: %r\n", prog);
234 9f1fdc12 2005-10-29 devnull threadexits("can't exec");
242 9f1fdc12 2005-10-29 devnull INCLUDE,
246 9f1fdc12 2005-10-29 devnull char *headers[] = {
247 9f1fdc12 2005-10-29 devnull "attach:",
250 9f1fdc12 2005-10-29 devnull "from:",
251 9f1fdc12 2005-10-29 devnull "include:",
257 9f1fdc12 2005-10-29 devnull whichheader(char *h)
261 9f1fdc12 2005-10-29 devnull for(i=0; headers[i]!=nil; i++)
262 9f1fdc12 2005-10-29 devnull if(cistrcmp(h, headers[i]) == 0)
263 9f1fdc12 2005-10-29 devnull return i;
264 9f1fdc12 2005-10-29 devnull return -1;
267 9f1fdc12 2005-10-29 devnull char *tolist[200];
268 9f1fdc12 2005-10-29 devnull char *cclist[200];
269 9f1fdc12 2005-10-29 devnull char *bcclist[200];
270 9f1fdc12 2005-10-29 devnull int ncc, nbcc, nto;
271 9f1fdc12 2005-10-29 devnull char *attlist[200];
272 9f1fdc12 2005-10-29 devnull char included[200];
275 9f1fdc12 2005-10-29 devnull addressed(char *name)
279 9f1fdc12 2005-10-29 devnull for(i=0; i<nto; i++)
280 9f1fdc12 2005-10-29 devnull if(strcmp(name, tolist[i]) == 0)
281 9f1fdc12 2005-10-29 devnull return 1;
282 9f1fdc12 2005-10-29 devnull for(i=0; i<ncc; i++)
283 9f1fdc12 2005-10-29 devnull if(strcmp(name, cclist[i]) == 0)
284 9f1fdc12 2005-10-29 devnull return 1;
285 9f1fdc12 2005-10-29 devnull for(i=0; i<nbcc; i++)
286 9f1fdc12 2005-10-29 devnull if(strcmp(name, bcclist[i]) == 0)
287 9f1fdc12 2005-10-29 devnull return 1;
288 9f1fdc12 2005-10-29 devnull return 0;
292 9f1fdc12 2005-10-29 devnull skipbl(char *s, char *e)
294 9f1fdc12 2005-10-29 devnull while(s < e){
295 9f1fdc12 2005-10-29 devnull if(*s!=' ' && *s!='\t' && *s!=',')
299 9f1fdc12 2005-10-29 devnull return s;
303 9f1fdc12 2005-10-29 devnull findbl(char *s, char *e)
305 9f1fdc12 2005-10-29 devnull while(s < e){
306 9f1fdc12 2005-10-29 devnull if(*s==' ' || *s=='\t' || *s==',')
310 9f1fdc12 2005-10-29 devnull return s;
314 9f1fdc12 2005-10-29 devnull * comma-separate possibly blank-separated strings in line; e points before newline
317 9f1fdc12 2005-10-29 devnull commas(char *s, char *e)
319 9f1fdc12 2005-10-29 devnull char *t;
321 9f1fdc12 2005-10-29 devnull /* may have initial blanks */
322 9f1fdc12 2005-10-29 devnull s = skipbl(s, e);
323 9f1fdc12 2005-10-29 devnull while(s < e){
324 9f1fdc12 2005-10-29 devnull s = findbl(s, e);
325 9f1fdc12 2005-10-29 devnull if(s == e)
327 9f1fdc12 2005-10-29 devnull t = skipbl(s, e);
328 9f1fdc12 2005-10-29 devnull if(t == e) /* no more words */
330 9f1fdc12 2005-10-29 devnull /* patch comma */
331 9f1fdc12 2005-10-29 devnull *s++ = ',';
332 9f1fdc12 2005-10-29 devnull while(s < t)
333 9f1fdc12 2005-10-29 devnull *s++ = ' ';
338 9f1fdc12 2005-10-29 devnull print2(int fd, int ofd, char *fmt, ...)
340 9f1fdc12 2005-10-29 devnull int m, n;
341 9f1fdc12 2005-10-29 devnull char *s;
342 9f1fdc12 2005-10-29 devnull va_list arg;
344 9f1fdc12 2005-10-29 devnull va_start(arg, fmt);
345 9f1fdc12 2005-10-29 devnull s = vsmprint(fmt, arg);
346 9f1fdc12 2005-10-29 devnull va_end(arg);
347 9f1fdc12 2005-10-29 devnull if(s == nil)
348 9f1fdc12 2005-10-29 devnull return -1;
349 9f1fdc12 2005-10-29 devnull m = strlen(s);
350 9f1fdc12 2005-10-29 devnull n = write(fd, s, m);
351 9f1fdc12 2005-10-29 devnull if(ofd > 0)
352 9f1fdc12 2005-10-29 devnull write(ofd, s, m);
353 9f1fdc12 2005-10-29 devnull return n;
357 9f1fdc12 2005-10-29 devnull write2(int fd, int ofd, char *buf, int n, int nofrom)
359 9f1fdc12 2005-10-29 devnull char *from, *p;
362 9f1fdc12 2005-10-29 devnull write(fd, buf, n);
364 9f1fdc12 2005-10-29 devnull if(ofd <= 0)
367 9f1fdc12 2005-10-29 devnull if(nofrom == 0){
368 9f1fdc12 2005-10-29 devnull write(ofd, buf, n);
372 9f1fdc12 2005-10-29 devnull /* need to escape leading From lines to avoid corrupting 'outgoing' mailbox */
373 9f1fdc12 2005-10-29 devnull for(p=buf; *p; p+=m){
374 9f1fdc12 2005-10-29 devnull from = cistrstr(p, "from");
375 9f1fdc12 2005-10-29 devnull if(from == nil)
378 9f1fdc12 2005-10-29 devnull m = from - p;
379 9f1fdc12 2005-10-29 devnull if(m > 0)
380 9f1fdc12 2005-10-29 devnull write(ofd, p, m);
381 9f1fdc12 2005-10-29 devnull if(from){
382 9f1fdc12 2005-10-29 devnull if(p==buf || from[-1]=='\n')
383 9f1fdc12 2005-10-29 devnull write(ofd, " ", 1); /* escape with space if From is at start of line */
384 9f1fdc12 2005-10-29 devnull write(ofd, from, 4);
392 9f1fdc12 2005-10-29 devnull mesgsend(Message *m)
394 9f1fdc12 2005-10-29 devnull char *s, *body, *to;
395 9f1fdc12 2005-10-29 devnull int i, j, h, n, natt, p[2];
396 9f1fdc12 2005-10-29 devnull struct Exec *e;
397 9f1fdc12 2005-10-29 devnull Channel *sync;
398 9f1fdc12 2005-10-29 devnull int first, nfld, delit, ofd;
399 9f1fdc12 2005-10-29 devnull char *copy, *fld[100], *now;
401 9f1fdc12 2005-10-29 devnull body = winreadbody(m->w, &n);
402 9f1fdc12 2005-10-29 devnull /* assemble to: list from first line, to: line, and cc: line */
403 9f1fdc12 2005-10-29 devnull nto = 0;
404 9f1fdc12 2005-10-29 devnull natt = 0;
405 9f1fdc12 2005-10-29 devnull ncc = 0;
406 9f1fdc12 2005-10-29 devnull nbcc = 0;
407 9f1fdc12 2005-10-29 devnull first = 1;
408 9f1fdc12 2005-10-29 devnull to = body;
409 9f1fdc12 2005-10-29 devnull for(;;){
410 9f1fdc12 2005-10-29 devnull for(s=to; *s!='\n'; s++)
411 9f1fdc12 2005-10-29 devnull if(*s == '\0'){
412 9f1fdc12 2005-10-29 devnull free(body);
415 9f1fdc12 2005-10-29 devnull if(s++ == to) /* blank line */
417 9f1fdc12 2005-10-29 devnull /* make copy of line to tokenize */
418 9f1fdc12 2005-10-29 devnull copy = emalloc(s-to);
419 9f1fdc12 2005-10-29 devnull memmove(copy, to, s-to);
420 9f1fdc12 2005-10-29 devnull copy[s-to-1] = '\0';
421 9f1fdc12 2005-10-29 devnull nfld = tokenizec(copy, fld, nelem(fld), ", \t");
422 9f1fdc12 2005-10-29 devnull if(nfld == 0){
423 9f1fdc12 2005-10-29 devnull free(copy);
426 9f1fdc12 2005-10-29 devnull n -= s-to;
427 9f1fdc12 2005-10-29 devnull switch(h = whichheader(fld[0])){
428 9f1fdc12 2005-10-29 devnull case TO:
429 9f1fdc12 2005-10-29 devnull case FROM:
430 9f1fdc12 2005-10-29 devnull delit = 1;
431 9f1fdc12 2005-10-29 devnull commas(to+strlen(fld[0]), s-1);
432 9f1fdc12 2005-10-29 devnull for(i=1; i<nfld && nto<nelem(tolist); i++)
433 9f1fdc12 2005-10-29 devnull if(!addressed(fld[i]))
434 9f1fdc12 2005-10-29 devnull tolist[nto++] = estrdup(fld[i]);
436 9f1fdc12 2005-10-29 devnull case BCC:
437 9f1fdc12 2005-10-29 devnull delit = 1;
438 9f1fdc12 2005-10-29 devnull commas(to+strlen(fld[0]), s-1);
439 9f1fdc12 2005-10-29 devnull for(i=1; i<nfld && nbcc<nelem(bcclist); i++)
440 9f1fdc12 2005-10-29 devnull if(!addressed(fld[i]))
441 9f1fdc12 2005-10-29 devnull bcclist[nbcc++] = estrdup(fld[i]);
443 9f1fdc12 2005-10-29 devnull case CC:
444 9f1fdc12 2005-10-29 devnull delit = 1;
445 9f1fdc12 2005-10-29 devnull commas(to+strlen(fld[0]), s-1);
446 9f1fdc12 2005-10-29 devnull for(i=1; i<nfld && ncc<nelem(cclist); i++)
447 9f1fdc12 2005-10-29 devnull if(!addressed(fld[i]))
448 9f1fdc12 2005-10-29 devnull cclist[ncc++] = estrdup(fld[i]);
450 9f1fdc12 2005-10-29 devnull case ATTACH:
451 9f1fdc12 2005-10-29 devnull case INCLUDE:
452 9f1fdc12 2005-10-29 devnull delit = 1;
453 9f1fdc12 2005-10-29 devnull for(i=1; i<nfld && natt<nelem(attlist); i++){
454 9f1fdc12 2005-10-29 devnull attlist[natt] = estrdup(fld[i]);
455 9f1fdc12 2005-10-29 devnull included[natt++] = (h == INCLUDE);
458 9f1fdc12 2005-10-29 devnull default:
459 9f1fdc12 2005-10-29 devnull if(first){
460 9f1fdc12 2005-10-29 devnull delit = 1;
461 9f1fdc12 2005-10-29 devnull for(i=0; i<nfld && nto<nelem(tolist); i++)
462 9f1fdc12 2005-10-29 devnull tolist[nto++] = estrdup(fld[i]);
463 9f1fdc12 2005-10-29 devnull }else /* ignore it */
464 9f1fdc12 2005-10-29 devnull delit = 0;
467 9f1fdc12 2005-10-29 devnull if(delit){
468 9f1fdc12 2005-10-29 devnull /* delete line from body */
469 9f1fdc12 2005-10-29 devnull memmove(to, s, n+1);
472 9f1fdc12 2005-10-29 devnull free(copy);
473 9f1fdc12 2005-10-29 devnull first = 0;
476 9f1fdc12 2005-10-29 devnull ofd = open(outgoing, OWRITE|OCEXEC); /* no error check necessary */
477 9f1fdc12 2005-10-29 devnull if(ofd > 0){
478 9f1fdc12 2005-10-29 devnull /* From dhog Fri Aug 24 22:13:00 EDT 2001 */
479 9f1fdc12 2005-10-29 devnull now = ctime(time(0));
480 e03f2c40 2006-03-07 devnull seek(ofd, 0, 2);
481 9f1fdc12 2005-10-29 devnull fprint(ofd, "From %s %s", user, now);
482 9f1fdc12 2005-10-29 devnull fprint(ofd, "From: %s\n", user);
483 9f1fdc12 2005-10-29 devnull fprint(ofd, "Date: %s", now);
484 9f1fdc12 2005-10-29 devnull for(i=0; i<natt; i++)
485 9f1fdc12 2005-10-29 devnull if(included[i])
486 9f1fdc12 2005-10-29 devnull fprint(ofd, "Include: %s\n", attlist[i]);
488 9f1fdc12 2005-10-29 devnull fprint(ofd, "Attach: %s\n", attlist[i]);
489 9f1fdc12 2005-10-29 devnull /* needed because mail is by default Latin-1 */
490 9f1fdc12 2005-10-29 devnull fprint(ofd, "Content-Type: text/plain; charset=\"UTF-8\"\n");
491 9f1fdc12 2005-10-29 devnull fprint(ofd, "Content-Transfer-Encoding: 8bit\n");
494 9f1fdc12 2005-10-29 devnull e = emalloc(sizeof(struct Exec));
495 9f1fdc12 2005-10-29 devnull if(pipe(p) < 0)
496 9f1fdc12 2005-10-29 devnull error("can't create pipe: %r");
497 9f1fdc12 2005-10-29 devnull e->p[0] = p[0];
498 9f1fdc12 2005-10-29 devnull e->p[1] = p[1];
499 9f1fdc12 2005-10-29 devnull e->prog = unsharp("#9/bin/upas/marshal");
500 9f1fdc12 2005-10-29 devnull e->argv = emalloc((1+1+2+4*natt+1)*sizeof(char*));
501 9f1fdc12 2005-10-29 devnull e->argv[0] = estrdup("marshal");
502 9f1fdc12 2005-10-29 devnull e->argv[1] = estrdup("-8");
504 9f1fdc12 2005-10-29 devnull if(m->replyname){
505 9f1fdc12 2005-10-29 devnull e->argv[j++] = estrdup("-R");
506 9f1fdc12 2005-10-29 devnull e->argv[j++] = estrstrdup(mbox.name, m->replyname);
508 9f1fdc12 2005-10-29 devnull for(i=0; i<natt; i++){
509 9f1fdc12 2005-10-29 devnull if(included[i])
510 9f1fdc12 2005-10-29 devnull e->argv[j++] = estrdup("-A");
512 9f1fdc12 2005-10-29 devnull e->argv[j++] = estrdup("-a");
513 9f1fdc12 2005-10-29 devnull e->argv[j++] = estrdup(attlist[i]);
515 9f1fdc12 2005-10-29 devnull sync = chancreate(sizeof(int), 0);
516 9f1fdc12 2005-10-29 devnull e->sync = sync;
517 9f1fdc12 2005-10-29 devnull proccreate(execproc, e, EXECSTACK);
518 9f1fdc12 2005-10-29 devnull recvul(sync);
519 cbeb0b26 2006-04-01 devnull /* close(p[0]); */
521 9f1fdc12 2005-10-29 devnull /* using marshal -8, so generate rfc822 headers */
522 9f1fdc12 2005-10-29 devnull if(nto > 0){
523 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "To: ");
524 9f1fdc12 2005-10-29 devnull for(i=0; i<nto-1; i++)
525 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "%s, ", tolist[i]);
526 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "%s\n", tolist[i]);
528 9f1fdc12 2005-10-29 devnull if(ncc > 0){
529 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "CC: ");
530 9f1fdc12 2005-10-29 devnull for(i=0; i<ncc-1; i++)
531 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "%s, ", cclist[i]);
532 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "%s\n", cclist[i]);
534 9f1fdc12 2005-10-29 devnull if(nbcc > 0){
535 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "BCC: ");
536 9f1fdc12 2005-10-29 devnull for(i=0; i<nbcc-1; i++)
537 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "%s, ", bcclist[i]);
538 9f1fdc12 2005-10-29 devnull print2(p[1], ofd, "%s\n", bcclist[i]);
541 9f1fdc12 2005-10-29 devnull i = strlen(body);
542 9f1fdc12 2005-10-29 devnull if(i > 0)
543 9f1fdc12 2005-10-29 devnull write2(p[1], ofd, body, i, 1);
545 9f1fdc12 2005-10-29 devnull /* guarantee a blank line, to ensure attachments are separated from body */
546 9f1fdc12 2005-10-29 devnull if(i==0 || body[i-1]!='\n')
547 9f1fdc12 2005-10-29 devnull write2(p[1], ofd, "\n\n", 2, 0);
548 9f1fdc12 2005-10-29 devnull else if(i>1 && body[i-2]!='\n')
549 9f1fdc12 2005-10-29 devnull write2(p[1], ofd, "\n", 1, 0);
551 9f1fdc12 2005-10-29 devnull /* these look like pseudo-attachments in the "outgoing" box */
552 9f1fdc12 2005-10-29 devnull if(ofd>0 && natt>0){
553 9f1fdc12 2005-10-29 devnull for(i=0; i<natt; i++)
554 9f1fdc12 2005-10-29 devnull if(included[i])
555 9f1fdc12 2005-10-29 devnull fprint(ofd, "=====> Include: %s\n", attlist[i]);
557 9f1fdc12 2005-10-29 devnull fprint(ofd, "=====> Attach: %s\n", attlist[i]);
559 9f1fdc12 2005-10-29 devnull if(ofd > 0)
560 9f1fdc12 2005-10-29 devnull write(ofd, "\n", 1);
562 9f1fdc12 2005-10-29 devnull for(i=0; i<natt; i++)
563 9f1fdc12 2005-10-29 devnull free(attlist[i]);
564 9f1fdc12 2005-10-29 devnull close(ofd);
565 9f1fdc12 2005-10-29 devnull close(p[1]);
566 9f1fdc12 2005-10-29 devnull free(body);
568 9f1fdc12 2005-10-29 devnull if(m->replyname != nil)
569 9f1fdc12 2005-10-29 devnull mesgmenumark(mbox.w, m->replyname, "\t[replied]");
570 9f1fdc12 2005-10-29 devnull if(m->name[0] == '/')
571 9f1fdc12 2005-10-29 devnull s = estrdup(m->name);
573 9f1fdc12 2005-10-29 devnull s = estrstrdup(mbox.name, m->name);
574 9f1fdc12 2005-10-29 devnull s = egrow(s, "-R", nil);
575 9f1fdc12 2005-10-29 devnull winname(m->w, s);
576 9f1fdc12 2005-10-29 devnull free(s);
577 9f1fdc12 2005-10-29 devnull winclean(m->w);
578 9f1fdc12 2005-10-29 devnull /* mark message unopened because it's no longer the original message */
579 9f1fdc12 2005-10-29 devnull m->opened = 0;