/[imapfilter]/imapfilter/imap.c
ViewVC logotype

Annotation of /imapfilter/imap.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.44 - (hide annotations)
Fri Feb 13 12:17:16 2004 UTC (20 years, 1 month ago) by lefcha
Branch: MAIN
Changes since 1.43: +69 -68 lines
File MIME type: text/plain
Stylistic changes.

1 lefcha 1.1 #include <stdio.h>
2     #include <string.h>
3    
4     #include "config.h"
5     #include "imapfilter.h"
6 lefcha 1.44 #include "filter.h"
7 lefcha 1.38 #include "buffer.h"
8 lefcha 1.1
9    
10 lefcha 1.44 extern options_t opts;
11     extern connection_t connpri, connaux;
12 lefcha 1.24
13 lefcha 1.36 buffer_t obuf; /* Output buffer. */
14    
15 lefcha 1.39 static unsigned int tag = 0x1000; /* Every IMAP command is prefixed with
16     * a unique [:alnum:] string. */
17 lefcha 1.1
18 lefcha 1.38
19 lefcha 1.44 unsigned int send_command(connection_t * conn, char *cmd, char *alt);
20     void send_command_cont(connection_t * conn, char *cmd);
21 lefcha 1.38
22    
23 lefcha 1.1 /*
24 lefcha 1.13 * Send to server data; a command.
25 lefcha 1.1 */
26 lefcha 1.30 unsigned int
27 lefcha 1.44 send_command(connection_t * conn, char *cmd, char *alt)
28 lefcha 1.1 {
29 lefcha 1.43
30 lefcha 1.41 debug("sending command (%s):\n\n%s\n",
31 lefcha 1.43 (conn == &connpri ? "primary" : "auxiliary"),
32     (opts.debug == 1 && alt ? alt : cmd));
33    
34 lefcha 1.42 verbose("%s: %s", (conn == &connpri ? "C" : "c"), (alt ? alt : cmd));
35 lefcha 1.18
36 lefcha 1.37 socket_write(conn, cmd);
37 lefcha 1.25
38 lefcha 1.39 if (tag == 0xFFFF)
39     tag = 0x0FFF;
40    
41 lefcha 1.30 return tag++;
42 lefcha 1.1 }
43    
44    
45 lefcha 1.34 #ifdef CRAM_MD5
46     /*
47     * Send to server data: a continuation command.
48     */
49     void
50 lefcha 1.44 send_command_cont(connection_t * conn, char *cmd)
51 lefcha 1.34 {
52 lefcha 1.43
53 lefcha 1.41 debug("sending command (%s):\n\n%s\r\n\n",
54 lefcha 1.37 (conn == &connpri ? "primary" : "auxiliary"), cmd);
55 lefcha 1.34
56 lefcha 1.37 socket_write(conn, cmd);
57     socket_write(conn, "\r\n");
58 lefcha 1.34 }
59     #endif
60    
61    
62 lefcha 1.1 /*
63     * IMAP NOOP: does nothing always succeeds.
64     */
65 lefcha 1.30 int
66 lefcha 1.44 imap_noop(connection_t * conn)
67 lefcha 1.1 {
68 lefcha 1.43
69 lefcha 1.44 buffer_reset(&obuf);
70     buffer_check(&obuf, strlen("NOOP") + 12);
71 lefcha 1.1
72 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X NOOP\r\n", tag);
73 lefcha 1.1
74 lefcha 1.42 return send_command(conn, obuf.data, NULL);
75 lefcha 1.1 }
76    
77    
78     /*
79 lefcha 1.21 * IMAP CAPABILITY: requests listing of capabilities that the server supports.
80 lefcha 1.16 */
81 lefcha 1.30 int
82 lefcha 1.44 imap_capability(connection_t * conn)
83 lefcha 1.16 {
84 lefcha 1.43
85 lefcha 1.44 buffer_reset(&obuf);
86     buffer_check(&obuf, strlen("CAPABILITY") + 12);
87 lefcha 1.16
88 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X CAPABILITY\r\n", tag);
89 lefcha 1.21
90 lefcha 1.42 return send_command(conn, obuf.data, NULL);
91 lefcha 1.21 }
92    
93    
94     /*
95     * IMAP NAMESPACE: discovers the prefix and delimeter of namespaces used by
96     * the server for mailboxes (RFC 2342).
97     */
98 lefcha 1.30 int
99 lefcha 1.44 imap_namespace(connection_t * conn)
100 lefcha 1.21 {
101 lefcha 1.43
102 lefcha 1.44 buffer_reset(&obuf);
103     buffer_check(&obuf, strlen("NAMESPACE") + 12);
104 lefcha 1.21
105 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X NAMESPACE\r\n", tag);
106 lefcha 1.16
107 lefcha 1.42 return send_command(conn, obuf.data, NULL);
108 lefcha 1.16 }
109    
110    
111     /*
112 lefcha 1.1 * IMAP LOGOUT: informs server that client is done.
113     */
114 lefcha 1.30 int
115 lefcha 1.44 imap_logout(connection_t * conn)
116 lefcha 1.1 {
117 lefcha 1.43
118 lefcha 1.44 buffer_reset(&obuf);
119     buffer_check(&obuf, strlen("LOGOUT") + 12);
120 lefcha 1.1
121 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X LOGOUT\r\n", tag);
122 lefcha 1.1
123 lefcha 1.42 return send_command(conn, obuf.data, NULL);
124 lefcha 1.28 }
125    
126    
127 lefcha 1.35 /*
128     * IMAP STARTTLS: begin TLS negotiation.
129     */
130     int
131 lefcha 1.44 imap_starttls(connection_t * conn)
132 lefcha 1.35 {
133 lefcha 1.43
134 lefcha 1.44 buffer_reset(&obuf);
135     buffer_check(&obuf, strlen("STARTTLS") + 12);
136 lefcha 1.35
137 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X STARTTLS\r\n", tag);
138 lefcha 1.35
139 lefcha 1.42 return send_command(conn, obuf.data, NULL);
140 lefcha 1.35 }
141    
142    
143 lefcha 1.34 #ifdef CRAM_MD5
144 lefcha 1.28 /*
145     * IMAP AUTHENTICATE: indicates authentication mechanism and performs an
146     * authentication protocol exchange.
147     */
148 lefcha 1.30 int
149 lefcha 1.44 imap_authenticate(connection_t * conn, char *auth, int cont)
150 lefcha 1.28 {
151 lefcha 1.43
152 lefcha 1.44 buffer_reset(&obuf);
153     buffer_check(&obuf, strlen("AUTHENTICATE") + 12);
154 lefcha 1.30
155 lefcha 1.34 if (!cont) {
156 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X AUTHENTICATE %s\r\n",
157 lefcha 1.36 tag, auth);
158 lefcha 1.42 return send_command(conn, obuf.data, NULL);
159 lefcha 1.34 } else {
160 lefcha 1.37 send_command_cont(conn, auth);
161 lefcha 1.34 return 0;
162     }
163     }
164     #endif
165 lefcha 1.1
166    
167     /*
168     * IMAP LOGIN: identifies client to server.
169     */
170 lefcha 1.30 int
171 lefcha 1.44 imap_login(connection_t * conn, char *user, char *pass)
172 lefcha 1.1 {
173 lefcha 1.36 int r, n;
174     char *sbuf;
175 lefcha 1.25
176 lefcha 1.42 /* Command to send to server. */
177 lefcha 1.36 n = strlen("LOGIN") + strlen(user) + strlen(pass) + 18;
178     sbuf = (char *)smalloc(n);
179 lefcha 1.42 snprintf(sbuf, n, "%04X LOGIN \"%s\" \"%s\"\r\n", tag, user, pass);
180 lefcha 1.1
181 lefcha 1.42 /* Alternate command with password shrouded for safe printing. */
182 lefcha 1.44 buffer_reset(&obuf);
183     buffer_check(&obuf, strlen("LOGIN") + strlen(user) + 18);
184 lefcha 1.43 snprintf(obuf.data, obuf.size, "%04X LOGIN \"%s\" *\r\n", tag, user);
185 lefcha 1.1
186 lefcha 1.42 r = send_command(conn, sbuf, obuf.data);
187 lefcha 1.25
188 lefcha 1.36 sfree(sbuf);
189 lefcha 1.23
190 lefcha 1.30 return r;
191 lefcha 1.1 }
192    
193    
194     /*
195 lefcha 1.24 * IMAP LIST: returns a subset of names from the complete set of names
196     * available to the client.
197     *
198 lefcha 1.44 int imap_list(connection_t *conn, char *refer, char *mbox)
199 lefcha 1.24 {
200 lefcha 1.43
201 lefcha 1.44 buffer_reset(&obuf);
202     buffer_check(&obuf, strlen("LIST") + strlen(refer) + strlen(mbox) + 18);
203 lefcha 1.36
204 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X LIST \"%s\" \"%s\"\r\n", tag,
205 lefcha 1.36 refer, mbox);
206 lefcha 1.25
207 lefcha 1.43 return send_command(conn, obuf.data, NULL);
208 lefcha 1.24 }*/
209    
210    
211     /*
212     * IMAP SUBSCRIBE: adds the specified mailbox name to the server's
213     * set of "active" or "subscribed" mailboxes.
214     */
215 lefcha 1.30 int
216 lefcha 1.44 imap_subscribe(connection_t * conn, char *mbox)
217 lefcha 1.24 {
218 lefcha 1.43
219 lefcha 1.44 buffer_reset(&obuf);
220     buffer_check(&obuf, strlen("SUBSCRIBE") + strlen(mbox) + 15);
221 lefcha 1.24
222 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X SUBSCRIBE \"%s\"\r\n", tag, mbox);
223 lefcha 1.24
224 lefcha 1.42 return send_command(conn, obuf.data, NULL);
225 lefcha 1.24 }
226    
227    
228     /*
229 lefcha 1.13 * IMAP EXAMINE: access a mailbox in READ-ONLY mode.
230 lefcha 1.31 *
231 lefcha 1.30 int
232 lefcha 1.44 imap_examine(connection_t *conn, char *mbox)
233 lefcha 1.1 {
234 lefcha 1.43
235 lefcha 1.44 buffer_reset(&obuf);
236     buffer_check(&obuf, strlen("EXAMINE") + strlen(mbox) + 15);
237 lefcha 1.1
238 lefcha 1.39 snprintf(obuf.data, MEDIUM_CMD, "%04X EXAMINE \"%s\"\r\n", tag, mbox);
239 lefcha 1.1
240 lefcha 1.42 return send_command(conn, obuf.data, NULL);
241 lefcha 1.31 }*/
242 lefcha 1.10
243 lefcha 1.13
244 lefcha 1.10 /*
245 lefcha 1.13 * IMAP SELECT: access a mailbox in READ-WRITE mode.
246 lefcha 1.10 */
247 lefcha 1.30 int
248 lefcha 1.44 imap_select(connection_t * conn, char *mbox)
249 lefcha 1.10 {
250 lefcha 1.43
251 lefcha 1.44 buffer_reset(&obuf);
252     buffer_check(&obuf, strlen("SELECT") + strlen(mbox) + 15);
253 lefcha 1.10
254 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X SELECT \"%s\"\r\n", tag, mbox);
255 lefcha 1.10
256 lefcha 1.42 return send_command(conn, obuf.data, NULL);
257 lefcha 1.1 }
258 lefcha 1.10
259 lefcha 1.1
260     /*
261 lefcha 1.13 * IMAP STATUS: requests status of the indicated mailbox.
262 lefcha 1.1 */
263 lefcha 1.30 int
264 lefcha 1.44 imap_status(connection_t * conn, char *mbox, char *items)
265 lefcha 1.1 {
266 lefcha 1.43
267 lefcha 1.44 buffer_reset(&obuf);
268     buffer_check(&obuf, strlen("STATUS") + strlen(mbox) +
269 lefcha 1.36 strlen(items) + 18);
270 lefcha 1.1
271 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X STATUS \"%s\" (%s)\r\n", tag, mbox, items);
272 lefcha 1.5
273 lefcha 1.42 return send_command(conn, obuf.data, NULL);
274 lefcha 1.1 }
275    
276    
277     /*
278 lefcha 1.13 * IMAP CREATE: create mailbox.
279 lefcha 1.1 */
280 lefcha 1.30 int
281 lefcha 1.44 imap_create(connection_t * conn, char *mbox)
282 lefcha 1.1 {
283 lefcha 1.43
284 lefcha 1.44 buffer_reset(&obuf);
285     buffer_check(&obuf, strlen("CREATE") + strlen(mbox) + 14);
286 lefcha 1.1
287 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X CREATE \"%s\"\r\n", tag, mbox);
288 lefcha 1.1
289 lefcha 1.42 return send_command(conn, obuf.data, NULL);
290 lefcha 1.1 }
291    
292    
293     /*
294 lefcha 1.13 * IMAP SEARCH: searches the mailbox for messages that match certain criteria.
295 lefcha 1.1 */
296 lefcha 1.30 int
297 lefcha 1.44 imap_search(connection_t * conn, char *charset, char *search)
298 lefcha 1.1 {
299 lefcha 1.43
300 lefcha 1.44 buffer_reset(&obuf);
301     buffer_check(&obuf, strlen("SEARCH CHARSET") + strlen(charset) +
302 lefcha 1.36 strlen(search) + 15);
303 lefcha 1.1
304 lefcha 1.30 if (*charset)
305 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X SEARCH CHARSET \"%s\" %s\r\n",
306 lefcha 1.36 tag, charset, search);
307 lefcha 1.30 else
308 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X SEARCH %s\r\n", tag, search);
309 lefcha 1.1
310 lefcha 1.42 return send_command(conn, obuf.data, NULL);
311 lefcha 1.1 }
312    
313    
314     /*
315 lefcha 1.13 * IMAP FETCH: retrieves data associated with a message.
316 lefcha 1.1 */
317 lefcha 1.30 int
318 lefcha 1.44 imap_fetch(connection_t * conn, char *mesg, char *items)
319 lefcha 1.1 {
320 lefcha 1.43
321 lefcha 1.44 buffer_reset(&obuf);
322     buffer_check(&obuf, strlen("FETCH") + strlen(mesg) + strlen(items) + 14);
323 lefcha 1.1
324 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X FETCH %s %s\r\n", tag, mesg, items);
325 lefcha 1.1
326 lefcha 1.42 return send_command(conn, obuf.data, NULL);
327 lefcha 1.1 }
328    
329    
330     /*
331 lefcha 1.13 * IMAP STORE: alters data associated with a message.
332 lefcha 1.1 */
333 lefcha 1.30 int
334 lefcha 1.44 imap_store(connection_t * conn, char *mesg, unsigned int mode, char *flags)
335 lefcha 1.1 {
336 lefcha 1.43
337 lefcha 1.44 buffer_reset(&obuf);
338     buffer_check(&obuf, strlen("STORE") + strlen(mesg) +
339 lefcha 1.36 strlen("FLAGS.SILENT") + strlen(flags) + 18);
340 lefcha 1.1
341 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X STORE %s %sFLAGS.SILENT (%s)\r\n",
342 lefcha 1.44 tag, mesg, (mode == ACTION_FLAG_REPLACE ? "" :
343     mode == ACTION_FLAG_ADD ? "+" : "-"), flags);
344 lefcha 1.5
345 lefcha 1.42 return send_command(conn, obuf.data, NULL);
346 lefcha 1.5 }
347    
348    
349     /*
350 lefcha 1.13 * IMAP COPY: copy messages to mailbox.
351 lefcha 1.5 */
352 lefcha 1.30 int
353 lefcha 1.44 imap_copy(connection_t * conn, char *mesg, char *mbox)
354 lefcha 1.5 {
355 lefcha 1.43
356 lefcha 1.44 buffer_reset(&obuf);
357     buffer_check(&obuf, strlen("COPY") + strlen(mesg) + strlen(mbox) + 16);
358 lefcha 1.5
359 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X COPY %s \"%s\"\r\n", tag, mesg, mbox);
360 lefcha 1.5
361 lefcha 1.42 return send_command(conn, obuf.data, NULL);
362 lefcha 1.5 }
363 lefcha 1.2
364    
365 lefcha 1.5 /*
366 lefcha 1.24 * IMAP APPEND: append message to the end of a mailbox.
367     */
368 lefcha 1.30 int
369 lefcha 1.44 imap_append(connection_t * conn, char *mbox, char *flags, char *date, unsigned int size)
370 lefcha 1.24 {
371 lefcha 1.43
372 lefcha 1.44 buffer_reset(&obuf);
373     buffer_check(&obuf, strlen("APPEND") + strlen(mbox) + strlen(flags) +
374 lefcha 1.40 strlen(date) + strlen(ultostr(size, 10)) + 24);
375 lefcha 1.25
376 lefcha 1.40 snprintf(obuf.data, obuf.size, "%04X APPEND \"%s\" (%s) \"%s\" {%d}\r\n",
377     tag, mbox, flags, date, size);
378 lefcha 1.25
379 lefcha 1.42 return send_command(conn, obuf.data, NULL);
380 lefcha 1.24 }
381    
382    
383    
384     /*
385 lefcha 1.13 * IMAP CLOSE: delete messages and return to authenticated state.
386 lefcha 1.5 */
387 lefcha 1.30 int
388 lefcha 1.44 imap_close(connection_t * conn)
389 lefcha 1.5 {
390 lefcha 1.43
391 lefcha 1.44 buffer_reset(&obuf);
392     buffer_check(&obuf, strlen("CLOSE") + 12);
393 lefcha 1.4
394 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X CLOSE\r\n", tag);
395 lefcha 1.13
396 lefcha 1.42 return send_command(conn, obuf.data, NULL);
397 lefcha 1.5 }
398 lefcha 1.4
399 lefcha 1.1
400     /*
401 lefcha 1.13 * IMAP EXPUNGE: permanently removes any messages with the \Deleted flag set.
402 lefcha 1.25 */
403 lefcha 1.30 int
404 lefcha 1.44 imap_expunge(connection_t * conn)
405 lefcha 1.1 {
406 lefcha 1.43
407 lefcha 1.44 buffer_reset(&obuf);
408     buffer_check(&obuf, strlen("EXPUNGE") + 12);
409 lefcha 1.1
410 lefcha 1.39 snprintf(obuf.data, obuf.size, "%04X EXPUNGE\r\n", tag);
411 lefcha 1.4
412 lefcha 1.42 return send_command(conn, obuf.data, NULL);
413 lefcha 1.25 }

webmaster@linux.gr
ViewVC Help
Powered by ViewVC 1.1.26