chiark / gitweb /
Online registration now sends email. The confirmation URL doesn't
[disorder] / lib / sendmail.c
... / ...
CommitLineData
1/*
2 * This file is part of DisOrder
3 * Copyright (C) 2007 Richard Kettlewell
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful, but
11 * WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License
16 * along with this program; if not, write to the Free Software
17 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
18 * USA
19 */
20
21#include <config.h>
22#include "types.h"
23
24#include <stdio.h>
25#include <errno.h>
26#include <stdarg.h>
27#include <sys/socket.h>
28#include <netdb.h>
29#include <unistd.h>
30#include <gcrypt.h>
31
32#include "syscalls.h"
33#include "log.h"
34#include "configuration.h"
35#include "inputline.h"
36#include "addr.h"
37#include "hostname.h"
38#include "sendmail.h"
39#include "base64.h"
40
41/** @brief Get a server response
42 * @param tag Server name
43 * @param in Input stream
44 * @return Response code 0-999 or -1 on error
45 */
46static int getresponse(const char *tag, FILE *in) {
47 char *line;
48
49 while(!inputline(tag, in, &line, CRLF)) {
50 if(line[0] >= '0' && line[0] <= '9'
51 && line[1] >= '0' && line[1] <= '9'
52 && line[2] >= '0' && line[2] <= '9') {
53 const int rc = 10 * (10 * line[0] + line[1]) + line[2] - 111 * '0';
54 if(rc >= 400 && rc <= 599)
55 error(0, "%s: %s", tag, line);
56 if(line[3] != '-') {
57 return rc;
58 }
59 /* else go round for further response lines */
60 } else {
61 error(0, "%s: malformed response: %s", tag, line);
62 return -1;
63 }
64 }
65 if(ferror(in))
66 error(errno, "%s: read error", tag);
67 else
68 error(0, "%s: server closed connection", tag);
69 return -1;
70}
71
72/** @brief Send a command to the server
73 * @param tag Server name
74 * @param out stream to send commands to
75 * @param fmt Format string
76 * @return 0 on success, non-0 on error
77 */
78static int sendcommand(const char *tag, FILE *out, const char *fmt, ...) {
79 va_list ap;
80 int rc;
81
82 va_start(ap, fmt);
83 rc = vfprintf(out, fmt, ap);
84 va_end(ap);
85 if(rc >= 0)
86 rc = fputs("\r\n", out);
87 if(rc >= 0)
88 rc = fflush(out);
89 if(rc >= 0)
90 return 0;
91 error(errno, "%s: write error", tag);
92 return -1;
93}
94
95/** @brief Send a mail message
96 * @param tag Server name
97 * @param in Stream to read responses from
98 * @param out Stream to send commands to
99 * @param sender Sender address (can be "")
100 * @param pubsender Visible sender address (must not be "")
101 * @param recipient Recipient address
102 * @param subject Subject string
103 * @param encoding Body encoding
104 * @param body_type Content-type of body
105 * @param body Text of body (encoded, but \n for newline)
106 * @return 0 on success, non-0 on error
107 */
108static int sendmailfp(const char *tag, FILE *in, FILE *out,
109 const char *sender,
110 const char *pubsender,
111 const char *recipient,
112 const char *subject,
113 const char *encoding,
114 const char *content_type,
115 const char *body) {
116 int rc, sol = 1;
117 const char *ptr;
118 uint8_t idbuf[20];
119 char *id;
120
121 gcry_create_nonce(idbuf, sizeof idbuf);
122 id = mime_to_base64(idbuf, sizeof idbuf);
123 if((rc = getresponse(tag, in)) / 100 != 2)
124 return -1;
125 if(sendcommand(tag, out, "HELO %s", local_hostname()))
126 return -1;
127 if((rc = getresponse(tag, in)) / 100 != 2)
128 return -1;
129 if(sendcommand(tag, out, "MAIL FROM:<%s>", sender))
130 return -1;
131 if((rc = getresponse(tag, in)) / 100 != 2)
132 return -1;
133 if(sendcommand(tag, out, "RCPT TO:<%s>", recipient))
134 return -1;
135 if((rc = getresponse(tag, in)) / 100 != 2)
136 return -1;
137 if(sendcommand(tag, out, "DATA", sender))
138 return -1;
139 if((rc = getresponse(tag, in)) / 100 != 3)
140 return -1;
141 if(fprintf(out, "From: %s\r\n", pubsender) < 0
142 || fprintf(out, "To: %s\r\n", recipient) < 0
143 || fprintf(out, "Subject: %s\r\n", subject) < 0
144 || fprintf(out, "Message-ID: <%s@%s>\r\n", id, local_hostname()) < 0
145 || fprintf(out, "MIME-Version: 1.0\r\n") < 0
146 || fprintf(out, "Content-Type: %s\r\n", content_type) < 0
147 || fprintf(out, "Content-Transfer-Encoding: %s\r\n", encoding) < 0
148 || fprintf(out, "\r\n") < 0) {
149 write_error:
150 error(errno, "%s: write error", tag);
151 return -1;
152 }
153 for(ptr = body; *ptr; ++ptr) {
154 if(sol && *ptr == '.')
155 if(fputc('.', out) < 0)
156 goto write_error;
157 if(*ptr == '\n') {
158 if(fputc('\r', out) < 0)
159 goto write_error;
160 sol = 1;
161 } else
162 sol = 0;
163 if(fputc(*ptr, out) < 0)
164 goto write_error;
165 }
166 if(!sol)
167 if(fputs("\r\n", out) < 0)
168 goto write_error;
169 if(fprintf(out, ".\r\n") < 0
170 || fflush(out) < 0)
171 goto write_error;
172 if((rc = getresponse(tag, in)) / 100 != 2)
173 return -1;
174 return 0;
175}
176
177/** @brief Send a mail message
178 * @param sender Sender address (can be "")
179 * @param pubsender Visible sender address (must not be "")
180 * @param recipient Recipient address
181 * @param subject Subject string
182 * @param encoding Body encoding
183 * @param content_type Content-type of body
184 * @param body Text of body (encoded, but \n for newline)
185 * @return 0 on success, non-0 on error
186 *
187 * See mime_encode_text() for encoding of text bodies.
188 */
189int sendmail(const char *sender,
190 const char *pubsender,
191 const char *recipient,
192 const char *subject,
193 const char *encoding,
194 const char *content_type,
195 const char *body) {
196 struct stringlist a;
197 char *s[2];
198 struct addrinfo *ai;
199 char *tag;
200 int fdin, fdout, rc;
201 FILE *in, *out;
202
203 static const struct addrinfo pref = {
204 0,
205 PF_INET,
206 SOCK_STREAM,
207 IPPROTO_TCP,
208 0,
209 0,
210 0,
211 0
212 };
213
214 /* Find the SMTP server */
215 a.n = 2;
216 a.s = s;
217 s[0] = config->smtp_server;
218 s[1] = (char *)"smtp";
219 if(!(ai = get_address(&a, &pref, &tag)))
220 return -1;
221 fdin = xsocket(ai->ai_family, ai->ai_socktype, ai->ai_protocol);
222 if(connect(fdin, ai->ai_addr, ai->ai_addrlen) < 0) {
223 error(errno, "error connecting to %s", tag);
224 xclose(fdin);
225 return -1;
226 }
227 if((fdout = dup(fdin)) < 0)
228 fatal(errno, "error calling dup2");
229 if(!(in = fdopen(fdin, "rb")))
230 fatal(errno, "error calling fdopen");
231 if(!(out = fdopen(fdout, "wb")))
232 fatal(errno, "error calling fdopen");
233 rc = sendmailfp(tag, in, out, sender, pubsender, recipient, subject,
234 encoding, content_type, body);
235 fclose(in);
236 fclose(out);
237 return rc;
238}
239
240/*
241Local Variables:
242c-basic-offset:2
243comment-column:40
244fill-column:79
245indent-tabs-mode:nil
246End:
247*/