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
9 5cdb1798 2005-10-29 devnull typedef struct Message Message;
10 5cdb1798 2005-10-29 devnull typedef struct Ctype Ctype;
11 5cdb1798 2005-10-29 devnull typedef struct Cmd Cmd;
13 5cdb1798 2005-10-29 devnull char root[Pathlen];
14 5cdb1798 2005-10-29 devnull char mbname[Elemlen];
15 5cdb1798 2005-10-29 devnull int rootlen;
16 5cdb1798 2005-10-29 devnull int didopen;
17 5cdb1798 2005-10-29 devnull char *user;
18 5cdb1798 2005-10-29 devnull char wd[2048];
19 5cdb1798 2005-10-29 devnull String *mbpath;
20 5cdb1798 2005-10-29 devnull int natural;
21 5cdb1798 2005-10-29 devnull int doflush;
23 5cdb1798 2005-10-29 devnull int interrupted;
25 5cdb1798 2005-10-29 devnull struct Message {
26 5cdb1798 2005-10-29 devnull Message *next;
27 5cdb1798 2005-10-29 devnull Message *prev;
28 5cdb1798 2005-10-29 devnull Message *cmd;
29 5cdb1798 2005-10-29 devnull Message *child;
30 5cdb1798 2005-10-29 devnull Message *parent;
31 5cdb1798 2005-10-29 devnull String *path;
34 5cdb1798 2005-10-29 devnull int fileno; // number of directory
35 5cdb1798 2005-10-29 devnull String *info;
36 5cdb1798 2005-10-29 devnull char *from;
37 5cdb1798 2005-10-29 devnull char *to;
38 5cdb1798 2005-10-29 devnull char *cc;
39 5cdb1798 2005-10-29 devnull char *replyto;
40 5cdb1798 2005-10-29 devnull char *date;
41 5cdb1798 2005-10-29 devnull char *subject;
42 5cdb1798 2005-10-29 devnull char *type;
43 5cdb1798 2005-10-29 devnull char *disposition;
44 5cdb1798 2005-10-29 devnull char *filename;
45 5cdb1798 2005-10-29 devnull char deleted;
46 5cdb1798 2005-10-29 devnull char stored;
49 5cdb1798 2005-10-29 devnull Message top;
51 5cdb1798 2005-10-29 devnull struct Ctype {
52 5cdb1798 2005-10-29 devnull char *type;
53 5cdb1798 2005-10-29 devnull char *ext;
54 5cdb1798 2005-10-29 devnull int display;
55 5cdb1798 2005-10-29 devnull char *plumbdest;
56 5cdb1798 2005-10-29 devnull Ctype *next;
59 5cdb1798 2005-10-29 devnull Ctype ctype[] = {
60 5cdb1798 2005-10-29 devnull { "text/plain", "txt", 1, 0 },
61 5cdb1798 2005-10-29 devnull { "text/html", "htm", 1, 0 },
62 5cdb1798 2005-10-29 devnull { "text/html", "html", 1, 0 },
63 5cdb1798 2005-10-29 devnull { "text/tab-separated-values", "tsv", 1, 0 },
64 5cdb1798 2005-10-29 devnull { "text/richtext", "rtx", 1, 0 },
65 5cdb1798 2005-10-29 devnull { "text/rtf", "rtf", 1, 0 },
66 5cdb1798 2005-10-29 devnull { "text", "txt", 1, 0 },
67 5cdb1798 2005-10-29 devnull { "message/rfc822", "msg", 0, 0 },
68 7e61af51 2006-02-12 devnull { "message/delivery-status", "txt", 1, 0 },
69 5cdb1798 2005-10-29 devnull { "image/bmp", "bmp", 0, "image" },
70 5cdb1798 2005-10-29 devnull { "image/jpeg", "jpg", 0, "image" },
71 5cdb1798 2005-10-29 devnull { "image/gif", "gif", 0, "image" },
72 7e61af51 2006-02-12 devnull { "image/png", "png", 0, "image" },
73 5cdb1798 2005-10-29 devnull { "application/pdf", "pdf", 0, "postscript" },
74 5cdb1798 2005-10-29 devnull { "application/postscript", "ps", 0, "postscript" },
75 5cdb1798 2005-10-29 devnull { "application/", 0, 0, 0 },
76 5cdb1798 2005-10-29 devnull { "image/", 0, 0, 0 },
77 5cdb1798 2005-10-29 devnull { "multipart/", "mul", 0, 0 },
81 5cdb1798 2005-10-29 devnull Message* acmd(Cmd*, Message*);
82 5cdb1798 2005-10-29 devnull Message* bcmd(Cmd*, Message*);
83 5cdb1798 2005-10-29 devnull Message* dcmd(Cmd*, Message*);
84 5cdb1798 2005-10-29 devnull Message* eqcmd(Cmd*, Message*);
85 5cdb1798 2005-10-29 devnull Message* hcmd(Cmd*, Message*);
86 5cdb1798 2005-10-29 devnull Message* Hcmd(Cmd*, Message*);
87 5cdb1798 2005-10-29 devnull Message* helpcmd(Cmd*, Message*);
88 5cdb1798 2005-10-29 devnull Message* icmd(Cmd*, Message*);
89 5cdb1798 2005-10-29 devnull Message* pcmd(Cmd*, Message*);
90 5cdb1798 2005-10-29 devnull Message* qcmd(Cmd*, Message*);
91 5cdb1798 2005-10-29 devnull Message* rcmd(Cmd*, Message*);
92 5cdb1798 2005-10-29 devnull Message* scmd(Cmd*, Message*);
93 5cdb1798 2005-10-29 devnull Message* ucmd(Cmd*, Message*);
94 5cdb1798 2005-10-29 devnull Message* wcmd(Cmd*, Message*);
95 5cdb1798 2005-10-29 devnull Message* xcmd(Cmd*, Message*);
96 5cdb1798 2005-10-29 devnull Message* ycmd(Cmd*, Message*);
97 5cdb1798 2005-10-29 devnull Message* pipecmd(Cmd*, Message*);
98 5cdb1798 2005-10-29 devnull Message* rpipecmd(Cmd*, Message*);
99 5cdb1798 2005-10-29 devnull Message* bangcmd(Cmd*, Message*);
100 5cdb1798 2005-10-29 devnull Message* Pcmd(Cmd*, Message*);
101 5cdb1798 2005-10-29 devnull Message* mcmd(Cmd*, Message*);
102 5cdb1798 2005-10-29 devnull Message* fcmd(Cmd*, Message*);
103 5cdb1798 2005-10-29 devnull Message* quotecmd(Cmd*, Message*);
105 5cdb1798 2005-10-29 devnull struct {
106 5cdb1798 2005-10-29 devnull char *cmd;
107 5cdb1798 2005-10-29 devnull int args;
108 5cdb1798 2005-10-29 devnull Message* (*f)(Cmd*, Message*);
109 5cdb1798 2005-10-29 devnull char *help;
110 5cdb1798 2005-10-29 devnull } cmdtab[] = {
111 5cdb1798 2005-10-29 devnull { "a", 1, acmd, "a reply to sender and recipients" },
112 5cdb1798 2005-10-29 devnull { "A", 1, acmd, "A reply to sender and recipients with copy" },
113 5cdb1798 2005-10-29 devnull { "b", 0, bcmd, "b print the next 10 headers" },
114 5cdb1798 2005-10-29 devnull { "d", 0, dcmd, "d mark for deletion" },
115 5cdb1798 2005-10-29 devnull { "f", 0, fcmd, "f file message by from address" },
116 5cdb1798 2005-10-29 devnull { "h", 0, hcmd, "h print elided message summary (,h for all)" },
117 5cdb1798 2005-10-29 devnull { "help", 0, helpcmd, "help print this info" },
118 5cdb1798 2005-10-29 devnull { "H", 0, Hcmd, "H print message's MIME structure " },
119 5cdb1798 2005-10-29 devnull { "i", 0, icmd, "i incorporate new mail" },
120 5cdb1798 2005-10-29 devnull { "m", 1, mcmd, "m addr forward mail" },
121 5cdb1798 2005-10-29 devnull { "M", 1, mcmd, "M addr forward mail with message" },
122 5cdb1798 2005-10-29 devnull { "p", 0, pcmd, "p print the processed message" },
123 5cdb1798 2005-10-29 devnull { "P", 0, Pcmd, "P print the raw message" },
124 5cdb1798 2005-10-29 devnull { "\"", 0, quotecmd, "\" print a quoted version of msg" },
125 5cdb1798 2005-10-29 devnull { "q", 0, qcmd, "q exit and remove all deleted mail" },
126 5cdb1798 2005-10-29 devnull { "r", 1, rcmd, "r [addr] reply to sender plus any addrs specified" },
127 5cdb1798 2005-10-29 devnull { "rf", 1, rcmd, "rf [addr]file message and reply" },
128 5cdb1798 2005-10-29 devnull { "R", 1, rcmd, "R [addr] reply including copy of message" },
129 5cdb1798 2005-10-29 devnull { "Rf", 1, rcmd, "Rf [addr]file message and reply with copy" },
130 5cdb1798 2005-10-29 devnull { "s", 1, scmd, "s file append raw message to file" },
131 5cdb1798 2005-10-29 devnull { "u", 0, ucmd, "u remove deletion mark" },
132 5cdb1798 2005-10-29 devnull { "w", 1, wcmd, "w file store message contents as file" },
133 5cdb1798 2005-10-29 devnull { "x", 0, xcmd, "x exit without flushing deleted messages" },
134 5cdb1798 2005-10-29 devnull { "y", 0, ycmd, "y synchronize with mail box" },
135 5cdb1798 2005-10-29 devnull { "=", 1, eqcmd, "= print current message number" },
136 5cdb1798 2005-10-29 devnull { "|", 1, pipecmd, "|cmd pipe message body to a command" },
137 5cdb1798 2005-10-29 devnull { "||", 1, rpipecmd, "||cmd pipe raw message to a command" },
138 5cdb1798 2005-10-29 devnull { "!", 1, bangcmd, "!cmd run a command" },
139 5cdb1798 2005-10-29 devnull { nil, 0, nil, nil },
144 5cdb1798 2005-10-29 devnull NARG= 32,
147 5cdb1798 2005-10-29 devnull struct Cmd {
148 5cdb1798 2005-10-29 devnull Message *msgs;
149 5cdb1798 2005-10-29 devnull Message *(*f)(Cmd*, Message*);
151 5cdb1798 2005-10-29 devnull char *av[NARG];
152 5cdb1798 2005-10-29 devnull int delete;
155 5cdb1798 2005-10-29 devnull Biobuf out;
156 5cdb1798 2005-10-29 devnull int startedfs;
157 5cdb1798 2005-10-29 devnull int reverse;
158 5cdb1798 2005-10-29 devnull int longestfrom = 12;
160 5cdb1798 2005-10-29 devnull String* file2string(String*, char*);
161 5cdb1798 2005-10-29 devnull int dir2message(Message*, int);
162 5cdb1798 2005-10-29 devnull int filelen(String*, char*);
163 5cdb1798 2005-10-29 devnull String* extendpath(String*, char*);
164 5cdb1798 2005-10-29 devnull void snprintheader(char*, int, Message*);
165 5cdb1798 2005-10-29 devnull void cracktime(char*, char*, int);
166 5cdb1798 2005-10-29 devnull int cistrncmp(char*, char*, int);
167 5cdb1798 2005-10-29 devnull int cistrcmp(char*, char*);
168 5cdb1798 2005-10-29 devnull Reprog* parsesearch(char**);
169 5cdb1798 2005-10-29 devnull char* parseaddr(char**, Message*, Message*, Message*, Message**);
170 5cdb1798 2005-10-29 devnull char* parsecmd(char*, Cmd*, Message*, Message*);
171 5cdb1798 2005-10-29 devnull char* readline(char*, char*, int);
172 5cdb1798 2005-10-29 devnull void messagecount(Message*);
173 7e61af51 2006-02-12 devnull void system(char*, char**, int);
174 5cdb1798 2005-10-29 devnull void mkid(String*, Message*);
175 5cdb1798 2005-10-29 devnull int switchmb(char*, char*);
176 5cdb1798 2005-10-29 devnull void closemb(void);
177 5cdb1798 2005-10-29 devnull int lineize(char*, char**, int);
178 5cdb1798 2005-10-29 devnull int rawsearch(Message*, Reprog*);
179 5cdb1798 2005-10-29 devnull Message* dosingleton(Message*, char*);
180 5cdb1798 2005-10-29 devnull String* rooted(String*);
181 5cdb1798 2005-10-29 devnull int plumb(Message*, Ctype*);
182 5cdb1798 2005-10-29 devnull String* addrecolon(char*);
183 5cdb1798 2005-10-29 devnull void exitfs(char*);
184 5cdb1798 2005-10-29 devnull Message* flushdeleted(Message*);
186 7e61af51 2006-02-12 devnull CFsys *mailfs;
189 5cdb1798 2005-10-29 devnull usage(void)
191 5cdb1798 2005-10-29 devnull fprint(2, "usage: %s [-nr] [-f mailfile] [-s mailfile]\n", argv0);
192 5cdb1798 2005-10-29 devnull fprint(2, " %s -c dir\n", argv0);
193 7e61af51 2006-02-12 devnull threadexitsall("usage");
197 7e61af51 2006-02-12 devnull catchnote(void *x, char *note)
199 7e61af51 2006-02-12 devnull USED(x);
201 5cdb1798 2005-10-29 devnull if(strstr(note, "interrupt") != nil){
202 5cdb1798 2005-10-29 devnull interrupted = 1;
203 5cdb1798 2005-10-29 devnull noted(NCONT);
205 5cdb1798 2005-10-29 devnull noted(NDFLT);
209 5cdb1798 2005-10-29 devnull plural(int n)
211 5cdb1798 2005-10-29 devnull if (n == 1)
212 5cdb1798 2005-10-29 devnull return "";
214 5cdb1798 2005-10-29 devnull return "s";
218 5cdb1798 2005-10-29 devnull threadmain(int argc, char **argv)
220 5cdb1798 2005-10-29 devnull Message *cur, *m, *x;
221 5cdb1798 2005-10-29 devnull char cmdline[4*1024];
222 5cdb1798 2005-10-29 devnull Cmd cmd;
223 5cdb1798 2005-10-29 devnull Ctype *cp;
224 5cdb1798 2005-10-29 devnull char *err;
225 5cdb1798 2005-10-29 devnull int n, cflag;
226 5cdb1798 2005-10-29 devnull String *prompt;
227 5cdb1798 2005-10-29 devnull char *file, *singleton;
229 5cdb1798 2005-10-29 devnull Binit(&out, 1, OWRITE);
231 5cdb1798 2005-10-29 devnull file = nil;
232 5cdb1798 2005-10-29 devnull singleton = nil;
233 5cdb1798 2005-10-29 devnull reverse = 1;
234 5cdb1798 2005-10-29 devnull cflag = 0;
235 5cdb1798 2005-10-29 devnull ARGBEGIN {
236 5cdb1798 2005-10-29 devnull case 'c':
237 5cdb1798 2005-10-29 devnull cflag = 1;
239 5cdb1798 2005-10-29 devnull case 'f':
240 5cdb1798 2005-10-29 devnull file = EARGF(usage());
242 5cdb1798 2005-10-29 devnull case 's':
243 5cdb1798 2005-10-29 devnull singleton = EARGF(usage());
245 5cdb1798 2005-10-29 devnull case 'r':
246 5cdb1798 2005-10-29 devnull reverse = 0;
248 5cdb1798 2005-10-29 devnull case 'n':
249 5cdb1798 2005-10-29 devnull natural = 1;
250 5cdb1798 2005-10-29 devnull reverse = 0;
252 5cdb1798 2005-10-29 devnull default:
253 5cdb1798 2005-10-29 devnull usage();
255 5cdb1798 2005-10-29 devnull } ARGEND;
257 5cdb1798 2005-10-29 devnull user = getlog();
258 5cdb1798 2005-10-29 devnull if(user == nil || *user == 0)
259 5cdb1798 2005-10-29 devnull sysfatal("can't read user name");
261 5cdb1798 2005-10-29 devnull if(cflag){
262 5cdb1798 2005-10-29 devnull if(argc > 0)
263 5cdb1798 2005-10-29 devnull creatembox(user, argv[0]);
265 5cdb1798 2005-10-29 devnull creatembox(user, nil);
266 7e61af51 2006-02-12 devnull threadexitsall(0);
269 5cdb1798 2005-10-29 devnull if(argc)
270 5cdb1798 2005-10-29 devnull usage();
271 7e61af51 2006-02-12 devnull if((mailfs = nsmount("mail", nil)) == nil)
272 7e61af51 2006-02-12 devnull sysfatal("cannot mount mail: %r");
274 5cdb1798 2005-10-29 devnull switchmb(file, singleton);
276 5cdb1798 2005-10-29 devnull top.path = s_copy(root);
278 5cdb1798 2005-10-29 devnull for(cp = ctype; cp < ctype+nelem(ctype)-1; cp++)
279 5cdb1798 2005-10-29 devnull cp->next = cp+1;
281 5cdb1798 2005-10-29 devnull if(singleton != nil){
282 5cdb1798 2005-10-29 devnull cur = dosingleton(&top, singleton);
283 5cdb1798 2005-10-29 devnull if(cur == nil){
284 5cdb1798 2005-10-29 devnull Bprint(&out, "no message\n");
285 5cdb1798 2005-10-29 devnull exitfs(0);
287 5cdb1798 2005-10-29 devnull pcmd(nil, cur);
288 5cdb1798 2005-10-29 devnull } else {
289 5cdb1798 2005-10-29 devnull cur = ⊤
290 5cdb1798 2005-10-29 devnull n = dir2message(&top, reverse);
291 5cdb1798 2005-10-29 devnull if(n < 0)
292 5cdb1798 2005-10-29 devnull sysfatal("can't read %s", s_to_c(top.path));
293 5cdb1798 2005-10-29 devnull Bprint(&out, "%d message%s\n", n, plural(n));
297 5cdb1798 2005-10-29 devnull notify(catchnote);
298 5cdb1798 2005-10-29 devnull prompt = s_new();
299 5cdb1798 2005-10-29 devnull for(;;){
300 5cdb1798 2005-10-29 devnull s_reset(prompt);
301 5cdb1798 2005-10-29 devnull if(cur == &top)
302 5cdb1798 2005-10-29 devnull s_append(prompt, ": ");
304 5cdb1798 2005-10-29 devnull mkid(prompt, cur);
305 5cdb1798 2005-10-29 devnull s_append(prompt, ": ");
308 5cdb1798 2005-10-29 devnull // leave space at the end of cmd line in case parsecmd needs to
309 5cdb1798 2005-10-29 devnull // add a space after a '|' or '!'
310 5cdb1798 2005-10-29 devnull if(readline(s_to_c(prompt), cmdline, sizeof(cmdline)-1) == nil)
312 5cdb1798 2005-10-29 devnull err = parsecmd(cmdline, &cmd, top.child, cur);
313 5cdb1798 2005-10-29 devnull if(err != nil){
314 5cdb1798 2005-10-29 devnull Bprint(&out, "!%s\n", err);
315 5cdb1798 2005-10-29 devnull continue;
317 5cdb1798 2005-10-29 devnull if(singleton != nil && cmd.f == icmd){
318 5cdb1798 2005-10-29 devnull Bprint(&out, "!illegal command\n");
319 5cdb1798 2005-10-29 devnull continue;
321 5cdb1798 2005-10-29 devnull interrupted = 0;
322 5cdb1798 2005-10-29 devnull if(cmd.msgs == nil || cmd.msgs == &top){
323 5cdb1798 2005-10-29 devnull x = (*cmd.f)(&cmd, &top);
324 5cdb1798 2005-10-29 devnull if(x != nil)
325 5cdb1798 2005-10-29 devnull cur = x;
326 5cdb1798 2005-10-29 devnull } else for(m = cmd.msgs; m != nil; m = m->cmd){
328 5cdb1798 2005-10-29 devnull if(cmd.delete){
329 5cdb1798 2005-10-29 devnull dcmd(&cmd, x);
331 5cdb1798 2005-10-29 devnull // dp acts differently than all other commands
332 5cdb1798 2005-10-29 devnull // since its an old lesk idiom that people love.
333 5cdb1798 2005-10-29 devnull // it deletes the current message, moves the current
334 5cdb1798 2005-10-29 devnull // pointer ahead one and prints.
335 5cdb1798 2005-10-29 devnull if(cmd.f == pcmd){
336 5cdb1798 2005-10-29 devnull if(x->next == nil){
337 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
338 5cdb1798 2005-10-29 devnull cur = x;
341 5cdb1798 2005-10-29 devnull x = x->next;
344 5cdb1798 2005-10-29 devnull x = (*cmd.f)(&cmd, x);
345 5cdb1798 2005-10-29 devnull if(x != nil)
346 5cdb1798 2005-10-29 devnull cur = x;
347 5cdb1798 2005-10-29 devnull if(interrupted)
349 5cdb1798 2005-10-29 devnull if(singleton != nil && (cmd.delete || cmd.f == dcmd))
350 5cdb1798 2005-10-29 devnull qcmd(nil, nil);
352 5cdb1798 2005-10-29 devnull if(doflush)
353 5cdb1798 2005-10-29 devnull cur = flushdeleted(cur);
355 5cdb1798 2005-10-29 devnull qcmd(nil, nil);
358 1ea614ff 2006-02-15 devnull static char*
359 1ea614ff 2006-02-15 devnull mkaddrs(char *t)
361 1ea614ff 2006-02-15 devnull int i, nf, inquote;
362 1ea614ff 2006-02-15 devnull char **f, *s;
363 1ea614ff 2006-02-15 devnull Fmt fmt;
365 1ea614ff 2006-02-15 devnull inquote = 0;
367 1ea614ff 2006-02-15 devnull for(s=t; *s; s++){
368 1ea614ff 2006-02-15 devnull if(*s == '\'')
369 1ea614ff 2006-02-15 devnull inquote = !inquote;
370 1ea614ff 2006-02-15 devnull if(*s == ' ' && !inquote)
373 1ea614ff 2006-02-15 devnull f = malloc(nf*sizeof f[0]);
374 1ea614ff 2006-02-15 devnull if(f == nil)
375 1ea614ff 2006-02-15 devnull return nil;
376 1ea614ff 2006-02-15 devnull nf = tokenize(t, f, nf);
377 1ea614ff 2006-02-15 devnull fmtstrinit(&fmt);
378 1ea614ff 2006-02-15 devnull for(i=0; i+1<nf; i+=2){
379 1ea614ff 2006-02-15 devnull if(i > 0)
380 1ea614ff 2006-02-15 devnull fmtprint(&fmt, " ");
381 1ea614ff 2006-02-15 devnull // if(f[i][0] == 0 || strcmp(f[i], f[i+1]) == 0)
382 1ea614ff 2006-02-15 devnull fmtprint(&fmt, "%s", f[i+1]);
384 1ea614ff 2006-02-15 devnull // fmtprint(&fmt, "%s <%s>", f[i], f[i+1]);
386 1ea614ff 2006-02-15 devnull free(f);
387 1ea614ff 2006-02-15 devnull return fmtstrflush(&fmt);
391 5cdb1798 2005-10-29 devnull // read the message info
393 5cdb1798 2005-10-29 devnull Message*
394 5cdb1798 2005-10-29 devnull file2message(Message *parent, char *name)
396 5cdb1798 2005-10-29 devnull Message *m;
397 5cdb1798 2005-10-29 devnull String *path;
398 7e61af51 2006-02-12 devnull char *f[30], *s, *t;
399 7e61af51 2006-02-12 devnull int i, nf;
401 5cdb1798 2005-10-29 devnull m = mallocz(sizeof(Message), 1);
402 5cdb1798 2005-10-29 devnull if(m == nil)
403 5cdb1798 2005-10-29 devnull return nil;
404 5cdb1798 2005-10-29 devnull m->path = path = extendpath(parent->path, name);
405 5cdb1798 2005-10-29 devnull m->fileno = atoi(name);
406 5cdb1798 2005-10-29 devnull m->info = file2string(path, "info");
407 7e61af51 2006-02-12 devnull m->from = "";
408 7e61af51 2006-02-12 devnull m->to = "";
409 7e61af51 2006-02-12 devnull m->cc = "";
410 7e61af51 2006-02-12 devnull m->replyto = "";
411 7e61af51 2006-02-12 devnull m->date = "";
412 7e61af51 2006-02-12 devnull m->subject = "";
413 7e61af51 2006-02-12 devnull m->type = "";
414 7e61af51 2006-02-12 devnull m->disposition = "";
415 7e61af51 2006-02-12 devnull m->filename = "";
416 7e61af51 2006-02-12 devnull nf = lineize(s_to_c(m->info), f, nelem(f));
417 7e61af51 2006-02-12 devnull for(i=0; i<nf; i++){
418 7e61af51 2006-02-12 devnull s = f[i];
419 7e61af51 2006-02-12 devnull t = strchr(f[i], ' ');
420 7e61af51 2006-02-12 devnull if(t == nil)
421 7e61af51 2006-02-12 devnull continue;
422 7e61af51 2006-02-12 devnull *t++ = 0;
424 7e61af51 2006-02-12 devnull if(strcmp(s, "from") == 0)
425 1ea614ff 2006-02-15 devnull m->from = mkaddrs(t);
426 7e61af51 2006-02-12 devnull else if(strcmp(s, "to") == 0)
427 1ea614ff 2006-02-15 devnull m->to = mkaddrs(t);
428 7e61af51 2006-02-12 devnull else if(strcmp(s, "cc") == 0)
429 1ea614ff 2006-02-15 devnull m->cc = mkaddrs(t);
430 7e61af51 2006-02-12 devnull else if(strcmp(s, "replyto") == 0)
431 1ea614ff 2006-02-15 devnull m->replyto = mkaddrs(t);
432 7e61af51 2006-02-12 devnull else if(strcmp(s, "unixdate") == 0 && (t=strchr(t, ' ')) != nil)
433 7e61af51 2006-02-12 devnull m->date = t;
434 7e61af51 2006-02-12 devnull else if(strcmp(s, "subject") == 0)
435 7e61af51 2006-02-12 devnull m->subject = t;
436 7e61af51 2006-02-12 devnull else if(strcmp(s, "type") == 0)
437 7e61af51 2006-02-12 devnull m->type = t;
438 7e61af51 2006-02-12 devnull else if(strcmp(s, "disposition") == 0)
439 7e61af51 2006-02-12 devnull m->disposition = t;
440 7e61af51 2006-02-12 devnull else if(strcmp(s, "filename") == 0)
441 7e61af51 2006-02-12 devnull m->filename = t;
443 5cdb1798 2005-10-29 devnull m->len = filelen(path, "raw");
444 5cdb1798 2005-10-29 devnull if(strstr(m->type, "multipart") != nil || strcmp(m->type, "message/rfc822") == 0)
445 5cdb1798 2005-10-29 devnull dir2message(m, 0);
446 5cdb1798 2005-10-29 devnull m->parent = parent;
448 5cdb1798 2005-10-29 devnull return m;
452 5cdb1798 2005-10-29 devnull freemessage(Message *m)
454 5cdb1798 2005-10-29 devnull Message *nm, *next;
456 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = next){
457 5cdb1798 2005-10-29 devnull next = nm->next;
458 5cdb1798 2005-10-29 devnull freemessage(nm);
460 5cdb1798 2005-10-29 devnull s_free(m->path);
461 5cdb1798 2005-10-29 devnull s_free(m->info);
462 5cdb1798 2005-10-29 devnull free(m);
466 5cdb1798 2005-10-29 devnull // read a directory into a list of messages
469 5cdb1798 2005-10-29 devnull dir2message(Message *parent, int reverse)
471 5cdb1798 2005-10-29 devnull int i, n, highest, newmsgs;
472 7e61af51 2006-02-12 devnull CFid *fd;
475 5cdb1798 2005-10-29 devnull Message *first, *last, *m;
477 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(parent->path), OREAD);
478 7e61af51 2006-02-12 devnull if(fd == nil)
479 5cdb1798 2005-10-29 devnull return -1;
481 5cdb1798 2005-10-29 devnull // count current entries
482 5cdb1798 2005-10-29 devnull first = parent->child;
483 5cdb1798 2005-10-29 devnull highest = newmsgs = 0;
484 5cdb1798 2005-10-29 devnull for(last = parent->child; last != nil && last->next != nil; last = last->next)
485 5cdb1798 2005-10-29 devnull if(last->fileno > highest)
486 5cdb1798 2005-10-29 devnull highest = last->fileno;
487 5cdb1798 2005-10-29 devnull if(last != nil)
488 5cdb1798 2005-10-29 devnull if(last->fileno > highest)
489 5cdb1798 2005-10-29 devnull highest = last->fileno;
491 7e61af51 2006-02-12 devnull n = fsdirreadall(fd, &d);
492 5cdb1798 2005-10-29 devnull for(i = 0; i < n; i++){
493 5cdb1798 2005-10-29 devnull if((d[i].qid.type & QTDIR) == 0)
494 5cdb1798 2005-10-29 devnull continue;
495 5cdb1798 2005-10-29 devnull if(atoi(d[i].name) <= highest)
496 5cdb1798 2005-10-29 devnull continue;
497 5cdb1798 2005-10-29 devnull m = file2message(parent, d[i].name);
498 5cdb1798 2005-10-29 devnull // fprint(2,"returned from file2message\n");
499 5cdb1798 2005-10-29 devnull if(m == nil)
501 5cdb1798 2005-10-29 devnull newmsgs++;
502 5cdb1798 2005-10-29 devnull if(reverse){
503 5cdb1798 2005-10-29 devnull m->next = first;
504 5cdb1798 2005-10-29 devnull if(first != nil)
505 5cdb1798 2005-10-29 devnull first->prev = m;
506 5cdb1798 2005-10-29 devnull first = m;
507 5cdb1798 2005-10-29 devnull } else {
508 5cdb1798 2005-10-29 devnull if(first == nil)
509 5cdb1798 2005-10-29 devnull first = m;
511 5cdb1798 2005-10-29 devnull last->next = m;
512 5cdb1798 2005-10-29 devnull m->prev = last;
513 5cdb1798 2005-10-29 devnull last = m;
516 5cdb1798 2005-10-29 devnull free(d);
517 7e61af51 2006-02-12 devnull fsclose(fd);
518 5cdb1798 2005-10-29 devnull parent->child = first;
520 5cdb1798 2005-10-29 devnull // renumber and file longest from
522 5cdb1798 2005-10-29 devnull longestfrom = 12;
523 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
524 5cdb1798 2005-10-29 devnull m->id = natural ? m->fileno : i++;
525 5cdb1798 2005-10-29 devnull n = strlen(m->from);
526 5cdb1798 2005-10-29 devnull if(n > longestfrom)
527 5cdb1798 2005-10-29 devnull longestfrom = n;
530 5cdb1798 2005-10-29 devnull return newmsgs;
534 5cdb1798 2005-10-29 devnull // point directly to a message
536 5cdb1798 2005-10-29 devnull Message*
537 5cdb1798 2005-10-29 devnull dosingleton(Message *parent, char *path)
539 5cdb1798 2005-10-29 devnull char *p, *np;
540 5cdb1798 2005-10-29 devnull Message *m;
542 5cdb1798 2005-10-29 devnull // walk down to message and read it
543 5cdb1798 2005-10-29 devnull if(strlen(path) < rootlen)
544 5cdb1798 2005-10-29 devnull return nil;
545 5cdb1798 2005-10-29 devnull if(path[rootlen] != '/')
546 5cdb1798 2005-10-29 devnull return nil;
547 5cdb1798 2005-10-29 devnull p = path+rootlen+1;
548 5cdb1798 2005-10-29 devnull np = strchr(p, '/');
549 5cdb1798 2005-10-29 devnull if(np != nil)
550 5cdb1798 2005-10-29 devnull *np = 0;
551 5cdb1798 2005-10-29 devnull m = file2message(parent, p);
552 5cdb1798 2005-10-29 devnull if(m == nil)
553 5cdb1798 2005-10-29 devnull return nil;
554 5cdb1798 2005-10-29 devnull parent->child = m;
555 5cdb1798 2005-10-29 devnull m->id = 1;
557 5cdb1798 2005-10-29 devnull // walk down to requested component
558 5cdb1798 2005-10-29 devnull while(np != nil){
559 5cdb1798 2005-10-29 devnull *np = '/';
560 5cdb1798 2005-10-29 devnull np = strchr(np+1, '/');
561 5cdb1798 2005-10-29 devnull if(np != nil)
562 5cdb1798 2005-10-29 devnull *np = 0;
563 5cdb1798 2005-10-29 devnull for(m = m->child; m != nil; m = m->next)
564 5cdb1798 2005-10-29 devnull if(strcmp(path, s_to_c(m->path)) == 0)
565 5cdb1798 2005-10-29 devnull return m;
566 5cdb1798 2005-10-29 devnull if(m == nil)
567 5cdb1798 2005-10-29 devnull return nil;
569 5cdb1798 2005-10-29 devnull return m;
573 5cdb1798 2005-10-29 devnull // read a file into a string
576 5cdb1798 2005-10-29 devnull file2string(String *dir, char *file)
578 5cdb1798 2005-10-29 devnull String *s;
579 5cdb1798 2005-10-29 devnull int n, m;
580 7e61af51 2006-02-12 devnull CFid *fd;
582 5cdb1798 2005-10-29 devnull s = extendpath(dir, file);
583 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(s), OREAD);
584 5cdb1798 2005-10-29 devnull s_grow(s, 512); /* avoid multiple reads on info files */
585 5cdb1798 2005-10-29 devnull s_reset(s);
586 7e61af51 2006-02-12 devnull if(fd == nil)
587 5cdb1798 2005-10-29 devnull return s;
589 5cdb1798 2005-10-29 devnull for(;;){
590 5cdb1798 2005-10-29 devnull n = s->end - s->ptr;
591 5cdb1798 2005-10-29 devnull if(n == 0){
592 5cdb1798 2005-10-29 devnull s_grow(s, 128);
593 5cdb1798 2005-10-29 devnull continue;
595 7e61af51 2006-02-12 devnull m = fsread(fd, s->ptr, n);
596 5cdb1798 2005-10-29 devnull if(m <= 0)
598 5cdb1798 2005-10-29 devnull s->ptr += m;
599 5cdb1798 2005-10-29 devnull if(m < n)
602 5cdb1798 2005-10-29 devnull s_terminate(s);
603 7e61af51 2006-02-12 devnull fsclose(fd);
605 5cdb1798 2005-10-29 devnull return s;
609 5cdb1798 2005-10-29 devnull // get the length of a file
612 5cdb1798 2005-10-29 devnull filelen(String *dir, char *file)
614 5cdb1798 2005-10-29 devnull String *path;
618 5cdb1798 2005-10-29 devnull path = extendpath(dir, file);
619 7e61af51 2006-02-12 devnull d = fsdirstat(mailfs, s_to_c(path));
620 5cdb1798 2005-10-29 devnull if(d == nil){
621 5cdb1798 2005-10-29 devnull s_free(path);
622 5cdb1798 2005-10-29 devnull return -1;
624 5cdb1798 2005-10-29 devnull s_free(path);
625 5cdb1798 2005-10-29 devnull rv = d->length;
626 5cdb1798 2005-10-29 devnull free(d);
627 5cdb1798 2005-10-29 devnull return rv;
631 5cdb1798 2005-10-29 devnull // walk the path name an element
634 5cdb1798 2005-10-29 devnull extendpath(String *dir, char *name)
636 5cdb1798 2005-10-29 devnull String *path;
638 5cdb1798 2005-10-29 devnull if(strcmp(s_to_c(dir), ".") == 0)
639 5cdb1798 2005-10-29 devnull path = s_new();
641 5cdb1798 2005-10-29 devnull path = s_copy(s_to_c(dir));
642 5cdb1798 2005-10-29 devnull s_append(path, "/");
644 5cdb1798 2005-10-29 devnull s_append(path, name);
645 5cdb1798 2005-10-29 devnull return path;
649 5cdb1798 2005-10-29 devnull cistrncmp(char *a, char *b, int n)
651 5cdb1798 2005-10-29 devnull while(n-- > 0){
652 5cdb1798 2005-10-29 devnull if(tolower(*a++) != tolower(*b++))
653 5cdb1798 2005-10-29 devnull return -1;
655 5cdb1798 2005-10-29 devnull return 0;
659 5cdb1798 2005-10-29 devnull cistrcmp(char *a, char *b)
661 5cdb1798 2005-10-29 devnull for(;;){
662 5cdb1798 2005-10-29 devnull if(tolower(*a) != tolower(*b++))
663 5cdb1798 2005-10-29 devnull return -1;
664 5cdb1798 2005-10-29 devnull if(*a++ == 0)
667 5cdb1798 2005-10-29 devnull return 0;
671 5cdb1798 2005-10-29 devnull nosecs(char *t)
673 5cdb1798 2005-10-29 devnull char *p;
675 5cdb1798 2005-10-29 devnull p = strchr(t, ':');
676 5cdb1798 2005-10-29 devnull if(p == nil)
677 5cdb1798 2005-10-29 devnull return t;
678 5cdb1798 2005-10-29 devnull p = strchr(p+1, ':');
679 5cdb1798 2005-10-29 devnull if(p != nil)
681 5cdb1798 2005-10-29 devnull return t;
684 5cdb1798 2005-10-29 devnull char *months[12] =
686 5cdb1798 2005-10-29 devnull "jan", "feb", "mar", "apr", "may", "jun",
687 5cdb1798 2005-10-29 devnull "jul", "aug", "sep", "oct", "nov", "dec"
691 5cdb1798 2005-10-29 devnull month(char *m)
695 5cdb1798 2005-10-29 devnull for(i = 0; i < 12; i++)
696 5cdb1798 2005-10-29 devnull if(cistrcmp(m, months[i]) == 0)
697 5cdb1798 2005-10-29 devnull return i+1;
698 5cdb1798 2005-10-29 devnull return 1;
703 5cdb1798 2005-10-29 devnull Yearsecs= 365*24*60*60
707 5cdb1798 2005-10-29 devnull cracktime(char *d, char *out, int len)
709 5cdb1798 2005-10-29 devnull char in[64];
710 5cdb1798 2005-10-29 devnull char *f[6];
713 5cdb1798 2005-10-29 devnull long now, then;
714 5cdb1798 2005-10-29 devnull char *dtime;
716 5cdb1798 2005-10-29 devnull *out = 0;
717 5cdb1798 2005-10-29 devnull if(d == nil)
719 5cdb1798 2005-10-29 devnull strncpy(in, d, sizeof(in));
720 5cdb1798 2005-10-29 devnull in[sizeof(in)-1] = 0;
721 5cdb1798 2005-10-29 devnull n = getfields(in, f, 6, 1, " \t\r\n");
722 5cdb1798 2005-10-29 devnull if(n != 6){
723 5cdb1798 2005-10-29 devnull // unknown style
724 5cdb1798 2005-10-29 devnull snprint(out, 16, "%10.10s", d);
727 5cdb1798 2005-10-29 devnull now = time(0);
728 5cdb1798 2005-10-29 devnull memset(&tm, 0, sizeof tm);
729 5cdb1798 2005-10-29 devnull if(strchr(f[0], ',') != nil && strchr(f[4], ':') != nil){
730 5cdb1798 2005-10-29 devnull // 822 style
731 5cdb1798 2005-10-29 devnull tm.year = atoi(f[3])-1900;
732 5cdb1798 2005-10-29 devnull tm.mon = month(f[2]);
733 5cdb1798 2005-10-29 devnull tm.mday = atoi(f[1]);
734 5cdb1798 2005-10-29 devnull dtime = nosecs(f[4]);
735 5cdb1798 2005-10-29 devnull then = tm2sec(&tm);
736 5cdb1798 2005-10-29 devnull } else if(strchr(f[3], ':') != nil){
737 5cdb1798 2005-10-29 devnull // unix style
738 5cdb1798 2005-10-29 devnull tm.year = atoi(f[5])-1900;
739 5cdb1798 2005-10-29 devnull tm.mon = month(f[1]);
740 5cdb1798 2005-10-29 devnull tm.mday = atoi(f[2]);
741 5cdb1798 2005-10-29 devnull dtime = nosecs(f[3]);
742 5cdb1798 2005-10-29 devnull then = tm2sec(&tm);
743 5cdb1798 2005-10-29 devnull } else {
744 5cdb1798 2005-10-29 devnull then = now;
745 5cdb1798 2005-10-29 devnull tm = *localtime(now);
746 5cdb1798 2005-10-29 devnull dtime = "";
749 5cdb1798 2005-10-29 devnull if(now - then < Yearsecs/2)
750 5cdb1798 2005-10-29 devnull snprint(out, len, "%2d/%2.2d %s", tm.mon, tm.mday, dtime);
752 5cdb1798 2005-10-29 devnull snprint(out, len, "%2d/%2.2d %4d", tm.mon, tm.mday, tm.year+1900);
756 5cdb1798 2005-10-29 devnull findctype(Message *m)
758 5cdb1798 2005-10-29 devnull char *p;
759 5cdb1798 2005-10-29 devnull char ftype[128];
760 5cdb1798 2005-10-29 devnull int n, pfd[2];
761 5cdb1798 2005-10-29 devnull Ctype *a, *cp;
762 5cdb1798 2005-10-29 devnull static Ctype bintype = { "application/octet-stream", "bin", 0, 0 };
764 5cdb1798 2005-10-29 devnull for(cp = ctype; cp; cp = cp->next)
765 5cdb1798 2005-10-29 devnull if(strncmp(cp->type, m->type, strlen(cp->type)) == 0)
766 5cdb1798 2005-10-29 devnull return cp;
768 5cdb1798 2005-10-29 devnull if(pipe(pfd) < 0)
769 5cdb1798 2005-10-29 devnull return &bintype;
771 5cdb1798 2005-10-29 devnull *ftype = 0;
772 5cdb1798 2005-10-29 devnull switch(fork()){
773 5cdb1798 2005-10-29 devnull case -1:
776 5cdb1798 2005-10-29 devnull close(pfd[1]);
777 5cdb1798 2005-10-29 devnull close(0);
778 5cdb1798 2005-10-29 devnull dup(pfd[0], 0);
779 5cdb1798 2005-10-29 devnull close(1);
780 5cdb1798 2005-10-29 devnull dup(pfd[0], 1);
781 5cdb1798 2005-10-29 devnull execl(unsharp("#9/bin/file"), "file", "-m", s_to_c(extendpath(m->path, "body")), nil);
782 5cdb1798 2005-10-29 devnull threadexits(0);
783 5cdb1798 2005-10-29 devnull default:
784 5cdb1798 2005-10-29 devnull close(pfd[0]);
785 5cdb1798 2005-10-29 devnull n = read(pfd[1], ftype, sizeof(ftype));
786 5cdb1798 2005-10-29 devnull if(n > 0)
787 5cdb1798 2005-10-29 devnull ftype[n] = 0;
788 5cdb1798 2005-10-29 devnull close(pfd[1]);
789 5cdb1798 2005-10-29 devnull waitpid();
793 5cdb1798 2005-10-29 devnull if (*ftype=='\0' || (p = strchr(ftype, '/')) == nil)
794 5cdb1798 2005-10-29 devnull return &bintype;
795 5cdb1798 2005-10-29 devnull *p++ = 0;
797 5cdb1798 2005-10-29 devnull a = mallocz(sizeof(Ctype), 1);
798 5cdb1798 2005-10-29 devnull a->type = strdup(ftype);
799 5cdb1798 2005-10-29 devnull a->ext = strdup(p);
800 5cdb1798 2005-10-29 devnull a->display = 0;
801 5cdb1798 2005-10-29 devnull a->plumbdest = strdup(ftype);
802 5cdb1798 2005-10-29 devnull for(cp = ctype; cp->next; cp = cp->next)
803 5cdb1798 2005-10-29 devnull continue;
804 5cdb1798 2005-10-29 devnull cp->next = a;
805 5cdb1798 2005-10-29 devnull a->next = nil;
806 5cdb1798 2005-10-29 devnull return a;
810 5cdb1798 2005-10-29 devnull mkid(String *s, Message *m)
812 5cdb1798 2005-10-29 devnull char buf[32];
814 5cdb1798 2005-10-29 devnull if(m->parent != &top){
815 5cdb1798 2005-10-29 devnull mkid(s, m->parent);
816 5cdb1798 2005-10-29 devnull s_append(s, ".");
818 5cdb1798 2005-10-29 devnull sprint(buf, "%d", m->id);
819 5cdb1798 2005-10-29 devnull s_append(s, buf);
823 5cdb1798 2005-10-29 devnull snprintheader(char *buf, int len, Message *m)
825 5cdb1798 2005-10-29 devnull char timebuf[32];
826 5cdb1798 2005-10-29 devnull String *id;
827 5cdb1798 2005-10-29 devnull char *p, *q;;
829 5cdb1798 2005-10-29 devnull // create id
830 5cdb1798 2005-10-29 devnull id = s_new();
831 5cdb1798 2005-10-29 devnull mkid(id, m);
833 5cdb1798 2005-10-29 devnull if(*m->from == 0){
834 5cdb1798 2005-10-29 devnull // no from
835 5cdb1798 2005-10-29 devnull snprint(buf, len, "%-3s %s %6d %s",
836 5cdb1798 2005-10-29 devnull s_to_c(id),
837 5cdb1798 2005-10-29 devnull m->type,
839 5cdb1798 2005-10-29 devnull m->filename);
840 5cdb1798 2005-10-29 devnull } else if(*m->subject){
841 5cdb1798 2005-10-29 devnull q = p = strdup(m->subject);
842 5cdb1798 2005-10-29 devnull while(*p == ' ')
844 5cdb1798 2005-10-29 devnull if(strlen(p) > 50)
845 5cdb1798 2005-10-29 devnull p[50] = 0;
846 5cdb1798 2005-10-29 devnull cracktime(m->date, timebuf, sizeof(timebuf));
847 5cdb1798 2005-10-29 devnull snprint(buf, len, "%-3s %c%c%c %6d %11.11s %-*.*s %s",
848 5cdb1798 2005-10-29 devnull s_to_c(id),
849 5cdb1798 2005-10-29 devnull m->child ? 'H' : ' ',
850 5cdb1798 2005-10-29 devnull m->deleted ? 'd' : ' ',
851 5cdb1798 2005-10-29 devnull m->stored ? 's' : ' ',
853 5cdb1798 2005-10-29 devnull timebuf,
854 5cdb1798 2005-10-29 devnull longestfrom, longestfrom, m->from,
856 5cdb1798 2005-10-29 devnull free(q);
857 5cdb1798 2005-10-29 devnull } else {
858 5cdb1798 2005-10-29 devnull cracktime(m->date, timebuf, sizeof(timebuf));
859 5cdb1798 2005-10-29 devnull snprint(buf, len, "%-3s %c%c%c %6d %11.11s %s",
860 5cdb1798 2005-10-29 devnull s_to_c(id),
861 5cdb1798 2005-10-29 devnull m->child ? 'H' : ' ',
862 5cdb1798 2005-10-29 devnull m->deleted ? 'd' : ' ',
863 5cdb1798 2005-10-29 devnull m->stored ? 's' : ' ',
865 5cdb1798 2005-10-29 devnull timebuf,
866 5cdb1798 2005-10-29 devnull m->from);
868 5cdb1798 2005-10-29 devnull s_free(id);
871 5cdb1798 2005-10-29 devnull char *spaces = " ";
874 5cdb1798 2005-10-29 devnull snprintHeader(char *buf, int len, int indent, Message *m)
876 5cdb1798 2005-10-29 devnull String *id;
877 5cdb1798 2005-10-29 devnull char typeid[64];
878 5cdb1798 2005-10-29 devnull char *p, *e;
880 5cdb1798 2005-10-29 devnull // create id
881 5cdb1798 2005-10-29 devnull id = s_new();
882 5cdb1798 2005-10-29 devnull mkid(id, m);
884 5cdb1798 2005-10-29 devnull e = buf + len;
886 5cdb1798 2005-10-29 devnull snprint(typeid, sizeof typeid, "%s %s", s_to_c(id), m->type);
887 5cdb1798 2005-10-29 devnull if(indent < 6)
888 5cdb1798 2005-10-29 devnull p = seprint(buf, e, "%-32s %-6d ", typeid, m->len);
890 5cdb1798 2005-10-29 devnull p = seprint(buf, e, "%-64s %-6d ", typeid, m->len);
891 5cdb1798 2005-10-29 devnull if(m->filename && *m->filename)
892 5cdb1798 2005-10-29 devnull p = seprint(p, e, "(file,%s)", m->filename);
893 5cdb1798 2005-10-29 devnull if(m->from && *m->from)
894 5cdb1798 2005-10-29 devnull p = seprint(p, e, "(from,%s)", m->from);
895 5cdb1798 2005-10-29 devnull if(m->subject && *m->subject)
896 5cdb1798 2005-10-29 devnull seprint(p, e, "(subj,%s)", m->subject);
898 5cdb1798 2005-10-29 devnull s_free(id);
901 5cdb1798 2005-10-29 devnull char sstring[256];
903 5cdb1798 2005-10-29 devnull // cmd := range cmd ' ' arg-list ;
904 5cdb1798 2005-10-29 devnull // range := address
905 5cdb1798 2005-10-29 devnull // | address ',' address
906 5cdb1798 2005-10-29 devnull // | 'g' search ;
907 5cdb1798 2005-10-29 devnull // address := msgno
908 5cdb1798 2005-10-29 devnull // | search ;
909 5cdb1798 2005-10-29 devnull // msgno := number
910 5cdb1798 2005-10-29 devnull // | number '/' msgno ;
911 5cdb1798 2005-10-29 devnull // search := '/' string '/'
912 5cdb1798 2005-10-29 devnull // | '%' string '%' ;
915 5cdb1798 2005-10-29 devnull parsesearch(char **pp)
917 5cdb1798 2005-10-29 devnull char *p, *np;
918 5cdb1798 2005-10-29 devnull int c, n;
920 5cdb1798 2005-10-29 devnull p = *pp;
921 5cdb1798 2005-10-29 devnull c = *p++;
922 5cdb1798 2005-10-29 devnull np = strchr(p, c);
923 5cdb1798 2005-10-29 devnull if(np != nil){
924 5cdb1798 2005-10-29 devnull *np++ = 0;
925 5cdb1798 2005-10-29 devnull *pp = np;
926 5cdb1798 2005-10-29 devnull } else {
927 5cdb1798 2005-10-29 devnull n = strlen(p);
928 5cdb1798 2005-10-29 devnull *pp = p + n;
930 5cdb1798 2005-10-29 devnull if(*p == 0)
931 5cdb1798 2005-10-29 devnull p = sstring;
933 5cdb1798 2005-10-29 devnull strncpy(sstring, p, sizeof(sstring));
934 5cdb1798 2005-10-29 devnull sstring[sizeof(sstring)-1] = 0;
936 5cdb1798 2005-10-29 devnull return regcomp(p);
940 5cdb1798 2005-10-29 devnull parseaddr(char **pp, Message *first, Message *cur, Message *unspec, Message **mp)
943 5cdb1798 2005-10-29 devnull Message *m;
944 5cdb1798 2005-10-29 devnull char *p;
945 5cdb1798 2005-10-29 devnull Reprog *prog;
946 5cdb1798 2005-10-29 devnull int c, sign;
947 5cdb1798 2005-10-29 devnull char buf[256];
949 5cdb1798 2005-10-29 devnull *mp = nil;
950 5cdb1798 2005-10-29 devnull p = *pp;
952 5cdb1798 2005-10-29 devnull if(*p == '+'){
953 5cdb1798 2005-10-29 devnull sign = 1;
955 5cdb1798 2005-10-29 devnull *pp = p;
956 5cdb1798 2005-10-29 devnull } else if(*p == '-'){
957 5cdb1798 2005-10-29 devnull sign = -1;
959 5cdb1798 2005-10-29 devnull *pp = p;
961 5cdb1798 2005-10-29 devnull sign = 0;
963 5cdb1798 2005-10-29 devnull switch(*p){
964 5cdb1798 2005-10-29 devnull default:
965 5cdb1798 2005-10-29 devnull if(sign){
967 5cdb1798 2005-10-29 devnull goto number;
969 5cdb1798 2005-10-29 devnull *mp = unspec;
971 5cdb1798 2005-10-29 devnull case '0': case '1': case '2': case '3': case '4':
972 5cdb1798 2005-10-29 devnull case '5': case '6': case '7': case '8': case '9':
973 5cdb1798 2005-10-29 devnull n = strtoul(p, pp, 10);
974 5cdb1798 2005-10-29 devnull if(n == 0){
975 5cdb1798 2005-10-29 devnull if(sign)
976 5cdb1798 2005-10-29 devnull *mp = cur;
978 5cdb1798 2005-10-29 devnull *mp = ⊤
982 5cdb1798 2005-10-29 devnull m = nil;
983 5cdb1798 2005-10-29 devnull switch(sign){
985 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next)
986 5cdb1798 2005-10-29 devnull if(m->id == n)
989 5cdb1798 2005-10-29 devnull case -1:
990 5cdb1798 2005-10-29 devnull if(cur != &top)
991 5cdb1798 2005-10-29 devnull for(m = cur; m != nil && n > 0; n--)
992 5cdb1798 2005-10-29 devnull m = m->prev;
995 5cdb1798 2005-10-29 devnull if(cur == &top){
997 5cdb1798 2005-10-29 devnull cur = first;
999 5cdb1798 2005-10-29 devnull for(m = cur; m != nil && n > 0; n--)
1000 5cdb1798 2005-10-29 devnull m = m->next;
1003 5cdb1798 2005-10-29 devnull if(m == nil)
1004 5cdb1798 2005-10-29 devnull return "address";
1005 5cdb1798 2005-10-29 devnull *mp = m;
1007 5cdb1798 2005-10-29 devnull case '%':
1008 5cdb1798 2005-10-29 devnull case '/':
1009 5cdb1798 2005-10-29 devnull case '?':
1010 5cdb1798 2005-10-29 devnull c = *p;
1011 5cdb1798 2005-10-29 devnull prog = parsesearch(pp);
1012 5cdb1798 2005-10-29 devnull if(prog == nil)
1013 5cdb1798 2005-10-29 devnull return "badly formed regular expression";
1014 5cdb1798 2005-10-29 devnull m = nil;
1015 5cdb1798 2005-10-29 devnull switch(c){
1016 5cdb1798 2005-10-29 devnull case '%':
1017 5cdb1798 2005-10-29 devnull for(m = cur == &top ? first : cur->next; m != nil; m = m->next){
1018 5cdb1798 2005-10-29 devnull if(rawsearch(m, prog))
1022 5cdb1798 2005-10-29 devnull case '/':
1023 5cdb1798 2005-10-29 devnull for(m = cur == &top ? first : cur->next; m != nil; m = m->next){
1024 5cdb1798 2005-10-29 devnull snprintheader(buf, sizeof(buf), m);
1025 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0))
1029 5cdb1798 2005-10-29 devnull case '?':
1030 5cdb1798 2005-10-29 devnull for(m = cur == &top ? nil : cur->prev; m != nil; m = m->prev){
1031 5cdb1798 2005-10-29 devnull snprintheader(buf, sizeof(buf), m);
1032 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0))
1037 5cdb1798 2005-10-29 devnull if(m == nil)
1038 5cdb1798 2005-10-29 devnull return "search";
1039 5cdb1798 2005-10-29 devnull *mp = m;
1040 5cdb1798 2005-10-29 devnull free(prog);
1042 5cdb1798 2005-10-29 devnull case '$':
1043 5cdb1798 2005-10-29 devnull for(m = first; m != nil && m->next != nil; m = m->next)
1045 5cdb1798 2005-10-29 devnull *mp = m;
1046 5cdb1798 2005-10-29 devnull *pp = p+1;
1048 5cdb1798 2005-10-29 devnull case '.':
1049 5cdb1798 2005-10-29 devnull *mp = cur;
1050 5cdb1798 2005-10-29 devnull *pp = p+1;
1052 5cdb1798 2005-10-29 devnull case ',':
1053 5cdb1798 2005-10-29 devnull *mp = first;
1054 5cdb1798 2005-10-29 devnull *pp = p;
1058 5cdb1798 2005-10-29 devnull if(*mp != nil && **pp == '.'){
1059 5cdb1798 2005-10-29 devnull (*pp)++;
1060 5cdb1798 2005-10-29 devnull if((*mp)->child == nil)
1061 5cdb1798 2005-10-29 devnull return "no sub parts";
1062 5cdb1798 2005-10-29 devnull return parseaddr(pp, (*mp)->child, (*mp)->child, (*mp)->child, mp);
1064 5cdb1798 2005-10-29 devnull if(**pp == '+' || **pp == '-' || **pp == '/' || **pp == '%')
1065 5cdb1798 2005-10-29 devnull return parseaddr(pp, first, *mp, *mp, mp);
1067 5cdb1798 2005-10-29 devnull return nil;
1071 5cdb1798 2005-10-29 devnull // search a message for a regular expression match
1074 5cdb1798 2005-10-29 devnull rawsearch(Message *m, Reprog *prog)
1076 5cdb1798 2005-10-29 devnull char buf[4096+1];
1077 5cdb1798 2005-10-29 devnull int i, rv;
1078 7e61af51 2006-02-12 devnull CFid *fd;
1079 5cdb1798 2005-10-29 devnull String *path;
1081 5cdb1798 2005-10-29 devnull path = extendpath(m->path, "raw");
1082 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(path), OREAD);
1083 7e61af51 2006-02-12 devnull if(fd == nil)
1084 5cdb1798 2005-10-29 devnull return 0;
1086 5cdb1798 2005-10-29 devnull // march through raw message 4096 bytes at a time
1087 5cdb1798 2005-10-29 devnull // with a 128 byte overlap to chain the re search.
1088 5cdb1798 2005-10-29 devnull rv = 0;
1089 5cdb1798 2005-10-29 devnull for(;;){
1090 7e61af51 2006-02-12 devnull i = fsread(fd, buf, sizeof(buf)-1);
1091 5cdb1798 2005-10-29 devnull if(i <= 0)
1093 5cdb1798 2005-10-29 devnull buf[i] = 0;
1094 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0)){
1095 5cdb1798 2005-10-29 devnull rv = 1;
1098 5cdb1798 2005-10-29 devnull if(i < sizeof(buf)-1)
1100 7e61af51 2006-02-12 devnull if(fsseek(fd, -128LL, 1) < 0)
1104 7e61af51 2006-02-12 devnull fsclose(fd);
1105 5cdb1798 2005-10-29 devnull s_free(path);
1106 5cdb1798 2005-10-29 devnull return rv;
1111 5cdb1798 2005-10-29 devnull parsecmd(char *p, Cmd *cmd, Message *first, Message *cur)
1113 5cdb1798 2005-10-29 devnull Reprog *prog;
1114 5cdb1798 2005-10-29 devnull Message *m, *s, *e, **l, *last;
1115 5cdb1798 2005-10-29 devnull char buf[256];
1116 5cdb1798 2005-10-29 devnull char *err;
1117 5cdb1798 2005-10-29 devnull int i, c;
1118 5cdb1798 2005-10-29 devnull char *q;
1119 5cdb1798 2005-10-29 devnull static char errbuf[Errlen];
1121 5cdb1798 2005-10-29 devnull cmd->delete = 0;
1122 5cdb1798 2005-10-29 devnull l = &cmd->msgs;
1123 5cdb1798 2005-10-29 devnull *l = nil;
1125 5cdb1798 2005-10-29 devnull // eat white space
1126 5cdb1798 2005-10-29 devnull while(*p == ' ')
1129 5cdb1798 2005-10-29 devnull // null command is a special case (advance and print)
1130 5cdb1798 2005-10-29 devnull if(*p == 0){
1131 5cdb1798 2005-10-29 devnull if(cur == &top){
1132 5cdb1798 2005-10-29 devnull // special case
1133 5cdb1798 2005-10-29 devnull m = first;
1134 5cdb1798 2005-10-29 devnull } else {
1135 5cdb1798 2005-10-29 devnull // walk to the next message even if we have to go up
1136 5cdb1798 2005-10-29 devnull m = cur->next;
1137 5cdb1798 2005-10-29 devnull while(m == nil && cur->parent != nil){
1138 5cdb1798 2005-10-29 devnull cur = cur->parent;
1139 5cdb1798 2005-10-29 devnull m = cur->next;
1142 5cdb1798 2005-10-29 devnull if(m == nil)
1143 5cdb1798 2005-10-29 devnull return "address";
1144 5cdb1798 2005-10-29 devnull *l = m;
1145 5cdb1798 2005-10-29 devnull m->cmd = nil;
1146 5cdb1798 2005-10-29 devnull cmd->an = 0;
1147 5cdb1798 2005-10-29 devnull cmd->f = pcmd;
1148 5cdb1798 2005-10-29 devnull return nil;
1151 5cdb1798 2005-10-29 devnull // global search ?
1152 5cdb1798 2005-10-29 devnull if(*p == 'g'){
1155 5cdb1798 2005-10-29 devnull // no search string means all messages
1156 5cdb1798 2005-10-29 devnull if(*p != '/' && *p != '%'){
1157 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
1158 5cdb1798 2005-10-29 devnull *l = m;
1159 5cdb1798 2005-10-29 devnull l = &m->cmd;
1160 5cdb1798 2005-10-29 devnull *l = nil;
1162 5cdb1798 2005-10-29 devnull } else {
1163 5cdb1798 2005-10-29 devnull // mark all messages matching this search string
1164 5cdb1798 2005-10-29 devnull c = *p;
1165 5cdb1798 2005-10-29 devnull prog = parsesearch(&p);
1166 5cdb1798 2005-10-29 devnull if(prog == nil)
1167 5cdb1798 2005-10-29 devnull return "badly formed regular expression";
1168 5cdb1798 2005-10-29 devnull if(c == '%'){
1169 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
1170 5cdb1798 2005-10-29 devnull if(rawsearch(m, prog)){
1171 5cdb1798 2005-10-29 devnull *l = m;
1172 5cdb1798 2005-10-29 devnull l = &m->cmd;
1173 5cdb1798 2005-10-29 devnull *l = nil;
1176 5cdb1798 2005-10-29 devnull } else {
1177 5cdb1798 2005-10-29 devnull for(m = first; m != nil; m = m->next){
1178 5cdb1798 2005-10-29 devnull snprintheader(buf, sizeof(buf), m);
1179 5cdb1798 2005-10-29 devnull if(regexec(prog, buf, nil, 0)){
1180 5cdb1798 2005-10-29 devnull *l = m;
1181 5cdb1798 2005-10-29 devnull l = &m->cmd;
1182 5cdb1798 2005-10-29 devnull *l = nil;
1186 5cdb1798 2005-10-29 devnull free(prog);
1188 5cdb1798 2005-10-29 devnull } else {
1190 5cdb1798 2005-10-29 devnull // parse an address
1191 5cdb1798 2005-10-29 devnull s = e = nil;
1192 5cdb1798 2005-10-29 devnull err = parseaddr(&p, first, cur, cur, &s);
1193 5cdb1798 2005-10-29 devnull if(err != nil)
1194 5cdb1798 2005-10-29 devnull return err;
1195 5cdb1798 2005-10-29 devnull if(*p == ','){
1196 5cdb1798 2005-10-29 devnull // this is an address range
1197 5cdb1798 2005-10-29 devnull if(s == &top)
1198 5cdb1798 2005-10-29 devnull s = first;
1200 5cdb1798 2005-10-29 devnull for(last = s; last != nil && last->next != nil; last = last->next)
1202 5cdb1798 2005-10-29 devnull err = parseaddr(&p, first, cur, last, &e);
1203 5cdb1798 2005-10-29 devnull if(err != nil)
1204 5cdb1798 2005-10-29 devnull return err;
1206 5cdb1798 2005-10-29 devnull // select all messages in the range
1207 5cdb1798 2005-10-29 devnull for(; s != nil; s = s->next){
1208 5cdb1798 2005-10-29 devnull *l = s;
1209 5cdb1798 2005-10-29 devnull l = &s->cmd;
1210 5cdb1798 2005-10-29 devnull *l = nil;
1211 5cdb1798 2005-10-29 devnull if(s == e)
1214 5cdb1798 2005-10-29 devnull if(s == nil)
1215 5cdb1798 2005-10-29 devnull return "null address range";
1216 5cdb1798 2005-10-29 devnull } else {
1217 5cdb1798 2005-10-29 devnull // single address
1218 5cdb1798 2005-10-29 devnull if(s != &top){
1219 5cdb1798 2005-10-29 devnull *l = s;
1220 5cdb1798 2005-10-29 devnull s->cmd = nil;
1225 5cdb1798 2005-10-29 devnull // insert a space after '!'s and '|'s
1226 5cdb1798 2005-10-29 devnull for(q = p; *q; q++)
1227 5cdb1798 2005-10-29 devnull if(*q != '!' && *q != '|')
1229 5cdb1798 2005-10-29 devnull if(q != p && *q != ' '){
1230 5cdb1798 2005-10-29 devnull memmove(q+1, q, strlen(q)+1);
1231 5cdb1798 2005-10-29 devnull *q = ' ';
1234 5cdb1798 2005-10-29 devnull cmd->an = getfields(p, cmd->av, nelem(cmd->av) - 1, 1, " \t\r\n");
1235 5cdb1798 2005-10-29 devnull if(cmd->an == 0 || *cmd->av[0] == 0)
1236 5cdb1798 2005-10-29 devnull cmd->f = pcmd;
1238 5cdb1798 2005-10-29 devnull // hack to allow all messages to start with 'd'
1239 5cdb1798 2005-10-29 devnull if(*(cmd->av[0]) == 'd' && *(cmd->av[0]+1) != 0){
1240 5cdb1798 2005-10-29 devnull cmd->delete = 1;
1241 5cdb1798 2005-10-29 devnull cmd->av[0]++;
1244 5cdb1798 2005-10-29 devnull // search command table
1245 5cdb1798 2005-10-29 devnull for(i = 0; cmdtab[i].cmd != nil; i++)
1246 5cdb1798 2005-10-29 devnull if(strcmp(cmd->av[0], cmdtab[i].cmd) == 0)
1248 5cdb1798 2005-10-29 devnull if(cmdtab[i].cmd == nil)
1249 5cdb1798 2005-10-29 devnull return "illegal command";
1250 5cdb1798 2005-10-29 devnull if(cmdtab[i].args == 0 && cmd->an > 1){
1251 5cdb1798 2005-10-29 devnull snprint(errbuf, sizeof(errbuf), "%s doesn't take an argument", cmdtab[i].cmd);
1252 5cdb1798 2005-10-29 devnull return errbuf;
1254 5cdb1798 2005-10-29 devnull cmd->f = cmdtab[i].f;
1256 5cdb1798 2005-10-29 devnull return nil;
1259 5cdb1798 2005-10-29 devnull // inefficient read from standard input
1261 5cdb1798 2005-10-29 devnull readline(char *prompt, char *line, int len)
1263 5cdb1798 2005-10-29 devnull char *p, *e;
1267 5cdb1798 2005-10-29 devnull interrupted = 0;
1268 5cdb1798 2005-10-29 devnull Bprint(&out, "%s", prompt);
1269 5cdb1798 2005-10-29 devnull Bflush(&out);
1270 5cdb1798 2005-10-29 devnull e = line + len;
1271 5cdb1798 2005-10-29 devnull for(p = line; p < e; p++){
1272 5cdb1798 2005-10-29 devnull n = read(0, p, 1);
1273 5cdb1798 2005-10-29 devnull if(n < 0){
1274 5cdb1798 2005-10-29 devnull if(interrupted)
1275 5cdb1798 2005-10-29 devnull goto retry;
1276 5cdb1798 2005-10-29 devnull return nil;
1278 5cdb1798 2005-10-29 devnull if(n == 0)
1279 5cdb1798 2005-10-29 devnull return nil;
1280 5cdb1798 2005-10-29 devnull if(*p == '\n')
1283 5cdb1798 2005-10-29 devnull *p = 0;
1284 5cdb1798 2005-10-29 devnull return line;
1288 5cdb1798 2005-10-29 devnull messagecount(Message *m)
1293 5cdb1798 2005-10-29 devnull for(; m != nil; m = m->next)
1295 5cdb1798 2005-10-29 devnull Bprint(&out, "%d message%s\n", i, plural(i));
1298 5cdb1798 2005-10-29 devnull Message*
1299 5cdb1798 2005-10-29 devnull aichcmd(Message *m, int indent)
1301 5cdb1798 2005-10-29 devnull char hdr[256];
1303 5cdb1798 2005-10-29 devnull if(m == &top)
1304 5cdb1798 2005-10-29 devnull return nil;
1306 5cdb1798 2005-10-29 devnull snprintHeader(hdr, sizeof(hdr), indent, m);
1307 5cdb1798 2005-10-29 devnull Bprint(&out, "%s\n", hdr);
1308 5cdb1798 2005-10-29 devnull for(m = m->child; m != nil; m = m->next)
1309 5cdb1798 2005-10-29 devnull aichcmd(m, indent+1);
1310 5cdb1798 2005-10-29 devnull return nil;
1313 5cdb1798 2005-10-29 devnull Message*
1314 7e61af51 2006-02-12 devnull Hcmd(Cmd *x, Message *m)
1316 7e61af51 2006-02-12 devnull USED(x);
1318 5cdb1798 2005-10-29 devnull if(m == &top)
1319 5cdb1798 2005-10-29 devnull return nil;
1320 5cdb1798 2005-10-29 devnull aichcmd(m, 0);
1321 5cdb1798 2005-10-29 devnull return nil;
1324 5cdb1798 2005-10-29 devnull Message*
1325 7e61af51 2006-02-12 devnull hcmd(Cmd *x, Message *m)
1327 5cdb1798 2005-10-29 devnull char hdr[256];
1329 7e61af51 2006-02-12 devnull USED(x);
1330 5cdb1798 2005-10-29 devnull if(m == &top)
1331 5cdb1798 2005-10-29 devnull return nil;
1333 5cdb1798 2005-10-29 devnull snprintheader(hdr, sizeof(hdr), m);
1334 5cdb1798 2005-10-29 devnull Bprint(&out, "%s\n", hdr);
1335 5cdb1798 2005-10-29 devnull return nil;
1338 5cdb1798 2005-10-29 devnull Message*
1339 7e61af51 2006-02-12 devnull bcmd(Cmd *x, Message *m)
1342 5cdb1798 2005-10-29 devnull Message *om = m;
1344 7e61af51 2006-02-12 devnull USED(x);
1345 5cdb1798 2005-10-29 devnull if(m == &top)
1346 5cdb1798 2005-10-29 devnull m = top.child;
1347 5cdb1798 2005-10-29 devnull for(i = 0; i < 10 && m != nil; i++){
1348 5cdb1798 2005-10-29 devnull hcmd(nil, m);
1349 5cdb1798 2005-10-29 devnull om = m;
1350 5cdb1798 2005-10-29 devnull m = m->next;
1353 5cdb1798 2005-10-29 devnull return om;
1356 5cdb1798 2005-10-29 devnull Message*
1357 7e61af51 2006-02-12 devnull ncmd(Cmd *x, Message *m)
1359 7e61af51 2006-02-12 devnull USED(x);
1360 5cdb1798 2005-10-29 devnull if(m == &top)
1361 5cdb1798 2005-10-29 devnull return m->child;
1362 5cdb1798 2005-10-29 devnull return m->next;
1366 5cdb1798 2005-10-29 devnull printpart(String *s, char *part)
1368 5cdb1798 2005-10-29 devnull char buf[4096];
1369 5cdb1798 2005-10-29 devnull int n, tot;
1370 7e61af51 2006-02-12 devnull CFid *fd;
1371 5cdb1798 2005-10-29 devnull String *path;
1373 5cdb1798 2005-10-29 devnull path = extendpath(s, part);
1374 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, s_to_c(path), OREAD);
1375 5cdb1798 2005-10-29 devnull s_free(path);
1376 7e61af51 2006-02-12 devnull if(fd == nil){
1377 5cdb1798 2005-10-29 devnull fprint(2, "!message dissappeared\n");
1378 5cdb1798 2005-10-29 devnull return 0;
1380 5cdb1798 2005-10-29 devnull tot = 0;
1381 7e61af51 2006-02-12 devnull while((n = fsread(fd, buf, sizeof(buf))) > 0){
1382 5cdb1798 2005-10-29 devnull if(interrupted)
1384 5cdb1798 2005-10-29 devnull if(Bwrite(&out, buf, n) <= 0)
1386 5cdb1798 2005-10-29 devnull tot += n;
1388 7e61af51 2006-02-12 devnull fsclose(fd);
1389 5cdb1798 2005-10-29 devnull return tot;
1393 5cdb1798 2005-10-29 devnull printhtml(Message *m)
1397 5cdb1798 2005-10-29 devnull c.an = 3;
1398 7e61af51 2006-02-12 devnull c.av[1] = "htmlfmt";
1399 5cdb1798 2005-10-29 devnull c.av[2] = "-l 40 -cutf-8";
1400 5cdb1798 2005-10-29 devnull Bprint(&out, "!%s\n", c.av[1]);
1401 5cdb1798 2005-10-29 devnull Bflush(&out);
1402 5cdb1798 2005-10-29 devnull pipecmd(&c, m);
1403 5cdb1798 2005-10-29 devnull return 0;
1406 5cdb1798 2005-10-29 devnull Message*
1407 7e61af51 2006-02-12 devnull Pcmd(Cmd *x, Message *m)
1409 7e61af51 2006-02-12 devnull USED(x);
1410 5cdb1798 2005-10-29 devnull if(m == &top)
1411 5cdb1798 2005-10-29 devnull return ⊤
1412 5cdb1798 2005-10-29 devnull if(m->parent == &top)
1413 5cdb1798 2005-10-29 devnull printpart(m->path, "unixheader");
1414 5cdb1798 2005-10-29 devnull printpart(m->path, "raw");
1415 5cdb1798 2005-10-29 devnull return m;
1419 5cdb1798 2005-10-29 devnull compress(char *p)
1421 5cdb1798 2005-10-29 devnull char *np;
1422 5cdb1798 2005-10-29 devnull int last;
1424 5cdb1798 2005-10-29 devnull last = ' ';
1425 5cdb1798 2005-10-29 devnull for(np = p; *p; p++){
1426 5cdb1798 2005-10-29 devnull if(*p != ' ' || last != ' '){
1427 5cdb1798 2005-10-29 devnull last = *p;
1428 5cdb1798 2005-10-29 devnull *np++ = last;
1431 5cdb1798 2005-10-29 devnull *np = 0;
1434 5cdb1798 2005-10-29 devnull Message*
1435 7e61af51 2006-02-12 devnull pcmd(Cmd *x, Message *m)
1437 5cdb1798 2005-10-29 devnull Message *nm;
1438 5cdb1798 2005-10-29 devnull Ctype *cp;
1439 5cdb1798 2005-10-29 devnull String *s;
1440 5cdb1798 2005-10-29 devnull char buf[128];
1442 7e61af51 2006-02-12 devnull USED(x);
1443 5cdb1798 2005-10-29 devnull if(m == &top)
1444 5cdb1798 2005-10-29 devnull return ⊤
1445 5cdb1798 2005-10-29 devnull if(m->parent == &top)
1446 5cdb1798 2005-10-29 devnull printpart(m->path, "unixheader");
1447 5cdb1798 2005-10-29 devnull if(printpart(m->path, "header") > 0)
1448 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1449 5cdb1798 2005-10-29 devnull cp = findctype(m);
1450 5cdb1798 2005-10-29 devnull if(cp->display){
1451 5cdb1798 2005-10-29 devnull if(strcmp(m->type, "text/html") == 0)
1452 5cdb1798 2005-10-29 devnull printhtml(m);
1454 5cdb1798 2005-10-29 devnull printpart(m->path, "body");
1455 5cdb1798 2005-10-29 devnull } else if(strcmp(m->type, "multipart/alternative") == 0){
1456 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1457 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1458 5cdb1798 2005-10-29 devnull if(cp->ext != nil && strncmp(cp->ext, "txt", 3) == 0)
1461 5cdb1798 2005-10-29 devnull if(nm == nil)
1462 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1463 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1464 5cdb1798 2005-10-29 devnull if(cp->display)
1467 5cdb1798 2005-10-29 devnull if(nm != nil)
1468 5cdb1798 2005-10-29 devnull pcmd(nil, nm);
1470 5cdb1798 2005-10-29 devnull hcmd(nil, m);
1471 5cdb1798 2005-10-29 devnull } else if(strncmp(m->type, "multipart/", 10) == 0){
1472 5cdb1798 2005-10-29 devnull nm = m->child;
1473 5cdb1798 2005-10-29 devnull if(nm != nil){
1474 5cdb1798 2005-10-29 devnull // always print first part
1475 5cdb1798 2005-10-29 devnull pcmd(nil, nm);
1477 5cdb1798 2005-10-29 devnull for(nm = nm->next; nm != nil; nm = nm->next){
1478 5cdb1798 2005-10-29 devnull s = rooted(s_clone(nm->path));
1479 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1480 5cdb1798 2005-10-29 devnull snprintHeader(buf, sizeof buf, -1, nm);
1481 5cdb1798 2005-10-29 devnull compress(buf);
1482 5cdb1798 2005-10-29 devnull if(strcmp(nm->disposition, "inline") == 0){
1483 5cdb1798 2005-10-29 devnull if(cp->ext != nil)
1484 5cdb1798 2005-10-29 devnull Bprint(&out, "\n--- %s %s/body.%s\n\n",
1485 5cdb1798 2005-10-29 devnull buf, s_to_c(s), cp->ext);
1487 5cdb1798 2005-10-29 devnull Bprint(&out, "\n--- %s %s/body\n\n",
1488 5cdb1798 2005-10-29 devnull buf, s_to_c(s));
1489 5cdb1798 2005-10-29 devnull pcmd(nil, nm);
1490 5cdb1798 2005-10-29 devnull } else {
1491 5cdb1798 2005-10-29 devnull if(cp->ext != nil)
1492 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- %s %s/body.%s\n",
1493 5cdb1798 2005-10-29 devnull buf, s_to_c(s), cp->ext);
1495 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- %s %s/body\n",
1496 5cdb1798 2005-10-29 devnull buf, s_to_c(s));
1498 5cdb1798 2005-10-29 devnull s_free(s);
1500 5cdb1798 2005-10-29 devnull } else {
1501 5cdb1798 2005-10-29 devnull hcmd(nil, m);
1503 5cdb1798 2005-10-29 devnull } else if(strcmp(m->type, "message/rfc822") == 0){
1504 5cdb1798 2005-10-29 devnull pcmd(nil, m->child);
1505 5cdb1798 2005-10-29 devnull } else if(plumb(m, cp) >= 0)
1506 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- using plumber to display message of type %s\n", m->type);
1508 5cdb1798 2005-10-29 devnull Bprint(&out, "\n!--- cannot display messages of type %s\n", m->type);
1510 5cdb1798 2005-10-29 devnull return m;
1514 5cdb1798 2005-10-29 devnull printpartindented(String *s, char *part, char *indent)
1516 d4baecd9 2006-02-26 devnull int fd;
1517 5cdb1798 2005-10-29 devnull char *p;
1518 5cdb1798 2005-10-29 devnull String *path;
1519 5cdb1798 2005-10-29 devnull Biobuf *b;
1521 d4baecd9 2006-02-26 devnull path = extendpath(s, part);
1522 d4baecd9 2006-02-26 devnull fd = fsopenfd(mailfs, s_to_c(path), OREAD);
1523 5cdb1798 2005-10-29 devnull s_free(path);
1524 d4baecd9 2006-02-26 devnull if(fd < 0){
1525 d4baecd9 2006-02-26 devnull fprint(2, "!message disappeared\n");
1526 d4baecd9 2006-02-26 devnull return;
1528 d4baecd9 2006-02-26 devnull b = Bfdopen(fd, OREAD);
1529 d4baecd9 2006-02-26 devnull if(b == 0){
1530 d4baecd9 2006-02-26 devnull fprint(2, "out of memory\n");
1531 d4baecd9 2006-02-26 devnull close(fd);
1532 5cdb1798 2005-10-29 devnull return;
1534 5cdb1798 2005-10-29 devnull while((p = Brdline(b, '\n')) != nil){
1535 5cdb1798 2005-10-29 devnull if(interrupted)
1537 5cdb1798 2005-10-29 devnull p[Blinelen(b)-1] = 0;
1538 ee51985f 2006-01-27 devnull if(Bprint(&out, "%s%s\n", indent, p) < 0)
1541 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1542 5cdb1798 2005-10-29 devnull Bterm(b);
1545 5cdb1798 2005-10-29 devnull Message*
1546 7e61af51 2006-02-12 devnull quotecmd(Cmd *x, Message *m)
1548 5cdb1798 2005-10-29 devnull Message *nm;
1549 5cdb1798 2005-10-29 devnull Ctype *cp;
1551 7e61af51 2006-02-12 devnull USED(x);
1552 5cdb1798 2005-10-29 devnull if(m == &top)
1553 5cdb1798 2005-10-29 devnull return ⊤
1554 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1555 5cdb1798 2005-10-29 devnull if(m->from != nil && *m->from)
1556 5cdb1798 2005-10-29 devnull Bprint(&out, "On %s, %s wrote:\n", m->date, m->from);
1557 5cdb1798 2005-10-29 devnull cp = findctype(m);
1558 5cdb1798 2005-10-29 devnull if(cp->display){
1559 5cdb1798 2005-10-29 devnull printpartindented(m->path, "body", "> ");
1560 5cdb1798 2005-10-29 devnull } else if(strcmp(m->type, "multipart/alternative") == 0){
1561 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1562 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1563 5cdb1798 2005-10-29 devnull if(cp->ext != nil && strncmp(cp->ext, "txt", 3) == 0)
1566 5cdb1798 2005-10-29 devnull if(nm == nil)
1567 5cdb1798 2005-10-29 devnull for(nm = m->child; nm != nil; nm = nm->next){
1568 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1569 5cdb1798 2005-10-29 devnull if(cp->display)
1572 5cdb1798 2005-10-29 devnull if(nm != nil)
1573 5cdb1798 2005-10-29 devnull quotecmd(nil, nm);
1574 5cdb1798 2005-10-29 devnull } else if(strncmp(m->type, "multipart/", 10) == 0){
1575 5cdb1798 2005-10-29 devnull nm = m->child;
1576 5cdb1798 2005-10-29 devnull if(nm != nil){
1577 5cdb1798 2005-10-29 devnull cp = findctype(nm);
1578 5cdb1798 2005-10-29 devnull if(cp->display || strncmp(m->type, "multipart/", 10) == 0)
1579 5cdb1798 2005-10-29 devnull quotecmd(nil, nm);
1582 5cdb1798 2005-10-29 devnull return m;
1585 5cdb1798 2005-10-29 devnull // really delete messages
1586 5cdb1798 2005-10-29 devnull Message*
1587 5cdb1798 2005-10-29 devnull flushdeleted(Message *cur)
1589 5cdb1798 2005-10-29 devnull Message *m, **l;
1590 5cdb1798 2005-10-29 devnull char buf[1024], *p, *e, *msg;
1591 5cdb1798 2005-10-29 devnull int deld, n;
1592 7e61af51 2006-02-12 devnull CFid *fd;
1595 5cdb1798 2005-10-29 devnull doflush = 0;
1596 5cdb1798 2005-10-29 devnull deld = 0;
1598 1ea614ff 2006-02-15 devnull snprint(buf, sizeof buf, "%s/ctl", mbname);
1599 1ea614ff 2006-02-15 devnull fd = fsopen(mailfs, buf, OWRITE);
1600 7e61af51 2006-02-12 devnull if(fd == nil){
1601 1ea614ff 2006-02-15 devnull fprint(2, "!can't delete mail, opening %s: %r\n", buf);
1602 5cdb1798 2005-10-29 devnull exitfs(0);
1604 5cdb1798 2005-10-29 devnull e = &buf[sizeof(buf)];
1605 1ea614ff 2006-02-15 devnull p = seprint(buf, e, "delete");
1607 5cdb1798 2005-10-29 devnull for(l = &top.child; *l != nil;){
1608 5cdb1798 2005-10-29 devnull m = *l;
1609 5cdb1798 2005-10-29 devnull if(!m->deleted){
1610 5cdb1798 2005-10-29 devnull l = &(*l)->next;
1611 5cdb1798 2005-10-29 devnull continue;
1614 5cdb1798 2005-10-29 devnull // don't return a pointer to a deleted message
1615 5cdb1798 2005-10-29 devnull if(m == cur)
1616 5cdb1798 2005-10-29 devnull cur = m->next;
1618 5cdb1798 2005-10-29 devnull deld++;
1619 5cdb1798 2005-10-29 devnull msg = strrchr(s_to_c(m->path), '/');
1620 5cdb1798 2005-10-29 devnull if(msg == nil)
1621 5cdb1798 2005-10-29 devnull msg = s_to_c(m->path);
1624 5cdb1798 2005-10-29 devnull if(e-p < 10){
1625 7e61af51 2006-02-12 devnull fswrite(fd, buf, p-buf);
1627 1ea614ff 2006-02-15 devnull p = seprint(buf, e, "delete");
1629 5cdb1798 2005-10-29 devnull p = seprint(p, e, " %s", msg);
1632 5cdb1798 2005-10-29 devnull // unchain and free
1633 5cdb1798 2005-10-29 devnull *l = m->next;
1634 5cdb1798 2005-10-29 devnull if(m->next)
1635 5cdb1798 2005-10-29 devnull m->next->prev = m->prev;
1636 5cdb1798 2005-10-29 devnull freemessage(m);
1639 7e61af51 2006-02-12 devnull fswrite(fd, buf, p-buf);
1641 7e61af51 2006-02-12 devnull fsclose(fd);
1643 5cdb1798 2005-10-29 devnull if(deld)
1644 5cdb1798 2005-10-29 devnull Bprint(&out, "!%d message%s deleted\n", deld, plural(deld));
1646 5cdb1798 2005-10-29 devnull // renumber
1648 5cdb1798 2005-10-29 devnull for(m = top.child; m != nil; m = m->next)
1649 5cdb1798 2005-10-29 devnull m->id = natural ? m->fileno : i++;
1651 5cdb1798 2005-10-29 devnull // if we're out of messages, go back to first
1652 5cdb1798 2005-10-29 devnull // if no first, return the fake first
1653 5cdb1798 2005-10-29 devnull if(cur == nil){
1654 5cdb1798 2005-10-29 devnull if(top.child)
1655 5cdb1798 2005-10-29 devnull return top.child;
1657 5cdb1798 2005-10-29 devnull return ⊤
1659 5cdb1798 2005-10-29 devnull return cur;
1662 5cdb1798 2005-10-29 devnull Message*
1663 7e61af51 2006-02-12 devnull qcmd(Cmd *x, Message *m)
1665 7e61af51 2006-02-12 devnull USED(x);
1666 7e61af51 2006-02-12 devnull USED(m);
1668 5cdb1798 2005-10-29 devnull flushdeleted(nil);
1670 5cdb1798 2005-10-29 devnull if(didopen)
1671 5cdb1798 2005-10-29 devnull closemb();
1672 5cdb1798 2005-10-29 devnull Bflush(&out);
1674 5cdb1798 2005-10-29 devnull exitfs(0);
1675 5cdb1798 2005-10-29 devnull return nil; // not reached
1678 5cdb1798 2005-10-29 devnull Message*
1679 7e61af51 2006-02-12 devnull ycmd(Cmd *x, Message *m)
1681 7e61af51 2006-02-12 devnull USED(x);
1683 5cdb1798 2005-10-29 devnull doflush = 1;
1685 5cdb1798 2005-10-29 devnull return icmd(nil, m);
1688 5cdb1798 2005-10-29 devnull Message*
1689 7e61af51 2006-02-12 devnull xcmd(Cmd *x, Message *m)
1691 7e61af51 2006-02-12 devnull USED(x);
1692 7e61af51 2006-02-12 devnull USED(m);
1694 5cdb1798 2005-10-29 devnull exitfs(0);
1695 5cdb1798 2005-10-29 devnull return nil; // not reached
1698 5cdb1798 2005-10-29 devnull Message*
1699 7e61af51 2006-02-12 devnull eqcmd(Cmd *x, Message *m)
1701 7e61af51 2006-02-12 devnull USED(x);
1703 5cdb1798 2005-10-29 devnull if(m == &top)
1704 5cdb1798 2005-10-29 devnull Bprint(&out, "0\n");
1706 5cdb1798 2005-10-29 devnull Bprint(&out, "%d\n", m->id);
1707 5cdb1798 2005-10-29 devnull return nil;
1710 5cdb1798 2005-10-29 devnull Message*
1711 7e61af51 2006-02-12 devnull dcmd(Cmd *x, Message *m)
1713 7e61af51 2006-02-12 devnull USED(x);
1715 5cdb1798 2005-10-29 devnull if(m == &top){
1716 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1717 5cdb1798 2005-10-29 devnull return nil;
1719 5cdb1798 2005-10-29 devnull while(m->parent != &top)
1720 5cdb1798 2005-10-29 devnull m = m->parent;
1721 5cdb1798 2005-10-29 devnull m->deleted = 1;
1722 5cdb1798 2005-10-29 devnull return m;
1725 5cdb1798 2005-10-29 devnull Message*
1726 7e61af51 2006-02-12 devnull ucmd(Cmd *x, Message *m)
1728 7e61af51 2006-02-12 devnull USED(x);
1730 5cdb1798 2005-10-29 devnull if(m == &top)
1731 5cdb1798 2005-10-29 devnull return nil;
1732 5cdb1798 2005-10-29 devnull while(m->parent != &top)
1733 5cdb1798 2005-10-29 devnull m = m->parent;
1734 5cdb1798 2005-10-29 devnull if(m->deleted < 0)
1735 5cdb1798 2005-10-29 devnull Bprint(&out, "!can't undelete, already flushed\n");
1736 5cdb1798 2005-10-29 devnull m->deleted = 0;
1737 5cdb1798 2005-10-29 devnull return m;
1741 5cdb1798 2005-10-29 devnull Message*
1742 7e61af51 2006-02-12 devnull icmd(Cmd *x, Message *m)
1746 7e61af51 2006-02-12 devnull USED(x);
1747 5cdb1798 2005-10-29 devnull n = dir2message(&top, reverse);
1748 5cdb1798 2005-10-29 devnull if(n > 0)
1749 5cdb1798 2005-10-29 devnull Bprint(&out, "%d new message%s\n", n, plural(n));
1750 5cdb1798 2005-10-29 devnull return m;
1753 5cdb1798 2005-10-29 devnull Message*
1754 7e61af51 2006-02-12 devnull helpcmd(Cmd *x, Message *m)
1758 7e61af51 2006-02-12 devnull USED(x);
1759 5cdb1798 2005-10-29 devnull Bprint(&out, "Commands are of the form [<range>] <command> [args]\n");
1760 5cdb1798 2005-10-29 devnull Bprint(&out, "<range> := <addr> | <addr>','<addr>| 'g'<search>\n");
1761 5cdb1798 2005-10-29 devnull Bprint(&out, "<addr> := '.' | '$' | '^' | <number> | <search> | <addr>'+'<addr> | <addr>'-'<addr>\n");
1762 5cdb1798 2005-10-29 devnull Bprint(&out, "<search> := '/'<regexp>'/' | '?'<regexp>'?' | '%%'<regexp>'%%'\n");
1763 5cdb1798 2005-10-29 devnull Bprint(&out, "<command> :=\n");
1764 5cdb1798 2005-10-29 devnull for(i = 0; cmdtab[i].cmd != nil; i++)
1765 5cdb1798 2005-10-29 devnull Bprint(&out, "%s\n", cmdtab[i].help);
1766 5cdb1798 2005-10-29 devnull return m;
1770 5cdb1798 2005-10-29 devnull tomailer(char **av)
1772 7e61af51 2006-02-12 devnull static char *marshal;
1773 5cdb1798 2005-10-29 devnull Waitmsg *w;
1774 5cdb1798 2005-10-29 devnull int pid, i;
1776 7e61af51 2006-02-12 devnull if(marshal == nil)
1777 7e61af51 2006-02-12 devnull marshal = unsharp("#9/bin/upas/marshal");
1779 5cdb1798 2005-10-29 devnull // start the mailer and get out of the way
1780 5cdb1798 2005-10-29 devnull switch(pid = fork()){
1781 5cdb1798 2005-10-29 devnull case -1:
1782 5cdb1798 2005-10-29 devnull fprint(2, "can't fork: %r\n");
1783 5cdb1798 2005-10-29 devnull return -1;
1784 5cdb1798 2005-10-29 devnull case 0:
1785 7e61af51 2006-02-12 devnull Bprint(&out, "!%s", marshal);
1786 5cdb1798 2005-10-29 devnull for(i = 1; av[i]; i++){
1787 5cdb1798 2005-10-29 devnull if(strchr(av[i], ' ') != nil)
1788 5cdb1798 2005-10-29 devnull Bprint(&out, " '%s'", av[i]);
1790 5cdb1798 2005-10-29 devnull Bprint(&out, " %s", av[i]);
1792 5cdb1798 2005-10-29 devnull Bprint(&out, "\n");
1793 5cdb1798 2005-10-29 devnull Bflush(&out);
1794 5cdb1798 2005-10-29 devnull av[0] = "marshal";
1795 5cdb1798 2005-10-29 devnull chdir(wd);
1796 7e61af51 2006-02-12 devnull exec(marshal, av);
1797 7e61af51 2006-02-12 devnull fprint(2, "couldn't exec %s\n", marshal);
1798 5cdb1798 2005-10-29 devnull threadexits(0);
1799 5cdb1798 2005-10-29 devnull default:
1800 5cdb1798 2005-10-29 devnull w = wait();
1801 5cdb1798 2005-10-29 devnull if(w == nil){
1802 5cdb1798 2005-10-29 devnull if(interrupted)
1803 5cdb1798 2005-10-29 devnull postnote(PNPROC, pid, "die");
1804 5cdb1798 2005-10-29 devnull waitpid();
1805 5cdb1798 2005-10-29 devnull return -1;
1807 5cdb1798 2005-10-29 devnull if(w->msg[0]){
1808 5cdb1798 2005-10-29 devnull fprint(2, "mailer failed: %s\n", w->msg);
1809 5cdb1798 2005-10-29 devnull free(w);
1810 5cdb1798 2005-10-29 devnull return -1;
1812 5cdb1798 2005-10-29 devnull free(w);
1813 5cdb1798 2005-10-29 devnull Bprint(&out, "!\n");
1816 5cdb1798 2005-10-29 devnull return 0;
1820 5cdb1798 2005-10-29 devnull // like tokenize but obey "" quoting
1823 5cdb1798 2005-10-29 devnull tokenize822(char *str, char **args, int max)
1825 5cdb1798 2005-10-29 devnull int na;
1826 5cdb1798 2005-10-29 devnull int intok = 0, inquote = 0;
1828 5cdb1798 2005-10-29 devnull if(max <= 0)
1829 5cdb1798 2005-10-29 devnull return 0;
1830 5cdb1798 2005-10-29 devnull for(na=0; ;str++)
1831 5cdb1798 2005-10-29 devnull switch(*str) {
1832 5cdb1798 2005-10-29 devnull case ' ':
1833 5cdb1798 2005-10-29 devnull case '\t':
1834 5cdb1798 2005-10-29 devnull if(inquote)
1835 5cdb1798 2005-10-29 devnull goto Default;
1836 5cdb1798 2005-10-29 devnull /* fall through */
1837 5cdb1798 2005-10-29 devnull case '\n':
1838 5cdb1798 2005-10-29 devnull *str = 0;
1839 5cdb1798 2005-10-29 devnull if(!intok)
1840 5cdb1798 2005-10-29 devnull continue;
1841 5cdb1798 2005-10-29 devnull intok = 0;
1842 5cdb1798 2005-10-29 devnull if(na < max)
1843 5cdb1798 2005-10-29 devnull continue;
1844 5cdb1798 2005-10-29 devnull /* fall through */
1845 5cdb1798 2005-10-29 devnull case 0:
1846 5cdb1798 2005-10-29 devnull return na;
1847 5cdb1798 2005-10-29 devnull case '"':
1848 5cdb1798 2005-10-29 devnull inquote ^= 1;
1849 5cdb1798 2005-10-29 devnull /* fall through */
1850 5cdb1798 2005-10-29 devnull Default:
1851 5cdb1798 2005-10-29 devnull default:
1852 5cdb1798 2005-10-29 devnull if(intok)
1853 5cdb1798 2005-10-29 devnull continue;
1854 5cdb1798 2005-10-29 devnull args[na++] = str;
1855 5cdb1798 2005-10-29 devnull intok = 1;
1857 5cdb1798 2005-10-29 devnull return 0; /* can't get here; silence compiler */
1860 5cdb1798 2005-10-29 devnull Message*
1861 5cdb1798 2005-10-29 devnull rcmd(Cmd *c, Message *m)
1863 5cdb1798 2005-10-29 devnull char *av[128];
1864 5cdb1798 2005-10-29 devnull int i, ai = 1;
1865 5cdb1798 2005-10-29 devnull Message *nm;
1866 5cdb1798 2005-10-29 devnull char *addr;
1867 5cdb1798 2005-10-29 devnull String *path = nil;
1868 5cdb1798 2005-10-29 devnull String *rpath;
1869 5cdb1798 2005-10-29 devnull String *subject = nil;
1870 5cdb1798 2005-10-29 devnull String *from;
1872 5cdb1798 2005-10-29 devnull if(m == &top){
1873 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1874 5cdb1798 2005-10-29 devnull return nil;
1877 5cdb1798 2005-10-29 devnull addr = nil;
1878 5cdb1798 2005-10-29 devnull for(nm = m; nm != ⊤ nm = nm->parent){
1879 5cdb1798 2005-10-29 devnull if(*nm->replyto != 0){
1880 5cdb1798 2005-10-29 devnull addr = nm->replyto;
1884 5cdb1798 2005-10-29 devnull if(addr == nil){
1885 5cdb1798 2005-10-29 devnull Bprint(&out, "!no reply address\n");
1886 5cdb1798 2005-10-29 devnull return nil;
1889 5cdb1798 2005-10-29 devnull if(nm == &top){
1890 5cdb1798 2005-10-29 devnull print("!noone to reply to\n");
1891 5cdb1798 2005-10-29 devnull return nil;
1894 5cdb1798 2005-10-29 devnull for(nm = m; nm != ⊤ nm = nm->parent){
1895 5cdb1798 2005-10-29 devnull if(*nm->subject){
1896 5cdb1798 2005-10-29 devnull av[ai++] = "-s";
1897 5cdb1798 2005-10-29 devnull subject = addrecolon(nm->subject);
1898 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(subject);;
1903 5cdb1798 2005-10-29 devnull av[ai++] = "-R";
1904 5cdb1798 2005-10-29 devnull rpath = rooted(s_clone(m->path));
1905 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(rpath);
1907 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'f') != nil){
1908 5cdb1798 2005-10-29 devnull fcmd(c, m);
1909 5cdb1798 2005-10-29 devnull av[ai++] = "-F";
1912 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'R') != nil){
1913 5cdb1798 2005-10-29 devnull av[ai++] = "-t";
1914 5cdb1798 2005-10-29 devnull av[ai++] = "message/rfc822";
1915 5cdb1798 2005-10-29 devnull av[ai++] = "-A";
1916 5cdb1798 2005-10-29 devnull path = rooted(extendpath(m->path, "raw"));
1917 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(path);
1920 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an && ai < nelem(av)-1; i++)
1921 5cdb1798 2005-10-29 devnull av[ai++] = c->av[i];
1922 5cdb1798 2005-10-29 devnull from = s_copy(addr);
1923 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(from), &av[ai], nelem(av) - ai);
1924 5cdb1798 2005-10-29 devnull av[ai] = 0;
1925 5cdb1798 2005-10-29 devnull if(tomailer(av) < 0)
1926 5cdb1798 2005-10-29 devnull m = nil;
1927 5cdb1798 2005-10-29 devnull s_free(path);
1928 5cdb1798 2005-10-29 devnull s_free(rpath);
1929 5cdb1798 2005-10-29 devnull s_free(subject);
1930 5cdb1798 2005-10-29 devnull s_free(from);
1931 5cdb1798 2005-10-29 devnull return m;
1934 5cdb1798 2005-10-29 devnull Message*
1935 5cdb1798 2005-10-29 devnull mcmd(Cmd *c, Message *m)
1937 5cdb1798 2005-10-29 devnull char **av;
1938 5cdb1798 2005-10-29 devnull int i, ai;
1939 5cdb1798 2005-10-29 devnull String *path;
1941 5cdb1798 2005-10-29 devnull if(m == &top){
1942 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1943 5cdb1798 2005-10-29 devnull return nil;
1946 5cdb1798 2005-10-29 devnull if(c->an < 2){
1947 5cdb1798 2005-10-29 devnull fprint(2, "!usage: M list-of addresses\n");
1948 5cdb1798 2005-10-29 devnull return nil;
1951 5cdb1798 2005-10-29 devnull ai = 1;
1952 5cdb1798 2005-10-29 devnull av = malloc(sizeof(char*)*(c->an + 8));
1954 5cdb1798 2005-10-29 devnull av[ai++] = "-t";
1955 5cdb1798 2005-10-29 devnull if(m->parent == &top)
1956 5cdb1798 2005-10-29 devnull av[ai++] = "message/rfc822";
1958 5cdb1798 2005-10-29 devnull av[ai++] = "mime";
1960 5cdb1798 2005-10-29 devnull av[ai++] = "-A";
1961 5cdb1798 2005-10-29 devnull path = rooted(extendpath(m->path, "raw"));
1962 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(path);
1964 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'M') == nil)
1965 5cdb1798 2005-10-29 devnull av[ai++] = "-n";
1967 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an; i++)
1968 5cdb1798 2005-10-29 devnull av[ai++] = c->av[i];
1969 5cdb1798 2005-10-29 devnull av[ai] = 0;
1971 5cdb1798 2005-10-29 devnull if(tomailer(av) < 0)
1972 5cdb1798 2005-10-29 devnull m = nil;
1973 5cdb1798 2005-10-29 devnull if(path != nil)
1974 5cdb1798 2005-10-29 devnull s_free(path);
1975 5cdb1798 2005-10-29 devnull free(av);
1976 5cdb1798 2005-10-29 devnull return m;
1979 5cdb1798 2005-10-29 devnull Message*
1980 5cdb1798 2005-10-29 devnull acmd(Cmd *c, Message *m)
1982 5cdb1798 2005-10-29 devnull char *av[128];
1983 5cdb1798 2005-10-29 devnull int i, ai;
1984 5cdb1798 2005-10-29 devnull String *from, *to, *cc, *path = nil, *subject = nil;
1986 5cdb1798 2005-10-29 devnull if(m == &top){
1987 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
1988 5cdb1798 2005-10-29 devnull return nil;
1991 5cdb1798 2005-10-29 devnull ai = 1;
1992 5cdb1798 2005-10-29 devnull if(*m->subject){
1993 5cdb1798 2005-10-29 devnull av[ai++] = "-s";
1994 5cdb1798 2005-10-29 devnull subject = addrecolon(m->subject);
1995 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(subject);
1998 5cdb1798 2005-10-29 devnull if(strchr(c->av[0], 'A') != nil){
1999 5cdb1798 2005-10-29 devnull av[ai++] = "-t";
2000 5cdb1798 2005-10-29 devnull av[ai++] = "message/rfc822";
2001 5cdb1798 2005-10-29 devnull av[ai++] = "-A";
2002 5cdb1798 2005-10-29 devnull path = rooted(extendpath(m->path, "raw"));
2003 5cdb1798 2005-10-29 devnull av[ai++] = s_to_c(path);
2006 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an && ai < nelem(av)-1; i++)
2007 5cdb1798 2005-10-29 devnull av[ai++] = c->av[i];
2008 5cdb1798 2005-10-29 devnull from = s_copy(m->from);
2009 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(from), &av[ai], nelem(av) - ai);
2010 5cdb1798 2005-10-29 devnull to = s_copy(m->to);
2011 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(to), &av[ai], nelem(av) - ai);
2012 5cdb1798 2005-10-29 devnull cc = s_copy(m->cc);
2013 5cdb1798 2005-10-29 devnull ai += tokenize822(s_to_c(cc), &av[ai], nelem(av) - ai);
2014 5cdb1798 2005-10-29 devnull av[ai] = 0;
2015 5cdb1798 2005-10-29 devnull if(tomailer(av) < 0)
2016 5cdb1798 2005-10-29 devnull return nil;
2017 5cdb1798 2005-10-29 devnull s_free(from);
2018 5cdb1798 2005-10-29 devnull s_free(to);
2019 5cdb1798 2005-10-29 devnull s_free(cc);
2020 5cdb1798 2005-10-29 devnull s_free(subject);
2021 5cdb1798 2005-10-29 devnull s_free(path);
2022 5cdb1798 2005-10-29 devnull return m;
2025 5cdb1798 2005-10-29 devnull String *
2026 5cdb1798 2005-10-29 devnull relpath(char *path, String *to)
2028 5cdb1798 2005-10-29 devnull if (*path=='/' || strncmp(path, "./", 2) == 0
2029 5cdb1798 2005-10-29 devnull || strncmp(path, "../", 3) == 0) {
2030 5cdb1798 2005-10-29 devnull to = s_append(to, path);
2031 5cdb1798 2005-10-29 devnull } else if(mbpath) {
2032 5cdb1798 2005-10-29 devnull to = s_append(to, s_to_c(mbpath));
2033 5cdb1798 2005-10-29 devnull to->ptr = strrchr(to->base, '/')+1;
2034 5cdb1798 2005-10-29 devnull s_append(to, path);
2036 5cdb1798 2005-10-29 devnull return to;
2040 5cdb1798 2005-10-29 devnull appendtofile(Message *m, char *part, char *base, int mbox)
2042 5cdb1798 2005-10-29 devnull String *file, *h;
2043 5cdb1798 2005-10-29 devnull int in, out, rv;
2045 5cdb1798 2005-10-29 devnull file = extendpath(m->path, part);
2046 5cdb1798 2005-10-29 devnull in = open(s_to_c(file), OREAD);
2047 5cdb1798 2005-10-29 devnull if(in < 0){
2048 5cdb1798 2005-10-29 devnull fprint(2, "!message disappeared\n");
2049 5cdb1798 2005-10-29 devnull return -1;
2052 5cdb1798 2005-10-29 devnull s_reset(file);
2054 5cdb1798 2005-10-29 devnull relpath(base, file);
2055 5cdb1798 2005-10-29 devnull if(sysisdir(s_to_c(file))){
2056 5cdb1798 2005-10-29 devnull s_append(file, "/");
2057 5cdb1798 2005-10-29 devnull if(m->filename && strchr(m->filename, '/') == nil)
2058 5cdb1798 2005-10-29 devnull s_append(file, m->filename);
2060 5cdb1798 2005-10-29 devnull s_append(file, "att.XXXXXXXXXXX");
2061 5cdb1798 2005-10-29 devnull mktemp(s_to_c(file));
2064 5cdb1798 2005-10-29 devnull if(mbox)
2065 5cdb1798 2005-10-29 devnull out = open(s_to_c(file), OWRITE);
2067 5cdb1798 2005-10-29 devnull out = open(s_to_c(file), OWRITE|OTRUNC);
2068 5cdb1798 2005-10-29 devnull if(out < 0){
2069 5cdb1798 2005-10-29 devnull out = create(s_to_c(file), OWRITE, 0666);
2070 5cdb1798 2005-10-29 devnull if(out < 0){
2071 5cdb1798 2005-10-29 devnull fprint(2, "!can't open %s: %r\n", s_to_c(file));
2072 5cdb1798 2005-10-29 devnull close(in);
2073 5cdb1798 2005-10-29 devnull s_free(file);
2074 5cdb1798 2005-10-29 devnull return -1;
2077 5cdb1798 2005-10-29 devnull if(mbox)
2078 5cdb1798 2005-10-29 devnull seek(out, 0, 2);
2080 5cdb1798 2005-10-29 devnull // put on a 'From ' line
2081 5cdb1798 2005-10-29 devnull if(mbox){
2082 5cdb1798 2005-10-29 devnull while(m->parent != &top)
2083 5cdb1798 2005-10-29 devnull m = m->parent;
2084 5cdb1798 2005-10-29 devnull h = file2string(m->path, "unixheader");
2085 5cdb1798 2005-10-29 devnull fprint(out, "%s", s_to_c(h));
2086 5cdb1798 2005-10-29 devnull s_free(h);
2089 5cdb1798 2005-10-29 devnull // copy the message escaping what we have to ad adding newlines if we have to
2090 5cdb1798 2005-10-29 devnull if(mbox)
2091 5cdb1798 2005-10-29 devnull rv = appendfiletombox(in, out);
2093 5cdb1798 2005-10-29 devnull rv = appendfiletofile(in, out);
2095 5cdb1798 2005-10-29 devnull close(in);
2096 5cdb1798 2005-10-29 devnull close(out);
2098 5cdb1798 2005-10-29 devnull if(rv >= 0)
2099 5cdb1798 2005-10-29 devnull print("!saved in %s\n", s_to_c(file));
2100 5cdb1798 2005-10-29 devnull s_free(file);
2101 5cdb1798 2005-10-29 devnull return rv;
2104 5cdb1798 2005-10-29 devnull Message*
2105 5cdb1798 2005-10-29 devnull scmd(Cmd *c, Message *m)
2107 1ea614ff 2006-02-15 devnull char buf[256];
2108 1ea614ff 2006-02-15 devnull CFid *fd;
2109 1ea614ff 2006-02-15 devnull char *file, *msg;
2111 5cdb1798 2005-10-29 devnull if(m == &top){
2112 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2113 5cdb1798 2005-10-29 devnull return nil;
2116 5cdb1798 2005-10-29 devnull switch(c->an){
2117 5cdb1798 2005-10-29 devnull case 1:
2118 5cdb1798 2005-10-29 devnull file = "stored";
2120 5cdb1798 2005-10-29 devnull case 2:
2121 5cdb1798 2005-10-29 devnull file = c->av[1];
2123 5cdb1798 2005-10-29 devnull default:
2124 5cdb1798 2005-10-29 devnull fprint(2, "!usage: s filename\n");
2125 5cdb1798 2005-10-29 devnull return nil;
2128 1ea614ff 2006-02-15 devnull if(file[0] == '/' || (file[0]=='.' && file[1]=='/')){
2129 1ea614ff 2006-02-15 devnull if(appendtofile(m, "raw", file, 1) < 0)
2130 1ea614ff 2006-02-15 devnull return nil;
2132 1ea614ff 2006-02-15 devnull snprint(buf, sizeof buf, "%s/ctl", mbname);
2133 1ea614ff 2006-02-15 devnull if((fd = fsopen(mailfs, buf, OWRITE)) == nil)
2134 1ea614ff 2006-02-15 devnull return nil;
2135 1ea614ff 2006-02-15 devnull msg = strrchr(s_to_c(m->path), '/');
2136 1ea614ff 2006-02-15 devnull if(msg == nil)
2137 1ea614ff 2006-02-15 devnull msg = s_to_c(m->path);
2140 1ea614ff 2006-02-15 devnull if(fsprint(fd, "save %s %s", file, msg) < 0){
2141 1ea614ff 2006-02-15 devnull fsclose(fd);
2142 1ea614ff 2006-02-15 devnull return nil;
2144 1ea614ff 2006-02-15 devnull fsclose(fd);
2146 5cdb1798 2005-10-29 devnull m->stored = 1;
2147 5cdb1798 2005-10-29 devnull return m;
2150 5cdb1798 2005-10-29 devnull Message*
2151 5cdb1798 2005-10-29 devnull wcmd(Cmd *c, Message *m)
2153 5cdb1798 2005-10-29 devnull char *file;
2155 5cdb1798 2005-10-29 devnull if(m == &top){
2156 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2157 5cdb1798 2005-10-29 devnull return nil;
2160 5cdb1798 2005-10-29 devnull switch(c->an){
2161 5cdb1798 2005-10-29 devnull case 2:
2162 5cdb1798 2005-10-29 devnull file = c->av[1];
2164 5cdb1798 2005-10-29 devnull case 1:
2165 5cdb1798 2005-10-29 devnull if(*m->filename == 0){
2166 5cdb1798 2005-10-29 devnull fprint(2, "!usage: w filename\n");
2167 5cdb1798 2005-10-29 devnull return nil;
2169 5cdb1798 2005-10-29 devnull file = strrchr(m->filename, '/');
2170 5cdb1798 2005-10-29 devnull if(file != nil)
2171 5cdb1798 2005-10-29 devnull file++;
2173 5cdb1798 2005-10-29 devnull file = m->filename;
2175 5cdb1798 2005-10-29 devnull default:
2176 5cdb1798 2005-10-29 devnull fprint(2, "!usage: w filename\n");
2177 5cdb1798 2005-10-29 devnull return nil;
2180 5cdb1798 2005-10-29 devnull if(appendtofile(m, "body", file, 0) < 0)
2181 5cdb1798 2005-10-29 devnull return nil;
2182 5cdb1798 2005-10-29 devnull m->stored = 1;
2183 5cdb1798 2005-10-29 devnull return m;
2186 5cdb1798 2005-10-29 devnull char *specialfile[] =
2188 5cdb1798 2005-10-29 devnull "pipeto",
2189 5cdb1798 2005-10-29 devnull "pipefrom",
2190 5cdb1798 2005-10-29 devnull "L.mbox",
2191 5cdb1798 2005-10-29 devnull "forward",
2192 5cdb1798 2005-10-29 devnull "names"
2195 5cdb1798 2005-10-29 devnull // return 1 if this is a special file
2196 5cdb1798 2005-10-29 devnull static int
2197 5cdb1798 2005-10-29 devnull special(String *s)
2199 5cdb1798 2005-10-29 devnull char *p;
2202 5cdb1798 2005-10-29 devnull p = strrchr(s_to_c(s), '/');
2203 5cdb1798 2005-10-29 devnull if(p == nil)
2204 5cdb1798 2005-10-29 devnull p = s_to_c(s);
2207 5cdb1798 2005-10-29 devnull for(i = 0; i < nelem(specialfile); i++)
2208 5cdb1798 2005-10-29 devnull if(strcmp(p, specialfile[i]) == 0)
2209 5cdb1798 2005-10-29 devnull return 1;
2210 5cdb1798 2005-10-29 devnull return 0;
2213 5cdb1798 2005-10-29 devnull // open the folder using the recipients account name
2214 5cdb1798 2005-10-29 devnull static String*
2215 5cdb1798 2005-10-29 devnull foldername(char *rcvr)
2217 5cdb1798 2005-10-29 devnull char *p;
2219 5cdb1798 2005-10-29 devnull String *file;
2220 5cdb1798 2005-10-29 devnull Dir *d;
2221 5cdb1798 2005-10-29 devnull int scarey;
2223 5cdb1798 2005-10-29 devnull file = s_new();
2224 5cdb1798 2005-10-29 devnull mboxpath("f", user, file, 0);
2225 5cdb1798 2005-10-29 devnull d = dirstat(s_to_c(file));
2227 5cdb1798 2005-10-29 devnull // if $mail/f exists, store there, otherwise in $mail
2228 5cdb1798 2005-10-29 devnull s_restart(file);
2229 5cdb1798 2005-10-29 devnull if(d && d->qid.type == QTDIR){
2230 5cdb1798 2005-10-29 devnull scarey = 0;
2231 5cdb1798 2005-10-29 devnull s_append(file, "f/");
2232 5cdb1798 2005-10-29 devnull } else {
2233 5cdb1798 2005-10-29 devnull scarey = 1;
2235 5cdb1798 2005-10-29 devnull free(d);
2237 5cdb1798 2005-10-29 devnull p = strrchr(rcvr, '!');
2238 5cdb1798 2005-10-29 devnull if(p != nil)
2239 5cdb1798 2005-10-29 devnull rcvr = p+1;
2241 5cdb1798 2005-10-29 devnull while(*rcvr && *rcvr != '@'){
2242 5cdb1798 2005-10-29 devnull c = *rcvr++;
2243 5cdb1798 2005-10-29 devnull if(c == '/')
2244 5cdb1798 2005-10-29 devnull c = '_';
2245 5cdb1798 2005-10-29 devnull s_putc(file, c);
2247 5cdb1798 2005-10-29 devnull s_terminate(file);
2249 5cdb1798 2005-10-29 devnull if(scarey && special(file)){
2250 5cdb1798 2005-10-29 devnull fprint(2, "!won't overwrite %s\n", s_to_c(file));
2251 5cdb1798 2005-10-29 devnull s_free(file);
2252 5cdb1798 2005-10-29 devnull return nil;
2255 5cdb1798 2005-10-29 devnull return file;
2258 5cdb1798 2005-10-29 devnull Message*
2259 5cdb1798 2005-10-29 devnull fcmd(Cmd *c, Message *m)
2261 5cdb1798 2005-10-29 devnull String *folder;
2263 5cdb1798 2005-10-29 devnull if(c->an > 1){
2264 5cdb1798 2005-10-29 devnull fprint(2, "!usage: f takes no arguments\n");
2265 5cdb1798 2005-10-29 devnull return nil;
2268 5cdb1798 2005-10-29 devnull if(m == &top){
2269 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2270 5cdb1798 2005-10-29 devnull return nil;
2273 5cdb1798 2005-10-29 devnull folder = foldername(m->from);
2274 5cdb1798 2005-10-29 devnull if(folder == nil)
2275 5cdb1798 2005-10-29 devnull return nil;
2277 5cdb1798 2005-10-29 devnull if(appendtofile(m, "raw", s_to_c(folder), 1) < 0){
2278 5cdb1798 2005-10-29 devnull s_free(folder);
2279 5cdb1798 2005-10-29 devnull return nil;
2281 5cdb1798 2005-10-29 devnull s_free(folder);
2283 5cdb1798 2005-10-29 devnull m->stored = 1;
2284 5cdb1798 2005-10-29 devnull return m;
2288 7e61af51 2006-02-12 devnull system(char *cmd, char **av, int in)
2290 5cdb1798 2005-10-29 devnull int pid;
2292 5cdb1798 2005-10-29 devnull switch(pid=fork()){
2293 5cdb1798 2005-10-29 devnull case -1:
2294 5cdb1798 2005-10-29 devnull return;
2295 5cdb1798 2005-10-29 devnull case 0:
2296 7e61af51 2006-02-12 devnull if(strcmp(cmd, "rc") == 0)
2297 7e61af51 2006-02-12 devnull cmd = unsharp("#9/bin/rc");
2298 5cdb1798 2005-10-29 devnull if(in >= 0){
2299 5cdb1798 2005-10-29 devnull close(0);
2300 5cdb1798 2005-10-29 devnull dup(in, 0);
2301 5cdb1798 2005-10-29 devnull close(in);
2303 5cdb1798 2005-10-29 devnull if(wd[0] != 0)
2304 5cdb1798 2005-10-29 devnull chdir(wd);
2305 5cdb1798 2005-10-29 devnull exec(cmd, av);
2306 5cdb1798 2005-10-29 devnull fprint(2, "!couldn't exec %s\n", cmd);
2307 5cdb1798 2005-10-29 devnull threadexits(0);
2308 5cdb1798 2005-10-29 devnull default:
2309 5cdb1798 2005-10-29 devnull if(in >= 0)
2310 5cdb1798 2005-10-29 devnull close(in);
2311 5cdb1798 2005-10-29 devnull while(waitpid() < 0){
2312 5cdb1798 2005-10-29 devnull if(!interrupted)
2314 5cdb1798 2005-10-29 devnull postnote(PNPROC, pid, "die");
2315 5cdb1798 2005-10-29 devnull continue;
2321 5cdb1798 2005-10-29 devnull Message*
2322 5cdb1798 2005-10-29 devnull bangcmd(Cmd *c, Message *m)
2324 5cdb1798 2005-10-29 devnull char cmd[4*1024];
2325 5cdb1798 2005-10-29 devnull char *p, *e;
2326 5cdb1798 2005-10-29 devnull char *av[4];
2329 5cdb1798 2005-10-29 devnull cmd[0] = 0;
2330 5cdb1798 2005-10-29 devnull p = cmd;
2331 5cdb1798 2005-10-29 devnull e = cmd+sizeof(cmd);
2332 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an; i++)
2333 5cdb1798 2005-10-29 devnull p = seprint(p, e, "%s ", c->av[i]);
2334 5cdb1798 2005-10-29 devnull av[0] = "rc";
2335 5cdb1798 2005-10-29 devnull av[1] = "-c";
2336 5cdb1798 2005-10-29 devnull av[2] = cmd;
2337 5cdb1798 2005-10-29 devnull av[3] = 0;
2338 7e61af51 2006-02-12 devnull system("rc", av, -1);
2339 5cdb1798 2005-10-29 devnull Bprint(&out, "!\n");
2340 5cdb1798 2005-10-29 devnull return m;
2343 5cdb1798 2005-10-29 devnull Message*
2344 5cdb1798 2005-10-29 devnull xpipecmd(Cmd *c, Message *m, char *part)
2346 5cdb1798 2005-10-29 devnull char cmd[128];
2347 5cdb1798 2005-10-29 devnull char *p, *e;
2348 5cdb1798 2005-10-29 devnull char *av[4];
2349 5cdb1798 2005-10-29 devnull String *path;
2350 7e61af51 2006-02-12 devnull int i, fd;
2352 5cdb1798 2005-10-29 devnull if(c->an < 2){
2353 5cdb1798 2005-10-29 devnull Bprint(&out, "!usage: | cmd\n");
2354 5cdb1798 2005-10-29 devnull return nil;
2357 5cdb1798 2005-10-29 devnull if(m == &top){
2358 5cdb1798 2005-10-29 devnull Bprint(&out, "!address\n");
2359 5cdb1798 2005-10-29 devnull return nil;
2362 5cdb1798 2005-10-29 devnull path = extendpath(m->path, part);
2363 7e61af51 2006-02-12 devnull fd = fsopenfd(mailfs, s_to_c(path), OREAD);
2364 5cdb1798 2005-10-29 devnull s_free(path);
2366 7e61af51 2006-02-12 devnull if(fd < 0){ // compatibility with older upas/fs
2367 5cdb1798 2005-10-29 devnull path = extendpath(m->path, "raw");
2368 7e61af51 2006-02-12 devnull fd = fsopenfd(mailfs, s_to_c(path), OREAD);
2369 5cdb1798 2005-10-29 devnull s_free(path);
2371 7e61af51 2006-02-12 devnull if(fd < 0){
2372 5cdb1798 2005-10-29 devnull fprint(2, "!message disappeared\n");
2373 5cdb1798 2005-10-29 devnull return nil;
2376 5cdb1798 2005-10-29 devnull p = cmd;
2377 5cdb1798 2005-10-29 devnull e = cmd+sizeof(cmd);
2378 5cdb1798 2005-10-29 devnull cmd[0] = 0;
2379 5cdb1798 2005-10-29 devnull for(i = 1; i < c->an; i++)
2380 5cdb1798 2005-10-29 devnull p = seprint(p, e, "%s ", c->av[i]);
2381 5cdb1798 2005-10-29 devnull av[0] = "rc";
2382 5cdb1798 2005-10-29 devnull av[1] = "-c";
2383 5cdb1798 2005-10-29 devnull av[2] = cmd;
2384 5cdb1798 2005-10-29 devnull av[3] = 0;
2385 7e61af51 2006-02-12 devnull system("rc", av, fd); /* system closes fd */
2386 5cdb1798 2005-10-29 devnull Bprint(&out, "!\n");
2387 5cdb1798 2005-10-29 devnull return m;
2390 5cdb1798 2005-10-29 devnull Message*
2391 5cdb1798 2005-10-29 devnull pipecmd(Cmd *c, Message *m)
2393 5cdb1798 2005-10-29 devnull return xpipecmd(c, m, "body");
2396 5cdb1798 2005-10-29 devnull Message*
2397 5cdb1798 2005-10-29 devnull rpipecmd(Cmd *c, Message *m)
2399 5cdb1798 2005-10-29 devnull return xpipecmd(c, m, "rawunix");
2403 5cdb1798 2005-10-29 devnull closemb(void)
2405 7e61af51 2006-02-12 devnull CFid *fd;
2407 7e61af51 2006-02-12 devnull fd = fsopen(mailfs, "ctl", OWRITE);
2408 7e61af51 2006-02-12 devnull if(fd == nil)
2409 7e61af51 2006-02-12 devnull sysfatal("can't open ctl: %r");
2411 5cdb1798 2005-10-29 devnull // close current mailbox
2412 5cdb1798 2005-10-29 devnull if(*mbname && strcmp(mbname, "mbox") != 0)
2413 7e61af51 2006-02-12 devnull fsprint(fd, "close %s", mbname);
2415 7e61af51 2006-02-12 devnull fsclose(fd);
2419 5cdb1798 2005-10-29 devnull switchmb(char *file, char *singleton)
2421 5cdb1798 2005-10-29 devnull char *p;
2422 5cdb1798 2005-10-29 devnull int n, fd;
2423 5cdb1798 2005-10-29 devnull String *path;
2424 5cdb1798 2005-10-29 devnull char buf[256];
2426 5cdb1798 2005-10-29 devnull // if the user didn't say anything and there
2427 5cdb1798 2005-10-29 devnull // is an mbox mounted already, use that one
2428 5cdb1798 2005-10-29 devnull // so that the upas/fs -fdefault default is honored.
2429 d4baecd9 2006-02-26 devnull if(0 && (file || (singleton && fsaccess(mailfs, singleton, 0) < 0))){
2430 7e61af51 2006-02-12 devnull /* XXX all wrong */
2431 7e61af51 2006-02-12 devnull fprint(2, "file=%s singleton=%s\n", file, singleton);
2432 5cdb1798 2005-10-29 devnull if(file == nil)
2433 5cdb1798 2005-10-29 devnull file = "mbox";
2435 5cdb1798 2005-10-29 devnull // close current mailbox
2436 5cdb1798 2005-10-29 devnull closemb();
2437 5cdb1798 2005-10-29 devnull didopen = 1;
2439 5cdb1798 2005-10-29 devnull fd = open("/mail/fs/ctl", ORDWR);
2440 5cdb1798 2005-10-29 devnull if(fd < 0)
2441 5cdb1798 2005-10-29 devnull sysfatal("can't open /mail/fs/ctl: %r");
2443 5cdb1798 2005-10-29 devnull path = s_new();
2445 5cdb1798 2005-10-29 devnull // get an absolute path to the mail box
2446 5cdb1798 2005-10-29 devnull if(strncmp(file, "./", 2) == 0){
2447 5cdb1798 2005-10-29 devnull // resolve path here since upas/fs doesn't know
2448 5cdb1798 2005-10-29 devnull // our working directory
2449 5cdb1798 2005-10-29 devnull if(getwd(buf, sizeof(buf)-strlen(file)) == nil){
2450 5cdb1798 2005-10-29 devnull fprint(2, "!can't get working directory: %s\n", buf);
2451 5cdb1798 2005-10-29 devnull return -1;
2453 5cdb1798 2005-10-29 devnull s_append(path, buf);
2454 5cdb1798 2005-10-29 devnull s_append(path, file+1);
2455 5cdb1798 2005-10-29 devnull } else {
2456 5cdb1798 2005-10-29 devnull mboxpath(file, user, path, 0);
2459 5cdb1798 2005-10-29 devnull // make up a handle to use when talking to fs
2460 5cdb1798 2005-10-29 devnull p = strrchr(file, '/');
2461 5cdb1798 2005-10-29 devnull if(p == nil){
2462 5cdb1798 2005-10-29 devnull // if its in the mailbox directory, just use the name
2463 5cdb1798 2005-10-29 devnull strncpy(mbname, file, sizeof(mbname));
2464 5cdb1798 2005-10-29 devnull mbname[sizeof(mbname)-1] = 0;
2465 5cdb1798 2005-10-29 devnull } else {
2466 5cdb1798 2005-10-29 devnull // make up a mailbox name
2467 5cdb1798 2005-10-29 devnull p = strrchr(s_to_c(path), '/');
2469 5cdb1798 2005-10-29 devnull if(*p == 0){
2470 5cdb1798 2005-10-29 devnull fprint(2, "!bad mbox name");
2471 5cdb1798 2005-10-29 devnull return -1;
2473 5cdb1798 2005-10-29 devnull strncpy(mbname, p, sizeof(mbname));
2474 5cdb1798 2005-10-29 devnull mbname[sizeof(mbname)-1] = 0;
2475 5cdb1798 2005-10-29 devnull n = strlen(mbname);
2476 5cdb1798 2005-10-29 devnull if(n > Elemlen-12)
2477 5cdb1798 2005-10-29 devnull n = Elemlen-12;
2478 5cdb1798 2005-10-29 devnull sprint(mbname+n, "%ld", time(0));
2481 5cdb1798 2005-10-29 devnull if(fprint(fd, "open %s %s", s_to_c(path), mbname) < 0){
2482 5cdb1798 2005-10-29 devnull fprint(2, "!can't 'open %s %s': %r\n", file, mbname);
2483 5cdb1798 2005-10-29 devnull s_free(path);
2484 5cdb1798 2005-10-29 devnull return -1;
2486 5cdb1798 2005-10-29 devnull close(fd);
2488 7e61af51 2006-02-12 devnull if (singleton && fsaccess(mailfs, singleton, 0)==0){
2489 7e61af51 2006-02-12 devnull if ((p = strchr(singleton, '/')) == nil){
2490 5cdb1798 2005-10-29 devnull fprint(2, "!bad mbox name");
2491 5cdb1798 2005-10-29 devnull return -1;
2493 7e61af51 2006-02-12 devnull n = p-singleton;
2494 7e61af51 2006-02-12 devnull strncpy(mbname, singleton, n);
2495 5cdb1798 2005-10-29 devnull mbname[n+1] = 0;
2496 5cdb1798 2005-10-29 devnull path = s_reset(nil);
2497 5cdb1798 2005-10-29 devnull mboxpath(mbname, user, path, 0);
2499 d4baecd9 2006-02-26 devnull if(file)
2500 d4baecd9 2006-02-26 devnull strecpy(mbname, mbname+sizeof mbname, file);
2502 d4baecd9 2006-02-26 devnull strcpy(mbname, "mbox");
2503 5cdb1798 2005-10-29 devnull path = s_reset(nil);
2504 d4baecd9 2006-02-26 devnull mboxpath(mbname, user, path, 0);
2507 7e61af51 2006-02-12 devnull snprint(root, sizeof root, "%s", mbname);
2508 5cdb1798 2005-10-29 devnull rootlen = strlen(root);
2510 5cdb1798 2005-10-29 devnull if(mbpath != nil)
2511 5cdb1798 2005-10-29 devnull s_free(mbpath);
2512 5cdb1798 2005-10-29 devnull mbpath = path;
2513 5cdb1798 2005-10-29 devnull return 0;
2516 5cdb1798 2005-10-29 devnull // like tokenize but for into lines
2518 5cdb1798 2005-10-29 devnull lineize(char *s, char **f, int n)
2522 5cdb1798 2005-10-29 devnull for(i = 0; *s && i < n; i++){
2523 5cdb1798 2005-10-29 devnull f[i] = s;
2524 5cdb1798 2005-10-29 devnull s = strchr(s, '\n');
2525 5cdb1798 2005-10-29 devnull if(s == nil)
2527 5cdb1798 2005-10-29 devnull *s++ = 0;
2529 5cdb1798 2005-10-29 devnull return i;
2534 5cdb1798 2005-10-29 devnull String*
2535 5cdb1798 2005-10-29 devnull rooted(String *s)
2537 5cdb1798 2005-10-29 devnull static char buf[256];
2539 5cdb1798 2005-10-29 devnull if(strcmp(root, ".") != 0)
2540 5cdb1798 2005-10-29 devnull return s;
2541 5cdb1798 2005-10-29 devnull snprint(buf, sizeof(buf), "/mail/fs/%s/%s", mbname, s_to_c(s));
2542 5cdb1798 2005-10-29 devnull s_free(s);
2543 5cdb1798 2005-10-29 devnull return s_copy(buf);
2547 5cdb1798 2005-10-29 devnull plumb(Message *m, Ctype *cp)
2549 5cdb1798 2005-10-29 devnull String *s;
2550 5cdb1798 2005-10-29 devnull Plumbmsg *pm;
2551 5cdb1798 2005-10-29 devnull static int fd = -2;
2553 5cdb1798 2005-10-29 devnull if(cp->plumbdest == nil)
2554 5cdb1798 2005-10-29 devnull return -1;
2556 5cdb1798 2005-10-29 devnull if(fd < -1)
2557 5cdb1798 2005-10-29 devnull fd = plumbopen("send", OWRITE);
2558 5cdb1798 2005-10-29 devnull if(fd < 0)
2559 5cdb1798 2005-10-29 devnull return -1;
2561 5cdb1798 2005-10-29 devnull pm = mallocz(sizeof(Plumbmsg), 1);
2562 5cdb1798 2005-10-29 devnull pm->src = strdup("mail");
2563 5cdb1798 2005-10-29 devnull if(*cp->plumbdest)
2564 5cdb1798 2005-10-29 devnull pm->dst = strdup(cp->plumbdest);
2565 5cdb1798 2005-10-29 devnull pm->wdir = nil;
2566 5cdb1798 2005-10-29 devnull pm->type = strdup("text");
2567 5cdb1798 2005-10-29 devnull pm->ndata = -1;
2568 5cdb1798 2005-10-29 devnull s = rooted(extendpath(m->path, "body"));
2569 5cdb1798 2005-10-29 devnull if(cp->ext != nil){
2570 5cdb1798 2005-10-29 devnull s_append(s, ".");
2571 5cdb1798 2005-10-29 devnull s_append(s, cp->ext);
2573 5cdb1798 2005-10-29 devnull pm->data = strdup(s_to_c(s));
2574 5cdb1798 2005-10-29 devnull s_free(s);
2575 5cdb1798 2005-10-29 devnull plumbsend(fd, pm);
2576 5cdb1798 2005-10-29 devnull plumbfree(pm);
2577 5cdb1798 2005-10-29 devnull return 0;
2581 7e61af51 2006-02-12 devnull regerror(char *x)
2583 7e61af51 2006-02-12 devnull USED(x);
2586 5cdb1798 2005-10-29 devnull String*
2587 5cdb1798 2005-10-29 devnull addrecolon(char *s)
2589 5cdb1798 2005-10-29 devnull String *str;
2591 5cdb1798 2005-10-29 devnull if(cistrncmp(s, "re:", 3) != 0){
2592 5cdb1798 2005-10-29 devnull str = s_copy("Re: ");
2593 5cdb1798 2005-10-29 devnull s_append(str, s);
2595 5cdb1798 2005-10-29 devnull str = s_copy(s);
2596 5cdb1798 2005-10-29 devnull return str;
2600 5cdb1798 2005-10-29 devnull exitfs(char *rv)
2602 7e61af51 2006-02-12 devnull threadexitsall(rv);
