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 <libsec.h>
5 5cdb1798 2005-10-29 devnull #include <auth.h>
6 5cdb1798 2005-10-29 devnull #include <thread.h>
7 5cdb1798 2005-10-29 devnull #include "dat.h"
9 5cdb1798 2005-10-29 devnull #pragma varargck type "M" uchar*
10 5cdb1798 2005-10-29 devnull #pragma varargck argpos pop3cmd 2
12 5cdb1798 2005-10-29 devnull typedef struct Pop Pop;
13 5cdb1798 2005-10-29 devnull struct Pop {
14 cbeb0b26 2006-04-01 devnull char *freep; /* free this to free the strings below */
16 5cdb1798 2005-10-29 devnull char *host;
17 5cdb1798 2005-10-29 devnull char *user;
18 5cdb1798 2005-10-29 devnull char *port;
20 5cdb1798 2005-10-29 devnull int ppop;
21 5cdb1798 2005-10-29 devnull int refreshtime;
22 5cdb1798 2005-10-29 devnull int debug;
23 5cdb1798 2005-10-29 devnull int pipeline;
24 5cdb1798 2005-10-29 devnull int encrypted;
25 5cdb1798 2005-10-29 devnull int needtls;
26 5cdb1798 2005-10-29 devnull int notls;
27 5cdb1798 2005-10-29 devnull int needssl;
29 cbeb0b26 2006-04-01 devnull /* open network connection */
30 5cdb1798 2005-10-29 devnull Biobuf bin;
31 5cdb1798 2005-10-29 devnull Biobuf bout;
33 cbeb0b26 2006-04-01 devnull char *lastline; /* from Brdstr */
35 5cdb1798 2005-10-29 devnull Thumbprint *thumb;
39 5cdb1798 2005-10-29 devnull geterrstr(void)
41 5cdb1798 2005-10-29 devnull static char err[64];
43 5cdb1798 2005-10-29 devnull err[0] = '\0';
44 5cdb1798 2005-10-29 devnull errstr(err, sizeof(err));
45 5cdb1798 2005-10-29 devnull return err;
49 cbeb0b26 2006-04-01 devnull /* get pop3 response line , without worrying */
50 cbeb0b26 2006-04-01 devnull /* about multiline responses; the clients */
51 cbeb0b26 2006-04-01 devnull /* will deal with that. */
53 5cdb1798 2005-10-29 devnull static int
54 5cdb1798 2005-10-29 devnull isokay(char *s)
56 5cdb1798 2005-10-29 devnull return s!=nil && strncmp(s, "+OK", 3)==0;
59 5cdb1798 2005-10-29 devnull static void
60 5cdb1798 2005-10-29 devnull pop3cmd(Pop *pop, char *fmt, ...)
62 5cdb1798 2005-10-29 devnull char buf[128], *p;
63 5cdb1798 2005-10-29 devnull va_list va;
65 5cdb1798 2005-10-29 devnull va_start(va, fmt);
66 5cdb1798 2005-10-29 devnull vseprint(buf, buf+sizeof(buf), fmt, va);
67 5cdb1798 2005-10-29 devnull va_end(va);
69 5cdb1798 2005-10-29 devnull p = buf+strlen(buf);
70 5cdb1798 2005-10-29 devnull if(p > (buf+sizeof(buf)-3))
71 5cdb1798 2005-10-29 devnull sysfatal("pop3 command too long");
73 5cdb1798 2005-10-29 devnull if(pop->debug)
74 5cdb1798 2005-10-29 devnull fprint(2, "<- %s\n", buf);
75 5cdb1798 2005-10-29 devnull strcpy(p, "\r\n");
76 5cdb1798 2005-10-29 devnull Bwrite(&pop->bout, buf, strlen(buf));
77 5cdb1798 2005-10-29 devnull Bflush(&pop->bout);
80 5cdb1798 2005-10-29 devnull static char*
81 5cdb1798 2005-10-29 devnull pop3resp(Pop *pop)
86 5cdb1798 2005-10-29 devnull alarm(60*1000);
87 5cdb1798 2005-10-29 devnull if((s = Brdstr(&pop->bin, '\n', 0)) == nil){
88 5cdb1798 2005-10-29 devnull close(pop->fd);
89 5cdb1798 2005-10-29 devnull pop->fd = -1;
90 5cdb1798 2005-10-29 devnull alarm(0);
91 5cdb1798 2005-10-29 devnull return "unexpected eof";
93 5cdb1798 2005-10-29 devnull alarm(0);
95 5cdb1798 2005-10-29 devnull p = s+strlen(s)-1;
96 5cdb1798 2005-10-29 devnull while(p >= s && (*p == '\r' || *p == '\n'))
97 5cdb1798 2005-10-29 devnull *p-- = '\0';
99 5cdb1798 2005-10-29 devnull if(pop->debug)
100 5cdb1798 2005-10-29 devnull fprint(2, "-> %s\n", s);
101 5cdb1798 2005-10-29 devnull free(pop->lastline);
102 5cdb1798 2005-10-29 devnull pop->lastline = s;
103 5cdb1798 2005-10-29 devnull return s;
106 5cdb1798 2005-10-29 devnull #if 0 /* jpc */
107 5cdb1798 2005-10-29 devnull static int
108 5cdb1798 2005-10-29 devnull pop3log(char *fmt, ...)
110 5cdb1798 2005-10-29 devnull va_list ap;
112 5cdb1798 2005-10-29 devnull va_start(ap,fmt);
113 5cdb1798 2005-10-29 devnull syslog(0, "/sys/log/pop3", fmt, ap);
114 5cdb1798 2005-10-29 devnull va_end(ap);
115 5cdb1798 2005-10-29 devnull return 0;
119 5cdb1798 2005-10-29 devnull static char*
120 5cdb1798 2005-10-29 devnull pop3pushtls(Pop *pop)
123 5cdb1798 2005-10-29 devnull uchar digest[SHA1dlen];
124 5cdb1798 2005-10-29 devnull TLSconn conn;
126 5cdb1798 2005-10-29 devnull memset(&conn, 0, sizeof conn);
127 cbeb0b26 2006-04-01 devnull /* conn.trace = pop3log; */
128 5cdb1798 2005-10-29 devnull fd = tlsClient(pop->fd, &conn);
129 5cdb1798 2005-10-29 devnull if(fd < 0)
130 5cdb1798 2005-10-29 devnull return "tls error";
131 5cdb1798 2005-10-29 devnull if(conn.cert==nil || conn.certlen <= 0){
132 5cdb1798 2005-10-29 devnull close(fd);
133 5cdb1798 2005-10-29 devnull return "server did not provide TLS certificate";
135 5cdb1798 2005-10-29 devnull sha1(conn.cert, conn.certlen, digest, nil);
136 5cdb1798 2005-10-29 devnull if(!pop->thumb || !okThumbprint(digest, pop->thumb)){
137 5cdb1798 2005-10-29 devnull fmtinstall('H', encodefmt);
138 5cdb1798 2005-10-29 devnull close(fd);
139 5cdb1798 2005-10-29 devnull free(conn.cert);
140 5cdb1798 2005-10-29 devnull fprint(2, "upas/fs pop3: server certificate %.*H not recognized\n", SHA1dlen, digest);
141 5cdb1798 2005-10-29 devnull return "bad server certificate";
143 5cdb1798 2005-10-29 devnull free(conn.cert);
144 5cdb1798 2005-10-29 devnull close(pop->fd);
145 5cdb1798 2005-10-29 devnull pop->fd = fd;
146 5cdb1798 2005-10-29 devnull pop->encrypted = 1;
147 5cdb1798 2005-10-29 devnull Binit(&pop->bin, pop->fd, OREAD);
148 5cdb1798 2005-10-29 devnull Binit(&pop->bout, pop->fd, OWRITE);
149 5cdb1798 2005-10-29 devnull return nil;
153 cbeb0b26 2006-04-01 devnull /* get capability list, possibly start tls */
155 5cdb1798 2005-10-29 devnull static char*
156 5cdb1798 2005-10-29 devnull pop3capa(Pop *pop)
158 5cdb1798 2005-10-29 devnull char *s;
159 5cdb1798 2005-10-29 devnull int hastls;
161 5cdb1798 2005-10-29 devnull pop3cmd(pop, "CAPA");
162 5cdb1798 2005-10-29 devnull if(!isokay(pop3resp(pop)))
163 5cdb1798 2005-10-29 devnull return nil;
165 5cdb1798 2005-10-29 devnull hastls = 0;
166 5cdb1798 2005-10-29 devnull for(;;){
167 5cdb1798 2005-10-29 devnull s = pop3resp(pop);
168 5cdb1798 2005-10-29 devnull if(strcmp(s, ".") == 0 || strcmp(s, "unexpected eof") == 0)
170 5cdb1798 2005-10-29 devnull if(strcmp(s, "STLS") == 0)
171 5cdb1798 2005-10-29 devnull hastls = 1;
172 5cdb1798 2005-10-29 devnull if(strcmp(s, "PIPELINING") == 0)
173 5cdb1798 2005-10-29 devnull pop->pipeline = 1;
176 5cdb1798 2005-10-29 devnull if(hastls && !pop->notls){
177 5cdb1798 2005-10-29 devnull pop3cmd(pop, "STLS");
178 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop)))
179 5cdb1798 2005-10-29 devnull return s;
180 5cdb1798 2005-10-29 devnull if((s = pop3pushtls(pop)) != nil)
181 5cdb1798 2005-10-29 devnull return s;
183 5cdb1798 2005-10-29 devnull return nil;
187 cbeb0b26 2006-04-01 devnull /* log in using APOP if possible, password if allowed by user */
189 5cdb1798 2005-10-29 devnull static char*
190 5cdb1798 2005-10-29 devnull pop3login(Pop *pop)
193 5cdb1798 2005-10-29 devnull char *s, *p, *q;
194 5cdb1798 2005-10-29 devnull char ubuf[128], user[128];
195 5cdb1798 2005-10-29 devnull char buf[500];
196 5cdb1798 2005-10-29 devnull UserPasswd *up;
198 5cdb1798 2005-10-29 devnull s = pop3resp(pop);
199 5cdb1798 2005-10-29 devnull if(!isokay(s))
200 5cdb1798 2005-10-29 devnull return "error in initial handshake";
202 5cdb1798 2005-10-29 devnull if(pop->user)
203 5cdb1798 2005-10-29 devnull snprint(ubuf, sizeof ubuf, " user=%q", pop->user);
205 5cdb1798 2005-10-29 devnull ubuf[0] = '\0';
207 cbeb0b26 2006-04-01 devnull /* look for apop banner */
208 5cdb1798 2005-10-29 devnull if(pop->ppop==0 && (p = strchr(s, '<')) && (q = strchr(p+1, '>'))) {
209 5cdb1798 2005-10-29 devnull *++q = '\0';
210 5cdb1798 2005-10-29 devnull if((n=auth_respond(p, q-p, user, sizeof user, buf, sizeof buf, auth_getkey, "proto=apop role=client server=%q%s",
211 5cdb1798 2005-10-29 devnull pop->host, ubuf)) < 0)
212 5cdb1798 2005-10-29 devnull return "factotum failed";
213 5cdb1798 2005-10-29 devnull if(user[0]=='\0')
214 5cdb1798 2005-10-29 devnull return "factotum did not return a user name";
216 5cdb1798 2005-10-29 devnull if(s = pop3capa(pop))
217 5cdb1798 2005-10-29 devnull return s;
219 5cdb1798 2005-10-29 devnull pop3cmd(pop, "APOP %s %.*s", user, n, buf);
220 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop)))
221 5cdb1798 2005-10-29 devnull return s;
223 5cdb1798 2005-10-29 devnull return nil;
224 5cdb1798 2005-10-29 devnull } else {
225 5cdb1798 2005-10-29 devnull if(pop->ppop == 0)
226 5cdb1798 2005-10-29 devnull return "no APOP hdr from server";
228 5cdb1798 2005-10-29 devnull if(s = pop3capa(pop))
229 5cdb1798 2005-10-29 devnull return s;
231 5cdb1798 2005-10-29 devnull if(pop->needtls && !pop->encrypted)
232 5cdb1798 2005-10-29 devnull return "could not negotiate TLS";
234 605c0ea1 2006-02-08 devnull up = auth_getuserpasswd(auth_getkey, "proto=pass role=client service=pop dom=%q%s",
235 5cdb1798 2005-10-29 devnull pop->host, ubuf);
236 5cdb1798 2005-10-29 devnull if(up == nil)
237 5cdb1798 2005-10-29 devnull return "no usable keys found";
239 5cdb1798 2005-10-29 devnull pop3cmd(pop, "USER %s", up->user);
240 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop))){
241 5cdb1798 2005-10-29 devnull free(up);
242 5cdb1798 2005-10-29 devnull return s;
244 5cdb1798 2005-10-29 devnull pop3cmd(pop, "PASS %s", up->passwd);
245 5cdb1798 2005-10-29 devnull free(up);
246 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop)))
247 5cdb1798 2005-10-29 devnull return s;
249 5cdb1798 2005-10-29 devnull return nil;
254 cbeb0b26 2006-04-01 devnull /* dial and handshake with pop server */
256 5cdb1798 2005-10-29 devnull static char*
257 5cdb1798 2005-10-29 devnull pop3dial(Pop *pop)
259 5cdb1798 2005-10-29 devnull char *err;
261 5cdb1798 2005-10-29 devnull if((pop->fd = dial(netmkaddr(pop->host, "net", pop->needssl ? "pop3s" : "pop3"), 0, 0, 0)) < 0)
262 5cdb1798 2005-10-29 devnull return geterrstr();
264 5cdb1798 2005-10-29 devnull if(pop->needssl){
265 5cdb1798 2005-10-29 devnull if((err = pop3pushtls(pop)) != nil)
266 5cdb1798 2005-10-29 devnull return err;
268 5cdb1798 2005-10-29 devnull Binit(&pop->bin, pop->fd, OREAD);
269 5cdb1798 2005-10-29 devnull Binit(&pop->bout, pop->fd, OWRITE);
272 5cdb1798 2005-10-29 devnull if(err = pop3login(pop)) {
273 5cdb1798 2005-10-29 devnull close(pop->fd);
274 5cdb1798 2005-10-29 devnull return err;
277 5cdb1798 2005-10-29 devnull return nil;
281 cbeb0b26 2006-04-01 devnull /* close connection */
283 5cdb1798 2005-10-29 devnull static void
284 5cdb1798 2005-10-29 devnull pop3hangup(Pop *pop)
286 5cdb1798 2005-10-29 devnull pop3cmd(pop, "QUIT");
287 5cdb1798 2005-10-29 devnull pop3resp(pop);
288 5cdb1798 2005-10-29 devnull close(pop->fd);
292 cbeb0b26 2006-04-01 devnull /* download a single message */
294 5cdb1798 2005-10-29 devnull static char*
295 5cdb1798 2005-10-29 devnull pop3download(Pop *pop, Message *m)
297 5cdb1798 2005-10-29 devnull char *s, *f[3], *wp, *ep;
298 5cdb1798 2005-10-29 devnull char sdigest[SHA1dlen*2+1];
299 5cdb1798 2005-10-29 devnull int i, l, sz;
301 5cdb1798 2005-10-29 devnull if(!pop->pipeline)
302 5cdb1798 2005-10-29 devnull pop3cmd(pop, "LIST %d", m->mesgno);
303 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop)))
304 5cdb1798 2005-10-29 devnull return s;
306 5cdb1798 2005-10-29 devnull if(tokenize(s, f, 3) != 3)
307 5cdb1798 2005-10-29 devnull return "syntax error in LIST response";
309 5cdb1798 2005-10-29 devnull if(atoi(f[1]) != m->mesgno)
310 5cdb1798 2005-10-29 devnull return "out of sync with pop3 server";
312 5cdb1798 2005-10-29 devnull sz = atoi(f[2])+200; /* 200 because the plan9 pop3 server lies */
313 5cdb1798 2005-10-29 devnull if(sz == 0)
314 5cdb1798 2005-10-29 devnull return "invalid size in LIST response";
316 5cdb1798 2005-10-29 devnull m->start = wp = emalloc(sz+1);
317 5cdb1798 2005-10-29 devnull ep = wp+sz;
319 5cdb1798 2005-10-29 devnull if(!pop->pipeline)
320 5cdb1798 2005-10-29 devnull pop3cmd(pop, "RETR %d", m->mesgno);
321 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop))) {
322 5cdb1798 2005-10-29 devnull m->start = nil;
323 5cdb1798 2005-10-29 devnull free(wp);
324 5cdb1798 2005-10-29 devnull return s;
327 5cdb1798 2005-10-29 devnull s = nil;
328 5cdb1798 2005-10-29 devnull while(wp <= ep) {
329 5cdb1798 2005-10-29 devnull s = pop3resp(pop);
330 5cdb1798 2005-10-29 devnull if(strcmp(s, "unexpected eof") == 0) {
331 5cdb1798 2005-10-29 devnull free(m->start);
332 5cdb1798 2005-10-29 devnull m->start = nil;
333 5cdb1798 2005-10-29 devnull return "unexpected end of conversation";
335 5cdb1798 2005-10-29 devnull if(strcmp(s, ".") == 0)
338 5cdb1798 2005-10-29 devnull l = strlen(s)+1;
339 5cdb1798 2005-10-29 devnull if(s[0] == '.') {
344 5cdb1798 2005-10-29 devnull * grow by 10%/200bytes - some servers
345 5cdb1798 2005-10-29 devnull * lie about message sizes
347 5cdb1798 2005-10-29 devnull if(wp+l > ep) {
348 5cdb1798 2005-10-29 devnull int pos = wp - m->start;
349 5cdb1798 2005-10-29 devnull sz += ((sz / 10) < 200)? 200: sz/10;
350 5cdb1798 2005-10-29 devnull m->start = erealloc(m->start, sz+1);
351 5cdb1798 2005-10-29 devnull wp = m->start+pos;
352 5cdb1798 2005-10-29 devnull ep = m->start+sz;
354 5cdb1798 2005-10-29 devnull memmove(wp, s, l-1);
355 5cdb1798 2005-10-29 devnull wp[l-1] = '\n';
356 5cdb1798 2005-10-29 devnull wp += l;
359 5cdb1798 2005-10-29 devnull if(s == nil || strcmp(s, ".") != 0)
360 5cdb1798 2005-10-29 devnull return "out of sync with pop3 server";
362 5cdb1798 2005-10-29 devnull m->end = wp;
364 cbeb0b26 2006-04-01 devnull /* make sure there's a trailing null */
365 cbeb0b26 2006-04-01 devnull /* (helps in body searches) */
366 5cdb1798 2005-10-29 devnull *m->end = 0;
367 5cdb1798 2005-10-29 devnull m->bend = m->rbend = m->end;
368 5cdb1798 2005-10-29 devnull m->header = m->start;
370 cbeb0b26 2006-04-01 devnull /* digest message */
371 5cdb1798 2005-10-29 devnull sha1((uchar*)m->start, m->end - m->start, m->digest, nil);
372 5cdb1798 2005-10-29 devnull for(i = 0; i < SHA1dlen; i++)
373 5cdb1798 2005-10-29 devnull sprint(sdigest+2*i, "%2.2ux", m->digest[i]);
374 5cdb1798 2005-10-29 devnull m->sdigest = s_copy(sdigest);
376 5cdb1798 2005-10-29 devnull return nil;
380 cbeb0b26 2006-04-01 devnull /* check for new messages on pop server */
381 cbeb0b26 2006-04-01 devnull /* UIDL is not required by RFC 1939, but */
382 cbeb0b26 2006-04-01 devnull /* netscape requires it, so almost every server supports it. */
383 cbeb0b26 2006-04-01 devnull /* we'll use it to make our lives easier. */
385 5cdb1798 2005-10-29 devnull static char*
386 5cdb1798 2005-10-29 devnull pop3read(Pop *pop, Mailbox *mb, int doplumb)
388 5cdb1798 2005-10-29 devnull char *s, *p, *uidl, *f[2];
389 5cdb1798 2005-10-29 devnull int mesgno, ignore, nnew;
390 5cdb1798 2005-10-29 devnull Message *m, *next, **l;
392 cbeb0b26 2006-04-01 devnull /* Some POP servers disallow UIDL if the maildrop is empty. */
393 5cdb1798 2005-10-29 devnull pop3cmd(pop, "STAT");
394 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop)))
395 5cdb1798 2005-10-29 devnull return s;
397 cbeb0b26 2006-04-01 devnull /* fetch message listing; note messages to grab */
398 5cdb1798 2005-10-29 devnull l = &mb->root->part;
399 5cdb1798 2005-10-29 devnull if(strncmp(s, "+OK 0 ", 6) != 0) {
400 5cdb1798 2005-10-29 devnull pop3cmd(pop, "UIDL");
401 5cdb1798 2005-10-29 devnull if(!isokay(s = pop3resp(pop)))
402 5cdb1798 2005-10-29 devnull return s;
404 5cdb1798 2005-10-29 devnull for(;;){
405 5cdb1798 2005-10-29 devnull p = pop3resp(pop);
406 5cdb1798 2005-10-29 devnull if(strcmp(p, ".") == 0 || strcmp(p, "unexpected eof") == 0)
409 5cdb1798 2005-10-29 devnull if(tokenize(p, f, 2) != 2)
410 5cdb1798 2005-10-29 devnull continue;
412 5cdb1798 2005-10-29 devnull mesgno = atoi(f[0]);
413 5cdb1798 2005-10-29 devnull uidl = f[1];
414 cbeb0b26 2006-04-01 devnull if(strlen(uidl) > 75) /* RFC 1939 says 70 characters max */
415 5cdb1798 2005-10-29 devnull continue;
417 5cdb1798 2005-10-29 devnull ignore = 0;
418 5cdb1798 2005-10-29 devnull while(*l != nil) {
419 5cdb1798 2005-10-29 devnull if(strcmp((*l)->uidl, uidl) == 0) {
420 cbeb0b26 2006-04-01 devnull /* matches mail we already have, note mesgno for deletion */
421 5cdb1798 2005-10-29 devnull (*l)->mesgno = mesgno;
422 5cdb1798 2005-10-29 devnull ignore = 1;
423 5cdb1798 2005-10-29 devnull l = &(*l)->next;
425 5cdb1798 2005-10-29 devnull } else {
426 cbeb0b26 2006-04-01 devnull /* old mail no longer in box mark deleted */
427 5cdb1798 2005-10-29 devnull if(doplumb)
428 5cdb1798 2005-10-29 devnull mailplumb(mb, *l, 1);
429 5cdb1798 2005-10-29 devnull (*l)->inmbox = 0;
430 5cdb1798 2005-10-29 devnull (*l)->deleted = 1;
431 5cdb1798 2005-10-29 devnull l = &(*l)->next;
434 5cdb1798 2005-10-29 devnull if(ignore)
435 5cdb1798 2005-10-29 devnull continue;
437 5cdb1798 2005-10-29 devnull m = newmessage(mb->root);
438 5cdb1798 2005-10-29 devnull m->mallocd = 1;
439 5cdb1798 2005-10-29 devnull m->inmbox = 1;
440 5cdb1798 2005-10-29 devnull m->mesgno = mesgno;
441 5cdb1798 2005-10-29 devnull strcpy(m->uidl, uidl);
443 cbeb0b26 2006-04-01 devnull /* chain in; will fill in message later */
445 5cdb1798 2005-10-29 devnull l = &m->next;
449 cbeb0b26 2006-04-01 devnull /* whatever is left has been removed from the mbox, mark as deleted */
450 5cdb1798 2005-10-29 devnull while(*l != nil) {
451 5cdb1798 2005-10-29 devnull if(doplumb)
452 5cdb1798 2005-10-29 devnull mailplumb(mb, *l, 1);
453 5cdb1798 2005-10-29 devnull (*l)->inmbox = 0;
454 5cdb1798 2005-10-29 devnull (*l)->deleted = 1;
455 5cdb1798 2005-10-29 devnull l = &(*l)->next;
458 cbeb0b26 2006-04-01 devnull /* download new messages */
459 5cdb1798 2005-10-29 devnull nnew = 0;
460 5cdb1798 2005-10-29 devnull if(pop->pipeline){
461 5cdb1798 2005-10-29 devnull switch(rfork(RFPROC|RFMEM)){
462 5cdb1798 2005-10-29 devnull case -1:
463 5cdb1798 2005-10-29 devnull fprint(2, "rfork: %r\n");
464 5cdb1798 2005-10-29 devnull pop->pipeline = 0;
466 5cdb1798 2005-10-29 devnull default:
470 5cdb1798 2005-10-29 devnull for(m = mb->root->part; m != nil; m = m->next){
471 5cdb1798 2005-10-29 devnull if(m->start != nil)
472 5cdb1798 2005-10-29 devnull continue;
473 5cdb1798 2005-10-29 devnull Bprint(&pop->bout, "LIST %d\r\nRETR %d\r\n", m->mesgno, m->mesgno);
475 5cdb1798 2005-10-29 devnull Bflush(&pop->bout);
476 5cdb1798 2005-10-29 devnull threadexits(nil);
477 5cdb1798 2005-10-29 devnull /* _exits(nil); jpc */
481 5cdb1798 2005-10-29 devnull for(m = mb->root->part; m != nil; m = next) {
482 5cdb1798 2005-10-29 devnull next = m->next;
484 5cdb1798 2005-10-29 devnull if(m->start != nil)
485 5cdb1798 2005-10-29 devnull continue;
487 5cdb1798 2005-10-29 devnull if(s = pop3download(pop, m)) {
488 cbeb0b26 2006-04-01 devnull /* message disappeared? unchain */
489 5cdb1798 2005-10-29 devnull fprint(2, "download %d: %s\n", m->mesgno, s);
490 5cdb1798 2005-10-29 devnull delmessage(mb, m);
491 5cdb1798 2005-10-29 devnull mb->root->subname--;
492 5cdb1798 2005-10-29 devnull continue;
495 5cdb1798 2005-10-29 devnull parse(m, 0, mb, 1);
497 5cdb1798 2005-10-29 devnull if(doplumb)
498 5cdb1798 2005-10-29 devnull mailplumb(mb, m, 0);
500 5cdb1798 2005-10-29 devnull if(pop->pipeline)
501 5cdb1798 2005-10-29 devnull waitpid();
503 5cdb1798 2005-10-29 devnull if(nnew || mb->vers == 0) {
504 5cdb1798 2005-10-29 devnull mb->vers++;
505 5cdb1798 2005-10-29 devnull henter(PATH(0, Qtop), mb->name,
506 5cdb1798 2005-10-29 devnull (Qid){PATH(mb->id, Qmbox), mb->vers, QTDIR}, nil, mb);
509 5cdb1798 2005-10-29 devnull return nil;
513 cbeb0b26 2006-04-01 devnull /* delete marked messages */
515 5cdb1798 2005-10-29 devnull static void
516 5cdb1798 2005-10-29 devnull pop3purge(Pop *pop, Mailbox *mb)
518 5cdb1798 2005-10-29 devnull Message *m, *next;
520 5cdb1798 2005-10-29 devnull if(pop->pipeline){
521 5cdb1798 2005-10-29 devnull switch(rfork(RFPROC|RFMEM)){
522 5cdb1798 2005-10-29 devnull case -1:
523 5cdb1798 2005-10-29 devnull fprint(2, "rfork: %r\n");
524 5cdb1798 2005-10-29 devnull pop->pipeline = 0;
526 5cdb1798 2005-10-29 devnull default:
530 5cdb1798 2005-10-29 devnull for(m = mb->root->part; m != nil; m = next){
531 5cdb1798 2005-10-29 devnull next = m->next;
532 5cdb1798 2005-10-29 devnull if(m->deleted && m->refs == 0){
533 5cdb1798 2005-10-29 devnull if(m->inmbox)
534 5cdb1798 2005-10-29 devnull Bprint(&pop->bout, "DELE %d\r\n", m->mesgno);
537 5cdb1798 2005-10-29 devnull Bflush(&pop->bout);
538 5cdb1798 2005-10-29 devnull /* _exits(nil); jpc */
539 5cdb1798 2005-10-29 devnull threadexits(nil);
542 5cdb1798 2005-10-29 devnull for(m = mb->root->part; m != nil; m = next) {
543 5cdb1798 2005-10-29 devnull next = m->next;
544 5cdb1798 2005-10-29 devnull if(m->deleted && m->refs == 0) {
545 5cdb1798 2005-10-29 devnull if(m->inmbox) {
546 5cdb1798 2005-10-29 devnull if(!pop->pipeline)
547 5cdb1798 2005-10-29 devnull pop3cmd(pop, "DELE %d", m->mesgno);
548 5cdb1798 2005-10-29 devnull if(isokay(pop3resp(pop)))
549 5cdb1798 2005-10-29 devnull delmessage(mb, m);
551 5cdb1798 2005-10-29 devnull delmessage(mb, m);
557 cbeb0b26 2006-04-01 devnull /* connect to pop3 server, sync mailbox */
558 5cdb1798 2005-10-29 devnull static char*
559 5cdb1798 2005-10-29 devnull pop3sync(Mailbox *mb, int doplumb)
561 5cdb1798 2005-10-29 devnull char *err;
562 5cdb1798 2005-10-29 devnull Pop *pop;
564 5cdb1798 2005-10-29 devnull pop = mb->aux;
566 5cdb1798 2005-10-29 devnull if(err = pop3dial(pop)) {
567 5cdb1798 2005-10-29 devnull mb->waketime = time(0) + pop->refreshtime;
568 5cdb1798 2005-10-29 devnull return err;
571 5cdb1798 2005-10-29 devnull if((err = pop3read(pop, mb, doplumb)) == nil){
572 5cdb1798 2005-10-29 devnull pop3purge(pop, mb);
573 5cdb1798 2005-10-29 devnull mb->d->atime = mb->d->mtime = time(0);
575 5cdb1798 2005-10-29 devnull pop3hangup(pop);
576 5cdb1798 2005-10-29 devnull mb->waketime = time(0) + pop->refreshtime;
577 5cdb1798 2005-10-29 devnull return err;
580 5cdb1798 2005-10-29 devnull static char Epop3ctl[] = "bad pop3 control message";
582 5cdb1798 2005-10-29 devnull static char*
583 5cdb1798 2005-10-29 devnull pop3ctl(Mailbox *mb, int argc, char **argv)
586 5cdb1798 2005-10-29 devnull Pop *pop;
587 5cdb1798 2005-10-29 devnull char *m, *me;
589 5cdb1798 2005-10-29 devnull pop = mb->aux;
590 5cdb1798 2005-10-29 devnull if(argc < 1)
591 5cdb1798 2005-10-29 devnull return Epop3ctl;
593 5cdb1798 2005-10-29 devnull if(argc==1 && strcmp(argv[0], "debug")==0){
594 5cdb1798 2005-10-29 devnull pop->debug = 1;
595 5cdb1798 2005-10-29 devnull return nil;
598 5cdb1798 2005-10-29 devnull if(argc==1 && strcmp(argv[0], "nodebug")==0){
599 5cdb1798 2005-10-29 devnull pop->debug = 0;
600 5cdb1798 2005-10-29 devnull return nil;
603 5cdb1798 2005-10-29 devnull if(argc==1 && strcmp(argv[0], "thumbprint")==0){
604 5cdb1798 2005-10-29 devnull if(pop->thumb)
605 5cdb1798 2005-10-29 devnull freeThumbprints(pop->thumb);
606 5cdb1798 2005-10-29 devnull /* pop->thumb = initThumbprints("/sys/lib/tls/mail", "/sys/lib/tls/mail.exclude"); jpc */
607 5cdb1798 2005-10-29 devnull m = unsharp("#9/sys/lib/tls/mail");
608 5cdb1798 2005-10-29 devnull me = unsharp("#9/sys/lib/tls/mail.exclude");
609 5cdb1798 2005-10-29 devnull pop->thumb = initThumbprints(m, me);
611 5cdb1798 2005-10-29 devnull if(strcmp(argv[0], "refresh")==0){
612 5cdb1798 2005-10-29 devnull if(argc==1){
613 5cdb1798 2005-10-29 devnull pop->refreshtime = 60;
614 5cdb1798 2005-10-29 devnull return nil;
616 5cdb1798 2005-10-29 devnull if(argc==2){
617 5cdb1798 2005-10-29 devnull n = atoi(argv[1]);
618 5cdb1798 2005-10-29 devnull if(n < 15)
619 5cdb1798 2005-10-29 devnull return Epop3ctl;
620 5cdb1798 2005-10-29 devnull pop->refreshtime = n;
621 5cdb1798 2005-10-29 devnull return nil;
625 5cdb1798 2005-10-29 devnull return Epop3ctl;
628 cbeb0b26 2006-04-01 devnull /* free extra memory associated with mb */
629 5cdb1798 2005-10-29 devnull static void
630 5cdb1798 2005-10-29 devnull pop3close(Mailbox *mb)
632 5cdb1798 2005-10-29 devnull Pop *pop;
634 5cdb1798 2005-10-29 devnull pop = mb->aux;
635 5cdb1798 2005-10-29 devnull free(pop->freep);
636 5cdb1798 2005-10-29 devnull free(pop);
640 cbeb0b26 2006-04-01 devnull /* open mailboxes of the form /pop/host/user or /apop/host/user */
643 5cdb1798 2005-10-29 devnull pop3mbox(Mailbox *mb, char *path)
645 5cdb1798 2005-10-29 devnull char *f[10];
646 5cdb1798 2005-10-29 devnull int nf, apop, ppop, popssl, apopssl, apoptls, popnotls, apopnotls, poptls;
647 5cdb1798 2005-10-29 devnull Pop *pop;
648 5cdb1798 2005-10-29 devnull char *m, *me;
650 5cdb1798 2005-10-29 devnull quotefmtinstall();
651 5cdb1798 2005-10-29 devnull popssl = strncmp(path, "/pops/", 6) == 0;
652 5cdb1798 2005-10-29 devnull apopssl = strncmp(path, "/apops/", 7) == 0;
653 5cdb1798 2005-10-29 devnull poptls = strncmp(path, "/poptls/", 8) == 0;
654 5cdb1798 2005-10-29 devnull popnotls = strncmp(path, "/popnotls/", 10) == 0;
655 5cdb1798 2005-10-29 devnull ppop = popssl || poptls || popnotls || strncmp(path, "/pop/", 5) == 0;
656 5cdb1798 2005-10-29 devnull apoptls = strncmp(path, "/apoptls/", 9) == 0;
657 5cdb1798 2005-10-29 devnull apopnotls = strncmp(path, "/apopnotls/", 11) == 0;
658 5cdb1798 2005-10-29 devnull apop = apopssl || apoptls || apopnotls || strncmp(path, "/apop/", 6) == 0;
660 5cdb1798 2005-10-29 devnull if(!ppop && !apop)
661 5cdb1798 2005-10-29 devnull return Enotme;
663 5cdb1798 2005-10-29 devnull path = strdup(path);
664 5cdb1798 2005-10-29 devnull if(path == nil)
665 5cdb1798 2005-10-29 devnull return "out of memory";
667 5cdb1798 2005-10-29 devnull nf = getfields(path, f, nelem(f), 0, "/");
668 5cdb1798 2005-10-29 devnull if(nf != 3 && nf != 4) {
669 5cdb1798 2005-10-29 devnull free(path);
670 5cdb1798 2005-10-29 devnull return "bad pop3 path syntax /[a]pop[tls|ssl]/system[/user]";
673 5cdb1798 2005-10-29 devnull pop = emalloc(sizeof(*pop));
674 5cdb1798 2005-10-29 devnull pop->freep = path;
675 5cdb1798 2005-10-29 devnull pop->host = f[2];
676 5cdb1798 2005-10-29 devnull if(nf < 4)
677 5cdb1798 2005-10-29 devnull pop->user = nil;
679 5cdb1798 2005-10-29 devnull pop->user = f[3];
680 5cdb1798 2005-10-29 devnull pop->ppop = ppop;
681 5cdb1798 2005-10-29 devnull pop->needssl = popssl || apopssl;
682 5cdb1798 2005-10-29 devnull pop->needtls = poptls || apoptls;
683 5cdb1798 2005-10-29 devnull pop->refreshtime = 60;
684 5cdb1798 2005-10-29 devnull pop->notls = popnotls || apopnotls;
685 5cdb1798 2005-10-29 devnull /* pop->thumb = initThumbprints("/sys/lib/tls/mail", "/sys/lib/tls/mail.exclude"); jpc */
686 5cdb1798 2005-10-29 devnull m = unsharp("#9/sys/lib/tls/mail");
687 5cdb1798 2005-10-29 devnull me = unsharp("#9/sys/lib/tls/mail.exclude");
688 5cdb1798 2005-10-29 devnull pop->thumb = initThumbprints(m, me);
690 5cdb1798 2005-10-29 devnull mb->aux = pop;
691 5cdb1798 2005-10-29 devnull mb->sync = pop3sync;
692 5cdb1798 2005-10-29 devnull mb->close = pop3close;
693 5cdb1798 2005-10-29 devnull mb->ctl = pop3ctl;
694 5cdb1798 2005-10-29 devnull mb->d = emalloc(sizeof(*mb->d));
696 5cdb1798 2005-10-29 devnull return nil;