1 5cdb1798 2005-10-29 devnull #include "common.h"
2 5cdb1798 2005-10-29 devnull #include <ctype.h>
3 5cdb1798 2005-10-29 devnull #include <plumb.h>
4 5cdb1798 2005-10-29 devnull #include <9pclient.h>
5 5cdb1798 2005-10-29 devnull #include <thread.h>
7 7e61af51 2006-02-12 devnull #define system nedsystem
8 25c82339 2006-05-21 devnull #define rcmd nedrcmd
10 5cdb1798 2005-10-29 devnull typedef struct Message Message;
11 5cdb1798 2005-10-29 devnull typedef struct Ctype Ctype;
12 5cdb1798 2005-10-29 devnull typedef struct Cmd Cmd;
14 5cdb1798 2005-10-29 devnull char root[Pathlen];
15 5cdb1798 2005-10-29 devnull char mbname[Elemlen];
16 5cdb1798 2005-10-29 devnull int rootlen;
17 5cdb1798 2005-10-29 devnull int didopen;
18 5cdb1798 2005-10-29 devnull char *user;
19 5cdb1798 2005-10-29 devnull char wd[2048];
20 5cdb1798 2005-10-29 devnull String *mbpath;
21 5cdb1798 2005-10-29 devnull int natural;
22 5cdb1798 2005-10-29 devnull int doflush;
24 5cdb1798 2005-10-29 devnull int interrupted;
26 5cdb1798 2005-10-29 devnull struct Message {
27 5cdb1798 2005-10-29 devnull Message *next;
28 5cdb1798 2005-10-29 devnull Message *prev;
29 5cdb1798 2005-10-29 devnull Message *cmd;
30 5cdb1798 2005-10-29 devnull Message *child;
31 5cdb1798 2005-10-29 devnull Message *parent;
32 5cdb1798 2005-10-29 devnull String *path;
35 cbeb0b26 2006-04-01 devnull int fileno; /* number of directory */
36 5cdb1798 2005-10-29 devnull String *info;
37 5cdb1798 2005-10-29 devnull char *from;
38 5cdb1798 2005-10-29 devnull char *to;
39 5cdb1798 2005-10-29 devnull char *cc;
40 5cdb1798 2005-10-29 devnull char *replyto;
41 5cdb1798 2005-10-29 devnull char *date;
42 5cdb1798 2005-10-29 devnull char *subject;
43 5cdb1798 2005-10-29 devnull char *type;
44 5cdb1798 2005-10-29 devnull char *disposition;
45 5cdb1798 2005-10-29 devnull char *filename;
46 5cdb1798 2005-10-29 devnull char deleted;
47 5cdb1798 2005-10-29 devnull char stored;
50 5cdb1798 2005-10-29 devnull Message top;
52 5cdb1798 2005-10-29 devnull struct Ctype {
53 5cdb1798 2005-10-29 devnull char *type;
54 5cdb1798 2005-10-29 devnull char *ext;
55 5cdb1798 2005-10-29 devnull int display;
56 5cdb1798 2005-10-29 devnull char *plumbdest;
57 5cdb1798 2005-10-29 devnull Ctype *next;
60 5cdb1798 2005-10-29 devnull Ctype ctype[] = {
61 5cdb1798 2005-10-29 devnull { "text/plain", "txt", 1, 0 },
62 5cdb1798 2005-10-29 devnull { "text/html", "htm", 1, 0 },
63 5cdb1798 2005-10-29 devnull { "text/html", "html", 1, 0 },
64 5cdb1798 2005-10-29 devnull { "text/tab-separated-values", "tsv", 1, 0 },
65 5cdb1798 2005-10-29 devnull { "text/richtext", "rtx", 1, 0 },
66 5cdb1798 2005-10-29 devnull { "text/rtf", "rtf", 1, 0 },
67 5cdb1798 2005-10-29 devnull { "text", "txt", 1, 0 },
68 5cdb1798 2005-10-29 devnull { "message/rfc822", "msg", 0, 0 },
69 7e61af51 2006-02-12 devnull { "message/delivery-status", "txt", 1, 0 },
70 5cdb1798 2005-10-29 devnull { "image/bmp", "bmp", 0, "image" },
71 5cdb1798 2005-10-29 devnull { "image/jpeg", "jpg", 0, "image" },
72 5cdb1798 2005-10-29 devnull { "image/gif", "gif", 0, "image" },
73 7e61af51 2006-02-12 devnull { "image/png", "png", 0, "image" },
74 5cdb1798 2005-10-29 devnull { "application/pdf", "pdf", 0, "postscript" },
75 5cdb1798 2005-10-29 devnull { "application/postscript", "ps", 0, "postscript" },
76 5cdb1798 2005-10-29 devnull { "application/", 0, 0, 0 },
77 5cdb1798 2005-10-29 devnull { "image/", 0, 0, 0 },
78 5cdb1798 2005-10-29 devnull { "multipart/", "mul", 0, 0 },
82 5cdb1798 2005-10-29 devnull Message* acmd(Cmd*, Message*);
83 5cdb1798 2005-10-29 devnull Message* bcmd(Cmd*, Message*);
84 5cdb1798 2005-10-29 devnull Message* dcmd(Cmd*, Message*);
85 5cdb1798 2005-10-29 devnull Message* eqcmd(Cmd*, Message*);
86 5cdb1798 2005-10-29 devnull Message* hcmd(Cmd*, Message*);
87 5cdb1798 2005-10-29 devnull Message* Hcmd(Cmd*, Message*);
88 5cdb1798 2005-10-29 devnull Message* helpcmd(Cmd*, Message*);
89 5cdb1798 2005-10-29 devnull Message* icmd(Cmd*, Message*);
90 5cdb1798 2005-10-29 devnull Message* pcmd(Cmd*, Message*);
91 5cdb1798 2005-10-29 devnull Message* qcmd(Cmd*, Message*);
92 5cdb1798 2005-10-29 devnull Message* rcmd(Cmd*, Message*);
93 5cdb1798 2005-10-29 devnull Message* scmd(Cmd*, Message*);
94 5cdb1798 2005-10-29 devnull Message* ucmd(Cmd*, Message*);
95 5cdb1798 2005-10-29 devnull Message* wcmd(Cmd*, Message*);
96 5cdb1798 2005-10-29 devnull Message* xcmd(Cmd*, Message*);
97 5cdb1798 2005-10-29 devnull Message* ycmd(Cmd*, Message*);
98 5cdb1798 2005-10-29 devnull Message* pipecmd(Cmd*, Message*);
99 5cdb1798 2005-10-29 devnull Message* rpipecmd(Cmd*, Message*);
100 5cdb1798 2005-10-29 devnull Message* bangcmd(Cmd*, Message*);
101 5cdb1798 2005-10-29 devnull Message* Pcmd(Cmd*, Message*);
102 5cdb1798 2005-10-29 devnull Message* mcmd(Cmd*, Message*);
103 5cdb1798 2005-10-29 devnull Message* fcmd(Cmd*, Message*);
104 5cdb1798 2005-10-29 devnull Message* quotecmd(Cmd*, Message*);
106 5cdb1798 2005-10-29 devnull struct {
107 5cdb1798 2005-10-29 devnull char *cmd;
108 5cdb1798 2005-10-29 devnull int args;
109 5cdb1798 2005-10-29 devnull Message* (*f)(Cmd*, Message*);
110 5cdb1798 2005-10-29 devnull char *help;
111 5cdb1798 2005-10-29 devnull } cmdtab[] = {
112 5cdb1798 2005-10-29 devnull { "a", 1, acmd, "a reply to sender and recipients" },
113 5cdb1798 2005-10-29 devnull { "A", 1, acmd, "A reply to sender and recipients with copy" },
114 5cdb1798 2005-10-29 devnull { "b", 0, bcmd, "b print the next 10 headers" },
115 5cdb1798 2005-10-29 devnull { "d", 0, dcmd, "d mark for deletion" },
116 5cdb1798 2005-10-29 devnull { "f", 0, fcmd, "f file message by from address" },
117 5cdb1798 2005-10-29 devnull { "h", 0, hcmd, "h print elided message summary (,h for all)" },
118 5cdb1798 2005-10-29 devnull { "help", 0, helpcmd, "help print this info" },
119 5cdb1798 2005-10-29 devnull { "H", 0, Hcmd, "H print message's MIME structure " },
120 5cdb1798 2005-10-29 devnull { "i", 0, icmd, "i incorporate new mail" },
121 5cdb1798 2005-10-29 devnull { "m", 1, mcmd, "m addr forward mail" },
122 5cdb1798 2005-10-29 devnull { "M", 1, mcmd, "M addr forward mail with message" },
123 5cdb1798 2005-10-29 devnull { "p", 0, pcmd, "p print the processed message" },
124 5cdb1798 2005-10-29 devnull { "P", 0, Pcmd, "P print the raw message" },
125 5cdb1798 2005-10-29 devnull { "\"", 0, quotecmd, "\" print a quoted version of msg" },
126 5cdb1798 2005-10-29 devnull { "q", 0, qcmd, "q exit and remove all deleted mail" },
127 5cdb1798 2005-10-29 devnull { "r", 1, rcmd, "r [addr] reply to sender plus any addrs specified" },
128 5cdb1798 2005-10-29 devnull { "rf", 1, rcmd, "rf [addr]file message and reply" },
129 5cdb1798 2005-10-29 devnull { "R", 1, rcmd, "R [addr] reply including copy of message" },
130 5cdb1798 2005-10-29 devnull { "Rf", 1, rcmd, "Rf [addr]file message and reply with copy" },
131 5cdb1798 2005-10-29 devnull { "s", 1, scmd, "s file append raw message to file" },
132 5cdb1798 2005-10-29 devnull { "u", 0, ucmd, "u remove deletion mark" },
133 5cdb1798 2005-10-29 devnull { "w", 1, wcmd, "w file store message contents as file" },
134 5cdb1798 2005-10-29 devnull { "x", 0, xcmd, "x exit without flushing deleted messages" },
135 5cdb1798 2005-10-29 devnull { "y", 0, ycmd, "y synchronize with mail box" },
136 5cdb1798 2005-10-29 devnull { "=", 1, eqcmd, "= print current message number" },
137 5cdb1798 2005-10-29 devnull { "|", 1, pipecmd, "|cmd pipe message body to a command" },
138 5cdb1798 2005-10-29 devnull { "||", 1, rpipecmd, "||cmd pipe raw message to a command" },
139 5cdb1798 2005-10-29 devnull { "!", 1, bangcmd, "!cmd run a command" },
140 cbeb0b26 2006-04-01 devnull { nil, 0, nil, nil }
145 cbeb0b26 2006-04-01 devnull NARG= 32
148 5cdb1798 2005-10-29 devnull struct Cmd {
149 5cdb1798 2005-10-29 devnull Message *msgs;
150 5cdb1798 2005-10-29 devnull Message *(*f)(Cmd*, Message*);
152 5cdb1798 2005-10-29 devnull char *av[NARG];
153 5cdb1798 2005-10-29 devnull int delete;
156 5cdb1798 2005-10-29 devnull Biobuf out;
157 5cdb1798 2005-10-29 devnull int startedfs;
158 5cdb1798 2005-10-29 devnull int reverse;
159 5cdb1798 2005-10-29 devnull int longestfrom = 12;
161 5cdb1798 2005-10-29 devnull String* file2string(String*, char*);
162 5cdb1798 2005-10-29 devnull int dir2message(Message*, int);
163 5cdb1798 2005-10-29 devnull int filelen(String*, char*);
164 5cdb1798 2005-10-29 devnull String* extendpath(String*, char*);
165 5cdb1798 2005-10-29 devnull void snprintheader(char*, int, Message*);
166 5cdb1798 2005-10-29 devnull void cracktime(char*, char*, int);
167 5cdb1798 2005-10-29 devnull int cistrncmp(char*, char*, int);
168 5cdb1798 2005-10-29 devnull int cistrcmp(char*, char*);
169 5cdb1798 2005-10-29 devnull Reprog* parsesearch(char**);
170 5cdb1798 2005-10-29 devnull char* parseaddr(char**, Message*, Message*, Message*, Message**);
171 5cdb1798 2005-10-29 devnull char* parsecmd(char*, Cmd*, Message*, Message*);
172 5cdb1798 2005-10-29 devnull char* readline(char*, char*, int);
173 5cdb1798 2005-10-29 devnull void messagecount(Message*);
174 7e61af51 2006-02-12 devnull void system(char*, char**, int);
175 5cdb1798 2005-10-29 devnull void mkid(String*, Message*);
176 5cdb1798 2005-10-29 devnull int switchmb(char*, char*);
177 5cdb1798 2005-10-29 devnull void closemb(void);
178 5cdb1798 2005-10-29 devnull int lineize(char*, char**, int);
179 5cdb1798 2005-10-29 devnull int rawsearch(Message*, Reprog*);
180 5cdb1798 2005-10-29 devnull Message* dosingleton(Message*, char*);
181 5cdb1798 2005-10-29 devnull String* rooted(String*);
182 5cdb1798 2005-10-29 devnull int plumb(Message*, Ctype*);
183 5cdb1798 2005-10-29 devnull String* addrecolon(char*);
184 5cdb1798 2005-10-29 devnull void exitfs(char*);
185 5cdb1798 2005-10-29 devnull Message* flushdeleted(Message*);
187 7e61af51 2006-02-12 devnull CFsys *mailfs;
190 5cdb1798 2005-10-29 devnull usage(void)
192 5cdb1798 2005-10-29 devnull fprint(2, "usage: %s [-nr] [-f mailfile] [-s mailfile]\n", argv0);
193 5cdb1798 2005-10-29 devnull fprint(2, " %s -c dir\n", argv0);
194 7e61af51 2006-02-12 devnull threadexitsall("usage");
198 7e61af51 2006-02-12 devnull catchnote(void *x, char *note)
200 7e61af51 2006-02-12 devnull USED(x);
202 5cdb1798 2005-10-29 devnull if(strstr(note, "interrupt") != nil){
203 5cdb1798 2005-10-29 devnull interrupted = 1;
204 5cdb1798 2005-10-29 devnull noted(NCONT);
206 5cdb1798 2005-10-29 devnull noted(NDFLT);
210 5cdb1798 2005-10-29 devnull plural(int n)
212 5cdb1798 2005-10-29 devnull if (n == 1)
213 5cdb1798 2005-10-29 devnull return "";
215 5cdb1798 2005-10-29 devnull return "s";
219 5cdb1798 2005-10-29 devnull threadmain(int argc, char **argv)
221 5cdb1798 2005-10-29 devnull Message *cur, *m, *x;
222 5cdb1798 2005-10-29 devnull char cmdline[4*1024];
223 5cdb1798 2005-10-29 devnull Cmd cmd;
224 5cdb1798 2005-10-29 devnull Ctype *cp;
225 5cdb1798 2005-10-29 devnull char *err;
226 5cdb1798 2005-10-29 devnull int n, cflag;
227 5cdb1798 2005-10-29 devnull String *prompt;
228 5cdb1798 2005-10-29 devnull char *file, *singleton;
230 5cdb1798 2005-10-29 devnull Binit(&out, 1, OWRITE);
232 5cdb1798 2005-10-29 devnull file = nil;
233 5cdb1798 2005-10-29 devnull singleton = nil;
234 5cdb1798 2005-10-29 devnull reverse = 1;
235 5cdb1798 2005-10-29 devnull cflag = 0;
236 5cdb1798 2005-10-29 devnull ARGBEGIN {
237 5cdb1798 2005-10-29 devnull case 'c':
238 5cdb1798 2005-10-29 devnull cflag = 1;
240 5cdb1798 2005-10-29 devnull case 'f':
241 5cdb1798 2005-10-29 devnull file = EARGF(usage());
243 5cdb1798 2005-10-29 devnull case 's':
244 5cdb1798 2005-10-29 devnull singleton = EARGF(usage());
246 5cdb1798 2005-10-29 devnull case 'r':
247 5cdb1798 2005-10-29 devnull reverse = 0;
249 5cdb1798 2005-10-29 devnull case 'n':
250 5cdb1798 2005-10-29 devnull natural = 1;
251 5cdb1798 2005-10-29 devnull reverse = 0;
253 5cdb1798 2005-10-29 devnull default:
254 5cdb1798 2005-10-29 devnull usage();
256 5cdb1798 2005-10-29 devnull } ARGEND;
258 5cdb1798 2005-10-29 devnull user = getlog();
259 5cdb1798 2005-10-29 devnull if(user == nil || *user == 0)
260 5cdb1798 2005-10-29 devnull sysfatal("can't read user name");
262 5cdb1798 2005-10-29 devnull if(cflag){
263 5cdb1798 2005-10-29 devnull if(argc > 0)
264 5cdb1798 2005-10-29 devnull creatembox(user, argv[0]);
266 5cdb1798 2005-10-29 devnull creatembox(user, nil);
267 7e61af51 2006-02-12 devnull threadexitsall(0);
270 5cdb1798 2005-10-29 devnull if(argc)
271 5cdb1798 2005-10-29 devnull usage();
272 7e61af51 2006-02-12 devnull if((mailfs = nsmount("mail", nil)) == nil)
273 7e61af51 2006-02-12 devnull sysfatal("cannot mount mail: %r");
275 5cdb1798 2005-10-29 devnull switchmb(file, singleton);
277 5cdb1798 2005-10-29 devnull top.path = s_copy(root);
279 5cdb1798 2005-10-29 devnull for(cp = ctype; cp < ctype+nelem(ctype)-1; cp++)
280 5cdb1798 2005-10-29 devnull cp->next = cp+1;
282 5cdb1798 2005-10-29 devnull if(singleton != nil){
283 5cdb1798 2005-10-29 devnull cur = dosingleton(&top, singleton);
284 5cdb1798 2005-10-29 devnull if(cur == nil){
285 5cdb1798 2005-10-29 devnull Bprint(&out, "no message\n");
286 5cdb1798 2005-10-29 devnull exitfs(0);
288 5cdb1798 2005-10-29 devnull pcmd(nil, cur);
289 5cdb1798 2005-10-29 devnull } else {
290 5cdb1798 2005-10-29 devnull cur = ⊤
291 5cdb1798 2005-10-29 devnull n = dir2message(&top, reverse);
292 5cdb1798 2005-10-29 devnull if(n < 0)
293 5cdb1798 2005-10-29 devnull sysfatal("can't read %s", s_to_c(top.path));
294 5cdb1798 2005-10-29 devnull Bprint(&out, "%d message%s\n", n, plural(n));
298 5cdb1798 2005-10-29 devnull notify(catchnote);
299 5cdb1798 2005-10-29 devnull prompt = s_new();
300 5cdb1798 2005-10-29 devnull for(;;){
301 5cdb1798 2005-10-29 devnull s_reset(prompt);
302 5cdb1798 2005-10-29 devnull if(cur == &top)
303 5cdb1798 2005-10-29 devnull s_append(prompt, ": ");
305 5cdb1798 2005-10-29 devnull mkid(prompt, cur);
306 5cdb1798 2005-10-29 devnull s_append(prompt, ": ");
309 cbeb0b26 2006-04-01 devnull /* leave space at the end of cmd line in case parsecmd needs to */
310 cbeb0b26 2006-04-01 devnull /* add a space after a '|' or '!' */
311 5cdb1798 2005-10-29 devnull if(readline(s_to_c(prompt), cmdline, sizeof(cmdline)-1) == nil)
313 5cdb1798 2005-10-29 devnull err = parsecmd(cmdline, &cmd, top.child, cur);
314 5cdb1798 2005-10-29 devnull if(err != nil){
315 5cdb1798 2005-10-29 devnull Bprint(&out, "!%s\n", err);
316 5cdb1798 2005-10-29 devnull continue;
318 5cdb1798 2005-10-29 devnull if(singleton != nil && cmd.f == icmd){
319 5cdb1798 2005-10-29 devnull Bprint(&out, "!illegal command\n");
320 5cdb1798 2005-10-29 devnull continue;
322 5cdb1798 2005-10-29 devnull interrupted = 0;
323 5cdb1798 2005-10-29 devnull if(cmd.msgs == nil || cmd.msgs == &top){
324 5cdb1798 2005-10-29 devnull x = (*cmd.f)(&cmd, &top);
325 5cdb1798 2005-10-29 devnull if(x != nil)
326 5cdb1798 2005-10-29 devnull cur = x;
327 5cdb1798 2005-10-29 devnull } else for(m = cmd.msgs; m != nil; m = m->cmd){
329 5cdb1798 2005-10-29 devnull if(cmd.delete){
330 5cdb1798 2005-10-29 devnull dcmd(&cmd, x);
332 cbeb0b26 2006-04-01 devnull /* dp acts differently than all other commands */
333 cbeb0b26 2006-04-01 devnull /* since its an old lesk idiom that people love. */
334 cbeb0b26 2006-04-01 devnull /* it deletes the current message, moves the current */
335 cbeb0b26 2006-04-01 devnull /* pointer ahead one and prints. */
336 5cdb1798 2005-10-29 devnull if(cmd.f == pcmd){
337 5cdb1798 2005-10-29 devnull if(x->next == nil){
338 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
339 5cdb1798 2005-10-29 devnull cur = x;
342 5cdb1798 2005-10-29 devnull x = x->next;
345 5cdb1798 2005-10-29 devnull x = (*cmd.f)(&cmd, x);
346 5cdb1798 2005-10-29 devnull if(x != nil)
347 5cdb1798 2005-10-29 devnull cur = x;
348 5cdb1798 2005-10-29 devnull if(interrupted)
350 5cdb1798 2005-10-29 devnull if(singleton != nil && (cmd.delete || cmd.f == dcmd))
351 5cdb1798 2005-10-29 devnull qcmd(nil, nil);
353 5cdb1798 2005-10-29 devnull if(doflush)
354 5cdb1798 2005-10-29 devnull cur = flushdeleted(cur);
356 5cdb1798 2005-10-29 devnull qcmd(nil, nil);
359 1ea614ff 2006-02-15 devnull static char*
360 1ea614ff 2006-02-15 devnull mkaddrs(char *t)
362 1ea614ff 2006-02-15 devnull int i, nf, inquote;
363 1ea614ff 2006-02-15 devnull char **f, *s;
364 1ea614ff 2006-02-15 devnull Fmt fmt;
366 1ea614ff 2006-02-15 devnull inquote = 0;
368 1ea614ff 2006-02-15 devnull for(s=t; *s; s++){
369 1ea614ff 2006-02-15 devnull if(*s == '\'')
370 1ea614ff 2006-02-15 devnull inquote = !inquote;
371 1ea614ff 2006-02-15 devnull if(*s == ' ' && !inquote)
374 1ea614ff 2006-02-15 devnull f = malloc(nf*sizeof f[0]);
375 1ea614ff 2006-02-15 devnull if(f == nil)
376 1ea614ff 2006-02-15 devnull return nil;
377 1ea614ff 2006-02-15 devnull nf = tokenize(t, f, nf);
378 1ea614ff 2006-02-15 devnull fmtstrinit(&fmt);
379 1ea614ff 2006-02-15 devnull for(i=0; i+1<nf; i+=2){
380 1ea614ff 2006-02-15 devnull if(i > 0)
381 1ea614ff 2006-02-15 devnull fmtprint(&fmt, " ");
382 cbeb0b26 2006-04-01 devnull /* if(f[i][0] == 0 || strcmp(f[i], f[i+1]) == 0) */
383 1ea614ff 2006-02-15 devnull fmtprint(&fmt, "%s", f[i+1]);
384 cbeb0b26 2006-04-01 devnull /* else */
385 cbeb0b26 2006-04-01 devnull /* fmtprint(&fmt, "%s <%s>", f[i], f[i+1]); */
387 1ea614ff 2006-02-15 devnull free(f);
388 1ea614ff 2006-02-15 devnull return fmtstrflush(&fmt);
392 cbeb0b26 2006-04-01 devnull /* read the message info */
394 5cdb1798 2005-10-29 devnull Message*
395 5cdb1798 2005-10-29 devnull file2message(Message *parent, char *name)
397 5cdb1798 2005-10-29 devnull Message *m;
398 5cdb1798 2005-10-29 devnull String *path;
399 7e61af51 2006-02-12 devnull char *f[30], *s, *t;
400 7e61af51 2006-02-12 devnull int i, nf;
402 5cdb1798 2005-10-29 devnull m = mallocz(sizeof(Message), 1);
403 5cdb1798 2005-10-29 devnull if(m == nil)
404 5cdb1798 2005-10-29 devnull return nil;
405 5cdb1798 2005-10-29 devnull m->path = path = extendpath(parent->path, name);
406 5cdb1798 2005-10-29 devnull m->fileno = atoi(name);
407 5cdb1798 2005-10-29 devnull m->info = file2string(path, "info");
408 7e61af51 2006-02-12 devnull m->from = "";
409 7e61af51 2006-02-12 devnull m->to = "";
410 7e61af51 2006-02-12 devnull m->cc = "";
411 7e61af51 2006-02-12 devnull m->replyto = "";
412 7e61af51 2006-02-12 devnull m->date = "";
413 7e61af51 2006-02-12 devnull m->subject = "";
414 7e61af51 2006-02-12 devnull m->type = "";
415 7e61af51 2006-02-12 devnull m->disposition = "";
416 7e61af51 2006-02-12 devnull m->filename = "";
417 7e61af51 2006-02-12 devnull nf = lineize(s_to_c(m->info), f, nelem(f));
418 7e61af51 2006-02-12 devnull for(i=0; i<nf; i++){
419 7e61af51 2006-02-12 devnull s = f[i];
420 7e61af51 2006-02-12 devnull t = strchr(f[i], ' ');
421 7e61af51 2006-02-12 devnull if(t == nil)
422 7e61af51 2006-02-12 devnull continue;
423 7e61af51 2006-02-12 devnull *t++ = 0;
425 7e61af51 2006-02-12 devnull if(strcmp(s, "from") == 0)
426 1ea614ff 2006-02-15 devnull m->from = mkaddrs(t);
427 7e61af51 2006-02-12 devnull else if(strcmp(s, "to") == 0)
428 1ea614ff 2006-02-15 devnull m->to = mkaddrs(t);
429 7e61af51 2006-02-12 devnull else if(strcmp(s, "cc") == 0)
430 1ea614ff 2006-02-15 devnull m->cc = mkaddrs(t);
431 7e61af51 2006-02-12 devnull else if(strcmp(s, "replyto") == 0)
432 1ea614ff 2006-02-15 devnull m->replyto = mkaddrs(t);
433 7e61af51 2006-02-12 devnull else if(strcmp(s, "unixdate") == 0 && (t=strchr(t, ' ')) != nil)
434 7e61af51 2006-02-12 devnull m->date = t;
435 7e61af51 2006-02-12 devnull else if(strcmp(s, "subject") == 0)
436 7e61af51 2006-02-12 devnull m->subject = t;
437 7e61af51 2006-02-12 devnull else if(strcmp(s, "type") == 0)
438 7e61af51 2006-02-12 devnull m->type = t;
439 7e61af51 2006-02-12 devnull else if(strcmp(s, "disposition") == 0)
440 7e61af51 2006-02-12 devnull m->disposition = t;
441 7e61af51 2006-02-12 devnull else if(strcmp(s, "filename") == 0)
442 7e61af51 2006-02-12 devnull m->filename = t;
444 5cdb1798 2005-10-29 devnull m->len = filelen(path, "raw");
445 5cdb1798 2005-10-29 devnull if(strstr(m->type, "multipart") != nil || strcmp(m->type, "message/rfc822") == 0)
446 5cdb1798 2005-10-29 devnull dir2message(m, 0);
447 5cdb1798 2005-10-29 devnull m->parent = parent;
449 5cdb1798 2005-10-29 devnull return m;
453 5cdb1798 2005-10-29 devnull freemessage(Message *m)
455 5cdb1798 2005-10-29 devnull Message *nm, *next;
457 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = next){
458 5cdb1798 2005-10-29 devnull next = nm->next;
459 5cdb1798 2005-10-29 devnull freemessage(nm);
461 5cdb1798 2005-10-29 devnull s_free(m->path);
462 5cdb1798 2005-10-29 devnull s_free(m->info);
463 5cdb1798 2005-10-29 devnull free(m);
467 cbeb0b26 2006-04-01 devnull /* read a directory into a list of messages */
470 5cdb1798 2005-10-29 devnull dir2message(Message *parent, int reverse)
472 5cdb1798 2005-10-29 devnull int i, n, highest, newmsgs;
473 7e61af51 2006-02-12 devnull CFid *fd;
476 5cdb1798 2005-10-29 devnull Message *first, *last, *m;
478 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(parent->path), OREAD);
479 7e61af51 2006-02-12 devnull if(fd == nil)
480 5cdb1798 2005-10-29 devnull return -1;
482 cbeb0b26 2006-04-01 devnull /* count current entries */
483 5cdb1798 2005-10-29 devnull first = parent->child;
484 5cdb1798 2005-10-29 devnull highest = newmsgs = 0;
485 5cdb1798 2005-10-29 devnull for(last = parent->child; last != nil && last->next != nil; last = last->next)
486 5cdb1798 2005-10-29 devnull if(last->fileno > highest)
487 5cdb1798 2005-10-29 devnull highest = last->fileno;
488 5cdb1798 2005-10-29 devnull if(last != nil)
489 5cdb1798 2005-10-29 devnull if(last->fileno > highest)
490 5cdb1798 2005-10-29 devnull highest = last->fileno;
492 7e61af51 2006-02-12 devnull n = fsdirreadall(fd, &d);
493 5cdb1798 2005-10-29 devnull for(i = 0; i < n; i++){
494 5cdb1798 2005-10-29 devnull if((d[i].qid.type & QTDIR) == 0)
495 5cdb1798 2005-10-29 devnull continue;
496 5cdb1798 2005-10-29 devnull if(atoi(d[i].name) <= highest)
497 5cdb1798 2005-10-29 devnull continue;
498 5cdb1798 2005-10-29 devnull m = file2message(parent, d[i].name);
499 cbeb0b26 2006-04-01 devnull /* fprint(2,"returned from file2message\n"); */
500 5cdb1798 2005-10-29 devnull if(m == nil)
502 5cdb1798 2005-10-29 devnull newmsgs++;
503 5cdb1798 2005-10-29 devnull if(reverse){
504 5cdb1798 2005-10-29 devnull m->next = first;
505 5cdb1798 2005-10-29 devnull if(first != nil)
506 5cdb1798 2005-10-29 devnull first->prev = m;
507 5cdb1798 2005-10-29 devnull first = m;
508 5cdb1798 2005-10-29 devnull } else {
509 5cdb1798 2005-10-29 devnull if(first == nil)
510 5cdb1798 2005-10-29 devnull first = m;
512 5cdb1798 2005-10-29 devnull last->next = m;
513 5cdb1798 2005-10-29 devnull m->prev = last;
514 5cdb1798 2005-10-29 devnull last = m;
517 5cdb1798 2005-10-29 devnull free(d);
518 7e61af51 2006-02-12 devnull fsclose(fd);
519 5cdb1798 2005-10-29 devnull parent->child = first;
521 cbeb0b26 2006-04-01 devnull /* renumber and file longest from */
523 5cdb1798 2005-10-29 devnull longestfrom = 12;
524 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
525 5cdb1798 2005-10-29 devnull m->id = natural ? m->fileno : i++;
526 5cdb1798 2005-10-29 devnull n = strlen(m->from);
527 5cdb1798 2005-10-29 devnull if(n > longestfrom)
528 5cdb1798 2005-10-29 devnull longestfrom = n;
531 5cdb1798 2005-10-29 devnull return newmsgs;
535 cbeb0b26 2006-04-01 devnull /* point directly to a message */
537 5cdb1798 2005-10-29 devnull Message*
538 5cdb1798 2005-10-29 devnull dosingleton(Message *parent, char *path)
540 5cdb1798 2005-10-29 devnull char *p, *np;
541 5cdb1798 2005-10-29 devnull Message *m;
543 cbeb0b26 2006-04-01 devnull /* walk down to message and read it */
544 5cdb1798 2005-10-29 devnull if(strlen(path) < rootlen)
545 5cdb1798 2005-10-29 devnull return nil;
546 5cdb1798 2005-10-29 devnull if(path[rootlen] != '/')
547 5cdb1798 2005-10-29 devnull return nil;
548 5cdb1798 2005-10-29 devnull p = path+rootlen+1;
549 5cdb1798 2005-10-29 devnull np = strchr(p, '/');
550 5cdb1798 2005-10-29 devnull if(np != nil)
551 5cdb1798 2005-10-29 devnull *np = 0;
552 5cdb1798 2005-10-29 devnull m = file2message(parent, p);
553 5cdb1798 2005-10-29 devnull if(m == nil)
554 5cdb1798 2005-10-29 devnull return nil;
555 5cdb1798 2005-10-29 devnull parent->child = m;
556 5cdb1798 2005-10-29 devnull m->id = 1;
558 cbeb0b26 2006-04-01 devnull /* walk down to requested component */
559 5cdb1798 2005-10-29 devnull while(np != nil){
560 5cdb1798 2005-10-29 devnull *np = '/';
561 5cdb1798 2005-10-29 devnull np = strchr(np+1, '/');
562 5cdb1798 2005-10-29 devnull if(np != nil)
563 5cdb1798 2005-10-29 devnull *np = 0;
564 5cdb1798 2005-10-29 devnull for(m = m->child; m != nil; m = m->next)
565 5cdb1798 2005-10-29 devnull if(strcmp(path, s_to_c(m->path)) == 0)
566 5cdb1798 2005-10-29 devnull return m;
567 5cdb1798 2005-10-29 devnull if(m == nil)
568 5cdb1798 2005-10-29 devnull return nil;
570 5cdb1798 2005-10-29 devnull return m;
574 cbeb0b26 2006-04-01 devnull /* read a file into a string */
577 5cdb1798 2005-10-29 devnull file2string(String *dir, char *file)
579 5cdb1798 2005-10-29 devnull String *s;
580 5cdb1798 2005-10-29 devnull int n, m;
581 7e61af51 2006-02-12 devnull CFid *fd;
583 5cdb1798 2005-10-29 devnull s = extendpath(dir, file);
584 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(s), OREAD);
585 5cdb1798 2005-10-29 devnull s_grow(s, 512); /* avoid multiple reads on info files */
586 5cdb1798 2005-10-29 devnull s_reset(s);
587 7e61af51 2006-02-12 devnull if(fd == nil)
588 5cdb1798 2005-10-29 devnull return s;
590 5cdb1798 2005-10-29 devnull for(;;){
591 5cdb1798 2005-10-29 devnull n = s->end - s->ptr;
592 5cdb1798 2005-10-29 devnull if(n == 0){
593 5cdb1798 2005-10-29 devnull s_grow(s, 128);
594 5cdb1798 2005-10-29 devnull continue;
596 7e61af51 2006-02-12 devnull m = fsread(fd, s->ptr, n);
597 5cdb1798 2005-10-29 devnull if(m <= 0)
599 5cdb1798 2005-10-29 devnull s->ptr += m;
600 5cdb1798 2005-10-29 devnull if(m < n)
603 5cdb1798 2005-10-29 devnull s_terminate(s);
604 7e61af51 2006-02-12 devnull fsclose(fd);
606 5cdb1798 2005-10-29 devnull return s;
610 cbeb0b26 2006-04-01 devnull /* get the length of a file */
613 5cdb1798 2005-10-29 devnull filelen(String *dir, char *file)
615 5cdb1798 2005-10-29 devnull String *path;
619 5cdb1798 2005-10-29 devnull path = extendpath(dir, file);
620 7e61af51 2006-02-12 devnull d = fsdirstat(mailfs, s_to_c(path));
621 5cdb1798 2005-10-29 devnull if(d == nil){
622 5cdb1798 2005-10-29 devnull s_free(path);
623 5cdb1798 2005-10-29 devnull return -1;
625 5cdb1798 2005-10-29 devnull s_free(path);
626 5cdb1798 2005-10-29 devnull rv = d->length;
627 5cdb1798 2005-10-29 devnull free(d);
628 5cdb1798 2005-10-29 devnull return rv;
632 cbeb0b26 2006-04-01 devnull /* walk the path name an element */
635 5cdb1798 2005-10-29 devnull extendpath(String *dir, char *name)
637 5cdb1798 2005-10-29 devnull String *path;
639 5cdb1798 2005-10-29 devnull if(strcmp(s_to_c(dir), ".") == 0)
640 5cdb1798 2005-10-29 devnull path = s_new();
642 5cdb1798 2005-10-29 devnull path = s_copy(s_to_c(dir));
643 5cdb1798 2005-10-29 devnull s_append(path, "/");
645 5cdb1798 2005-10-29 devnull s_append(path, name);
646 5cdb1798 2005-10-29 devnull return path;
650 5cdb1798 2005-10-29 devnull cistrncmp(char *a, char *b, int n)
652 5cdb1798 2005-10-29 devnull while(n-- > 0){
653 5cdb1798 2005-10-29 devnull if(tolower(*a++) != tolower(*b++))
654 5cdb1798 2005-10-29 devnull return -1;
656 5cdb1798 2005-10-29 devnull return 0;
660 5cdb1798 2005-10-29 devnull cistrcmp(char *a, char *b)
662 5cdb1798 2005-10-29 devnull for(;;){
663 5cdb1798 2005-10-29 devnull if(tolower(*a) != tolower(*b++))
664 5cdb1798 2005-10-29 devnull return -1;
665 5cdb1798 2005-10-29 devnull if(*a++ == 0)
668 5cdb1798 2005-10-29 devnull return 0;
672 5cdb1798 2005-10-29 devnull nosecs(char *t)
674 5cdb1798 2005-10-29 devnull char *p;
676 5cdb1798 2005-10-29 devnull p = strchr(t, ':');
677 5cdb1798 2005-10-29 devnull if(p == nil)
678 5cdb1798 2005-10-29 devnull return t;
679 5cdb1798 2005-10-29 devnull p = strchr(p+1, ':');
680 5cdb1798 2005-10-29 devnull if(p != nil)
682 5cdb1798 2005-10-29 devnull return t;
685 5cdb1798 2005-10-29 devnull char *months[12] =
687 5cdb1798 2005-10-29 devnull "jan", "feb", "mar", "apr", "may", "jun",
688 5cdb1798 2005-10-29 devnull "jul", "aug", "sep", "oct", "nov", "dec"
692 5cdb1798 2005-10-29 devnull month(char *m)
696 5cdb1798 2005-10-29 devnull for(i = 0; i < 12; i++)
697 5cdb1798 2005-10-29 devnull if(cistrcmp(m, months[i]) == 0)
698 5cdb1798 2005-10-29 devnull return i+1;
699 5cdb1798 2005-10-29 devnull return 1;
704 5cdb1798 2005-10-29 devnull Yearsecs= 365*24*60*60
708 5cdb1798 2005-10-29 devnull cracktime(char *d, char *out, int len)
710 5cdb1798 2005-10-29 devnull char in[64];
711 5cdb1798 2005-10-29 devnull char *f[6];
714 5cdb1798 2005-10-29 devnull long now, then;
715 5cdb1798 2005-10-29 devnull char *dtime;
717 5cdb1798 2005-10-29 devnull *out = 0;
718 5cdb1798 2005-10-29 devnull if(d == nil)
720 5cdb1798 2005-10-29 devnull strncpy(in, d, sizeof(in));
721 5cdb1798 2005-10-29 devnull in[sizeof(in)-1] = 0;
722 5cdb1798 2005-10-29 devnull n = getfields(in, f, 6, 1, " \t\r\n");
723 5cdb1798 2005-10-29 devnull if(n != 6){
724 cbeb0b26 2006-04-01 devnull /* unknown style */
725 5cdb1798 2005-10-29 devnull snprint(out, 16, "%10.10s", d);
728 5cdb1798 2005-10-29 devnull now = time(0);
729 5cdb1798 2005-10-29 devnull memset(&tm, 0, sizeof tm);
730 5cdb1798 2005-10-29 devnull if(strchr(f[0], ',') != nil && strchr(f[4], ':') != nil){
731 cbeb0b26 2006-04-01 devnull /* 822 style */
732 5cdb1798 2005-10-29 devnull tm.year = atoi(f[3])-1900;
733 5cdb1798 2005-10-29 devnull tm.mon = month(f[2]);
734 5cdb1798 2005-10-29 devnull tm.mday = atoi(f[1]);
735 5cdb1798 2005-10-29 devnull dtime = nosecs(f[4]);
736 5cdb1798 2005-10-29 devnull then = tm2sec(&tm);
737 5cdb1798 2005-10-29 devnull } else if(strchr(f[3], ':') != nil){
738 cbeb0b26 2006-04-01 devnull /* unix style */
739 5cdb1798 2005-10-29 devnull tm.year = atoi(f[5])-1900;
740 5cdb1798 2005-10-29 devnull tm.mon = month(f[1]);
741 5cdb1798 2005-10-29 devnull tm.mday = atoi(f[2]);
742 5cdb1798 2005-10-29 devnull dtime = nosecs(f[3]);
743 5cdb1798 2005-10-29 devnull then = tm2sec(&tm);
744 5cdb1798 2005-10-29 devnull } else {
745 5cdb1798 2005-10-29 devnull then = now;
746 5cdb1798 2005-10-29 devnull tm = *localtime(now);
747 5cdb1798 2005-10-29 devnull dtime = "";
750 5cdb1798 2005-10-29 devnull if(now - then < Yearsecs/2)
751 5cdb1798 2005-10-29 devnull snprint(out, len, "%2d/%2.2d %s", tm.mon, tm.mday, dtime);
753 5cdb1798 2005-10-29 devnull snprint(out, len, "%2d/%2.2d %4d", tm.mon, tm.mday, tm.year+1900);
757 5cdb1798 2005-10-29 devnull findctype(Message *m)
759 5cdb1798 2005-10-29 devnull char *p;
760 5cdb1798 2005-10-29 devnull char ftype[128];
761 5cdb1798 2005-10-29 devnull int n, pfd[2];
762 5cdb1798 2005-10-29 devnull Ctype *a, *cp;
763 5cdb1798 2005-10-29 devnull static Ctype bintype = { "application/octet-stream", "bin", 0, 0 };
765 5cdb1798 2005-10-29 devnull for(cp = ctype; cp; cp = cp->next)
766 5cdb1798 2005-10-29 devnull if(strncmp(cp->type, m->type, strlen(cp->type)) == 0)
767 5cdb1798 2005-10-29 devnull return cp;
769 5cdb1798 2005-10-29 devnull if(pipe(pfd) < 0)
770 5cdb1798 2005-10-29 devnull return &bintype;
772 5cdb1798 2005-10-29 devnull *ftype = 0;
773 5cdb1798 2005-10-29 devnull switch(fork()){
774 5cdb1798 2005-10-29 devnull case -1:
777 5cdb1798 2005-10-29 devnull close(pfd[1]);
778 5cdb1798 2005-10-29 devnull close(0);
779 5cdb1798 2005-10-29 devnull dup(pfd[0], 0);
780 5cdb1798 2005-10-29 devnull close(1);
781 5cdb1798 2005-10-29 devnull dup(pfd[0], 1);
782 5cdb1798 2005-10-29 devnull execl(unsharp("#9/bin/file"), "file", "-m", s_to_c(extendpath(m->path, "body")), nil);
783 5cdb1798 2005-10-29 devnull threadexits(0);
784 5cdb1798 2005-10-29 devnull default:
785 5cdb1798 2005-10-29 devnull close(pfd[0]);
786 5cdb1798 2005-10-29 devnull n = read(pfd[1], ftype, sizeof(ftype));
787 5cdb1798 2005-10-29 devnull if(n > 0)
788 5cdb1798 2005-10-29 devnull ftype[n] = 0;
789 5cdb1798 2005-10-29 devnull close(pfd[1]);
790 5cdb1798 2005-10-29 devnull waitpid();
794 5cdb1798 2005-10-29 devnull if (*ftype=='\0' || (p = strchr(ftype, '/')) == nil)
795 5cdb1798 2005-10-29 devnull return &bintype;
796 5cdb1798 2005-10-29 devnull *p++ = 0;
798 5cdb1798 2005-10-29 devnull a = mallocz(sizeof(Ctype), 1);
799 5cdb1798 2005-10-29 devnull a->type = strdup(ftype);
800 5cdb1798 2005-10-29 devnull a->ext = strdup(p);
801 5cdb1798 2005-10-29 devnull a->display = 0;
802 5cdb1798 2005-10-29 devnull a->plumbdest = strdup(ftype);
803 5cdb1798 2005-10-29 devnull for(cp = ctype; cp->next; cp = cp->next)
804 5cdb1798 2005-10-29 devnull continue;
805 5cdb1798 2005-10-29 devnull cp->next = a;
806 5cdb1798 2005-10-29 devnull a->next = nil;
807 5cdb1798 2005-10-29 devnull return a;
811 5cdb1798 2005-10-29 devnull mkid(String *s, Message *m)
813 5cdb1798 2005-10-29 devnull char buf[32];
815 5cdb1798 2005-10-29 devnull if(m->parent != &top){
816 5cdb1798 2005-10-29 devnull mkid(s, m->parent);
817 5cdb1798 2005-10-29 devnull s_append(s, ".");
819 5cdb1798 2005-10-29 devnull sprint(buf, "%d", m->id);
820 5cdb1798 2005-10-29 devnull s_append(s, buf);
824 5cdb1798 2005-10-29 devnull snprintheader(char *buf, int len, Message *m)
826 5cdb1798 2005-10-29 devnull char timebuf[32];
827 5cdb1798 2005-10-29 devnull String *id;
828 5cdb1798 2005-10-29 devnull char *p, *q;;
830 cbeb0b26 2006-04-01 devnull /* create id */
831 5cdb1798 2005-10-29 devnull id = s_new();
832 5cdb1798 2005-10-29 devnull mkid(id, m);
834 5cdb1798 2005-10-29 devnull if(*m->from == 0){
835 cbeb0b26 2006-04-01 devnull /* no from */
836 5cdb1798 2005-10-29 devnull snprint(buf, len, "%-3s %s %6d %s",
837 5cdb1798 2005-10-29 devnull s_to_c(id),
838 5cdb1798 2005-10-29 devnull m->type,
840 5cdb1798 2005-10-29 devnull m->filename);
841 5cdb1798 2005-10-29 devnull } else if(*m->subject){
842 5cdb1798 2005-10-29 devnull q = p = strdup(m->subject);
843 5cdb1798 2005-10-29 devnull while(*p == ' ')
845 5cdb1798 2005-10-29 devnull if(strlen(p) > 50)
846 5cdb1798 2005-10-29 devnull p[50] = 0;
847 5cdb1798 2005-10-29 devnull cracktime(m->date, timebuf, sizeof(timebuf));
848 5cdb1798 2005-10-29 devnull snprint(buf, len, "%-3s %c%c%c %6d %11.11s %-*.*s %s",
849 5cdb1798 2005-10-29 devnull s_to_c(id),
850 5cdb1798 2005-10-29 devnull m->child ? 'H' : ' ',
851 5cdb1798 2005-10-29 devnull m->deleted ? 'd' : ' ',
852 5cdb1798 2005-10-29 devnull m->stored ? 's' : ' ',
854 5cdb1798 2005-10-29 devnull timebuf,
855 5cdb1798 2005-10-29 devnull longestfrom, longestfrom, m->from,
857 5cdb1798 2005-10-29 devnull free(q);
858 5cdb1798 2005-10-29 devnull } else {
859 5cdb1798 2005-10-29 devnull cracktime(m->date, timebuf, sizeof(timebuf));
860 5cdb1798 2005-10-29 devnull snprint(buf, len, "%-3s %c%c%c %6d %11.11s %s",
861 5cdb1798 2005-10-29 devnull s_to_c(id),
862 5cdb1798 2005-10-29 devnull m->child ? 'H' : ' ',
863 5cdb1798 2005-10-29 devnull m->deleted ? 'd' : ' ',
864 5cdb1798 2005-10-29 devnull m->stored ? 's' : ' ',
866 5cdb1798 2005-10-29 devnull timebuf,
867 5cdb1798 2005-10-29 devnull m->from);
869 5cdb1798 2005-10-29 devnull s_free(id);
872 5cdb1798 2005-10-29 devnull char *spaces = " ";
875 5cdb1798 2005-10-29 devnull snprintHeader(char *buf, int len, int indent, Message *m)
877 5cdb1798 2005-10-29 devnull String *id;
878 5cdb1798 2005-10-29 devnull char typeid[64];
879 5cdb1798 2005-10-29 devnull char *p, *e;
881 cbeb0b26 2006-04-01 devnull /* create id */
882 5cdb1798 2005-10-29 devnull id = s_new();
883 5cdb1798 2005-10-29 devnull mkid(id, m);
885 5cdb1798 2005-10-29 devnull e = buf + len;
887 5cdb1798 2005-10-29 devnull snprint(typeid, sizeof typeid, "%s %s", s_to_c(id), m->type);
888 5cdb1798 2005-10-29 devnull if(indent < 6)
889 5cdb1798 2005-10-29 devnull p = seprint(buf, e, "%-32s %-6d ", typeid, m->len);
891 5cdb1798 2005-10-29 devnull p = seprint(buf, e, "%-64s %-6d ", typeid, m->len);
892 5cdb1798 2005-10-29 devnull if(m->filename && *m->filename)
893 5cdb1798 2005-10-29 devnull p = seprint(p, e, "(file,%s)", m->filename);
894 5cdb1798 2005-10-29 devnull if(m->from && *m->from)
895 5cdb1798 2005-10-29 devnull p = seprint(p, e, "(from,%s)", m->from);
896 5cdb1798 2005-10-29 devnull if(m->subject && *m->subject)
897 5cdb1798 2005-10-29 devnull seprint(p, e, "(subj,%s)", m->subject);
899 5cdb1798 2005-10-29 devnull s_free(id);
902 5cdb1798 2005-10-29 devnull char sstring[256];
904 cbeb0b26 2006-04-01 devnull /* cmd := range cmd ' ' arg-list ; */
905 cbeb0b26 2006-04-01 devnull /* range := address */
906 cbeb0b26 2006-04-01 devnull /* | address ',' address */
907 cbeb0b26 2006-04-01 devnull /* | 'g' search ; */
908 cbeb0b26 2006-04-01 devnull /* address := msgno */
909 cbeb0b26 2006-04-01 devnull /* | search ; */
910 cbeb0b26 2006-04-01 devnull /* msgno := number */
911 cbeb0b26 2006-04-01 devnull /* | number '/' msgno ; */
912 cbeb0b26 2006-04-01 devnull /* search := '/' string '/' */
913 cbeb0b26 2006-04-01 devnull /* | '%' string '%' ; */
916 5cdb1798 2005-10-29 devnull parsesearch(char **pp)
918 5cdb1798 2005-10-29 devnull char *p, *np;
919 5cdb1798 2005-10-29 devnull int c, n;
921 5cdb1798 2005-10-29 devnull p = *pp;
922 5cdb1798 2005-10-29 devnull c = *p++;
923 5cdb1798 2005-10-29 devnull np = strchr(p, c);
924 5cdb1798 2005-10-29 devnull if(np != nil){
925 5cdb1798 2005-10-29 devnull *np++ = 0;
926 5cdb1798 2005-10-29 devnull *pp = np;
927 5cdb1798 2005-10-29 devnull } else {
928 5cdb1798 2005-10-29 devnull n = strlen(p);
929 5cdb1798 2005-10-29 devnull *pp = p + n;
931 5cdb1798 2005-10-29 devnull if(*p == 0)
932 5cdb1798 2005-10-29 devnull p = sstring;
934 5cdb1798 2005-10-29 devnull strncpy(sstring, p, sizeof(sstring));
935 5cdb1798 2005-10-29 devnull sstring[sizeof(sstring)-1] = 0;
937 5cdb1798 2005-10-29 devnull return regcomp(p);
941 5cdb1798 2005-10-29 devnull parseaddr(char **pp, Message *first, Message *cur, Message *unspec, Message **mp)
944 5cdb1798 2005-10-29 devnull Message *m;
945 5cdb1798 2005-10-29 devnull char *p;
946 5cdb1798 2005-10-29 devnull Reprog *prog;
947 5cdb1798 2005-10-29 devnull int c, sign;
948 5cdb1798 2005-10-29 devnull char buf[256];
950 5cdb1798 2005-10-29 devnull *mp = nil;
951 5cdb1798 2005-10-29 devnull p = *pp;
953 5cdb1798 2005-10-29 devnull if(*p == '+'){
954 5cdb1798 2005-10-29 devnull sign = 1;
956 5cdb1798 2005-10-29 devnull *pp = p;
957 5cdb1798 2005-10-29 devnull } else if(*p == '-'){
958 5cdb1798 2005-10-29 devnull sign = -1;
960 5cdb1798 2005-10-29 devnull *pp = p;
962 5cdb1798 2005-10-29 devnull sign = 0;
964 5cdb1798 2005-10-29 devnull switch(*p){
965 5cdb1798 2005-10-29 devnull default:
966 5cdb1798 2005-10-29 devnull if(sign){
968 5cdb1798 2005-10-29 devnull goto number;
970 5cdb1798 2005-10-29 devnull *mp = unspec;
972 5cdb1798 2005-10-29 devnull case '0': case '1': case '2': case '3': case '4':
973 5cdb1798 2005-10-29 devnull case '5': case '6': case '7': case '8': case '9':
974 5cdb1798 2005-10-29 devnull n = strtoul(p, pp, 10);
975 5cdb1798 2005-10-29 devnull if(n == 0){
976 5cdb1798 2005-10-29 devnull if(sign)
977 5cdb1798 2005-10-29 devnull *mp = cur;
979 5cdb1798 2005-10-29 devnull *mp = ⊤
983 5cdb1798 2005-10-29 devnull m = nil;
984 5cdb1798 2005-10-29 devnull switch(sign){
986 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next)
987 5cdb1798 2005-10-29 devnull if(m->id == n)
990 5cdb1798 2005-10-29 devnull case -1:
991 5cdb1798 2005-10-29 devnull if(cur != &top)
992 5cdb1798 2005-10-29 devnull for(m = cur; m != nil && n > 0; n--)
993 5cdb1798 2005-10-29 devnull m = m->prev;
996 5cdb1798 2005-10-29 devnull if(cur == &top){
998 5cdb1798 2005-10-29 devnull cur = first;
1000 5cdb1798 2005-10-29 devnull for(m = cur; m != nil && n > 0; n--)
1001 5cdb1798 2005-10-29 devnull m = m->next;
1004 5cdb1798 2005-10-29 devnull if(m == nil)
1005 5cdb1798 2005-10-29 devnull return "address";
1006 5cdb1798 2005-10-29 devnull *mp = m;
1008 5cdb1798 2005-10-29 devnull case '%':
1009 5cdb1798 2005-10-29 devnull case '/':
1010 5cdb1798 2005-10-29 devnull case '?':
1011 5cdb1798 2005-10-29 devnull c = *p;
1012 5cdb1798 2005-10-29 devnull prog = parsesearch(pp);
1013 5cdb1798 2005-10-29 devnull if(prog == nil)
1014 5cdb1798 2005-10-29 devnull return "badly formed regular expression";
1015 5cdb1798 2005-10-29 devnull m = nil;
1016 5cdb1798 2005-10-29 devnull switch(c){
1017 5cdb1798 2005-10-29 devnull case '%':
1018 5cdb1798 2005-10-29 devnull for(m = cur == &top ? first : cur->next; m != nil; m = m->next){
1019 5cdb1798 2005-10-29 devnull if(rawsearch(m, prog))
1023 5cdb1798 2005-10-29 devnull case '/':
1024 5cdb1798 2005-10-29 devnull for(m = cur == &top ? first : cur->next; m != nil; m = m->next){
1025 5cdb1798 2005-10-29 devnull snprintheader(buf, sizeof(buf), m);
1026 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0))
1030 5cdb1798 2005-10-29 devnull case '?':
1031 5cdb1798 2005-10-29 devnull for(m = cur == &top ? nil : cur->prev; m != nil; m = m->prev){
1032 5cdb1798 2005-10-29 devnull snprintheader(buf, sizeof(buf), m);
1033 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0))
1038 5cdb1798 2005-10-29 devnull if(m == nil)
1039 5cdb1798 2005-10-29 devnull return "search";
1040 5cdb1798 2005-10-29 devnull *mp = m;
1041 5cdb1798 2005-10-29 devnull free(prog);
1043 5cdb1798 2005-10-29 devnull case '$':
1044 5cdb1798 2005-10-29 devnull for(m = first; m != nil && m->next != nil; m = m->next)
1046 5cdb1798 2005-10-29 devnull *mp = m;
1047 5cdb1798 2005-10-29 devnull *pp = p+1;
1049 5cdb1798 2005-10-29 devnull case '.':
1050 5cdb1798 2005-10-29 devnull *mp = cur;
1051 5cdb1798 2005-10-29 devnull *pp = p+1;
1053 5cdb1798 2005-10-29 devnull case ',':
1054 5cdb1798 2005-10-29 devnull *mp = first;
1055 5cdb1798 2005-10-29 devnull *pp = p;
1059 5cdb1798 2005-10-29 devnull if(*mp != nil && **pp == '.'){
1060 5cdb1798 2005-10-29 devnull (*pp)++;
1061 5cdb1798 2005-10-29 devnull if((*mp)->child == nil)
1062 5cdb1798 2005-10-29 devnull return "no sub parts";
1063 5cdb1798 2005-10-29 devnull return parseaddr(pp, (*mp)->child, (*mp)->child, (*mp)->child, mp);
1065 5cdb1798 2005-10-29 devnull if(**pp == '+' || **pp == '-' || **pp == '/' || **pp == '%')
1066 5cdb1798 2005-10-29 devnull return parseaddr(pp, first, *mp, *mp, mp);
1068 5cdb1798 2005-10-29 devnull return nil;
1072 cbeb0b26 2006-04-01 devnull /* search a message for a regular expression match */
1075 5cdb1798 2005-10-29 devnull rawsearch(Message *m, Reprog *prog)
1077 5cdb1798 2005-10-29 devnull char buf[4096+1];
1078 5cdb1798 2005-10-29 devnull int i, rv;
1079 7e61af51 2006-02-12 devnull CFid *fd;
1080 5cdb1798 2005-10-29 devnull String *path;
1082 5cdb1798 2005-10-29 devnull path = extendpath(m->path, "raw");
1083 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(path), OREAD);
1084 7e61af51 2006-02-12 devnull if(fd == nil)
1085 5cdb1798 2005-10-29 devnull return 0;
1087 cbeb0b26 2006-04-01 devnull /* march through raw message 4096 bytes at a time */
1088 cbeb0b26 2006-04-01 devnull /* with a 128 byte overlap to chain the re search. */
1089 5cdb1798 2005-10-29 devnull rv = 0;
1090 5cdb1798 2005-10-29 devnull for(;;){
1091 7e61af51 2006-02-12 devnull i = fsread(fd, buf, sizeof(buf)-1);
1092 5cdb1798 2005-10-29 devnull if(i <= 0)
1094 5cdb1798 2005-10-29 devnull buf[i] = 0;
1095 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0)){
1096 5cdb1798 2005-10-29 devnull rv = 1;
1099 5cdb1798 2005-10-29 devnull if(i < sizeof(buf)-1)
1101 7e61af51 2006-02-12 devnull if(fsseek(fd, -128LL, 1) < 0)
1105 7e61af51 2006-02-12 devnull fsclose(fd);
1106 5cdb1798 2005-10-29 devnull s_free(path);
1107 5cdb1798 2005-10-29 devnull return rv;
1112 5cdb1798 2005-10-29 devnull parsecmd(char *p, Cmd *cmd, Message *first, Message *cur)
1114 5cdb1798 2005-10-29 devnull Reprog *prog;
1115 5cdb1798 2005-10-29 devnull Message *m, *s, *e, **l, *last;
1116 5cdb1798 2005-10-29 devnull char buf[256];
1117 5cdb1798 2005-10-29 devnull char *err;
1118 5cdb1798 2005-10-29 devnull int i, c;
1119 5cdb1798 2005-10-29 devnull char *q;
1120 5cdb1798 2005-10-29 devnull static char errbuf[Errlen];
1122 5cdb1798 2005-10-29 devnull cmd->delete = 0;
1123 5cdb1798 2005-10-29 devnull l = &cmd->msgs;
1124 5cdb1798 2005-10-29 devnull *l = nil;
1126 cbeb0b26 2006-04-01 devnull /* eat white space */
1127 5cdb1798 2005-10-29 devnull while(*p == ' ')
1130 cbeb0b26 2006-04-01 devnull /* null command is a special case (advance and print) */
1131 5cdb1798 2005-10-29 devnull if(*p == 0){
1132 5cdb1798 2005-10-29 devnull if(cur == &top){
1133 cbeb0b26 2006-04-01 devnull /* special case */
1134 5cdb1798 2005-10-29 devnull m = first;
1135 5cdb1798 2005-10-29 devnull } else {
1136 cbeb0b26 2006-04-01 devnull /* walk to the next message even if we have to go up */
1137 5cdb1798 2005-10-29 devnull m = cur->next;
1138 5cdb1798 2005-10-29 devnull while(m == nil && cur->parent != nil){
1139 5cdb1798 2005-10-29 devnull cur = cur->parent;
1140 5cdb1798 2005-10-29 devnull m = cur->next;
1143 5cdb1798 2005-10-29 devnull if(m == nil)
1144 5cdb1798 2005-10-29 devnull return "address";
1145 5cdb1798 2005-10-29 devnull *l = m;
1146 5cdb1798 2005-10-29 devnull m->cmd = nil;
1147 5cdb1798 2005-10-29 devnull cmd->an = 0;
1148 5cdb1798 2005-10-29 devnull cmd->f = pcmd;
1149 5cdb1798 2005-10-29 devnull return nil;
1152 cbeb0b26 2006-04-01 devnull /* global search ? */
1153 5cdb1798 2005-10-29 devnull if(*p == 'g'){
1156 cbeb0b26 2006-04-01 devnull /* no search string means all messages */
1157 5cdb1798 2005-10-29 devnull if(*p != '/' && *p != '%'){
1158 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
1159 5cdb1798 2005-10-29 devnull *l = m;
1160 5cdb1798 2005-10-29 devnull l = &m->cmd;
1161 5cdb1798 2005-10-29 devnull *l = nil;
1163 5cdb1798 2005-10-29 devnull } else {
1164 cbeb0b26 2006-04-01 devnull /* mark all messages matching this search string */
1165 5cdb1798 2005-10-29 devnull c = *p;
1166 5cdb1798 2005-10-29 devnull prog = parsesearch(&p);
1167 5cdb1798 2005-10-29 devnull if(prog == nil)
1168 5cdb1798 2005-10-29 devnull return "badly formed regular expression";
1169 5cdb1798 2005-10-29 devnull if(c == '%'){
1170 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
1171 5cdb1798 2005-10-29 devnull if(rawsearch(m, prog)){
1172 5cdb1798 2005-10-29 devnull *l = m;
1173 5cdb1798 2005-10-29 devnull l = &m->cmd;
1174 5cdb1798 2005-10-29 devnull *l = nil;
1177 5cdb1798 2005-10-29 devnull } else {
1178 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
1179 5cdb1798 2005-10-29 devnull snprintheader(buf, sizeof(buf), m);
1180 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0)){
1181 5cdb1798 2005-10-29 devnull *l = m;
1182 5cdb1798 2005-10-29 devnull l = &m->cmd;
1183 5cdb1798 2005-10-29 devnull *l = nil;
1187 5cdb1798 2005-10-29 devnull free(prog);
1189 5cdb1798 2005-10-29 devnull } else {
1191 cbeb0b26 2006-04-01 devnull /* parse an address */
1192 5cdb1798 2005-10-29 devnull s = e = nil;
1193 5cdb1798 2005-10-29 devnull err = parseaddr(&p, first, cur, cur, &s);
1194 5cdb1798 2005-10-29 devnull if(err != nil)
1195 5cdb1798 2005-10-29 devnull return err;
1196 5cdb1798 2005-10-29 devnull if(*p == ','){
1197 cbeb0b26 2006-04-01 devnull /* this is an address range */
1198 5cdb1798 2005-10-29 devnull if(s == &top)
1199 5cdb1798 2005-10-29 devnull s = first;
1201 5cdb1798 2005-10-29 devnull for(last = s; last != nil && last->next != nil; last = last->next)
1203 5cdb1798 2005-10-29 devnull err = parseaddr(&p, first, cur, last, &e);
1204 5cdb1798 2005-10-29 devnull if(err != nil)
1205 5cdb1798 2005-10-29 devnull return err;
1207 cbeb0b26 2006-04-01 devnull /* select all messages in the range */
1208 5cdb1798 2005-10-29 devnull for(; s != nil; s = s->next){
1209 5cdb1798 2005-10-29 devnull *l = s;
1210 5cdb1798 2005-10-29 devnull l = &s->cmd;
1211 5cdb1798 2005-10-29 devnull *l = nil;
1212 5cdb1798 2005-10-29 devnull if(s == e)
1215 5cdb1798 2005-10-29 devnull if(s == nil)
1216 5cdb1798 2005-10-29 devnull return "null address range";
1217 5cdb1798 2005-10-29 devnull } else {
1218 cbeb0b26 2006-04-01 devnull /* single address */
1219 5cdb1798 2005-10-29 devnull if(s != &top){
1220 5cdb1798 2005-10-29 devnull *l = s;
1221 5cdb1798 2005-10-29 devnull s->cmd = nil;
1226 cbeb0b26 2006-04-01 devnull /* insert a space after '!'s and '|'s */
1227 5cdb1798 2005-10-29 devnull for(q = p; *q; q++)
1228 5cdb1798 2005-10-29 devnull if(*q != '!' && *q != '|')
1230 5cdb1798 2005-10-29 devnull if(q != p && *q != ' '){
1231 5cdb1798 2005-10-29 devnull memmove(q+1, q, strlen(q)+1);
1232 5cdb1798 2005-10-29 devnull *q = ' ';
1235 5cdb1798 2005-10-29 devnull cmd->an = getfields(p, cmd->av, nelem(cmd->av) - 1, 1, " \t\r\n");
1236 5cdb1798 2005-10-29 devnull if(cmd->an == 0 || *cmd->av[0] == 0)
1237 5cdb1798 2005-10-29 devnull cmd->f = pcmd;
1239 cbeb0b26 2006-04-01 devnull /* hack to allow all messages to start with 'd' */
1240 5cdb1798 2005-10-29 devnull if(*(cmd->av[0]) == 'd' && *(cmd->av[0]+1) != 0){
1241 5cdb1798 2005-10-29 devnull cmd->delete = 1;
1242 5cdb1798 2005-10-29 devnull cmd->av[0]++;
1245 cbeb0b26 2006-04-01 devnull /* search command table */
1246 5cdb1798 2005-10-29 devnull for(i = 0; cmdtab[i].cmd != nil; i++)
1247 5cdb1798 2005-10-29 devnull if(strcmp(cmd->av[0], cmdtab[i].cmd) == 0)
1249 5cdb1798 2005-10-29 devnull if(cmdtab[i].cmd == nil)
1250 5cdb1798 2005-10-29 devnull return "illegal command";
1251 5cdb1798 2005-10-29 devnull if(cmdtab[i].args == 0 && cmd->an > 1){
1252 5cdb1798 2005-10-29 devnull snprint(errbuf, sizeof(errbuf), "%s doesn't take an argument", cmdtab[i].cmd);
1253 5cdb1798 2005-10-29 devnull return errbuf;
1255 5cdb1798 2005-10-29 devnull cmd->f = cmdtab[i].f;
1257 5cdb1798 2005-10-29 devnull return nil;
1260 cbeb0b26 2006-04-01 devnull /* inefficient read from standard input */
1262 5cdb1798 2005-10-29 devnull readline(char *prompt, char *line, int len)
1264 5cdb1798 2005-10-29 devnull char *p, *e;
1268 5cdb1798 2005-10-29 devnull interrupted = 0;
1269 5cdb1798 2005-10-29 devnull Bprint(&out, "%s", prompt);
1270 5cdb1798 2005-10-29 devnull Bflush(&out);
1271 5cdb1798 2005-10-29 devnull e = line + len;
1272 5cdb1798 2005-10-29 devnull for(p = line; p < e; p++){
1273 5cdb1798 2005-10-29 devnull n = read(0, p, 1);
1274 5cdb1798 2005-10-29 devnull if(n < 0){
1275 5cdb1798 2005-10-29 devnull if(interrupted)
1276 5cdb1798 2005-10-29 devnull goto retry;
1277 5cdb1798 2005-10-29 devnull return nil;
1279 5cdb1798 2005-10-29 devnull if(n == 0)
1280 5cdb1798 2005-10-29 devnull return nil;
1281 5cdb1798 2005-10-29 devnull if(*p == '\n')
1284 5cdb1798 2005-10-29 devnull *p = 0;
1285 5cdb1798 2005-10-29 devnull return line;
1289 5cdb1798 2005-10-29 devnull messagecount(Message *m)
1294 5cdb1798 2005-10-29 devnull for(; m != nil; m = m->next)
1296 5cdb1798 2005-10-29 devnull Bprint(&out, "%d message%s\n", i, plural(i));
1299 5cdb1798 2005-10-29 devnull Message*
1300 5cdb1798 2005-10-29 devnull aichcmd(Message *m, int indent)
1302 5cdb1798 2005-10-29 devnull char hdr[256];
1304 5cdb1798 2005-10-29 devnull if(m == &top)
1305 5cdb1798 2005-10-29 devnull return nil;
1307 5cdb1798 2005-10-29 devnull snprintHeader(hdr, sizeof(hdr), indent, m);
1308 5cdb1798 2005-10-29 devnull Bprint(&out, "%s\n", hdr);
1309 5cdb1798 2005-10-29 devnull for(m = m->child; m != nil; m = m->next)
1310 5cdb1798 2005-10-29 devnull aichcmd(m, indent+1);
1311 5cdb1798 2005-10-29 devnull return nil;
1314 5cdb1798 2005-10-29 devnull Message*
1315 7e61af51 2006-02-12 devnull Hcmd(Cmd *x, Message *m)
1317 7e61af51 2006-02-12 devnull USED(x);
1319 5cdb1798 2005-10-29 devnull if(m == &top)
1320 5cdb1798 2005-10-29 devnull return nil;
1321 5cdb1798 2005-10-29 devnull aichcmd(m, 0);
1322 5cdb1798 2005-10-29 devnull return nil;
1325 5cdb1798 2005-10-29 devnull Message*
1326 7e61af51 2006-02-12 devnull hcmd(Cmd *x, Message *m)
1328 5cdb1798 2005-10-29 devnull char hdr[256];
1330 7e61af51 2006-02-12 devnull USED(x);
1331 5cdb1798 2005-10-29 devnull if(m == &top)
1332 5cdb1798 2005-10-29 devnull return nil;
1334 5cdb1798 2005-10-29 devnull snprintheader(hdr, sizeof(hdr), m);
1335 5cdb1798 2005-10-29 devnull Bprint(&out, "%s\n", hdr);
1336 5cdb1798 2005-10-29 devnull return nil;
1339 5cdb1798 2005-10-29 devnull Message*
1340 7e61af51 2006-02-12 devnull bcmd(Cmd *x, Message *m)
1343 5cdb1798 2005-10-29 devnull Message *om = m;
1345 7e61af51 2006-02-12 devnull USED(x);
1346 5cdb1798 2005-10-29 devnull if(m == &top)
1347 5cdb1798 2005-10-29 devnull m = top.child;
1348 5cdb1798 2005-10-29 devnull for(i = 0; i < 10 && m != nil; i++){
1349 5cdb1798 2005-10-29 devnull hcmd(nil, m);
1350 5cdb1798 2005-10-29 devnull om = m;
1351 5cdb1798 2005-10-29 devnull m = m->next;
1354 5cdb1798 2005-10-29 devnull return om;
1357 5cdb1798 2005-10-29 devnull Message*
1358 7e61af51 2006-02-12 devnull ncmd(Cmd *x, Message *m)
1360 7e61af51 2006-02-12 devnull USED(x);
1361 5cdb1798 2005-10-29 devnull if(m == &top)
1362 5cdb1798 2005-10-29 devnull return m->child;
1363 5cdb1798 2005-10-29 devnull return m->next;
1367 5cdb1798 2005-10-29 devnull printpart(String *s, char *part)
1369 5cdb1798 2005-10-29 devnull char buf[4096];
1370 5cdb1798 2005-10-29 devnull int n, tot;
1371 7e61af51 2006-02-12 devnull CFid *fd;
1372 5cdb1798 2005-10-29 devnull String *path;
1374 5cdb1798 2005-10-29 devnull path = extendpath(s, part);
1375 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(path), OREAD);
1376 5cdb1798 2005-10-29 devnull s_free(path);
1377 7e61af51 2006-02-12 devnull if(fd == nil){
1378 5cdb1798 2005-10-29 devnull fprint(2, "!message dissappeared\n");
1379 5cdb1798 2005-10-29 devnull return 0;
1381 5cdb1798 2005-10-29 devnull tot = 0;
1382 7e61af51 2006-02-12 devnull while((n = fsread(fd, buf, sizeof(buf))) > 0){
1383 5cdb1798 2005-10-29 devnull if(interrupted)
1385 5cdb1798 2005-10-29 devnull if(Bwrite(&out, buf, n) <= 0)
1387 5cdb1798 2005-10-29 devnull tot += n;
1389 7e61af51 2006-02-12 devnull fsclose(fd);
1390 5cdb1798 2005-10-29 devnull return tot;
1394 5cdb1798 2005-10-29 devnull printhtml(Message *m)
1398 5cdb1798 2005-10-29 devnull c.an = 3;
1399 7e61af51 2006-02-12 devnull c.av[1] = "htmlfmt";
1400 5cdb1798 2005-10-29 devnull c.av[2] = "-l 40 -cutf-8";
1401 5cdb1798 2005-10-29 devnull Bprint(&out, "!%s\n", c.av[1]);
1402 5cdb1798 2005-10-29 devnull Bflush(&out);
1403 5cdb1798 2005-10-29 devnull pipecmd(&c, m);
1404 5cdb1798 2005-10-29 devnull return 0;
1407 5cdb1798 2005-10-29 devnull Message*
1408 7e61af51 2006-02-12 devnull Pcmd(Cmd *x, Message *m)
1410 7e61af51 2006-02-12 devnull USED(x);
1411 5cdb1798 2005-10-29 devnull if(m == &top)
1412 5cdb1798 2005-10-29 devnull return ⊤
1413 5cdb1798 2005-10-29 devnull if(m->parent == &top)
1414 5cdb1798 2005-10-29 devnull printpart(m->path, "unixheader");
1415 5cdb1798 2005-10-29 devnull printpart(m->path, "raw");
1416 5cdb1798 2005-10-29 devnull return m;
1420 5cdb1798 2005-10-29 devnull compress(char *p)
1422 5cdb1798 2005-10-29 devnull char *np;
1423 5cdb1798 2005-10-29 devnull int last;
1425 5cdb1798 2005-10-29 devnull last = ' ';
1426 5cdb1798 2005-10-29 devnull for(np = p; *p; p++){
1427 5cdb1798 2005-10-29 devnull if(*p != ' ' || last != ' '){
1428 5cdb1798 2005-10-29 devnull last = *p;
1429 5cdb1798 2005-10-29 devnull *np++ = last;
1432 5cdb1798 2005-10-29 devnull *np = 0;
1435 5cdb1798 2005-10-29 devnull Message*
1436 7e61af51 2006-02-12 devnull pcmd(Cmd *x, Message *m)
1438 5cdb1798 2005-10-29 devnull Message *nm;
1439 5cdb1798 2005-10-29 devnull Ctype *cp;
1440 5cdb1798 2005-10-29 devnull String *s;
1441 5cdb1798 2005-10-29 devnull char buf[128];
1443 7e61af51 2006-02-12 devnull USED(x);
1444 5cdb1798 2005-10-29 devnull if(m == &top)
1445 5cdb1798 2005-10-29 devnull return ⊤
1446 5cdb1798 2005-10-29 devnull if(m->parent == &top)
1447 5cdb1798 2005-10-29 devnull printpart(m->path, "unixheader");
1448 5cdb1798 2005-10-29 devnull if(printpart(m->path, "header") > 0)
1449 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1450 5cdb1798 2005-10-29 devnull cp = findctype(m);
1451 5cdb1798 2005-10-29 devnull if(cp->display){
1452 5cdb1798 2005-10-29 devnull if(strcmp(m->type, "text/html") == 0)
1453 5cdb1798 2005-10-29 devnull printhtml(m);
1455 5cdb1798 2005-10-29 devnull printpart(m->path, "body");
1456 5cdb1798 2005-10-29 devnull } else if(strcmp(m->type, "multipart/alternative") == 0){
1457 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1458 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1459 5cdb1798 2005-10-29 devnull if(cp->ext != nil && strncmp(cp->ext, "txt", 3) == 0)
1462 5cdb1798 2005-10-29 devnull if(nm == nil)
1463 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1464 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1465 5cdb1798 2005-10-29 devnull if(cp->display)
1468 5cdb1798 2005-10-29 devnull if(nm != nil)
1469 5cdb1798 2005-10-29 devnull pcmd(nil, nm);
1471 5cdb1798 2005-10-29 devnull hcmd(nil, m);
1472 5cdb1798 2005-10-29 devnull } else if(strncmp(m->type, "multipart/", 10) == 0){
1473 5cdb1798 2005-10-29 devnull nm = m->child;
1474 5cdb1798 2005-10-29 devnull if(nm != nil){
1475 cbeb0b26 2006-04-01 devnull /* always print first part */
1476 5cdb1798 2005-10-29 devnull pcmd(nil, nm);
1478 5cdb1798 2005-10-29 devnull for(nm = nm->next; nm != nil; nm = nm->next){
1479 5cdb1798 2005-10-29 devnull s = rooted(s_clone(nm->path));
1480 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1481 5cdb1798 2005-10-29 devnull snprintHeader(buf, sizeof buf, -1, nm);
1482 5cdb1798 2005-10-29 devnull compress(buf);
1483 5cdb1798 2005-10-29 devnull if(strcmp(nm->disposition, "inline") == 0){
1484 5cdb1798 2005-10-29 devnull if(cp->ext != nil)
1485 5cdb1798 2005-10-29 devnull Bprint(&out, "\n--- %s %s/body.%s\n\n",
1486 5cdb1798 2005-10-29 devnull buf, s_to_c(s), cp->ext);
1488 5cdb1798 2005-10-29 devnull Bprint(&out, "\n--- %s %s/body\n\n",
1489 5cdb1798 2005-10-29 devnull buf, s_to_c(s));
1490 5cdb1798 2005-10-29 devnull pcmd(nil, nm);
1491 5cdb1798 2005-10-29 devnull } else {
1492 5cdb1798 2005-10-29 devnull if(cp->ext != nil)
1493 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- %s %s/body.%s\n",
1494 5cdb1798 2005-10-29 devnull buf, s_to_c(s), cp->ext);
1496 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- %s %s/body\n",
1497 5cdb1798 2005-10-29 devnull buf, s_to_c(s));
1499 5cdb1798 2005-10-29 devnull s_free(s);
1501 5cdb1798 2005-10-29 devnull } else {
1502 5cdb1798 2005-10-29 devnull hcmd(nil, m);
1504 5cdb1798 2005-10-29 devnull } else if(strcmp(m->type, "message/rfc822") == 0){
1505 5cdb1798 2005-10-29 devnull pcmd(nil, m->child);
1506 5cdb1798 2005-10-29 devnull } else if(plumb(m, cp) >= 0)
1507 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- using plumber to display message of type %s\n", m->type);
1509 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- cannot display messages of type %s\n", m->type);
1511 5cdb1798 2005-10-29 devnull return m;
1515 5cdb1798 2005-10-29 devnull printpartindented(String *s, char *part, char *indent)
1517 d4baecd9 2006-02-26 devnull int fd;
1518 5cdb1798 2005-10-29 devnull char *p;
1519 5cdb1798 2005-10-29 devnull String *path;
1520 5cdb1798 2005-10-29 devnull Biobuf *b;
1522 d4baecd9 2006-02-26 devnull path = extendpath(s, part);
1523 d4baecd9 2006-02-26 devnull fd = fsopenfd(mailfs, s_to_c(path), OREAD);
1524 5cdb1798 2005-10-29 devnull s_free(path);
1525 d4baecd9 2006-02-26 devnull if(fd < 0){
1526 d4baecd9 2006-02-26 devnull fprint(2, "!message disappeared\n");
1527 d4baecd9 2006-02-26 devnull return;
1529 d4baecd9 2006-02-26 devnull b = Bfdopen(fd, OREAD);
1530 d4baecd9 2006-02-26 devnull if(b == 0){
1531 d4baecd9 2006-02-26 devnull fprint(2, "out of memory\n");
1532 d4baecd9 2006-02-26 devnull close(fd);
1533 5cdb1798 2005-10-29 devnull return;
1535 5cdb1798 2005-10-29 devnull while((p = Brdline(b, '\n')) != nil){
1536 5cdb1798 2005-10-29 devnull if(interrupted)
1538 5cdb1798 2005-10-29 devnull p[Blinelen(b)-1] = 0;
1539 ee51985f 2006-01-27 devnull if(Bprint(&out, "%s%s\n", indent, p) < 0)
1542 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1543 5cdb1798 2005-10-29 devnull Bterm(b);
1546 5cdb1798 2005-10-29 devnull Message*
1547 7e61af51 2006-02-12 devnull quotecmd(Cmd *x, Message *m)
1549 5cdb1798 2005-10-29 devnull Message *nm;
1550 5cdb1798 2005-10-29 devnull Ctype *cp;
1552 7e61af51 2006-02-12 devnull USED(x);
1553 5cdb1798 2005-10-29 devnull if(m == &top)
1554 5cdb1798 2005-10-29 devnull return ⊤
1555 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1556 5cdb1798 2005-10-29 devnull if(m->from != nil && *m->from)
1557 5cdb1798 2005-10-29 devnull Bprint(&out, "On %s, %s wrote:\n", m->date, m->from);
1558 5cdb1798 2005-10-29 devnull cp = findctype(m);
1559 5cdb1798 2005-10-29 devnull if(cp->display){
1560 5cdb1798 2005-10-29 devnull printpartindented(m->path, "body", "> ");
1561 5cdb1798 2005-10-29 devnull } else if(strcmp(m->type, "multipart/alternative") == 0){
1562 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1563 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1564 5cdb1798 2005-10-29 devnull if(cp->ext != nil && strncmp(cp->ext, "txt", 3) == 0)
1567 5cdb1798 2005-10-29 devnull if(nm == nil)
1568 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1569 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1570 5cdb1798 2005-10-29 devnull if(cp->display)
1573 5cdb1798 2005-10-29 devnull if(nm != nil)
1574 5cdb1798 2005-10-29 devnull quotecmd(nil, nm);
1575 5cdb1798 2005-10-29 devnull } else if(strncmp(m->type, "multipart/", 10) == 0){
1576 5cdb1798 2005-10-29 devnull nm = m->child;
1577 5cdb1798 2005-10-29 devnull if(nm != nil){
1578 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1579 5cdb1798 2005-10-29 devnull if(cp->display || strncmp(m->type, "multipart/", 10) == 0)
1580 5cdb1798 2005-10-29 devnull quotecmd(nil, nm);
1583 5cdb1798 2005-10-29 devnull return m;
1586 cbeb0b26 2006-04-01 devnull /* really delete messages */
1587 5cdb1798 2005-10-29 devnull Message*
1588 5cdb1798 2005-10-29 devnull flushdeleted(Message *cur)
1590 5cdb1798 2005-10-29 devnull Message *m, **l;
1591 5cdb1798 2005-10-29 devnull char buf[1024], *p, *e, *msg;
1592 5cdb1798 2005-10-29 devnull int deld, n;
1593 7e61af51 2006-02-12 devnull CFid *fd;
1596 5cdb1798 2005-10-29 devnull doflush = 0;
1597 5cdb1798 2005-10-29 devnull deld = 0;
1599 1ea614ff 2006-02-15 devnull snprint(buf, sizeof buf, "%s/ctl", mbname);
1600 1ea614ff 2006-02-15 devnull fd = fsopen(mailfs, buf, OWRITE);
1601 7e61af51 2006-02-12 devnull if(fd == nil){
1602 1ea614ff 2006-02-15 devnull fprint(2, "!can't delete mail, opening %s: %r\n", buf);
1603 5cdb1798 2005-10-29 devnull exitfs(0);
1605 5cdb1798 2005-10-29 devnull e = &buf[sizeof(buf)];
1606 1ea614ff 2006-02-15 devnull p = seprint(buf, e, "delete");
1608 5cdb1798 2005-10-29 devnull for(l = &top.child; *l != nil;){
1609 5cdb1798 2005-10-29 devnull m = *l;
1610 5cdb1798 2005-10-29 devnull if(!m->deleted){
1611 5cdb1798 2005-10-29 devnull l = &(*l)->next;
1612 5cdb1798 2005-10-29 devnull continue;
1615 cbeb0b26 2006-04-01 devnull /* don't return a pointer to a deleted message */
1616 5cdb1798 2005-10-29 devnull if(m == cur)
1617 5cdb1798 2005-10-29 devnull cur = m->next;
1619 5cdb1798 2005-10-29 devnull deld++;
1620 5cdb1798 2005-10-29 devnull msg = strrchr(s_to_c(m->path), '/');
1621 5cdb1798 2005-10-29 devnull if(msg == nil)
1622 5cdb1798 2005-10-29 devnull msg = s_to_c(m->path);
1625 5cdb1798 2005-10-29 devnull if(e-p < 10){
1626 7e61af51 2006-02-12 devnull fswrite(fd, buf, p-buf);
1628 1ea614ff 2006-02-15 devnull p = seprint(buf, e, "delete");
1630 5cdb1798 2005-10-29 devnull p = seprint(p, e, " %s", msg);
1633 cbeb0b26 2006-04-01 devnull /* unchain and free */
1634 5cdb1798 2005-10-29 devnull *l = m->next;
1635 5cdb1798 2005-10-29 devnull if(m->next)
1636 5cdb1798 2005-10-29 devnull m->next->prev = m->prev;
1637 5cdb1798 2005-10-29 devnull freemessage(m);
1640 7e61af51 2006-02-12 devnull fswrite(fd, buf, p-buf);
1642 7e61af51 2006-02-12 devnull fsclose(fd);
1644 5cdb1798 2005-10-29 devnull if(deld)
1645 5cdb1798 2005-10-29 devnull Bprint(&out, "!%d message%s deleted\n", deld, plural(deld));
1647 cbeb0b26 2006-04-01 devnull /* renumber */
1649 5cdb1798 2005-10-29 devnull for(m = top.child; m != nil; m = m->next)
1650 5cdb1798 2005-10-29 devnull m->id = natural ? m->fileno : i++;
1652 cbeb0b26 2006-04-01 devnull /* if we're out of messages, go back to first */
1653 cbeb0b26 2006-04-01 devnull /* if no first, return the fake first */
1654 5cdb1798 2005-10-29 devnull if(cur == nil){
1655 5cdb1798 2005-10-29 devnull if(top.child)
1656 5cdb1798 2005-10-29 devnull return top.child;
1658 5cdb1798 2005-10-29 devnull return ⊤
1660 5cdb1798 2005-10-29 devnull return cur;
1663 5cdb1798 2005-10-29 devnull Message*
1664 7e61af51 2006-02-12 devnull qcmd(Cmd *x, Message *m)
1666 7e61af51 2006-02-12 devnull USED(x);
1667 7e61af51 2006-02-12 devnull USED(m);
1669 5cdb1798 2005-10-29 devnull flushdeleted(nil);
1671 5cdb1798 2005-10-29 devnull if(didopen)
1672 5cdb1798 2005-10-29 devnull closemb();
1673 5cdb1798 2005-10-29 devnull Bflush(&out);
1675 5cdb1798 2005-10-29 devnull exitfs(0);
1676 cbeb0b26 2006-04-01 devnull return nil; /* not reached */
1679 5cdb1798 2005-10-29 devnull Message*
1680 7e61af51 2006-02-12 devnull ycmd(Cmd *x, Message *m)
1682 7e61af51 2006-02-12 devnull USED(x);
1684 5cdb1798 2005-10-29 devnull doflush = 1;
1686 5cdb1798 2005-10-29 devnull return icmd(nil, m);
1689 5cdb1798 2005-10-29 devnull Message*
1690 7e61af51 2006-02-12 devnull xcmd(Cmd *x, Message *m)
1692 7e61af51 2006-02-12 devnull USED(x);
1693 7e61af51 2006-02-12 devnull USED(m);
1695 5cdb1798 2005-10-29 devnull exitfs(0);
1696 cbeb0b26 2006-04-01 devnull return nil; /* not reached */
1699 5cdb1798 2005-10-29 devnull Message*
1700 7e61af51 2006-02-12 devnull eqcmd(Cmd *x, Message *m)
1702 7e61af51 2006-02-12 devnull USED(x);
1704 5cdb1798 2005-10-29 devnull if(m == &top)
1705 5cdb1798 2005-10-29 devnull Bprint(&out, "0\n");
1707 5cdb1798 2005-10-29 devnull Bprint(&out, "%d\n", m->id);
1708 5cdb1798 2005-10-29 devnull return nil;
1711 5cdb1798 2005-10-29 devnull Message*
1712 7e61af51 2006-02-12 devnull dcmd(Cmd *x, Message *m)
1714 7e61af51 2006-02-12 devnull USED(x);
1716 5cdb1798 2005-10-29 devnull if(m == &top){
1717 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1718 5cdb1798 2005-10-29 devnull return nil;
1720 5cdb1798 2005-10-29 devnull while(m->parent != &top)
1721 5cdb1798 2005-10-29 devnull m = m->parent;
1722 5cdb1798 2005-10-29 devnull m->deleted = 1;
1723 5cdb1798 2005-10-29 devnull return m;
1726 5cdb1798 2005-10-29 devnull Message*
1727 7e61af51 2006-02-12 devnull ucmd(Cmd *x, Message *m)
1729 7e61af51 2006-02-12 devnull USED(x);
1731 5cdb1798 2005-10-29 devnull if(m == &top)
1732 5cdb1798 2005-10-29 devnull return nil;
1733 5cdb1798 2005-10-29 devnull while(m->parent != &top)
1734 5cdb1798 2005-10-29 devnull m = m->parent;
1735 5cdb1798 2005-10-29 devnull if(m->deleted < 0)
1736 5cdb1798 2005-10-29 devnull Bprint(&out, "!can't undelete, already flushed\n");
1737 5cdb1798 2005-10-29 devnull m->deleted = 0;
1738 5cdb1798 2005-10-29 devnull return m;
1742 5cdb1798 2005-10-29 devnull Message*
1743 7e61af51 2006-02-12 devnull icmd(Cmd *x, Message *m)
1746 de7b2cd7 2007-06-23 devnull char buf[1024];
1747 de7b2cd7 2007-06-23 devnull CFid *fd;
1749 7e61af51 2006-02-12 devnull USED(x);
1750 de7b2cd7 2007-06-23 devnull snprint(buf, sizeof buf, "%s/ctl", mbname);
1751 de7b2cd7 2007-06-23 devnull fd = fsopen(mailfs, buf, OWRITE);
1752 de7b2cd7 2007-06-23 devnull if(fd){
1753 de7b2cd7 2007-06-23 devnull fswrite(fd, "refresh", 7);
1754 de7b2cd7 2007-06-23 devnull fsclose(fd);
1756 5cdb1798 2005-10-29 devnull n = dir2message(&top, reverse);
1757 5cdb1798 2005-10-29 devnull if(n > 0)
1758 5cdb1798 2005-10-29 devnull Bprint(&out, "%d new message%s\n", n, plural(n));
1759 5cdb1798 2005-10-29 devnull return m;
1762 5cdb1798 2005-10-29 devnull Message*
1763 7e61af51 2006-02-12 devnull helpcmd(Cmd *x, Message *m)
1767 7e61af51 2006-02-12 devnull USED(x);
1768 5cdb1798 2005-10-29 devnull Bprint(&out, "Commands are of the form [<range>] <command> [args]\n");
1769 5cdb1798 2005-10-29 devnull Bprint(&out, "<range> := <addr> | <addr>','<addr>| 'g'<search>\n");
1770 5cdb1798 2005-10-29 devnull Bprint(&out, "<addr> := '.' | '$' | '^' | <number> | <search> | <addr>'+'<addr> | <addr>'-'<addr>\n");
1771 5cdb1798 2005-10-29 devnull Bprint(&out, "<search> := '/'<regexp>'/' | '?'<regexp>'?' | '%%'<regexp>'%%'\n");
1772 5cdb1798 2005-10-29 devnull Bprint(&out, "<command> :=\n");
1773 5cdb1798 2005-10-29 devnull for(i = 0; cmdtab[i].cmd != nil; i++)
1774 5cdb1798 2005-10-29 devnull Bprint(&out, "%s\n", cmdtab[i].help);
1775 5cdb1798 2005-10-29 devnull return m;
1779 5cdb1798 2005-10-29 devnull tomailer(char **av)
1781 7e61af51 2006-02-12 devnull static char *marshal;
1782 5cdb1798 2005-10-29 devnull Waitmsg *w;
1783 5cdb1798 2005-10-29 devnull int pid, i;
1785 7e61af51 2006-02-12 devnull if(marshal == nil)
1786 7e61af51 2006-02-12 devnull marshal = unsharp("#9/bin/upas/marshal");
1788 cbeb0b26 2006-04-01 devnull /* start the mailer and get out of the way */
1789 5cdb1798 2005-10-29 devnull switch(pid = fork()){
1790 5cdb1798 2005-10-29 devnull case -1:
1791 5cdb1798 2005-10-29 devnull fprint(2, "can't fork: %r\n");
1792 5cdb1798 2005-10-29 devnull return -1;
1793 5cdb1798 2005-10-29 devnull case 0:
1794 7e61af51 2006-02-12 devnull Bprint(&out, "!%s", marshal);
1795 5cdb1798 2005-10-29 devnull for(i = 1; av[i]; i++){
1796 5cdb1798 2005-10-29 devnull if(strchr(av[i], ' ') != nil)
1797 5cdb1798 2005-10-29 devnull Bprint(&out, " '%s'", av[i]);
1799 5cdb1798 2005-10-29 devnull Bprint(&out, " %s", av[i]);
1801 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1802 5cdb1798 2005-10-29 devnull Bflush(&out);
1803 5cdb1798 2005-10-29 devnull av[0] = "marshal";
1804 5cdb1798 2005-10-29 devnull chdir(wd);
1805 7e61af51 2006-02-12 devnull exec(marshal, av);
1806 7e61af51 2006-02-12 devnull fprint(2, "couldn't exec %s\n", marshal);
1807 5cdb1798 2005-10-29 devnull threadexits(0);
1808 5cdb1798 2005-10-29 devnull default:
1809 5cdb1798 2005-10-29 devnull w = wait();
1810 5cdb1798 2005-10-29 devnull if(w == nil){
1811 5cdb1798 2005-10-29 devnull if(interrupted)
1812 5cdb1798 2005-10-29 devnull postnote(PNPROC, pid, "die");
1813 5cdb1798 2005-10-29 devnull waitpid();
1814 5cdb1798 2005-10-29 devnull return -1;
1816 5cdb1798 2005-10-29 devnull if(w->msg[0]){
1817 5cdb1798 2005-10-29 devnull fprint(2, "mailer failed: %s\n", w->msg);
1818 5cdb1798 2005-10-29 devnull free(w);
1819 5cdb1798 2005-10-29 devnull return -1;
1821 5cdb1798 2005-10-29 devnull free(w);
1822 5cdb1798 2005-10-29 devnull Bprint(&out, "!\n");
1825 5cdb1798 2005-10-29 devnull return 0;
1829 cbeb0b26 2006-04-01 devnull /* like tokenize but obey "" quoting */
1832 5cdb1798 2005-10-29 devnull tokenize822(char *str, char **args, int max)
1834 5cdb1798 2005-10-29 devnull int na;
1835 5cdb1798 2005-10-29 devnull int intok = 0, inquote = 0;
1837 5cdb1798 2005-10-29 devnull if(max <= 0)
1838 5cdb1798 2005-10-29 devnull return 0;
1839 5cdb1798 2005-10-29 devnull for(na=0; ;str++)
1840 5cdb1798 2005-10-29 devnull switch(*str) {
1841 5cdb1798 2005-10-29 devnull case ' ':
1842 5cdb1798 2005-10-29 devnull case '\t':
1843 5cdb1798 2005-10-29 devnull if(inquote)
1844 5cdb1798 2005-10-29 devnull goto Default;
1845 5cdb1798 2005-10-29 devnull /* fall through */
1846 5cdb1798 2005-10-29 devnull case '\n':
1847 5cdb1798 2005-10-29 devnull *str = 0;
1848 5cdb1798 2005-10-29 devnull if(!intok)
1849 5cdb1798 2005-10-29 devnull continue;
1850 5cdb1798 2005-10-29 devnull intok = 0;
1851 5cdb1798 2005-10-29 devnull if(na < max)
1852 5cdb1798 2005-10-29 devnull continue;
1853 5cdb1798 2005-10-29 devnull /* fall through */
1854 5cdb1798 2005-10-29 devnull case 0:
1855 5cdb1798 2005-10-29 devnull return na;
1856 5cdb1798 2005-10-29 devnull case '"':
1857 5cdb1798 2005-10-29 devnull inquote ^= 1;
1858 5cdb1798 2005-10-29 devnull /* fall through */
1859 5cdb1798 2005-10-29 devnull Default:
1860 5cdb1798 2005-10-29 devnull default:
1861 5cdb1798 2005-10-29 devnull if(intok)
1862 5cdb1798 2005-10-29 devnull continue;
1863 5cdb1798 2005-10-29 devnull args[na++] = str;
1864 5cdb1798 2005-10-29 devnull intok = 1;
1866 5cdb1798 2005-10-29 devnull return 0; /* can't get here; silence compiler */
1869 5cdb1798 2005-10-29 devnull Message*
1870 5cdb1798 2005-10-29 devnull rcmd(Cmd *c, Message *m)
1872 5cdb1798 2005-10-29 devnull char *av[128];
1873 5cdb1798 2005-10-29 devnull int i, ai = 1;
1874 5cdb1798 2005-10-29 devnull Message *nm;
1875 5cdb1798 2005-10-29 devnull char *addr;
1876 5cdb1798 2005-10-29 devnull String *path = nil;
1877 5cdb1798 2005-10-29 devnull String *rpath;
1878 5cdb1798 2005-10-29 devnull String *subject = nil;
1879 5cdb1798 2005-10-29 devnull String *from;
1881 5cdb1798 2005-10-29 devnull if(m == &top){
1882 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1883 5cdb1798 2005-10-29 devnull return nil;
1886 5cdb1798 2005-10-29 devnull addr = nil;
1887 5cdb1798 2005-10-29 devnull for(nm = m; nm != ⊤ nm = nm->parent){
1888 5cdb1798 2005-10-29 devnull if(*nm->replyto != 0){
1889 5cdb1798 2005-10-29 devnull addr = nm->replyto;
1893 5cdb1798 2005-10-29 devnull if(addr == nil){
1894 5cdb1798 2005-10-29 devnull Bprint(&out, "!no reply address\n");
1895 5cdb1798 2005-10-29 devnull return nil;
1898 5cdb1798 2005-10-29 devnull if(nm == &top){
1899 5cdb1798 2005-10-29 devnull print("!noone to reply to\n");
1900 5cdb1798 2005-10-29 devnull return nil;
1903 5cdb1798 2005-10-29 devnull for(nm = m; nm != ⊤ nm = nm->parent){
1904 5cdb1798 2005-10-29 devnull if(*nm->subject){
1905 5cdb1798 2005-10-29 devnull av[ai++] = "-s";
1906 5cdb1798 2005-10-29 devnull subject = addrecolon(nm->subject);
1907 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(subject);;
1912 5cdb1798 2005-10-29 devnull av[ai++] = "-R";
1913 5cdb1798 2005-10-29 devnull rpath = rooted(s_clone(m->path));
1914 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(rpath);
1916 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'f') != nil){
1917 5cdb1798 2005-10-29 devnull fcmd(c, m);
1918 5cdb1798 2005-10-29 devnull av[ai++] = "-F";
1921 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'R') != nil){
1922 5cdb1798 2005-10-29 devnull av[ai++] = "-t";
1923 5cdb1798 2005-10-29 devnull av[ai++] = "message/rfc822";
1924 5cdb1798 2005-10-29 devnull av[ai++] = "-A";
1925 5cdb1798 2005-10-29 devnull path = rooted(extendpath(m->path, "raw"));
1926 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(path);
1929 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an && ai < nelem(av)-1; i++)
1930 5cdb1798 2005-10-29 devnull av[ai++] = c->av[i];
1931 5cdb1798 2005-10-29 devnull from = s_copy(addr);
1932 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(from), &av[ai], nelem(av) - ai);
1933 5cdb1798 2005-10-29 devnull av[ai] = 0;
1934 5cdb1798 2005-10-29 devnull if(tomailer(av) < 0)
1935 5cdb1798 2005-10-29 devnull m = nil;
1936 5cdb1798 2005-10-29 devnull s_free(path);
1937 5cdb1798 2005-10-29 devnull s_free(rpath);
1938 5cdb1798 2005-10-29 devnull s_free(subject);
1939 5cdb1798 2005-10-29 devnull s_free(from);
1940 5cdb1798 2005-10-29 devnull return m;
1943 5cdb1798 2005-10-29 devnull Message*
1944 5cdb1798 2005-10-29 devnull mcmd(Cmd *c, Message *m)
1946 5cdb1798 2005-10-29 devnull char **av;
1947 5cdb1798 2005-10-29 devnull int i, ai;
1948 5cdb1798 2005-10-29 devnull String *path;
1950 5cdb1798 2005-10-29 devnull if(m == &top){
1951 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1952 5cdb1798 2005-10-29 devnull return nil;
1955 5cdb1798 2005-10-29 devnull if(c->an < 2){
1956 5cdb1798 2005-10-29 devnull fprint(2, "!usage: M list-of addresses\n");
1957 5cdb1798 2005-10-29 devnull return nil;
1960 5cdb1798 2005-10-29 devnull ai = 1;
1961 5cdb1798 2005-10-29 devnull av = malloc(sizeof(char*)*(c->an + 8));
1963 5cdb1798 2005-10-29 devnull av[ai++] = "-t";
1964 5cdb1798 2005-10-29 devnull if(m->parent == &top)
1965 5cdb1798 2005-10-29 devnull av[ai++] = "message/rfc822";
1967 5cdb1798 2005-10-29 devnull av[ai++] = "mime";
1969 5cdb1798 2005-10-29 devnull av[ai++] = "-A";
1970 5cdb1798 2005-10-29 devnull path = rooted(extendpath(m->path, "raw"));
1971 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(path);
1973 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'M') == nil)
1974 5cdb1798 2005-10-29 devnull av[ai++] = "-n";
1976 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an; i++)
1977 5cdb1798 2005-10-29 devnull av[ai++] = c->av[i];
1978 5cdb1798 2005-10-29 devnull av[ai] = 0;
1980 5cdb1798 2005-10-29 devnull if(tomailer(av) < 0)
1981 5cdb1798 2005-10-29 devnull m = nil;
1982 5cdb1798 2005-10-29 devnull if(path != nil)
1983 5cdb1798 2005-10-29 devnull s_free(path);
1984 5cdb1798 2005-10-29 devnull free(av);
1985 5cdb1798 2005-10-29 devnull return m;
1988 5cdb1798 2005-10-29 devnull Message*
1989 5cdb1798 2005-10-29 devnull acmd(Cmd *c, Message *m)
1991 5cdb1798 2005-10-29 devnull char *av[128];
1992 5cdb1798 2005-10-29 devnull int i, ai;
1993 5cdb1798 2005-10-29 devnull String *from, *to, *cc, *path = nil, *subject = nil;
1995 5cdb1798 2005-10-29 devnull if(m == &top){
1996 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1997 5cdb1798 2005-10-29 devnull return nil;
2000 5cdb1798 2005-10-29 devnull ai = 1;
2001 5cdb1798 2005-10-29 devnull if(*m->subject){
2002 5cdb1798 2005-10-29 devnull av[ai++] = "-s";
2003 5cdb1798 2005-10-29 devnull subject = addrecolon(m->subject);
2004 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(subject);
2007 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'A') != nil){
2008 5cdb1798 2005-10-29 devnull av[ai++] = "-t";
2009 5cdb1798 2005-10-29 devnull av[ai++] = "message/rfc822";
2010 5cdb1798 2005-10-29 devnull av[ai++] = "-A";
2011 5cdb1798 2005-10-29 devnull path = rooted(extendpath(m->path, "raw"));
2012 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(path);
2015 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an && ai < nelem(av)-1; i++)
2016 5cdb1798 2005-10-29 devnull av[ai++] = c->av[i];
2017 5cdb1798 2005-10-29 devnull from = s_copy(m->from);
2018 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(from), &av[ai], nelem(av) - ai);
2019 5cdb1798 2005-10-29 devnull to = s_copy(m->to);
2020 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(to), &av[ai], nelem(av) - ai);
2021 5cdb1798 2005-10-29 devnull cc = s_copy(m->cc);
2022 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(cc), &av[ai], nelem(av) - ai);
2023 5cdb1798 2005-10-29 devnull av[ai] = 0;
2024 5cdb1798 2005-10-29 devnull if(tomailer(av) < 0)
2025 5cdb1798 2005-10-29 devnull return nil;
2026 5cdb1798 2005-10-29 devnull s_free(from);
2027 5cdb1798 2005-10-29 devnull s_free(to);
2028 5cdb1798 2005-10-29 devnull s_free(cc);
2029 5cdb1798 2005-10-29 devnull s_free(subject);
2030 5cdb1798 2005-10-29 devnull s_free(path);
2031 5cdb1798 2005-10-29 devnull return m;
2034 5cdb1798 2005-10-29 devnull String *
2035 5cdb1798 2005-10-29 devnull relpath(char *path, String *to)
2037 5cdb1798 2005-10-29 devnull if (*path=='/' || strncmp(path, "./", 2) == 0
2038 5cdb1798 2005-10-29 devnull || strncmp(path, "../", 3) == 0) {
2039 5cdb1798 2005-10-29 devnull to = s_append(to, path);
2040 5cdb1798 2005-10-29 devnull } else if(mbpath) {
2041 5cdb1798 2005-10-29 devnull to = s_append(to, s_to_c(mbpath));
2042 5cdb1798 2005-10-29 devnull to->ptr = strrchr(to->base, '/')+1;
2043 5cdb1798 2005-10-29 devnull s_append(to, path);
2045 5cdb1798 2005-10-29 devnull return to;
2049 5cdb1798 2005-10-29 devnull appendtofile(Message *m, char *part, char *base, int mbox)
2051 5cdb1798 2005-10-29 devnull String *file, *h;
2052 5cdb1798 2005-10-29 devnull int in, out, rv;
2054 5cdb1798 2005-10-29 devnull file = extendpath(m->path, part);
2055 5cdb1798 2005-10-29 devnull in = open(s_to_c(file), OREAD);
2056 5cdb1798 2005-10-29 devnull if(in < 0){
2057 5cdb1798 2005-10-29 devnull fprint(2, "!message disappeared\n");
2058 5cdb1798 2005-10-29 devnull return -1;
2061 5cdb1798 2005-10-29 devnull s_reset(file);
2063 5cdb1798 2005-10-29 devnull relpath(base, file);
2064 5cdb1798 2005-10-29 devnull if(sysisdir(s_to_c(file))){
2065 5cdb1798 2005-10-29 devnull s_append(file, "/");
2066 5cdb1798 2005-10-29 devnull if(m->filename && strchr(m->filename, '/') == nil)
2067 5cdb1798 2005-10-29 devnull s_append(file, m->filename);
2069 5cdb1798 2005-10-29 devnull s_append(file, "att.XXXXXXXXXXX");
2070 5cdb1798 2005-10-29 devnull mktemp(s_to_c(file));
2073 5cdb1798 2005-10-29 devnull if(mbox)
2074 5cdb1798 2005-10-29 devnull out = open(s_to_c(file), OWRITE);
2076 5cdb1798 2005-10-29 devnull out = open(s_to_c(file), OWRITE|OTRUNC);
2077 5cdb1798 2005-10-29 devnull if(out < 0){
2078 5cdb1798 2005-10-29 devnull out = create(s_to_c(file), OWRITE, 0666);
2079 5cdb1798 2005-10-29 devnull if(out < 0){
2080 5cdb1798 2005-10-29 devnull fprint(2, "!can't open %s: %r\n", s_to_c(file));
2081 5cdb1798 2005-10-29 devnull close(in);
2082 5cdb1798 2005-10-29 devnull s_free(file);
2083 5cdb1798 2005-10-29 devnull return -1;
2086 5cdb1798 2005-10-29 devnull if(mbox)
2087 5cdb1798 2005-10-29 devnull seek(out, 0, 2);
2089 cbeb0b26 2006-04-01 devnull /* put on a 'From ' line */
2090 5cdb1798 2005-10-29 devnull if(mbox){
2091 5cdb1798 2005-10-29 devnull while(m->parent != &top)
2092 5cdb1798 2005-10-29 devnull m = m->parent;
2093 5cdb1798 2005-10-29 devnull h = file2string(m->path, "unixheader");
2094 5cdb1798 2005-10-29 devnull fprint(out, "%s", s_to_c(h));
2095 5cdb1798 2005-10-29 devnull s_free(h);
2098 cbeb0b26 2006-04-01 devnull /* copy the message escaping what we have to ad adding newlines if we have to */
2099 5cdb1798 2005-10-29 devnull if(mbox)
2100 5cdb1798 2005-10-29 devnull rv = appendfiletombox(in, out);
2102 5cdb1798 2005-10-29 devnull rv = appendfiletofile(in, out);
2104 5cdb1798 2005-10-29 devnull close(in);
2105 5cdb1798 2005-10-29 devnull close(out);
2107 5cdb1798 2005-10-29 devnull if(rv >= 0)
2108 5cdb1798 2005-10-29 devnull print("!saved in %s\n", s_to_c(file));
2109 5cdb1798 2005-10-29 devnull s_free(file);
2110 5cdb1798 2005-10-29 devnull return rv;
2113 5cdb1798 2005-10-29 devnull Message*
2114 5cdb1798 2005-10-29 devnull scmd(Cmd *c, Message *m)
2116 1ea614ff 2006-02-15 devnull char buf[256];
2117 1ea614ff 2006-02-15 devnull CFid *fd;
2118 1ea614ff 2006-02-15 devnull char *file, *msg;
2120 5cdb1798 2005-10-29 devnull if(m == &top){
2121 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2122 5cdb1798 2005-10-29 devnull return nil;
2125 5cdb1798 2005-10-29 devnull switch(c->an){
2126 5cdb1798 2005-10-29 devnull case 1:
2127 5cdb1798 2005-10-29 devnull file = "stored";
2129 5cdb1798 2005-10-29 devnull case 2:
2130 5cdb1798 2005-10-29 devnull file = c->av[1];
2132 5cdb1798 2005-10-29 devnull default:
2133 5cdb1798 2005-10-29 devnull fprint(2, "!usage: s filename\n");
2134 5cdb1798 2005-10-29 devnull return nil;
2137 1ea614ff 2006-02-15 devnull if(file[0] == '/' || (file[0]=='.' && file[1]=='/')){
2138 1ea614ff 2006-02-15 devnull if(appendtofile(m, "raw", file, 1) < 0)
2139 1ea614ff 2006-02-15 devnull return nil;
2141 1ea614ff 2006-02-15 devnull snprint(buf, sizeof buf, "%s/ctl", mbname);
2142 1ea614ff 2006-02-15 devnull if((fd = fsopen(mailfs, buf, OWRITE)) == nil)
2143 1ea614ff 2006-02-15 devnull return nil;
2144 1ea614ff 2006-02-15 devnull msg = strrchr(s_to_c(m->path), '/');
2145 1ea614ff 2006-02-15 devnull if(msg == nil)
2146 1ea614ff 2006-02-15 devnull msg = s_to_c(m->path);
2149 1ea614ff 2006-02-15 devnull if(fsprint(fd, "save %s %s", file, msg) < 0){
2150 1ea614ff 2006-02-15 devnull fsclose(fd);
2151 1ea614ff 2006-02-15 devnull return nil;
2153 1ea614ff 2006-02-15 devnull fsclose(fd);
2155 5cdb1798 2005-10-29 devnull m->stored = 1;
2156 5cdb1798 2005-10-29 devnull return m;
2159 5cdb1798 2005-10-29 devnull Message*
2160 5cdb1798 2005-10-29 devnull wcmd(Cmd *c, Message *m)
2162 5cdb1798 2005-10-29 devnull char *file;
2164 5cdb1798 2005-10-29 devnull if(m == &top){
2165 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2166 5cdb1798 2005-10-29 devnull return nil;
2169 5cdb1798 2005-10-29 devnull switch(c->an){
2170 5cdb1798 2005-10-29 devnull case 2:
2171 5cdb1798 2005-10-29 devnull file = c->av[1];
2173 5cdb1798 2005-10-29 devnull case 1:
2174 5cdb1798 2005-10-29 devnull if(*m->filename == 0){
2175 5cdb1798 2005-10-29 devnull fprint(2, "!usage: w filename\n");
2176 5cdb1798 2005-10-29 devnull return nil;
2178 5cdb1798 2005-10-29 devnull file = strrchr(m->filename, '/');
2179 5cdb1798 2005-10-29 devnull if(file != nil)
2180 5cdb1798 2005-10-29 devnull file++;
2182 5cdb1798 2005-10-29 devnull file = m->filename;
2184 5cdb1798 2005-10-29 devnull default:
2185 5cdb1798 2005-10-29 devnull fprint(2, "!usage: w filename\n");
2186 5cdb1798 2005-10-29 devnull return nil;
2189 5cdb1798 2005-10-29 devnull if(appendtofile(m, "body", file, 0) < 0)
2190 5cdb1798 2005-10-29 devnull return nil;
2191 5cdb1798 2005-10-29 devnull m->stored = 1;
2192 5cdb1798 2005-10-29 devnull return m;
2195 5cdb1798 2005-10-29 devnull char *specialfile[] =
2197 5cdb1798 2005-10-29 devnull "pipeto",
2198 5cdb1798 2005-10-29 devnull "pipefrom",
2199 5cdb1798 2005-10-29 devnull "L.mbox",
2200 5cdb1798 2005-10-29 devnull "forward",
2201 5cdb1798 2005-10-29 devnull "names"
2204 cbeb0b26 2006-04-01 devnull /* return 1 if this is a special file */
2205 5cdb1798 2005-10-29 devnull static int
2206 5cdb1798 2005-10-29 devnull special(String *s)
2208 5cdb1798 2005-10-29 devnull char *p;
2211 5cdb1798 2005-10-29 devnull p = strrchr(s_to_c(s), '/');
2212 5cdb1798 2005-10-29 devnull if(p == nil)
2213 5cdb1798 2005-10-29 devnull p = s_to_c(s);
2216 5cdb1798 2005-10-29 devnull for(i = 0; i < nelem(specialfile); i++)
2217 5cdb1798 2005-10-29 devnull if(strcmp(p, specialfile[i]) == 0)
2218 5cdb1798 2005-10-29 devnull return 1;
2219 5cdb1798 2005-10-29 devnull return 0;
2222 cbeb0b26 2006-04-01 devnull /* open the folder using the recipients account name */
2223 5cdb1798 2005-10-29 devnull static String*
2224 5cdb1798 2005-10-29 devnull foldername(char *rcvr)
2226 5cdb1798 2005-10-29 devnull char *p;
2228 5cdb1798 2005-10-29 devnull String *file;
2229 5cdb1798 2005-10-29 devnull Dir *d;
2230 5cdb1798 2005-10-29 devnull int scarey;
2232 5cdb1798 2005-10-29 devnull file = s_new();
2233 5cdb1798 2005-10-29 devnull mboxpath("f", user, file, 0);
2234 5cdb1798 2005-10-29 devnull d = dirstat(s_to_c(file));
2236 cbeb0b26 2006-04-01 devnull /* if $mail/f exists, store there, otherwise in $mail */
2237 5cdb1798 2005-10-29 devnull s_restart(file);
2238 5cdb1798 2005-10-29 devnull if(d && d->qid.type == QTDIR){
2239 5cdb1798 2005-10-29 devnull scarey = 0;
2240 5cdb1798 2005-10-29 devnull s_append(file, "f/");
2241 5cdb1798 2005-10-29 devnull } else {
2242 5cdb1798 2005-10-29 devnull scarey = 1;
2244 5cdb1798 2005-10-29 devnull free(d);
2246 5cdb1798 2005-10-29 devnull p = strrchr(rcvr, '!');
2247 5cdb1798 2005-10-29 devnull if(p != nil)
2248 5cdb1798 2005-10-29 devnull rcvr = p+1;
2250 5cdb1798 2005-10-29 devnull while(*rcvr && *rcvr != '@'){
2251 5cdb1798 2005-10-29 devnull c = *rcvr++;
2252 5cdb1798 2005-10-29 devnull if(c == '/')
2253 5cdb1798 2005-10-29 devnull c = '_';
2254 5cdb1798 2005-10-29 devnull s_putc(file, c);
2256 5cdb1798 2005-10-29 devnull s_terminate(file);
2258 5cdb1798 2005-10-29 devnull if(scarey && special(file)){
2259 5cdb1798 2005-10-29 devnull fprint(2, "!won't overwrite %s\n", s_to_c(file));
2260 5cdb1798 2005-10-29 devnull s_free(file);
2261 5cdb1798 2005-10-29 devnull return nil;
2264 5cdb1798 2005-10-29 devnull return file;
2267 5cdb1798 2005-10-29 devnull Message*
2268 5cdb1798 2005-10-29 devnull fcmd(Cmd *c, Message *m)
2270 5cdb1798 2005-10-29 devnull String *folder;
2272 5cdb1798 2005-10-29 devnull if(c->an > 1){
2273 5cdb1798 2005-10-29 devnull fprint(2, "!usage: f takes no arguments\n");
2274 5cdb1798 2005-10-29 devnull return nil;
2277 5cdb1798 2005-10-29 devnull if(m == &top){
2278 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2279 5cdb1798 2005-10-29 devnull return nil;
2282 5cdb1798 2005-10-29 devnull folder = foldername(m->from);
2283 5cdb1798 2005-10-29 devnull if(folder == nil)
2284 5cdb1798 2005-10-29 devnull return nil;
2286 5cdb1798 2005-10-29 devnull if(appendtofile(m, "raw", s_to_c(folder), 1) < 0){
2287 5cdb1798 2005-10-29 devnull s_free(folder);
2288 5cdb1798 2005-10-29 devnull return nil;
2290 5cdb1798 2005-10-29 devnull s_free(folder);
2292 5cdb1798 2005-10-29 devnull m->stored = 1;
2293 5cdb1798 2005-10-29 devnull return m;
2297 7e61af51 2006-02-12 devnull system(char *cmd, char **av, int in)
2299 5cdb1798 2005-10-29 devnull int pid;
2301 5cdb1798 2005-10-29 devnull switch(pid=fork()){
2302 5cdb1798 2005-10-29 devnull case -1:
2303 5cdb1798 2005-10-29 devnull return;
2304 5cdb1798 2005-10-29 devnull case 0:
2305 7e61af51 2006-02-12 devnull if(strcmp(cmd, "rc") == 0)
2306 7e61af51 2006-02-12 devnull cmd = unsharp("#9/bin/rc");
2307 5cdb1798 2005-10-29 devnull if(in >= 0){
2308 5cdb1798 2005-10-29 devnull close(0);
2309 5cdb1798 2005-10-29 devnull dup(in, 0);
2310 5cdb1798 2005-10-29 devnull close(in);
2312 5cdb1798 2005-10-29 devnull if(wd[0] != 0)
2313 5cdb1798 2005-10-29 devnull chdir(wd);
2314 5cdb1798 2005-10-29 devnull exec(cmd, av);
2315 5cdb1798 2005-10-29 devnull fprint(2, "!couldn't exec %s\n", cmd);
2316 5cdb1798 2005-10-29 devnull threadexits(0);
2317 5cdb1798 2005-10-29 devnull default:
2318 5cdb1798 2005-10-29 devnull if(in >= 0)
2319 5cdb1798 2005-10-29 devnull close(in);
2320 5cdb1798 2005-10-29 devnull while(waitpid() < 0){
2321 5cdb1798 2005-10-29 devnull if(!interrupted)
2323 5cdb1798 2005-10-29 devnull postnote(PNPROC, pid, "die");
2324 5cdb1798 2005-10-29 devnull continue;
2330 5cdb1798 2005-10-29 devnull Message*
2331 5cdb1798 2005-10-29 devnull bangcmd(Cmd *c, Message *m)
2333 5cdb1798 2005-10-29 devnull char cmd[4*1024];
2334 5cdb1798 2005-10-29 devnull char *p, *e;
2335 5cdb1798 2005-10-29 devnull char *av[4];
2338 5cdb1798 2005-10-29 devnull cmd[0] = 0;
2339 5cdb1798 2005-10-29 devnull p = cmd;
2340 5cdb1798 2005-10-29 devnull e = cmd+sizeof(cmd);
2341 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an; i++)
2342 5cdb1798 2005-10-29 devnull p = seprint(p, e, "%s ", c->av[i]);
2343 5cdb1798 2005-10-29 devnull av[0] = "rc";
2344 5cdb1798 2005-10-29 devnull av[1] = "-c";
2345 5cdb1798 2005-10-29 devnull av[2] = cmd;
2346 5cdb1798 2005-10-29 devnull av[3] = 0;
2347 7e61af51 2006-02-12 devnull system("rc", av, -1);
2348 5cdb1798 2005-10-29 devnull Bprint(&out, "!\n");
2349 5cdb1798 2005-10-29 devnull return m;
2352 5cdb1798 2005-10-29 devnull Message*
2353 5cdb1798 2005-10-29 devnull xpipecmd(Cmd *c, Message *m, char *part)
2355 5cdb1798 2005-10-29 devnull char cmd[128];
2356 5cdb1798 2005-10-29 devnull char *p, *e;
2357 5cdb1798 2005-10-29 devnull char *av[4];
2358 5cdb1798 2005-10-29 devnull String *path;
2359 7e61af51 2006-02-12 devnull int i, fd;
2361 5cdb1798 2005-10-29 devnull if(c->an < 2){
2362 5cdb1798 2005-10-29 devnull Bprint(&out, "!usage: | cmd\n");
2363 5cdb1798 2005-10-29 devnull return nil;
2366 5cdb1798 2005-10-29 devnull if(m == &top){
2367 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2368 5cdb1798 2005-10-29 devnull return nil;
2371 5cdb1798 2005-10-29 devnull path = extendpath(m->path, part);
2372 7e61af51 2006-02-12 devnull fd = fsopenfd(mailfs, s_to_c(path), OREAD);
2373 5cdb1798 2005-10-29 devnull s_free(path);
2375 cbeb0b26 2006-04-01 devnull if(fd < 0){ /* compatibility with older upas/fs */
2376 5cdb1798 2005-10-29 devnull path = extendpath(m->path, "raw");
2377 7e61af51 2006-02-12 devnull fd = fsopenfd(mailfs, s_to_c(path), OREAD);
2378 5cdb1798 2005-10-29 devnull s_free(path);
2380 7e61af51 2006-02-12 devnull if(fd < 0){
2381 5cdb1798 2005-10-29 devnull fprint(2, "!message disappeared\n");
2382 5cdb1798 2005-10-29 devnull return nil;
2385 5cdb1798 2005-10-29 devnull p = cmd;
2386 5cdb1798 2005-10-29 devnull e = cmd+sizeof(cmd);
2387 5cdb1798 2005-10-29 devnull cmd[0] = 0;
2388 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an; i++)
2389 5cdb1798 2005-10-29 devnull p = seprint(p, e, "%s ", c->av[i]);
2390 5cdb1798 2005-10-29 devnull av[0] = "rc";
2391 5cdb1798 2005-10-29 devnull av[1] = "-c";
2392 5cdb1798 2005-10-29 devnull av[2] = cmd;
2393 5cdb1798 2005-10-29 devnull av[3] = 0;
2394 7e61af51 2006-02-12 devnull system("rc", av, fd); /* system closes fd */
2395 5cdb1798 2005-10-29 devnull Bprint(&out, "!\n");
2396 5cdb1798 2005-10-29 devnull return m;
2399 5cdb1798 2005-10-29 devnull Message*
2400 5cdb1798 2005-10-29 devnull pipecmd(Cmd *c, Message *m)
2402 5cdb1798 2005-10-29 devnull return xpipecmd(c, m, "body");
2405 5cdb1798 2005-10-29 devnull Message*
2406 5cdb1798 2005-10-29 devnull rpipecmd(Cmd *c, Message *m)
2408 5cdb1798 2005-10-29 devnull return xpipecmd(c, m, "rawunix");
2412 5cdb1798 2005-10-29 devnull closemb(void)
2414 7e61af51 2006-02-12 devnull CFid *fd;
2416 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, "ctl", OWRITE);
2417 7e61af51 2006-02-12 devnull if(fd == nil)
2418 7e61af51 2006-02-12 devnull sysfatal("can't open ctl: %r");
2420 cbeb0b26 2006-04-01 devnull /* close current mailbox */
2421 5cdb1798 2005-10-29 devnull if(*mbname && strcmp(mbname, "mbox") != 0)
2422 7e61af51 2006-02-12 devnull fsprint(fd, "close %s", mbname);
2424 7e61af51 2006-02-12 devnull fsclose(fd);
2428 5cdb1798 2005-10-29 devnull switchmb(char *file, char *singleton)
2430 5cdb1798 2005-10-29 devnull char *p;
2431 5cdb1798 2005-10-29 devnull int n, fd;
2432 5cdb1798 2005-10-29 devnull String *path;
2433 5cdb1798 2005-10-29 devnull char buf[256];
2435 cbeb0b26 2006-04-01 devnull /* if the user didn't say anything and there */
2436 cbeb0b26 2006-04-01 devnull /* is an mbox mounted already, use that one */
2437 cbeb0b26 2006-04-01 devnull /* so that the upas/fs -fdefault default is honored. */
2438 d4baecd9 2006-02-26 devnull if(0 && (file || (singleton && fsaccess(mailfs, singleton, 0) < 0))){
2439 7e61af51 2006-02-12 devnull /* XXX all wrong */
2440 7e61af51 2006-02-12 devnull fprint(2, "file=%s singleton=%s\n", file, singleton);
2441 5cdb1798 2005-10-29 devnull if(file == nil)
2442 5cdb1798 2005-10-29 devnull file = "mbox";
2444 cbeb0b26 2006-04-01 devnull /* close current mailbox */
2445 5cdb1798 2005-10-29 devnull closemb();
2446 5cdb1798 2005-10-29 devnull didopen = 1;
2448 5cdb1798 2005-10-29 devnull fd = open("/mail/fs/ctl", ORDWR);
2449 5cdb1798 2005-10-29 devnull if(fd < 0)
2450 5cdb1798 2005-10-29 devnull sysfatal("can't open /mail/fs/ctl: %r");
2452 5cdb1798 2005-10-29 devnull path = s_new();
2454 cbeb0b26 2006-04-01 devnull /* get an absolute path to the mail box */
2455 5cdb1798 2005-10-29 devnull if(strncmp(file, "./", 2) == 0){
2456 cbeb0b26 2006-04-01 devnull /* resolve path here since upas/fs doesn't know */
2457 cbeb0b26 2006-04-01 devnull /* our working directory */
2458 5cdb1798 2005-10-29 devnull if(getwd(buf, sizeof(buf)-strlen(file)) == nil){
2459 5cdb1798 2005-10-29 devnull fprint(2, "!can't get working directory: %s\n", buf);
2460 5cdb1798 2005-10-29 devnull return -1;
2462 5cdb1798 2005-10-29 devnull s_append(path, buf);
2463 5cdb1798 2005-10-29 devnull s_append(path, file+1);
2464 5cdb1798 2005-10-29 devnull } else {
2465 5cdb1798 2005-10-29 devnull mboxpath(file, user, path, 0);
2468 cbeb0b26 2006-04-01 devnull /* make up a handle to use when talking to fs */
2469 5cdb1798 2005-10-29 devnull p = strrchr(file, '/');
2470 5cdb1798 2005-10-29 devnull if(p == nil){
2471 cbeb0b26 2006-04-01 devnull /* if its in the mailbox directory, just use the name */
2472 5cdb1798 2005-10-29 devnull strncpy(mbname, file, sizeof(mbname));
2473 5cdb1798 2005-10-29 devnull mbname[sizeof(mbname)-1] = 0;
2474 5cdb1798 2005-10-29 devnull } else {
2475 cbeb0b26 2006-04-01 devnull /* make up a mailbox name */
2476 5cdb1798 2005-10-29 devnull p = strrchr(s_to_c(path), '/');
2478 5cdb1798 2005-10-29 devnull if(*p == 0){
2479 5cdb1798 2005-10-29 devnull fprint(2, "!bad mbox name");
2480 5cdb1798 2005-10-29 devnull return -1;
2482 5cdb1798 2005-10-29 devnull strncpy(mbname, p, sizeof(mbname));
2483 5cdb1798 2005-10-29 devnull mbname[sizeof(mbname)-1] = 0;
2484 5cdb1798 2005-10-29 devnull n = strlen(mbname);
2485 5cdb1798 2005-10-29 devnull if(n > Elemlen-12)
2486 5cdb1798 2005-10-29 devnull n = Elemlen-12;
2487 5cdb1798 2005-10-29 devnull sprint(mbname+n, "%ld", time(0));
2490 5cdb1798 2005-10-29 devnull if(fprint(fd, "open %s %s", s_to_c(path), mbname) < 0){
2491 5cdb1798 2005-10-29 devnull fprint(2, "!can't 'open %s %s': %r\n", file, mbname);
2492 5cdb1798 2005-10-29 devnull s_free(path);
2493 5cdb1798 2005-10-29 devnull return -1;
2495 5cdb1798 2005-10-29 devnull close(fd);
2497 7e61af51 2006-02-12 devnull if (singleton && fsaccess(mailfs, singleton, 0)==0){
2498 7e61af51 2006-02-12 devnull if ((p = strchr(singleton, '/')) == nil){
2499 5cdb1798 2005-10-29 devnull fprint(2, "!bad mbox name");
2500 5cdb1798 2005-10-29 devnull return -1;
2502 7e61af51 2006-02-12 devnull n = p-singleton;
2503 7e61af51 2006-02-12 devnull strncpy(mbname, singleton, n);
2504 5cdb1798 2005-10-29 devnull mbname[n+1] = 0;
2505 5cdb1798 2005-10-29 devnull path = s_reset(nil);
2506 5cdb1798 2005-10-29 devnull mboxpath(mbname, user, path, 0);
2508 d4baecd9 2006-02-26 devnull if(file)
2509 d4baecd9 2006-02-26 devnull strecpy(mbname, mbname+sizeof mbname, file);
2511 d4baecd9 2006-02-26 devnull strcpy(mbname, "mbox");
2512 5cdb1798 2005-10-29 devnull path = s_reset(nil);
2513 d4baecd9 2006-02-26 devnull mboxpath(mbname, user, path, 0);
2516 7e61af51 2006-02-12 devnull snprint(root, sizeof root, "%s", mbname);
2517 5cdb1798 2005-10-29 devnull rootlen = strlen(root);
2519 5cdb1798 2005-10-29 devnull if(mbpath != nil)
2520 5cdb1798 2005-10-29 devnull s_free(mbpath);
2521 5cdb1798 2005-10-29 devnull mbpath = path;
2522 5cdb1798 2005-10-29 devnull return 0;
2525 cbeb0b26 2006-04-01 devnull /* like tokenize but for into lines */
2527 5cdb1798 2005-10-29 devnull lineize(char *s, char **f, int n)
2531 5cdb1798 2005-10-29 devnull for(i = 0; *s && i < n; i++){
2532 5cdb1798 2005-10-29 devnull f[i] = s;
2533 5cdb1798 2005-10-29 devnull s = strchr(s, '\n');
2534 5cdb1798 2005-10-29 devnull if(s == nil)
2536 5cdb1798 2005-10-29 devnull *s++ = 0;
2538 5cdb1798 2005-10-29 devnull return i;
2543 5cdb1798 2005-10-29 devnull String*
2544 5cdb1798 2005-10-29 devnull rooted(String *s)
2546 5cdb1798 2005-10-29 devnull static char buf[256];
2548 5cdb1798 2005-10-29 devnull if(strcmp(root, ".") != 0)
2549 5cdb1798 2005-10-29 devnull return s;
2550 5cdb1798 2005-10-29 devnull snprint(buf, sizeof(buf), "/mail/fs/%s/%s", mbname, s_to_c(s));
2551 5cdb1798 2005-10-29 devnull s_free(s);
2552 5cdb1798 2005-10-29 devnull return s_copy(buf);
2556 5cdb1798 2005-10-29 devnull plumb(Message *m, Ctype *cp)
2558 5cdb1798 2005-10-29 devnull String *s;
2559 5cdb1798 2005-10-29 devnull Plumbmsg *pm;
2560 5cdb1798 2005-10-29 devnull static int fd = -2;
2562 5cdb1798 2005-10-29 devnull if(cp->plumbdest == nil)
2563 5cdb1798 2005-10-29 devnull return -1;
2565 5cdb1798 2005-10-29 devnull if(fd < -1)
2566 5cdb1798 2005-10-29 devnull fd = plumbopen("send", OWRITE);
2567 5cdb1798 2005-10-29 devnull if(fd < 0)
2568 5cdb1798 2005-10-29 devnull return -1;
2570 5cdb1798 2005-10-29 devnull pm = mallocz(sizeof(Plumbmsg), 1);
2571 5cdb1798 2005-10-29 devnull pm->src = strdup("mail");
2572 5cdb1798 2005-10-29 devnull if(*cp->plumbdest)
2573 5cdb1798 2005-10-29 devnull pm->dst = strdup(cp->plumbdest);
2574 5cdb1798 2005-10-29 devnull pm->wdir = nil;
2575 5cdb1798 2005-10-29 devnull pm->type = strdup("text");
2576 5cdb1798 2005-10-29 devnull pm->ndata = -1;
2577 5cdb1798 2005-10-29 devnull s = rooted(extendpath(m->path, "body"));
2578 5cdb1798 2005-10-29 devnull if(cp->ext != nil){
2579 5cdb1798 2005-10-29 devnull s_append(s, ".");
2580 5cdb1798 2005-10-29 devnull s_append(s, cp->ext);
2582 5cdb1798 2005-10-29 devnull pm->data = strdup(s_to_c(s));
2583 5cdb1798 2005-10-29 devnull s_free(s);
2584 5cdb1798 2005-10-29 devnull plumbsend(fd, pm);
2585 5cdb1798 2005-10-29 devnull plumbfree(pm);
2586 5cdb1798 2005-10-29 devnull return 0;
2590 7e61af51 2006-02-12 devnull regerror(char *x)
2592 7e61af51 2006-02-12 devnull USED(x);
2595 5cdb1798 2005-10-29 devnull String*
2596 5cdb1798 2005-10-29 devnull addrecolon(char *s)
2598 5cdb1798 2005-10-29 devnull String *str;
2600 5cdb1798 2005-10-29 devnull if(cistrncmp(s, "re:", 3) != 0){
2601 5cdb1798 2005-10-29 devnull str = s_copy("Re: ");
2602 5cdb1798 2005-10-29 devnull s_append(str, s);
2604 5cdb1798 2005-10-29 devnull str = s_copy(s);
2605 5cdb1798 2005-10-29 devnull return str;
2609 5cdb1798 2005-10-29 devnull exitfs(char *rv)
2611 7e61af51 2006-02-12 devnull threadexitsall(rv);
